Scope, assumptions, asksign, context. Was Re: Bug in Maxima 5.30.0

I stumbled on this. You all may be aware already.

src/maxmac.lisp:
(defmacro with-new-context (sub-context &rest forms)
   `(let ((my-context (gensym "$CTXT")))
      (mfuncall '$supcontext my-context , at sub-context)
      (unwind-protect
        (prog1 , at forms)
        ($killcontext my-context))))


>  grep with-new-context src/*.lisp `find share/ -name '*.lisp'`

src/defint.lisp:    (with-new-context (context)
src/laplac.lisp:       (with-new-context (context)
src/laplac.lisp:                     (with-new-context (context)
src/laplac.lisp:     (with-new-context (context)
src/maxmac.lisp:(defmacro with-new-context (sub-context &rest forms)
src/risch.lisp:    (with-new-context (context)
src/simp.lisp:    (with-new-context (context)


HTH
John