anchor.diff:  (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)
  +		      define-compiler-macro multiple-value-bind
  +		      cond when unless case push pop remf)
         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,
  
positive.code:      ,@(remove :metaclass class-options :key #'car)))
  
  (load "mop-class-hierarchy.lisp")
  (load "additional-classes.lisp")
  (load "slot-definition.lisp")
  
  ;;; End of phase 1.
  
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.
  