anchor.diff:  
   ;;;; STANDARD MACRO EXPANSION
   
  -(defun transpiler-std-macroexpand (x)
  +(defun transpiler-macroexpand (x)
     (repeat-while-changes #'((x) (*macroexpand-hook* x)) x))
   
   ;;;; EXPANSION OF RENAMED STANDARD MACROS
  
positive.code:   std-macro-renamer
    std-macro-expander
    macro-expander
    function-args
    separator)
  
  (defun create-transpiler (&rest args)
    (with (tr (apply #'make-transpiler args))
      (define-expander (transpiler-preprocessor tr))
      (define-expander (transpiler-std-macro-renamer tr))
      (define-expander (transpiler-std-macro-expander tr))
  	(define-expander (transpiler-macro-expander tr)
  
negative.code: 							  ,args
  		 ,body))))
  
  ;;;; LAMBDA EXPANSION
  
  (defun transpiler-lambda-expand (x)
    (with ((forms inits)  (values nil nil) ; (copy-tree (function-arguments fun)))
           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 (member fun (transpiler-wanted-functions tr)))
  	(push fun (transpiler-wanted-functions tr))))
  
  (defun transpiler-expand-args (tr x)
    (with (fname  (first (third x))
  		 d (transpiler-expand-argdef tr fname))
  	(if d
          (cdrlist (argument-expand d (cdr (third x)) t))
  		(progn
  		   (transpiler-add-wanted-function tr fname)
  		   (cdr (third x))))))
  
  (defun transpiler-finalize-sexprs (tr x)
    (when x
  