X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fboot.lisp;h=69f7e174c16d7304e11464c1c87d5ea98a82f63e;hb=c7638557b3c7b34267daba188d345f5d284f4ac3;hp=f4dc2ceb500b712a8b688a7d8a8cd8b0b2c94e40;hpb=9a2e730f74641e7de6ad4099111db92c5ad863bf;p=sbcl.git

diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index f4dc2ce..69f7e17 100644
--- a/src/pcl/boot.lisp
+++ b/src/pcl/boot.lisp
@@ -241,12 +241,13 @@ bootstrapping.
 	     (error
 	      "invalid argument ~S in the generic function lambda list ~S"
 	      arg lambda-list))))
-    (multiple-value-bind (required optional restp rest keyp keys allowp aux
-		          morep more-context more-count)
+    (multiple-value-bind (required optional restp rest keyp keys allowp
+                          auxp aux morep more-context more-count)
 	(parse-lambda-list lambda-list)
       (declare (ignore required)) ; since they're no different in a gf ll
       (declare (ignore restp rest)) ; since they're no different in a gf ll
       (declare (ignore allowp)) ; since &ALLOW-OTHER-KEYS is fine either way
+      (declare (ignore aux)) ; since we require AUXP=NIL
       (declare (ignore more-context more-count)) ; safely ignored unless MOREP
       ;; no defaults allowed for &OPTIONAL arguments
       (dolist (i optional)
@@ -264,7 +265,7 @@ bootstrapping.
 				      (null (cddar i))))
 			     (null (cdr i)))))))
       ;; no &AUX allowed
-      (when aux
+      (when auxp
 	(error "&AUX is not allowed in a generic function lambda list: ~S"
 	       lambda-list))
       ;; Oh, *puhlease*... not specifically as per section 3.4.2 of