;;; 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))))
-(defglobal glob)
+(defglobal* glob)
(assert (= (let ((glob 4)) glob)))
(assert (null glob))
(assert flag)
(assert expanded-p)))
+#+sb-eval
(let ((sb-ext::*evaluator-mode* :interpret))
(let* ((expanded-p nil)
(*macroexpand-hook* #'(lambda (fn form env)