Commit 8207536b authored by Robert Goldman's avatar Robert Goldman
Browse files

Don't check for metadata on "slashy" systems.

parent 56b62af8
...@@ -322,14 +322,16 @@ system names contained using COERCE-NAME. Return the result." ...@@ -322,14 +322,16 @@ system names contained using COERCE-NAME. Return the result."
:module name :module name
:pathname (determine-system-directory pathname) :pathname (determine-system-directory pathname)
component-options)))) component-options))))
;; check for required metadata ;; check for required metadata on top-level systems
(loop :for slotname :in *required-metadata* ;; "top level" here is meant as "not containing a slash."
(unless (find #\/ name)
(loop :for slotname :in *required-metadata*
:unless (slot-boundp component slotname) :unless (slot-boundp component slotname)
:collect slotname :into missing :collect slotname :into missing
:finally (when missing :finally (when missing
(signal 'missing-metadata (signal 'missing-metadata
:system-name name :system-name name
:missing-metadata missing))) :missing-metadata missing))))
component)))) component))))
(defmacro defsystem (name &body options) (defmacro defsystem (name &body options)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment