anchor.diff:           fi             (make-funinfo :env (list forms nil)))
       (lambda-embed-or-export x fi nil)))
   
  -;;;; ARGUMENT EXPANSION
  -
  -(defun transpiler-expand-argdef (tr x)
  -  (or (cdr (assoc x (transpiler-function-args tr)))
  -      (function-arguments (symbol-function x))))
  -
  -(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))))
  -
  -(defun transpiler-expand-args (tr x)
  -  (with (fname  (first (third x))
  -		 d (transpiler-expand-argdef tr fname))
  -    (transpiler-add-wanted-function tr fname)
  -	(if d
  -        (cdrlist (argument-expand d (cdr (third x)) t))
  -	    (cdr (third x)))))
  -
   ;;;; ENCAPSULATION
   
   (defun transpiler-encapsulate-strings (x)
  
positive.code: 	  (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 ":~%"))
  		            (transpiler-finalize-sexprs tr (cdr x)))
                (if (and (%setq? e) (is-lambda? (caddr e))) ; Recurse into function.
  	              (cons `(%setq ,(second e) (function
  
negative.code: 		   #'((x)
  				(when x
  			      (with (c (char-downcase (car x)))
  			        (if (and (in=? c #\* #\-)
  							 (cdr x))
  						(cons (char-upcase (cadr x))
  							  (convert-camel (cddr x)))
  					    (cons c (convert-camel (cdr x)))))))
  
  		 convert-special2
  