Commit c421f582 authored by Robert Goldman's avatar Robert Goldman

Suppress empty arguments in results of DEFTESTCMD.

parent 13d20382
......@@ -144,7 +144,8 @@ and which systems to test loading with ASDF_TEST_SYSTEMS or s=
:finally
(multiple-value-bind (decl body) (decl-and-body decl-and-body)
(return
`(defun ,name (&optional ,@largs)
`(defun ,name ,@(if largs `((&optional ,@largs))
(list nil))
,@decl
(with-failure-context (:name ,(command-name name))
,@inits
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment