Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Eric Schulte
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."
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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