anchor.diff:  				(cond
   				  ((consp e)   (if (eq (car e) '%transpiler-string)
   								   (string-concat "\"" (cadr e) "\"")
  -									(if (in? (car e) '%transpiler-native '%no-expex)
  -										(transpiler-to-string tr (cdr e))
  -										e)))
  +								   (if (in? (car e) '%transpiler-native '%no-expex)
  +									   (transpiler-to-string tr (cdr e))
  +									   e)))
   				  ((stringp e) e)
   				  (t		   (aif (assoc e (transpiler-symbol-translations tr))
   								   (cdr !)
  
positive.code: 				    x))
  		      forms))))
  
  (defun transpiler-wanted (tr pass funlist)
    (with (out nil)
      (dolist (x funlist (reverse out))
  	  (with (fun (symbol-function x))
  		     (when (functionp fun)
  			   (if fun
  				   (or (and verbose
  						    (format t "Processing ~A~%" (symbol-name x)))
  			  	       (push (funcall pass tr `((defun ,x ,(function-arguments fun)
  											      ,@(function-body fun))))
  							 out))
  				  (and verbose (format t "Unknown function ~A~%" (symbol-name x)))))))))
  
  (defun transpiler-transpile (tr forms name)
    (format t "### Pass 1...~%")
    (transpiler-pass1 tr forms)
    (with (w nil
  		 n (transpiler-wanted-functions tr))
  
negative.code: 	   (not (in? (first (third x)) '%transpiler-string '%transpiler-native))))
  
  (defun transpiler-macrocall-funcall (x)
    `("(" ,@(transpiler-binary-expand "," x) ")"))
  
  (defun transpiler-macrocall (tr fun x)
    (with (m (cdr (assoc fun (expander-macros (expander-get (transpiler-macro-expander tr))))))
  