0.pre7.136:

[sbcl.git] / src / code / parse-defmacro.lisp

diff --git a/src/code/parse-defmacro.lisp b/src/code/parse-defmacro.lisp
index 03aa970..a4eb1bc 100644 (file)
--- a/src/code/parse-defmacro.lisp
+++ b/src/code/parse-defmacro.lisp
@@ -212,7 +212,7 @@
                  `(,error-fun 'arg-count-error
                               :kind ',error-kind
                               ,@(when name `(:name ',name))
-                              :argument ,path-0
+                              :args ,path-0
                               :lambda-list ',lambda-list
                               :minimum ,minimum
                               ,@(unless restp