Commit d46f4c31 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

tools: Simplify a ,@ into a ,

parent 49b88122
......@@ -144,8 +144,7 @@ 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 ,@(if largs `((&optional ,@largs))
(list nil))
`(defun ,name ,(and largs `(&optional ,@largs))
,@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