CVS: sbcl/tests compiler.impure.lisp,1.8,1.9

Update of /cvsroot/sbcl/sbcl/tests
In directory usw-pr-cvs1:/tmp/cvs-serv15864/tests

Modified Files:
        compiler.impure.lisp 
Log Message:
0.7.3.21:
        merged fix for "Bug in COMPILE?" by Matthias Hoelzl (sbcl-devel
                2002-05-13). (My interpretation of the problem in my
                reply on the same day seems to've been totally
                confused, and his fix looks fine to me now.)



Index: compiler.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.impure.lisp,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** compiler.impure.lisp        30 Apr 2002 01:23:23 -0000      1.8
--- compiler.impure.lisp        19 May 2002 22:49:37 -0000      1.9
***************
*** 89,92 ****
--- 89,98 ----
                      (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


_______________________________________________________________
Hundreds of nodes, one monster rendering program.
Now that's a super model! Visit http://clustering.foundries.sf.net/