anchor.diff:        do (setf (fdefinition (intern (symbol-name symbol) '#:scl))
   	       (fdefinition symbol)))
   
  -;;; Import low-level functions on conses.
  -(loop for symbol in '(cons car cdr rplaca rplacd consp listp atom length)
  +;;; Import functions on conses.
  +(loop for symbol in '(cons car cdr rplaca rplacd consp listp atom length
  +		      union copy-list mapcar list member-if-not
  +		      first append cadr cddr)
         do (setf (fdefinition (intern (symbol-name symbol) '#:scl))
   	       (fdefinition symbol)))
   
  
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: (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
  		      cond when unless case push pop remf)
        do (setf (macro-function (intern (symbol-name symbol) '#:scl))
  	       (macro-function symbol)))
  
  ;;; 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,
  