search

crategus / cl-cffi-gtk

cl-cffi-gtk is a Lisp binding to the GTK+ 3 library.
http://www.crategus.com/books/cl-cffi-gtk
146 stars 33 forks source link

cl-cffi-gtk/demo/gtk-example/gtk-example.lisp #78

Closed anranyicheng closed 3 years ago

anranyicheng commented 4 years ago

(defun rel-path (filename) (let ((system-path (asdf:system-source-directory :cl-cffi-gtk-example-gtk))) (princ-to-string (merge-pathnames filename system-path))))

-----> (defun rel-path (filename) (let ((system-path (asdf:system-source-directory :gtk-example))) (princ-to-string (merge-pathnames filename system-path))))