anchor.diff:  
   ;; User code must have been sightened by TRANSPILER-SIGHT.
   (defun transpiler-transpile (tr forms)
  -  (format t "Collecting dependencies...~%")
  -  (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))))
  +  (unless (eq t (transpiler-unwanted-functions tr))
  +    (format t "Collecting dependencies...~%")
  +    (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
  
positive.code: 											  (%setq? e)
  											  (in? (car e) '%var '%transpiler-native))))
  							        `(%setq ~%ret ,e)
  							        (if (and (consp e)
  											  (%setq? e)
  											 (expex-sym? (second e)))
  										`(%var ,e)
  										e))
  
negative.code: 		            (transpiler-finalize-sexprs tr (cdr x)))
  			  ; Recurse into function.
                (if (and (%setq? e) (is-lambda? (caddr e)))
  	              (cons `(%var (%setq ,(second e) (function
  							                  (lambda ,(lambda-args (caddr e))
  							                    ,@(transpiler-finalize-sexprs tr (lambda-body (caddr e)))))))
  			            (cons separator
  						      (transpiler-finalize-sexprs tr (cdr x))))
  				  ; Remove (IDENTITY ~%RET).
  