anchor.diff:        (when (and (fboundp symbol)
   		 (not (special-operator-p symbol))
   		 (null (macro-function symbol))
  -		 (not (sicl-global-environment:fboundp new environment)))
  -	(setf (sicl-global-environment:fdefinition new environment)
  +		 (not (sicl-genv:fboundp new environment)))
  +	(setf (sicl-genv:fdefinition new environment)
   	      (fdefinition symbol)))
         (when (and (fboundp `(setf ,symbol))
  -		 (not (sicl-global-environment:fboundp `(setf ,new) environment)))
  -	(setf (sicl-global-environment:fdefinition `(setf ,new) environment)
  +		 (not (sicl-genv:fboundp `(setf ,new) environment)))
  +	(setf (sicl-genv:fdefinition `(setf ,new) environment)
   	      (fdefinition `(setf ,symbol))))
         ;; Import constant variables.
         (when (and (constantp symbol)
  -		 (not (sicl-global-environment:boundp new environment)))
  -	(setf (sicl-global-environment:constant-variable new environment)
  +		 (not (sicl-genv:boundp new environment)))
  +	(setf (sicl-genv:constant-variable new environment)
   	      (cl:symbol-value symbol)))
         ;; Import classes.
         (let ((class (find-class symbol nil)))
   	(unless (or (null class)
  -		    (sicl-global-environment:find-class new environment))
  -	  (setf (sicl-env:find-class new environment)
  +		    (sicl-genv:find-class new environment))
  +	  (setf (sicl-genv:find-class new environment)
   		class)))
         ;; Import special variables.
         (let* ((name (symbol-name symbol))
  
positive.code: 		   (eql (char name 0) #\*)
  		   (eql (char name (1- length)) #\*)
  		   (not (constantp symbol))
  		   (not (sicl-global-environment:boundp new environment)))
  	  (setf (sicl-env:special-variable new environment boundp)
  		(if boundp (cl:symbol-value symbol) nil)))))))
  
negative.code: 		 (eql (char name 0) #\*)
  		 (eql (char name (1- length)) #\*)
  		 (not (constantp symbol)))
  	(setf (sicl-genv:special-variable symbol environment boundp)
  	      (if boundp (cl:symbol-value symbol) nil)))))
    ;; We look at symbols in the package CLOSER-MOP.  If they have some
    ;; interesting definition, we import that definition associated with
  