anchor.diff:  	   (*package* *package*)
   	   (*readtable* *readtable*)
   	   (*cross-compiling-p* t)
  +	   (*top-level-asts* '())
   	   (sicl-compiler-phase-1:*compile-file* t))
         (sicl-ast:make-progn-ast 
          (loop with eof-value = (list nil)
  
positive.code: ;;; This variable is set to true when the file compiler is used as a
  ;;; cross compiler, and to false when it is used as a native compiler.
  (defvar *cross-compiling-p*)
  
  (defgeneric process-compound-form (head form environment))
  
  
negative.code: 	   (*package* *package*)
  	   (*readtable* *readtable*)
  	   (*cross-compiling-p* nil)
  	   (*top-level-asts* '())
  	   (sicl-compiler-phase-1:*compile-file* t))
        (sicl-ast:make-progn-ast 
         (loop with eof-value = (list nil)
  