anchor.diff:  
   (defmacro deftype (name lambda-list &body body)
     `(eval-when (:compile-toplevel :load-toplevel :execute)
  -     (setf (sicl-env:type-expander
  +     (setf (sicl-genv:type-expander
   	    ',name
  -	    sicl-env:*global-environment*)
  +	    sicl-genv:*global-environment*)
   	   (function ,(cleavir-code-utilities:parse-deftype 
   		       name
   		       lambda-list
  
positive.code: 
  (defmacro define-compiler-macro (name lambda-list &body body)
    `(eval-when (:compile-toplevel :load-toplevel :execute)
       (setf (sicl-env:compiler-macro-function
  	    ',name
  	    sicl-env:*global-environment*)
  	   (function ,(cleavir-code-utilities:parse-macro
  		       name
  		       lambda-list
  
negative.code:   (declare (ignore documentation))
    `(progn
       (eval-when (:compile-toplevel)
         (setf (sicl-genv:special-variable
  	      ',name
  	      sicl-genv:*global-environment*
  	      nil)
  	     nil))
       (eval-when (:load-toplevel :execute)
         (setf (sicl-genv:special-variable
  	      ',name
  	      sicl-genv:*global-environment*
  	      t)
  	     ,initial-value)
         ',name)))
  