From: Alexey D. <ade...@us...> - 2004-09-13 15:56:24
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15892/tests Modified Files: dynamic-extent.impure.lisp Log Message: 0.8.14.17: * Fix MISC.391. Index: dynamic-extent.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/dynamic-extent.impure.lisp,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- dynamic-extent.impure.lisp 13 Sep 2004 05:40:31 -0000 1.2 +++ dynamic-extent.impure.lisp 13 Sep 2004 15:56:15 -0000 1.3 @@ -113,4 +113,19 @@ ) -(sb-ext:quit :unix-status 104) \ No newline at end of file +;;; Bugs found by Paul F. Dietz +(assert + (eq + (funcall + (compile + nil + '(lambda (a b) + (declare (optimize (speed 2) (space 0) (safety 0) + (debug 1) (compilation-speed 3))) + (let* ((v5 (cons b b))) + (declare (dynamic-extent v5)) + a))) + 'x 'y) + 'x)) + +(sb-ext:quit :unix-status 104) |