X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcompiler.impure.lisp;h=a1e239b9c71891f9bb99c4fd42c5134d39b7c6e7;hb=ffe8d65266ed7c2c67a0a6ce7ff0de633000037e;hp=459e522c82dc238ec8ac986c1316528b1f22a47a;hpb=2d199c38017184ff74aedef2aa9c4320d596f46e;p=sbcl.git

diff --git a/tests/compiler.impure.lisp b/tests/compiler.impure.lisp
index 459e522..a1e239b 100644
--- a/tests/compiler.impure.lisp
+++ b/tests/compiler.impure.lisp
@@ -77,6 +77,23 @@
 (defun bug150-test2 ()
   (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))))))
+
+;;; bug reported and fixed by Matthias Hoelzl sbcl-devel 2002-05-13
+(defmacro foo-2002-05-13 () ''x)
+(eval '(foo-2002-05-13))
+(compile 'foo-2002-05-13)
+(foo-2002-05-13) ; (The bug caused UNDEFINED-FUNCTION to be signalled here.)
 
 ;;;; tests not in the problem domain, but of the consistency of the
 ;;;; compiler machinery itself