model-classes: Don't look at *COMPILE-FILE-PATH* when recording schemas by pathname

diff --git a/model-classes.lisp b/model-classes.lisp
index 1f99edd970bbb82cd8b5fd0bc00c45500d94e903..09b0f710ca2bc139a1aaad1375b362215f43504a 100644 (file)
--- a/model-classes.lisp
+++ b/model-classes.lisp
@@ -184,10 +184,9 @@
     (let ((symbol (or symbol (proto-class schema))))
       (when symbol
         (setf (gethash symbol *all-schemas*) schema))
-      (let ((path (or *protobuf-pathname* *compile-file-pathname*)))
-        (when path
-          ;; Record the file from which the Protobufs schema came
-          (setf (gethash path *all-schemas*) schema))))))
+      (when *protobuf-pathname*
+        ;; Record the file from which the Protobufs schema came
+        (setf (gethash *protobuf-pathname* *all-schemas*) schema)))))
 
 (defmethod print-object ((s protobuf-schema) stream)
   (if *print-escape*