anchor.diff:  
   (fmakunbound 'scl:defclass)
   
  -(load "defclass.lisp")+(load "defclass.lisp")
  +
  +;;; The class STANDARD-CLASS must exist a priori because it is the
  +;;; metaclass of the first classes to be created.
  +
  +(load "mop-class-hierarchy.lisp")
  
positive.code: (loop for symbol in '(incf decf defconstant defparameter defun defgeneric
  		      defmethod deftype loop return in-package defpackage
  		      defsetf define-setf-expander defmacro
  		      define-compiler-macro multiple-value-bind)
        do (setf (macro-function (intern (symbol-name symbol) '#:scl))
  	       (macro-function symbol)))
  
  ;;; Load SICL module for conditional macros.
  (load "../Conditionals/conditionals.lisp")
  ;;; Load SICL module for high-level functions on CONSes.
  (load "../Cons-high/cons-high.lisp")
  
  ;;; In phase 1, there is no difference between a built-in class and a
  ;;; standard class, so we can use CL:DEFCLASS to define it.  However,
  
negative.code: ;;; These are the symbols that are mentioned explicitly in the file to
  ;;; be loaded, and that need to come from the host.
  (shadowing-import
   '(t nil null if let let* setq flet labels return-from setf progn prog1
     and or eval-when lambda loop-finish)
   '#:sicl-common-lisp)
  
  (export
   '(t nil null if let let* setq flet labels return-from setf progn prog1
     and or eval-when lambda loop-finish)
   '#:sicl-common-lisp)
  
  ;;; Import functions that have to do with arithmetic and numbers.
  