anchor.diff:  
   #+test (quux 5)
   
  +(macroexpand (quote
   (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
  
positive.code:         (%env (gensym "%env-"))
          (%form (gensym "%form-"))
          )
      
      `(let* ((,%name (quote ,name))
              (,%env ,env)
  
negative.code: ;; advise.lisp - portable reflective value wrapping for Common Lisp functions
  
  
  (in-package #:cl-user)
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    
  (defpackage #:reflexion
    (:use
     ;; #:my-trivial-utils.lib.ws
     #:cl
     ))
  
  )
  
  (in-package #:reflexion)
  
  
  (deftype function-name ()
    ;; also defined in my-trivial-utils-lib
    '(or symbol (cons symbol t)))
  
  ;; trivial portable prototype of an 'advise' interface
  