anchor.diff:  	 (convert-variable form environment))
   	(t
   	 (convert-compound (car form) form environment))))
  -	 
  -(defmethod convert :around (form environment)
  -  (let ((*top-level-form-p* *top-level-subform-p*)
  -	(*top-level-subform-p* nil))
  -    (when (and *compile-time-too* *top-level-form-p*)
  -      (eval form))
  -    (call-next-method)))
  
positive.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Converting code to an abstract syntax tree.
  
  ;;; When this variable is false, we are invoked by EVAL or COMPILE.
  ;;; When it is true, we are invoked by COMPILE-FILE.
  (defparameter *compile-file* nil)
  
  ;;; This variable holds the processing mode for top-level forms
  ;;; processed by COMPILE-FILE.
  (defparameter *compile-time-too* nil)
  
  ;;; This variable is TRUE as long as a form is considered to be a
  ;;; top-level form.  It is bound to the value of *TOP-LEVEL-SUBFORM-P*
  ;;; before a subform is processed.
  (defparameter *top-level-form-p* t)
  
  ;;; The value of this variable is normally FALSE.  It is bound to the
  ;;; value of *TOP-LEVEL-FORM-P* by certain converters that need to
  ;;; process subforms the same way as the form itself.
  (defparameter *top-level-subform-p* t)
  
  ;;; When this variable is false, non-immediate constants will be
  ;;; converted into a LOAD-TIME-VALUE ast, which means that the machine
  ;;; code generated will be an access to an element in the vector of
  ;;; externals.  When it is true, such constants will instead be turned
  ;;; into code for creating them.
  (defparameter *compile-for-linker* nil)
  
  ;;; During conversion, this variable contains a hash table that maps
  ;;; from instance of environment locations to ASTs.
  
negative.code:       (sicl-code-utilities:separate-ordinary-body (cdr form))
      (let ((new-env (sicl-env:augment-environment-with-declarations
  		    env declarations)))
        (cleavir-ast:make-progn-ast
         (convert-sequence forms new-env)))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  