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

Suppress empty arguments in results of DEFTESTCMD.

parent 13d20382
No related branches found
No related tags found
No related merge requests found
...@@ -144,7 +144,8 @@ and which systems to test loading with ASDF_TEST_SYSTEMS or s= ...@@ -144,7 +144,8 @@ and which systems to test loading with ASDF_TEST_SYSTEMS or s=
:finally :finally
(multiple-value-bind (decl body) (decl-and-body decl-and-body) (multiple-value-bind (decl body) (decl-and-body decl-and-body)
(return (return
`(defun ,name (&optional ,@largs) `(defun ,name ,@(if largs `((&optional ,@largs))
(list nil))
,@decl ,@decl
(with-failure-context (:name ,(command-name name)) (with-failure-context (:name ,(command-name name))
,@inits ,@inits
......
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