anchor.diff:  iio
   ;;;; TOPLEVEL
   
  -(defun transpiler-1st-half (tr forms)
  +(defun transpiler-pass-1st-half (tr forms)
     (with (e nil)
       (dolist (x forms e)
   	  (setf e (append e
  
positive.code: 				       (expander-expand (transpiler-std-macro-expander tr) x)))
  	        x)))))))
  
  (defun transpiler-pass-complete (tr forms)
    (with (str nil)
  	(dolist (x forms str)
        (setf str
  	    (string-concat str
  		  (transpiler-concat-string-tree
              (transpiler-to-string tr
  			  (funcall
  				(compose #'(lambda (x)
  							 (expander-expand (transpiler-macro-expander tr) x))
  						 #'(lambda (x)
  							 (transpiler-finalize-sexprs tr x))
  						 #'transpiler-encapsulate-strings
  						 #'(lambda (x)
  							 (transpiler-obfuscate tr x))
  						 #'opt-peephole
  						 #'(lambda (x)
  						     (expression-expand (transpiler-expex tr) x))
  						 #'transpiler-lambda-expand
  						 #'backquote-expand
  						 #'compiler-macroexpand
  						 #'transpiler-make-slot-getters
  						 #'transpiler-macroexpand
  						     #'list
  						     #'(lambda (x)
  								 (expander-expand (transpiler-std-macro-expander tr) x)))
  				    x))))))))
  
  (defun transpiler-pass-2nd-half (tr forms)
    (with (str nil)
  	(dolist (x forms str)
  
negative.code: 							 (transpiler-obfuscate tr x)))
  				    x))))))))
  
  (defun transpiler-pass-complete (tr forms)
    (transpiler-pass-2nd-half tr (transpiler-pass-1st-half tr forms)))
  
  (defmacro with-gensym-assignments ((&rest pairs) &rest body)
    `(with-gensym ,(mapcar #'first (group pairs 2))
  	 `(with ,(mapcar #'((x)
  