From 1bf1bfc9dae1911ac64a7d1732e1912ec81700f4 Mon Sep 17 00:00:00 2001 Message-Id: <1bf1bfc9dae1911ac64a7d1732e1912ec81700f4.1713968483.git.mdw@distorted.org.uk> From: Mark Wooding Date: Tue, 20 Apr 2010 23:51:14 +0100 Subject: [PATCH] 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... Organization: Straylight/Edgeware From: Rupert Swarbrick --- tools/asdf-extensions.lisp | 3 +++ 1 file changed, 3 insertions(+) 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 -- [mdw]