anchor.diff:    (declare (type symbol symbol)
   	   (type function new-function))
     (when (null environment)
  -    (setf environment sicl-env:*global-environment*))
  -  (setf (sicl-env:macro-function symbol environment)
  +    (setf environment sicl-genv:*global-environment*))
  +  (setf (sicl-genv:macro-function symbol environment)
   	new-function))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code: (defun (setf fdefinition) (new-definition function-name)
    (declare (type function-name function-name)
  	   (type function new-definition))
    (setf (sicl-env:fdefinition function-name sicl-env:*global-environment*)
  	new-definition))
    
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code: (defun (setf symbol-function) (new-definition symbol)
    (declare (type function new-definition)
  	   (type symbol symbol))
    (setf (sicl-genv:fdefinition symbol sicl-genv:*global-environment*)
  	new-definition))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  