CVS: sbcl/src/compiler fndb.lisp,1.37,1.38 parse-lambda-list.lisp,1.5,1.6

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))))
 



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Two, two, TWO treats in one.
http://thinkgeek.com/sf