X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fparse-lambda-list.lisp;h=4c0edaa807f055dee4b4787ff9c4dd38753ade39;hb=4e3b57699314dbd3883470d9b196287b178f3e6d;hp=9628902b6f8c04268a0d946a8872c87786c26c6f;hpb=ce02ab2ecd9c6ae2e570abd8c93ebf3be55bbdad;p=sbcl.git

diff --git a/src/compiler/parse-lambda-list.lisp b/src/compiler/parse-lambda-list.lisp
index 9628902..4c0edaa 100644
--- a/src/compiler/parse-lambda-list.lisp
+++ b/src/compiler/parse-lambda-list.lisp
@@ -25,7 +25,7 @@
 ;;; 10. the &MORE context var;
 ;;; 11. the &MORE count var.
 ;;;
-;;; The top-level lambda list syntax is checked for validity, but the
+;;; The top level lambda list syntax is checked for validity, but the
 ;;; arg specifiers are just passed through untouched. If something is
 ;;; wrong, we use COMPILER-ERROR, aborting compilation to the last
 ;;; recovery point.
@@ -68,7 +68,7 @@
 	       (unless (member state '(:required :optional))
 		 (compiler-error "misplaced &REST in lambda list: ~S" list))
 	       (setq state :rest))
-	      (sb!c:&more
+	      (&more
 	       (unless (member state '(:required :optional))
 		 (compiler-error "misplaced &MORE in lambda list: ~S" list))
 	       (setq morep t