X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fparse-defmacro-errors.lisp;h=3efcae41d584fa1d38f240136d4adb7a1a88e06f;hb=5edd74f6911093805a009a152b32216b3dba59f7;hp=104fd18bd659f1f95cd9ed697f0ac52e1b57055d;hpb=1bfc464c657a8f4ad24ef612f76a38d8f6f1bbad;p=sbcl.git

diff --git a/src/code/parse-defmacro-errors.lisp b/src/code/parse-defmacro-errors.lisp
index 104fd18..3efcae4 100644
--- a/src/code/parse-defmacro-errors.lisp
+++ b/src/code/parse-defmacro-errors.lisp
@@ -14,15 +14,16 @@
 (in-package "SB!KERNEL")
 
 ;;; We save space in macro definitions by calling this function.
-(defun arg-count-error (error-kind name arg lambda-list minimum maximum)
+(defun arg-count-error (error-kind name args lambda-list minimum maximum)
   (let (#-sb-xc-host
 	(sb!debug:*stack-top-hint* (nth-value 1 (find-caller-name-and-frame))))
     (error 'arg-count-error
 	   :kind error-kind
 	   :name name
-	   :argument arg
+	   :args args
 	   :lambda-list lambda-list
-	   :minimum minimum :maximum maximum)))
+	   :minimum minimum
+	   :maximum maximum)))
 
 (define-condition defmacro-lambda-list-bind-error (error)
   ((kind :reader defmacro-lambda-list-bind-error-kind
@@ -51,7 +52,7 @@
 	     (defmacro-bogus-sublist-error-lambda-list condition)))))
 
 (define-condition arg-count-error (defmacro-lambda-list-bind-error)
-  ((argument :reader arg-count-error-argument :initarg :argument)
+  ((args :reader arg-count-error-args :initarg :args)
    (lambda-list :reader arg-count-error-lambda-list
 		:initarg :lambda-list)
    (minimum :reader arg-count-error-minimum :initarg :minimum)
@@ -62,7 +63,7 @@
      (format stream
 	     "invalid number of elements in:~%  ~:S~%~
 	     to satisfy lambda list:~%  ~:S~%"
-	     (arg-count-error-argument condition)
+	     (arg-count-error-args condition)
 	     (arg-count-error-lambda-list condition))
      (cond ((null (arg-count-error-maximum condition))
 	    (format stream "at least ~W expected"
@@ -76,7 +77,7 @@
 		    (arg-count-error-minimum condition)
 		    (arg-count-error-maximum condition))))
      (format stream ", but ~W found"
-	     (length (arg-count-error-argument condition))))))
+	     (length (arg-count-error-args condition))))))
 
 (define-condition defmacro-ll-broken-key-list-error
 		  (defmacro-lambda-list-bind-error)