anchor.diff:  							 (transpiler-macrocall tr fun x)))
   	tr))
   
  -;; Call expression expander.
  -(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)))
  -
   ;;; OPERATOR EXPANSION
   
   (defmacro define-transpiler-infix (tr name)
  
positive.code: 
  ;;;; TOPLEVEL
  
  (defun transpiler-transpile (tr forms)
    (transpiler-concat-strings
      (transpiler-to-string tr
        (mapcar #'(lambda (x)
                    (funcall
  				    (compose #'(lambda (x)
  								 (expander-expand (transpiler-macro-expander tr) x))
  						     #'(lambda (x)
  								 (transpiler-finalize-sexprs tr x))
  						     #'list
  						     #'(lambda (x)
  								 (expander-expand (transpiler-std-macro-expander tr) x))
  						     #'transpiler-encapsulate-strings
  						     #'expression-expand
  						     #'transpiler-lambda-expand
  						     #'compiler-macroexpand
  						     #'transpiler-std-macroexpand
  						     #'(lambda (x)
  								 (expander-expand (transpiler-std-macro-renamer tr) x)))
  				    x))
  		      forms))))
  
negative.code: 
  ;;;; STANDARD MACRO EXPANSION
  
  (defun transpiler-macroexpand (x)
    (repeat-while-changes #'((x) (*macroexpand-hook* x)) x))
  
  ;;;; EXPANSION OF RENAMED STANDARD MACROS
  