projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.7.4.4:
[sbcl.git]
/
tests
/
compiler.impure.lisp
diff --git
a/tests/compiler.impure.lisp
b/tests/compiler.impure.lisp
index
ce7ef42
..
a1e239b
100644
(file)
--- 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))))))
(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.)
\f
;;;; tests not in the problem domain, but of the consistency of the
;;;; compiler machinery itself
\f
;;;; tests not in the problem domain, but of the consistency of the
;;;; compiler machinery itself