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
Jan Moringen
asdf
Commits
f02926df
Commit
f02926df
authored
Feb 26, 2014
by
Robert P. Goldman
Browse files
Extend DEF-TEST-SYSTEM to permit systems named with strings.
parent
feaa1e4d
Changes
1
Show whitespace changes
Inline
Side-by-side
test/script-support.lisp
View file @
f02926df
...
...
@@ -592,8 +592,15 @@ is bound, write a message and exit on an error. If
(
setf
*package*
(
find-package
:asdf-test
))
(
defmacro
def-test-system
(
name
&rest
rest
)
`
(
apply
(
asym
:register-system-definition
)
',name
:pathname
,
*test-directory*
(
etypecase
name
(
symbol
`
(
apply
(
asym
:register-system-definition
)
',name
:pathname
,
*test-directory*
:source-file
nil
',rest
))
(
string
`
(
apply
(
asym
:register-system-definition
)
,
name
:pathname
,
*test-directory*
:source-file
nil
',rest
))))
(
defun
in-plan-p
(
plan
x
)
(
member
x
(
acall
:plan-actions
plan
)
:key
(
asym
:action-path
)
:test
'equal
))
...
...
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