diff -u osicat_0.5.0.orig/osicat-glue.c osicat_0.5.0/osicat-glue.c --- osicat_0.5.0.orig/osicat-glue.c 2005-10-06 17:25:31.000000000 -0500 +++ osicat_0.5.0/osicat-glue.c 2005-10-28 10:45:59.000000000 -0500 @@ -26,6 +26,7 @@ #include #include #include +#include extern int osicat_mode (char * name, int follow_p) Only in osicat_0.5.0: osicat-glue.c~ diff -u osicat_0.5.0.orig/osicat.asd osicat_0.5.0/osicat.asd --- osicat_0.5.0.orig/osicat.asd 2005-10-06 17:25:31.000000000 -0500 +++ osicat_0.5.0/osicat.asd 2005-10-28 10:51:43.000000000 -0500 @@ -31,17 +31,19 @@ #+darwin "-dynamiclib" "-fPIC")) -(defmethod output-files ((o compile-op) (c c-source-file)) +(defclass osicat-c-source-file (c-source-file) ()) + +(defmethod output-files ((o compile-op) (c osicat-c-source-file)) (list (make-pathname :name (component-name c) :type "so" :defaults (component-pathname c)))) -(defmethod perform ((o load-op) (c c-source-file)) +(defmethod perform ((o load-op) (c osicat-c-source-file)) (let ((loader (intern "LOAD-FOREIGN-LIBRARY" :uffi))) (dolist (file (asdf::input-files o c)) (funcall loader file :module "osicat" :force-load t)))) -(defmethod perform ((o compile-op) (c c-source-file)) +(defmethod perform ((o compile-op) (c osicat-c-source-file)) (unless (zerop (run-shell-command "~A ~A ~{~A ~}-o ~A" *gcc* (namestring (component-pathname c)) @@ -72,7 +74,7 @@ :version "0.5.0" :depends-on (:uffi) :components - ((:c-source-file "osicat-glue") + ((:osicat-c-source-file "osicat-glue") (:file "packages") (:grovel-file "grovel-constants" :depends-on ("packages")) (:file "early-util" :depends-on ("packages")) Only in osicat_0.5.0: osicat.asd~