projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fuller error message in PACK-WIRED-TN
[sbcl.git]
/
tests
/
macroexpand.impure.lisp
diff --git
a/tests/macroexpand.impure.lisp
b/tests/macroexpand.impure.lisp
index
8a13935
..
3df0bdd
100644
(file)
--- a/
tests/macroexpand.impure.lisp
+++ b/
tests/macroexpand.impure.lisp
@@
-13,13
+13,13
@@
;;; From Matthew Swank on cll 2005-10-06
;;; From Matthew Swank on cll 2005-10-06
-(defmacro defglobal (name &optional value)
+(defmacro defglobal* (name &optional value)
(let ((internal (gensym)))
`(progn
(defparameter ,internal ,value)
(define-symbol-macro ,name ,internal))))
(let ((internal (gensym)))
`(progn
(defparameter ,internal ,value)
(define-symbol-macro ,name ,internal))))
-(defglobal glob)
+(defglobal* glob)
(assert (= (let ((glob 4)) glob)))
(assert (null glob))
(assert (= (let ((glob 4)) glob)))
(assert (null glob))
@@
-45,6
+45,7
@@
(assert flag)
(assert expanded-p)))
(assert flag)
(assert expanded-p)))
+#+sb-eval
(let ((sb-ext::*evaluator-mode* :interpret))
(let* ((expanded-p nil)
(*macroexpand-hook* #'(lambda (fn form env)
(let ((sb-ext::*evaluator-mode* :interpret))
(let* ((expanded-p nil)
(*macroexpand-hook* #'(lambda (fn form env)