anchor.diff:  (defun (setf find-class) (new-class symbol &optional errorp environment)
     (declare (ignore errorp))
     (when (null environment)
  -    (setf environment sicl-env:*global-environment*))
  -  (setf (sicl-env:find-class symbol environment)
  +    (setf environment sicl-genv:*global-environment*))
  +  (setf (sicl-genv:find-class symbol environment)
   	new-class))
  
positive.code: ;;;
  ;;; Function CONSTANTP.
  
  (defun constantp (form &optional (environment sicl-env:*global-environment*))
    (or (and (not (symbolp form))
  	   (not (consp form)))
        (keywordp form)
        (and (symbolp form)
  	   (nth-value 1 (sicl-env:constant-variable form environment)))
        (and (consp form)
  	   (eq (car form) 'quote))))
  
  
negative.code: (defun (setf fdefinition) (new-definition function-name)
    (declare (type function-name function-name)
  	   (type function new-definition))
    (setf (sicl-genv:fdefinition function-name sicl-genv:*global-environment*)
  	new-definition))
    
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  