anchor.diff:        (adv
          (setf %advise-rec% (delete adv %advise-rec% :test #'eq))
          (values adv))
  -      (t (error "NOT ADVISED: ~S" name)))))
  +      (t (error 'not-advised :name name)))))
   
   
     
  
positive.code:   
  (defpackage #:reflexion
    (:use
     ;; #:my-trivial-utils.lib.ws
     #:cl
     ))
  
  
negative.code:                    :key #'advised-name)))
        (cond
          (o (values o))
          (errorp (error 'not-advised :name name))
          (t (values nil nil))))))
  
  (defun register-advise (name env form)
    ;; FIXME: lock %ADVISE-REC% (WRITE) in this function
    (let ((adv (get-advise name env nil)))
      (cond
        ((and adv
              (not (eq form (advised-original-function adv))))
         (error 'already-advised :name name))
        (t (let ((adv (make-advise-record name env form)))
             (vector-push-extend adv %advise-rec% %advise-expand%)
             (values adv))))))
  