Commit 8207536b by Robert Goldman

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

parent 56b62af8
......@@ -322,14 +322,16 @@ system names contained using COERCE-NAME. Return the result."
:module name
:pathname (determine-system-directory pathname)
component-options))))
;; check for required metadata
(loop :for slotname :in *required-metadata*
;; check for required metadata on top-level systems
;; "top level" here is meant as "not containing a slash."
(unless (find #\/ name)
(loop :for slotname :in *required-metadata*
:unless (slot-boundp component slotname)
:collect slotname :into missing
:finally (when missing
(signal 'missing-metadata
:system-name name
:missing-metadata missing)))
:missing-metadata missing))))
component))))
(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