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: 
  ;;; Import some miscellaneous functions.
  (loop for symbol in '(fmakunbound aref eql eq equal equalp typep
  		      not null apply funcall get-setf-expansion
  		      gensym coerce make-hash-table gethash remhash
  		      maphash reverse stringp remove-duplicates
  		      values find-class make-instance
  
negative.code: 
  (fmakunbound 'scl:defclass)
  
  (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")
  