anchor.diff:    #'(lambda (%gsme)
       (setq *macrop-diversion* #'%%macrop
             *macrocall-diversion* #'%%macrocall
  +          *macroexpand-backquote-diversion* #'%macroexpand-backquote
             *current-macro* nil)
       (%macroexpand %gsme)))
  
positive.code: ;;;; Macro expansion
  
  (setq *universe* (cons '*macrop-diversion*
                   (cons '*macrocall-diversion* *universe*)))
  
  (setq *macrop-diversion* nil
        *macrocall-diversion* nil
        *current-macro* nil)
  
  (%set-atom-fun %macroexpand-backquote
    #'(lambda (%gsme)
      (cond
  
negative.code:           %gsme)
        ((eq (car %gsme) 'BACKQUOTE)
            (cons 'BACKQUOTE
                  (apply *macroexpand-backquote-diversion* (list (cdr %gsme)))))
        (t  (%macroexpand-call (cons (car %gsme)
                                     (%macroexpand-list (cdr %gsme))))))))
  
  