anchor.diff:     :type function)
     ;; NB: no portable 'environment' type.
     ;; 'env' slot may only be useful for debugging
  -  (env)
  +  (env nil)
     (name #:unnamed
           :type function-name))
   
  
positive.code:             (,%form
               (eval (function-lambda-expression
                      ;; FIXME: ^ THIS might not always "work out"
                      (macro-function ,%name ,%env)))))
  
         (register-advise ,%name ,%env ,%form)
             
  
negative.code:   :after  (lambda (%argtoo)
              (frob-trace "GOT ARGTOO AFTER ~s" %argtoo))
    )
  ))
  
  #+test (quux 12)
  ;; ^FIXME: *trace-output* shows order of eval: :BEFORE, :AFTER, :DURING
  