Port groveler ASDF fix from CFFI
authorStelian Ionescu <sionescu@cddr.org>
Tue, 30 Apr 2013 14:22:12 +0000 (30 16:22 +0200)
committerStelian Ionescu <sionescu@cddr.org>
Tue, 30 Apr 2013 14:22:12 +0000 (30 16:22 +0200)
src/grovel/asdf.lisp

index bfe1066..3250624 100644 (file)
                        :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)))