From: Alexey D. <ade...@us...> - 2003-09-18 06:27:01
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs1:/tmp/cvs-serv9854/tests Modified Files: compiler.impure-cload.lisp Log Message: 0.8.3.75: * Do not let-convert into a deleted function. Index: compiler.impure-cload.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/compiler.impure-cload.lisp,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- compiler.impure-cload.lisp 17 Sep 2003 17:11:46 -0000 1.10 +++ compiler.impure-cload.lisp 18 Sep 2003 06:26:57 -0000 1.11 @@ -251,5 +251,17 @@ (LET ((V5 (MIN 31883 (LOGCOUNT A)))) (IF (/= B V5) (IF (EQL 122911784 V5) -43765 1487) B))) +;;; let-conversion of a function into deleted one +(defun #:foo (a c) + (declare (type (integer -883 1566) a) + (type (integer -1 0) c) + (optimize (speed 3) (safety 1) (debug 1))) + (flet ((%f8 () c)) + (flet ((%f5 () + (if (< c a) + (return-from %f5 (if (= -4857 a) (%f8) (%f8))) + c))) + (if (<= 11 c) (%f5) c)))) + (sb-ext:quit :unix-status 104) |