asdf-support: change perform for load-op to do all work locally and better use input...

diff --git a/asdf-support.lisp b/asdf-support.lisp
index 545ca9e..33137e1 100644 (file)
--- a/asdf-support.lisp
+++ b/asdf-support.lisp
@@ -170,10 +170,10 @@
          (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~@:>")