[Sbcl-commits] CVS: sbcl/src/compiler ir1tran.lisp,1.90,1.91

[Alexey D. <ade...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory usw-pr-cvs1:/tmp/cvs-serv3822/src/compiler

Modified Files:
	ir1tran.lisp 
Log Message:
0.7.8.40:
        Fixed bug: FTYPE should accept any functional type specifier


Index: ir1tran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/ir1tran.lisp,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -d -r1.90 -r1.91
--- ir1tran.lisp	27 Sep 2002 11:30:58 -0000	1.90
+++ ir1tran.lisp	15 Oct 2002 12:20:35 -0000	1.91
@@ -944,7 +944,9 @@
 ;;; declarations that constrain the type of lexically apparent
 ;;; functions.
 (defun process-ftype-decl (spec res names fvars)
-  (declare (list spec names fvars) (type lexenv res))
+  (declare (type type-specifier spec)
+           (type list names fvars)
+           (type lexenv res))
   (let ((type (compiler-specifier-type spec)))
     (collect ((res nil cons))
       (dolist (name names)