anchor.diff:  (defmethod method-more-specific-p
              ((gf standard-generic-function) method1 method2 required-classes)
     (std-method-more-specific-p gf method1 method2 required-classes))
  +
  +(defgeneric method-more-specific-with-args-p (gf method1 method2 args))
  +(defmethod method-more-specific-with-args-p
  +           ((gf standard-generic-function) method1 method2 args)
  +  (std-method-more-specific-with-args-p gf method1 method2 args))
   
   (defgeneric compute-effective-method-function (gf methods))
   (defmethod compute-effective-method-function
  
positive.code:   (setf (method-generic-function method) gf)
    (push method (generic-function-methods gf))
    (dolist (specializer (method-specializers method))
      (pushnew method (class-direct-methods specializer)))
    (finalize-generic-function gf)
    method)
  
  
negative.code: 
  (format t "~%Closette is a Knights of the Lambda Calculus production.~%")
  
  ;;; Metaclasses.
  
  (defclass metaobject () ())
  (defclass specializer (metaobject) ())
  (defclass class (specializer) ())
  
  ;;; Structure-class.
  
  (defclass structure-class (class)
    ((name :initarg :name)              ; :accessor class-name
     (direct-superclasses               ; :accessor class-direct-superclasses
      :initarg :direct-superclasses)
  