X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fcompiler.impure.lisp;h=a1e239b9c71891f9bb99c4fd42c5134d39b7c6e7;hb=063e696d6151fd6329677216646e872731e6a85d;hp=ce7ef42a73ce00730264b698e8e5e3f69502a2ee;hpb=ba38798a5ca26b90647a1993f348806cb32f2d1b;p=sbcl.git

diff --git a/tests/compiler.impure.lisp b/tests/compiler.impure.lisp
index ce7ef42..a1e239b 100644
--- a/tests/compiler.impure.lisp
+++ b/tests/compiler.impure.lisp
@@ -88,6 +88,12 @@
 	     (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