[slime-devel] Re: swank reloading problem

[Nikodemus Siivola]

If I recall, I already answered you on c.l.l, as did a few others.
Did you _try_ what was suggested?

CL-USER> (defvar *mark* nil)
*MARK*
CL-USER> (defmacro with-mark (&body forms)
           `(let ((*mark* t))
              , at forms))
WITH-MARK
CL-USER> (defun markp ()
           *mark*)
MARKP
CL-USER> (defun f () (markp))
F
CL-USER> (with-mark (loop repeat 3 collect (f)))
(T T T)
CL-USER> (loop repeat 3 collect (f))
(NIL NIL NIL)

This is what you wanted, yes?

Cheers,

  -- Nikodemus              Schemer: "Buddha is small, clean, and serious."
                   Lispnik: "Buddha is big, has hairy armpits, and laughs."