anchor.diff:   
   
  -(defun loop-translate (*loop-source-code* *loop-macro-environment* *loop-universe*)
  -  (let ((*loop-original-source-code* *loop-source-code*)
  -	(*loop-source-context* nil)
  -	(*loop-iteration-variables* nil)
  -	(*loop-variables* nil)
  -	(*loop-nodeclare* nil)
  -	(*loop-named-variables* nil)
  -	(*loop-declarations* nil)
  -	(*loop-desetq-crocks* nil)
  -	(*loop-bind-stack* nil)
  -	(*loop-prologue* nil)
  -	(*loop-wrappers* nil)
  -	(*loop-before-loop* nil)
  -	(*loop-body* nil)
  -	(*loop-emitted-body* nil)
  -	(*loop-after-body* nil)
  -	(*loop-epilogue* nil)
  -	(*loop-after-epilogue* nil)
  -	(*loop-final-value-culprit* nil)
  -	(*loop-inside-conditional* nil)
  -	(*loop-when-it-variable* nil)
  -	(*loop-never-stepped-variable* nil)
  -	(*loop-names* nil)
  -	(*loop-collection-cruft* nil))
  +(defun loop-translate (%loop-source-code %loop-macro-environment %loop-universe)
  +  (let* ((*loop-source-code* %loop-source-code)
  +         (*loop-macro-environment* %loop-macro-environment)
  +         (*loop-universe* %loop-universe)
  +         (*loop-source-context* nil)
  +         (*loop-iteration-variables* nil)
  +         (*loop-variables* nil)
  +         (*loop-nodeclare* nil)
  +         (*loop-named-variables* nil)
  +         (*loop-declarations* nil)
  +         (*loop-desetq-crocks* nil)
  +         (*loop-bind-stack* nil)
  +         (*loop-prologue* nil)
  +         (*loop-wrappers* nil)
  +         (*loop-before-loop* nil)
  +         (*loop-body* nil)
  +         (*loop-emitted-body* nil)
  +         (*loop-after-body* nil)
  +         (*loop-epilogue* nil)
  +         (*loop-after-epilogue* nil)
  +         (*loop-final-value-culprit* nil)
  +         (*loop-inside-conditional* nil)
  +         (*loop-when-it-variable* nil)
  +         (*loop-never-stepped-variable* nil)
  +         (*loop-names* nil)
  +         (*loop-collection-cruft* nil))
       (loop-iteration-driver)
       (loop-bind-block)
       (let ((answer `(loop-body
  
positive.code: 		   initial-phrases))
  	 (used-prepositions (mapcar #'car initial-phrases)))
  	((null *loop-source-code*) (nreverse prepositional-phrases))
        (declare (symbol this-prep))
        (setq token (car *loop-source-code*))
        (dolist (group preposition-groups)
  	(when (setq this-prep (in-group-p token group))
  
negative.code: 
  
  (defvar *loop-gentemp*
  	nil)
  
  (defun loop-gentemp (&optional (pref 'loopvar-))
    (if *loop-gentemp*
        (gentemp (string pref))
        (gensym (string pref))))
  
  
  
  