anchor.diff:  (defmethod initialize-instance ((instance standard-object) &rest initargs)
     (apply #'shared-initialize instance t initargs))
   
  +(defun check-reinitialize-instance-initargs (object initargs)
  +  (check-initargs
  +   (class-of object)
  +   (list (list #'reinitialize-instance object)
  +         (list #'shared-initialize object t))
  +   initargs
  +   (lambda (valid-initargs invalid-initargs)
  +     (error "Invalid initargs ~S when reinitializing ~S (~S).~%Supplied: ~:S~%valid:~:S"
  +            invalid-initargs object (class-name (class-of object)) initargs valid-initargs))))
  +
   (defgeneric reinitialize-instance (instance &key &allow-other-keys))
  -(defmethod reinitialize-instance
  -           ((instance standard-object) &rest initargs)
  +(defmethod reinitialize-instance ((instance standard-object) &rest initargs)
  +  (check-reinitialize-instance-initargs instance initargs)
     (apply #'shared-initialize instance () initargs))
   
   (defgeneric shared-initialize (instance slot-names &key &allow-other-keys))
  
positive.code:           (pushnew key initargs))))
      (values initargs nil)))
  
  (defun valid-make-instance-initargs (class)
    (multiple-value-bind (allocate-instance-keys allocate-instance-aok)
        (applicable-method-initargs #'allocate-instance (list class))
      (multiple-value-bind (initialize-instance-keys initialize-instance-aok)
          (applicable-method-initargs #'initialize-instance (list (class-prototype class)))
        (multiple-value-bind (shared-initialize-keys shared-initialize-aok)
            (applicable-method-initargs #'shared-initialize (list (class-prototype class) t))
          (cond ((or allocate-instance-aok
                     initialize-instance-aok
                     shared-initialize-aok)
                 (values nil t))
                (t
                 (values (union (class-slot-initargs class)
                                (union allocate-instance-keys
                                       (union initialize-instance-keys
                                              shared-initialize-keys)))
                         nil)))))))
  
  (defun check-make-instance-initargs (class initargs)
    (multiple-value-bind (valid-initargs inhibit-checking)
        (valid-make-instance-initargs class)
      (when (not inhibit-checking)
        (loop
           for initarg in initargs by #'cddr
           when (not (member initarg valid-initargs))
           do (error "Invalid initarg ~S when creating instance of ~S (~S).~%Supplied: ~:S~%valid:~:S" initarg class (class-name class) initargs valid-initargs)))))
  
  (defgeneric make-instance (class &rest initargs &key &allow-other-keys))
  (defmethod make-instance ((class std-class) &rest initargs)
  
negative.code: (format t "Closette is a Knights of the Lambda Calculus production.~%")
  
  ;;; Metaclasses.
  
  (defmethod update-instance-for-different-class :after ((old forward-referenced-class) (new std-class)
                                                         &rest initargs
                                                         &key direct-superclasses direct-slots direct-default-initargs documentation)
    nil)
  
  (defmethod update-instance-for-different-class :before
             ((old forward-referenced-class) (new standard-class) &rest initargs)
  