anchor.diff:            compute-applicable-methods
             compute-effective-method-function compute-method-function
             apply-methods apply-method
  -          find-generic-function  ; Necessary artifact of this implementation
   
             metaobject specializer class
             structure-class structure-object
  
positive.code: 
  ;;; defmethod
  
  (defmacro defmethod (&rest args)
    (multiple-value-bind (function-name qualifiers
                          lambda-list specializers function)
          (parse-defmethod args)
      `(ensure-method (find-generic-function ',function-name)
         :lambda-list ',lambda-list
         :qualifiers ',qualifiers
         :specializers ,(canonicalize-specializers specializers)
  
negative.code: 
  )
  
  ;;; ensure-generic-function
  
  (defun ensure-generic-function
  