Skip to content
Snippets Groups Projects
Commit bb2fe5c4 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Extend DEF-TEST-SYSTEM to permit systems named with strings.

parent 1389e377
No related branches found
No related tags found
No related merge requests found
...@@ -592,8 +592,15 @@ is bound, write a message and exit on an error. If ...@@ -592,8 +592,15 @@ is bound, write a message and exit on an error. If
(setf *package* (find-package :asdf-test)) (setf *package* (find-package :asdf-test))
(defmacro def-test-system (name &rest rest) (defmacro def-test-system (name &rest rest)
`(apply (asym :register-system-definition) ',name :pathname ,*test-directory* (etypecase name
:source-file nil ',rest)) (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)) (defun in-plan-p (plan x) (member x (acall :plan-actions plan) :key (asym :action-path) :test 'equal))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment