From: Alexey D. <ade...@us...> - 2002-10-15 12:20:40
|
Update of /cvsroot/sbcl/sbcl/tests In directory usw-pr-cvs1:/tmp/cvs-serv3822/tests Modified Files: compiler.pure.lisp Log Message: 0.7.8.40: Fixed bug: FTYPE should accept any functional type specifier Index: compiler.pure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- compiler.pure.lisp 11 Oct 2002 02:11:06 -0000 1.19 +++ compiler.pure.lisp 15 Oct 2002 12:20:35 -0000 1.20 @@ -221,3 +221,6 @@ s)))) (assert (null result)) (assert (typep error 'program-error))) + +;;; FTYPE should accept any functional type specifier +(compile nil '(lambda (x) (declare (ftype function f)) (f x))) |