anchor.diff:  ;;; it to generate a call to SICL-EXTRINSIC-ENVIRONMENT:SYMBOL-VALUE,
   ;;; passing it the symbol naming the variable and the environment.
   (defmethod cleavir-generate-ast:convert-special-variable
  -    ((info cleavir-env:special-variable-info) (env environment))
  +    ((info cleavir-env:special-variable-info) (env environment) system)
  +  (declare (ignore system))
     (cleavir-ast:make-call-ast
      (cleavir-ast:make-car-ast
       (cleavir-ast:make-load-time-value-ast
  
positive.code: ;;; that contains the function.  And we want the function cell to be
  ;;; accessed at load time.
  (defmethod cleavir-generate-ast:convert-global-function
      ((info cleavir-env:global-function-info) (env environment))
    (cleavir-ast:make-car-ast
     (cleavir-ast:make-load-time-value-ast
      `(sicl-global-environment:function-cell
  
negative.code: ;;; SICL-EXTRINSIC-ENVIRONMENT:SYMBOL-VALUE), passing it the new
  ;;; value, the symbol naming the variable, and the environment.
  (defmethod cleavir-generate-ast:convert-setq-special-variable
      ((info cleavir-env:special-variable-info) form-ast (env environment) system)
    (declare (ignore system))
    (cleavir-ast:make-call-ast
     (cleavir-ast:make-car-ast
      (cleavir-ast:make-load-time-value-ast
  