From: Rupert Swarbrick <rswarbrick@gmail.com>
Date: Tue, 20 Apr 2010 22:51:14 +0000 (+0100)
Subject: Force asdf to call the C source file blah.c, rather than just blah. I'm
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/1bf1bfc9dae1911ac64a7d1732e1912ec81700f4

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
--- a/tools/asdf-extensions.lisp
+++ b/tools/asdf-extensions.lisp
@@ -152,6 +152,9 @@    (definitions :initform nil :initarg :definitions)
 (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