X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fparse-defmacro.lisp;h=a4eb1bcca8d24fa5443ccc99382c6bd16278122d;hb=d2c3be7fa4cd6e09db6377ba45afab1af621dbfe;hp=5297670bef8724d9d9164c05cba088df7828ad28;hpb=5ec8d0c1c8b7939818b75118b472fac1af554f9a;p=sbcl.git

diff --git a/src/code/parse-defmacro.lisp b/src/code/parse-defmacro.lisp
index 5297670..a4eb1bc 100644
--- a/src/code/parse-defmacro.lisp
+++ b/src/code/parse-defmacro.lisp
@@ -27,9 +27,9 @@
 (defvar *ignorable-vars*)
 (declaim (type list *ignorable-vars*))
 
-;;; Return, as multiple-values, a body, possibly a declare form to put where
-;;; this code is inserted, the documentation for the parsed body, and bounds
-;;; on the number of arguments.
+;;; Return, as multiple values, a body, possibly a declare form to put
+;;; where this code is inserted, the documentation for the parsed
+;;; body, and bounds on the number of arguments.
 (defun parse-defmacro (lambda-list arg-list-name body name error-kind
 				   &key
 				   (anonymousp nil)
@@ -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