anchor.diff:               (mapcar (lambda (meth) `(call-method ,meth))
                        methods)))
       (let* (;; reorder the methods based on the -order arguments
  +           (wrap-around (effective-order wrap-around wrap-around-order))
              (around (effective-order around around-order))
              (wrapping (effective-order wrapping wrapping-order))
              (before (effective-order before before-order))
  
positive.code:         ;; wrap FORM in calls to its around methods
          (setf form `(call-method ,(first around)
                                   (,@(rest around)
                                      (make-method ,form)))))
        form)))
  
  
negative.code:           (before-order :most-specific-first)
            (primary-order :most-specific-first)
            (after-order :most-specific-last)
            (wrapping-order :most-specific-last)
            (wrap-around-order :most-specific-last))
    ((wrap-around (:wrap-around))
     (around (:around))
     (before (:before))
     (wrapping (:wrapping))
     (primary () :required t)
  