anchor.diff:  
   
   (defvar *loop-gentemp*
  -	t)
  +	nil)
   
   (defun loop-gentemp (&optional (pref 'loopvar-))
     (if *loop-gentemp*
         (gentemp (string pref))
  -      (gensym)))
  +      (gensym (string pref))))
   
   
   
  
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: 
  
  (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
  