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: 	   (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))))))
  
negative.code:   macro-expander
    separator
    unwanted-functions
    expanded-functions
    (identifier-char? nil)
    (symbol-translations nil)
    (expex nil)
  