Update of /cvsroot/sbcl/sbcl/src/compiler
In directory usw-pr-cvs1:/tmp/cvs-serv13343/src/compiler
Modified Files:
fndb.lisp parse-lambda-list.lisp
Log Message:
0.7.5.9:
&REST error-checking fix (cribbed from rtoy's post to
cmucl-imp today)
Index: fndb.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/fndb.lisp,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -d -r1.37 -r1.38
--- fndb.lisp 8 Jun 2002 15:01:50 -0000 1.37
+++ fndb.lisp 11 Jul 2002 02:15:05 -0000 1.38
@@ -178,7 +178,6 @@
(sb!xc:deftype package-designator () '(or stringable sb!xc:package))
(sb!xc:deftype symbols () '(or list symbol))
-;;; Should allow a package name, I think, tho CLtL II doesn't say so...
(defknown gentemp (&optional string package-designator) symbol)
(defknown make-package (stringable &key
Index: parse-lambda-list.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/parse-lambda-list.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- parse-lambda-list.lisp 4 Nov 2001 01:07:06 -0000 1.5
+++ parse-lambda-list.lisp 11 Jul 2002 02:15:05 -0000 1.6
@@ -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))))
|