From: Stelian Ionescu <sionescu@cddr.org>
Date: Tue, 30 Apr 2013 14:22:12 +0000 (+0200)
Subject: Port groveler ASDF fix from CFFI
X-Git-Tag: v0.8.1~73
X-Git-Url: https://repo.or.cz/w/iolib.git/commitdiff_plain/6851c4f68cbb9cf15bd94e73b9c70d165d937ada

Port groveler ASDF fix from CFFI
---

diff --git a/src/grovel/asdf.lisp b/src/grovel/asdf.lisp
index bfe1066..3250624 100644
--- a/src/grovel/asdf.lisp
+++ b/src/grovel/asdf.lisp
@@ -70,18 +70,19 @@
                        :defaults (asdf:component-pathname c))))
 
 (defmethod asdf:component-depends-on ((op process-op) (c process-op-input))
-  (append (call-next-method)
-          (list (cons 'asdf:load-op (asdf::component-load-dependencies c)))))
+  `(#-asdf3 (asdf:load-op ,@(asdf::component-load-dependencies c))
+    #+asdf3 (asdf:prepare-op ,c)
+    ,@(call-next-method)))
 
 (defmethod asdf:component-depends-on ((op asdf:compile-op) (c process-op-input))
   (declare (ignore op))
-  (append (call-next-method)
-          (list (list 'process-op (asdf:component-name c)))))
+  `((process-op ,(asdf:component-name c))
+    ,@(call-next-method)))
 
 (defmethod asdf:component-depends-on ((op asdf:load-source-op) (c process-op-input))
   (declare (ignore op))
-  (append (call-next-method)
-          (list (list 'process-op (asdf:component-name c)))))
+  `((process-op ,(asdf:component-name c))
+    ,@(call-next-method)))
 
 (defmethod asdf:perform ((op asdf:compile-op) (c process-op-input))
   (let ((generated-lisp-file (asdf:output-file (make-instance 'process-op) c)))