anchor.diff:  ;;; 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*)
  +
  +;;; This variable holds a list of the top-level ASTs.  While these
  +;;; ASTs are accumulated, the list is in reverse order with respect to
  +;;; occurrence in the file.
  +(defvar *top-level-asts*)
   
   (defgeneric process-compound-form (head form environment))
   
  
positive.code: 	   (*package* *package*)
  	   (*readtable* *readtable*)
  	   (*cross-compiling-p* nil)
  	   (sicl-compiler-phase-1:*compile-file* t))
        (sicl-ast:make-progn-ast 
         (loop with eof-value = (list nil)
  
negative.code: 	   (*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)
  