anchor.diff:    (dolist (x forms)
       (funcall
   	  (compose #'(lambda (x)
  -  				   (format t "Expression expansion...~%")
  -		           (expression-expand x))
  +			       (expression-expand (transpiler-expex tr) x))
   				 #'(lambda (x)
  -  				   (format t "Lambda expansion...~%")
   		     	   (transpiler-lambda-expand x))
   				 #'(lambda (x)
  -  				   (format t "Quote expansion...~%")
   		           (backquote-expand x))
   				 #'(lambda (x)
  -  				   (format t "Compiler-macro expansion...~%")
   		     	   (compiler-macroexpand x))
   				 #'(lambda (x)
  -  				   (format t "Macro expansion...~%")
   		           (transpiler-macroexpand x))
   			     #'list
   			     #'(lambda (x)
  -  				   (format t "Standard-macro expansion...~%")
   				   (expander-expand (transpiler-std-macro-expander tr) x)))
   	    x)))
   
   (defun transpiler-pass2 (tr forms)
  -  (print
     (transpiler-concat-strings
       (transpiler-to-string tr
         (mapcar #'(lambda (x)
                     (funcall
   				    (compose #'(lambda (x)
  -  								 (format t "Transpiler macro expansion...~%")
   								 (expander-expand (transpiler-macro-expander tr) x))
   						     #'(lambda (x)
  -  								  (format t "Finalizing expressions...~%")
   								 (transpiler-finalize-sexprs tr x))
   							 #'(lambda (x)
  -  								 (format t "Encapsulating strings...~%")
   						         (transpiler-encapsulate-strings x))
   							 #'(lambda (x)
  -  								 (format t "Expression expansion...~%")
  -						         (expression-expand x))
  -							 #'(lambda (x)
  -  								 (format t "Lambda expansion...~%")
  +						         (expression-expand (transpiler-expex tr) x))
  +							 #'(lambda (x)
   						     	 (transpiler-lambda-expand x))
   							 #'(lambda (x)
  -  								 (format t "Quote expansion...~%")
   						         (backquote-expand x))
   							 #'(lambda (x)
  -  								 (format t "Compiler-macro expansion...~%")
   						     	 (compiler-macroexpand x))
   							 #'(lambda (x)
  -  								 (format t "Macro expansion...~%")
  +						         (transpiler-make-slot-getters x))
  +							 #'(lambda (x)
   						         (transpiler-macroexpand x))
   						     #'list
  -							 #'(lambda (x)
  -  								 (format t "Generating slot getters...~%")
  -						         (transpiler-make-slot-getters x))
   						     #'(lambda (x)
  -  								 (format t "Standard-macro expansion...~%")
  -								 (expander-expand (transpiler-std-macro-expander tr) x))
  -)
  +								 (expander-expand (transpiler-std-macro-expander tr) x)))
   				    x))
  -		      forms)))))
  +		      forms))))
   
   (defun transpiler-wanted (tr pass verbose)
     (with (out nil)
  
positive.code: 				(cond
  				  ((consp e)   (if (eq (car e) '%transpiler-string)
  								   (string-concat "\"" (cadr e) "\"")
  									(if (eq (car e) '%transpiler-native)
  										(transpiler-to-string tr (cdr e))
  										e)))
  				  ((stringp e) e)
  
negative.code:   std-macro-expander
    macro-expander
    separator
    unwanted-functions
    (identifier-char? nil)
    (symbol-translations nil)
    (expex nil)
    (function-args nil)
    (wanted-functions nil))
  
  (defun create-transpiler (&rest args)
    (with (tr (apply #'make-transpiler args))
  