Force asdf to call the C source file blah.c, rather than just blah. I'm

a bit mystified as to why this was working until today...

diff --git a/tools/asdf-extensions.lisp b/tools/asdf-extensions.lisp
index 89e0727..016ff46 100644 (file)
--- a/tools/asdf-extensions.lisp
+++ b/tools/asdf-extensions.lisp
@@ -152,6 +152,9 @@
 (defmethod output-files ((op compile-op) (c c-source-file))
   (list (make-pathname :type "o" :defaults (component-pathname c))))
 
 (defmethod output-files ((op compile-op) (c c-source-file))
   (list (make-pathname :type "o" :defaults (component-pathname c))))
 

+(defmethod component-pathname ((c c-source-file))
+  (make-pathname :type "c" :name (component-name c)
+                 :directory (pathname-directory (call-next-method))))

 
 (defmethod perform ((op compile-op) (c c-source-file))
   (unless
 
 (defmethod perform ((op compile-op) (c c-source-file))
   (unless