[lgtk-cvs] CVS update: lgtk/lgtk.asd

[Mario Mommer]

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