From: Nikodemus S. <de...@us...> - 2006-10-26 11:38:05
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv21069/tests Modified Files: compiler.pure.lisp Log Message: 0.9.18.8: LET* and VALUES declaration * Wrong arguments to PROCESSING-DECLARATIONS in the LET* ir1-translator. * Test-case. Index: compiler.pure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v retrieving revision 1.154 retrieving revision 1.155 diff -u -d -r1.154 -r1.155 --- compiler.pure.lisp 15 Sep 2006 14:39:45 -0000 1.154 +++ compiler.pure.lisp 26 Oct 2006 11:37:57 -0000 1.155 @@ -2142,3 +2142,10 @@ (assert (raises-error? (funcall fun1 fun1))) (assert (raises-error? (funcall fun2 fun2))) (assert (eq (funcall fun2 #'print-object) #'print-object))) + +;;; LET* + VALUES declaration: while the declaration is a non-standard +;;; and possibly a non-conforming extension, as long as we do support +;;; it, we might as well get it right. +;;; +;;; Bug reported by Kaersten Poeck on sbcl-devel 20061023. +(compile nil '(lambda () (let* () (declare (values list))))) |