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: 							 (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)
  