anchor.diff:                 (. ',args
                     #'(,(argument-expand-names '%defmacro args)
                       ,@body)))
  -            ,(make-symbol "*MACROS*" "TRE")))
  +            ,(tre-symbol '*macros*)))
   
   (defspecial %defvar (name &optional (init nil))
     (print-definition `(%defvar ,name))
  
positive.code: ; tré – Copyright (c) 2014–2015 Sven Michael Klose <pixel@copei.de>
  
  (defun special-%%macrocall (x)
    (alet (cdr (assoc x. *macros* :test #'eq))
      (apply .! (argument-expand-values x. !. .x))))
  
  (defun special-%%macro? (x)
    (& (cons? x)
       (symbol? x.)
       (assoc x. *macros* :test #'eq)))
  
  (defun specialexpand (x)
    (with-temporaries (*macro?-diversion*    #'special-%%macro?
  
negative.code:     (with (f #'((old x)
                   (? (equal old x)
                      x
                      (f x (%macroexpand x)))))
        (f x (%macroexpand x)))))
  
  (defun make-%defun-quiet (name args body)
  