Update of /project/lgtk/cvsroot/lgtk In directory common-lisp.net:/tmp/cvs-serv5080 Modified Files: lgtk.asd Log Message: Fixed lgtk.asd. Now actually works properly. Date: Wed Oct 29 12:59:10 2003 Author: mmommer Index: lgtk/lgtk.asd diff -u lgtk/lgtk.asd:1.2 lgtk/lgtk.asd:1.3 --- lgtk/lgtk.asd:1.2 Wed Oct 29 12:43:37 2003 +++ lgtk/lgtk.asd Wed Oct 29 12:59:10 2003 @@ -49,7 +49,7 @@ (defclass gtk-libs-handle (c-source-file) ()) -(defmethod output-flies ((o t) (c c-source-file)) ; bzzzzzzzzz... +(defmethod output-files ((o operation) (c c-source-file)) (list (make-pathname :name (component-name c) :type "o" :defaults (component-pathname c)))) @@ -58,11 +58,11 @@ (unless (zerop (run-shell-command "~A ~A -c -o ~A" *ccompiler* (namestring (component-pathname c)) - (namestring (car (output-flies o c))))) + (namestring (car (output-files o c))))) (error 'operation-error :component c :operation o))) (defmethod perform ((o load-op) (c gtk-libs-handle)) - (ext:load-foreign (namestring (car (output-flies o c))) + (ext:load-foreign (namestring (car (output-files o c))) :libraries (get-gtk-libs-list))) (defsystem lgtk