Update of /cvsroot/sbcl/sbcl/tests
In directory usw-pr-cvs1:/tmp/cvs-serv12243/tests
Modified Files:
compiler.impure.lisp
Log Message:
0.7.3.6:
merged APD bug 147 fix (sbcl-devel 2002-04-27)
Index: compiler.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.impure.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** compiler.impure.lisp 5 Mar 2002 16:25:44 -0000 1.7
--- compiler.impure.lisp 30 Apr 2002 01:23:23 -0000 1.8
***************
*** 78,81 ****
--- 78,92 ----
(let ()
(<)))
+
+ ;;; bug 147, fixed by APD 2002-04-28
+ ;;;
+ ;;; This test case used to crash the compiler, e.g. with
+ ;;; failed AVER: "(= (LENGTH (BLOCK-SUCC CALL-BLOCK)) 1)"
+ (defun bug147 (string ind)
+ (flet ((digs ()
+ (let (old-index)
+ (if (and (< ind ind)
+ (typep (char string ind) '(member #\1)))
+ nil))))))
;;;; tests not in the problem domain, but of the consistency of the
|