anchor.diff:  					and collect value)))
   		(direct-superclasses
   		  (loop for name in direct-superclass-names
  -			collect (sicl-genv:find-class name (r1 boot)))))
  +			collect (sicl-genv:find-class name r))))
   	    (let ((class (make-instance metaclass
   			   :name (make-symbol (symbol-name name))
   			   :direct-slots slot-copies
   			   :direct-superclasses direct-superclasses)))
  -	      (setf (sicl-genv:find-class class-name (r1 boot)) class)
  +	      (setf (sicl-genv:find-class class-name r) class)
   	      (loop for slot-spec in direct-slots
  -		    do (define-accessors slot-spec class (r1 boot))))))))
  +		    do (define-accessors slot-spec class r)))))))
   
   ;;; Since we do not use the host DEFCLASS macro nor the host version
   ;;; of ENSURE-CLASS in phase 1, our classes do not automatically have
  
positive.code:     (define-default-superclasses boot)
      (define-reader-method-class boot)
      (define-writer-method-class boot)
      (define-add-method boot)
      (ld "../CLOS/invalidate-discriminating-function.lisp" c1 r1)
      (ld "../CLOS/generic-function-initialization-defmethods.lisp" c1 r1)
  
negative.code:     ;; the temporary definition of the macro DEFMETHOD.
      (ld "../CLOS/make-method-lambda-support.lisp" c1 c1)
      (ld "../CLOS/ensure-method.lisp" c1 r1)
      (define-ensure-class r1)
      (message "Finished customizing environments for phase 1~%")))
  
  (defun customize-for-phase2 (boot)
  