anchor.diff:    (let ((adv (get-advise name env nil)))
       (cond
         ((and adv (not (eq form (advised-original-function adv))))
  -       (error "ALREAY ADVISED: ~S => ~S" name adv))
  +       (error "ALREADY ADVISED: ~S => ~S" name adv))
         (t (let ((adv (make-advise-record name env form)))
              (vector-push-extend adv %advise-rec% %advise-expand%)
              (values adv))))))
  
positive.code: 
  #+test (quux 5)
  
  (defadvise-macro quux (%arg)
    :before (lambda (%argtoo)
              (frob-trace "GOT ARGTOO BEFORE ~s" %argtoo))
    :after  (lambda (%argtoo)
              (frob-trace "GOT ARGTOO AFTER ~s" %argtoo))
    )
               
  
  #+test (quux 12)
  ;; ^FIXME: *trace-output* shows order of eval: :BEFORE, :AFTER, :DURING
  
negative.code:                     ;; FIXME: ^ THIS might not always "work out"
                      (macro-function ,%name ,%env)))))
  
         (register-advise ,%name ,%env ,%form)
             
         (defmacro ,name ,lambda
  