X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fparse-lambda-list.lisp;h=2c30e85a9659c650b5b8b4dc17d85391656a170b;hb=19b57ee6640261133a179417c814ca38039e1ab1;hp=4c0edaa807f055dee4b4787ff9c4dd38753ade39;hpb=13fb43363e194ac787e287f447856165d6bb064d;p=sbcl.git

diff --git a/src/compiler/parse-lambda-list.lisp b/src/compiler/parse-lambda-list.lisp
index 4c0edaa..2c30e85 100644
--- a/src/compiler/parse-lambda-list.lisp
+++ b/src/compiler/parse-lambda-list.lisp
@@ -114,7 +114,9 @@
 	       (compiler-error "found garbage in lambda list when expecting ~
 				a keyword: ~S"
 			       arg)))))
-
+      (when (eq state :rest)
+	(compiler-error "&REST without rest variable"))
+      
       (values (required) (optional) restp rest keyp (keys) allowp (aux)
 	      morep more-context more-count))))