anchor.diff:  	  (if (eq e nil)
   		  (transpiler-finalize-sexprs tr (cdr x))
   	  	  (if (atom e) ; Jump label.
  -		      (cons (string-concat (transpiler-symbol-string tr e) (format nil ":~%"))
  +		      (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
  
positive.code: 		   #'((x)
  				(when x
  			      (with (c (char-downcase (car x)))
  			        (if (or (in=? c #\*)
  							(and (= #\- c) (cdr x)))
  				        (when (cdr x)
  						  (cons (char-upcase (cadr x))
  							    (convert-camel (cddr x))))
  					    (cons c (convert-camel (cdr x)))))))
  
  		 convert-special2
  
negative.code: 			(transpiler-expex tr) ex))
  	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
  
  