asdf-support: search path should be based on proto-file, not lisp-file

diff --git a/asdf-support.lisp b/asdf-support.lisp
index 6d9ca93135690d36c9b3da91ce4af3a6674c79fc..3378027540f4646b3b9c26e7a0214ee005bd1ef4 100644 (file)
--- a/asdf-support.lisp
+++ b/asdf-support.lisp
@@ -134,7 +134,8 @@
                            #+(or ecl mkcl) object-file
                            #+asdf3 warnings-file)
         (output-files op component)
-      (let* ((paths  (cons (directory-namestring lisp-file)
+      (let* ((proto-file (protobuf-input-file component))
+             (paths  (cons (directory-namestring proto-file)
                            (resolve-search-path component)))
              (proto-impl:*protobuf-search-path* paths)
              (proto-impl:*protobuf-output-path* fasl-file)