? mcclim-freetype.fasl
Index: mcclim-freetype.asd
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Experimental/freetype/mcclim-freetype.asd,v
retrieving revision 1.4
diff -u -r1.4 mcclim-freetype.asd
--- mcclim-freetype.asd	6 Feb 2006 13:42:09 -0000	1.4
+++ mcclim-freetype.asd	14 Mar 2006 15:19:15 -0000
@@ -15,7 +15,15 @@
 (defclass uncompiled-cl-source-file (cl-source-file) ())
 
 (defmethod perform ((o compile-op) (f uncompiled-cl-source-file))
-  t)
+  (let ((output-file (car (output-files o f)))
+	(input-file (component-pathname f)))
+    (or (equal output-file input-file)
+	(let ((buffer (make-array 512 :initial-element nil)))
+	  (with-open-file (input-stream input-file :direction :input :element-type 'unsigned-byte)
+	    (with-open-file (output-stream output-file :direction :output :if-exists :supersede :element-type 'unsigned-byte)
+	      (do ((bytes-read (read-sequence buffer input-stream) (read-sequence buffer input-stream)))
+		  ((zerop bytes-read))
+		(write-sequence buffer output-stream :end bytes-read))))))))
 
 (defmethod output-files ((operation compile-op) (c uncompiled-cl-source-file))
   (list (component-pathname c)))
