Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Tarn Burton
asdf
Commits
8207536b
Commit
8207536b
authored
May 27, 2015
by
Robert Goldman
Browse files
Don't check for metadata on "slashy" systems.
parent
56b62af8
Changes
1
Hide whitespace changes
Inline
Side-by-side
parse-defsystem.lisp
View file @
8207536b
...
...
@@ -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
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment