asdf-support: change perform for load-op to do all work locally and better use input...
authorAlejandro R Sedeño <asedeno@google.com>
Thu, 6 Dec 2012 19:45:52 +0000 (14:45 -0500)
committerAlejandro R Sedeño <asedeno@google.com>
Thu, 6 Dec 2012 19:45:52 +0000 (14:45 -0500)
asdf-support.lisp

index 545ca9e..33137e1 100644 (file)
          (paths  (cons (directory-namestring input) (resolve-search-path component)))
          (proto-impl:*protobuf-search-path* paths)
          (proto-impl:*protobuf-output-path* (first (input-files op component))))
-    (proto-impl:process-imports-from-file
-     (make-pathname :type "proto-imports"
-                    :defaults (first (input-files op component)))))
-  (call-next-method))
+    (destructuring-bind (fasl proto-imports)
+        (input-files op component)
+      (proto-impl:process-imports-from-file proto-imports)
+      (load fasl))))
 
 (defmethod operation-description ((op compile-op) (component protobuf-file))
   (format nil (compatfmt "~@<compiling ~3i~_~A~@:>")