[mcclim-cvs] CVS mcclim/Experimental/freetype

[crhodes]

Update of /project/mcclim/cvsroot/mcclim/Experimental/freetype
In directory clnet:/tmp/cvs-serv4599/Experimental/freetype

Modified Files:
	mcclim-freetype.asd 
Log Message:
Fix for uncompiled-cl-source-file in the presence of the (advertised) 
asdf protocol with output-files :around.

No output files!


--- /project/mcclim/cvsroot/mcclim/Experimental/freetype/mcclim-freetype.asd	2006/02/06 13:42:09	1.4
+++ /project/mcclim/cvsroot/mcclim/Experimental/freetype/mcclim-freetype.asd	2006/03/15 09:31:31	1.5
@@ -12,13 +12,20 @@
 (defpackage :mcclim-freetype-system (:use :cl :asdf))
 (in-package :mcclim-freetype-system)
 
-(defclass uncompiled-cl-source-file (cl-source-file) ())
+(defclass uncompiled-cl-source-file (source-file) ())
 
 (defmethod perform ((o compile-op) (f uncompiled-cl-source-file))
   t)
-
+(defmethod perform ((o load-op) (f uncompiled-cl-source-file))
+  (mapcar #'load (input-files o f)))
 (defmethod output-files ((operation compile-op) (c uncompiled-cl-source-file))
+  nil)
+(defmethod input-files ((operation load-op) (c uncompiled-cl-source-file))
   (list (component-pathname c)))
+(defmethod operation-done-p ((operation compile-op) (c uncompiled-cl-source-file))
+  t)
+(defmethod source-file-type ((c uncompiled-cl-source-file) (s module))
+  "lisp")
 
 (defsystem :mcclim-freetype
   :depends-on (:clim-clx)