anchor.diff:  			(transpiler-expex tr) ex))
   	tr))
   
  -(defun transpiler-translate-symbol (tr from to)
  -  (acons! from to (transpiler-symbol-translations tr)))
  +(defun transpiler-add-wanted-function (tr fun)
  +  (when (not (or (member fun (transpiler-wanted-functions tr))
  +				 (member fun (transpiler-unwanted-functions tr))
  +				 (assoc fun (expander-macros (expander-get (transpiler-macro-expander tr))))))
  +	(push fun (transpiler-wanted-functions tr))))
   
   ;;;; SLOT GETTER GENERATION
   
  
positive.code: 
  ;;;; POST PROCESSING
  
  (defun transpiler-special-char? (tr x)
    (not (funcall (transpiler-identifier-char? tr) x)))
  
  
negative.code: 	  (if (eq e nil)
  		  (transpiler-finalize-sexprs tr (cdr x))
  	  	  (if (atom e) ; Jump label.
  		      (cons (format nil "case \"~A\":~%" (transpiler-symbol-string tr e))
  		            (transpiler-finalize-sexprs tr (cdr x)))
                (if (and (%setq? e) (is-lambda? (caddr e))) ; Recurse into function.
  	              (cons `(%setq ,(second e) (function
  