anchor.diff:  ;	    (when (functionp fun)
   ;		  (if fun
   ;			  (assoc-update x
  -;		  	  				(expanded (funcall #'transpiler-1st-half
  +;		  	  				(expanded (funcall #'transpiler-pass-1st-half
   ;;							 				   tr `((defun ,x ,(function-arguments fun)
   ;							                          ,@(function-body fun)))))
   ;							(transpiler-expanded-functions tr))
  
positive.code:     (with (w nil
  		   n (transpiler-wanted-functions tr))
  	  (while (not (equal w n)) nil
          (transpiler-wanted tr #'transpiler-1st-half (transpiler-wanted-functions tr))
  	    (setf w n
  			  n (transpiler-wanted-functions tr)))))
  
    (format t "Compiling...~%")
    (apply #'string-concat
  	(list (transpiler-concat-string-tree (transpiler-wanted tr #'transpiler-pass-complete (transpiler-wanted-functions tr)))
  		  (transpiler-pass-2nd-half 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)
  