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."
:module name
:pathname (determine-system-directory pathname)
;; 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))))
(defmacro defsystem (name &body options)
Supports Markdown
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