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)