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: 			  (error "Unknown function ~A~%" (symbol-name x))))))))
  
  (defun transpiler-sight (tr forms)
    (transpiler-1st-half tr forms))
  
  ;; User code must have been sightened by TRANSPILER-SIGHT.
  (defun transpiler-transpile (tr forms)
  
negative.code: 				       (expander-expand (transpiler-std-macro-expander tr) x)))
  	        x)))))))
  
  (defun transpiler-pass-2nd-half (tr forms)
    (with (str nil)
  	(dolist (x forms str)
  