anchor.diff:  ;;;; SLOT GETTER GENERATION
   
   (defun transpiler-make-slot-getters (x)
  -  (maptree #'((x)
  -				(if (and (atom x) (not (or (numberp x) (stringp x))))
  -				    (with (sl (string-list (symbol-name x))
  -					       p (position #\. sl :test #'=))
  -				      (if p
  -					      `(get-slot ,(make-symbol (list-string (subseq sl (1+ p))))
  -								     ,(make-symbol (list-string (subseq sl 0 p))))
  -					      x))
  -					x))
  -		  x))
  +  (mapatree #'((x)
  +				 (if (and (atom x) (not (or (numberp x) (stringp x))))
  +				     (with (sl (string-list (symbol-name x))
  +					        p (position #\. sl :test #'=))
  +				       (if p
  +					       `(get-slot ,(make-symbol (list-string (subseq sl (1+ p))))
  +								      ,(make-symbol (list-string (subseq sl 0 p))))
  +					       x))
  +					 x))
  +		   x))
   
   ;;;; OPERATOR EXPANSION
   
   (defmacro define-transpiler-infix (tr name)
     `(define-expander-macro ,(transpiler-macro-expander (eval tr)) ,name (x y)
  -	 `(,,x (string ',name) ,,y)))
  +	 `(%transpiler-native ,,x ,(string-downcase (string name)) " " ,,y)))
   
   (defun transpiler-binary-expand (op args)
     (nconc (list "(")
  
positive.code: 					 nil nil
  					 nil #'(lambda (fun x)
  							 (transpiler-macrocall tr fun x)))
  	tr))
  
  (defun transpiler-translate-symbol (tr from to)
  
negative.code: 				  (and verbose (format t "Unknown function ~A" (list x)))))))))
  
  (defun transpiler-transpile (tr forms name)
    (format t "### Pass 1...~%")
    (transpiler-pass1 tr forms)
    (with (w nil
  		 n (transpiler-wanted-functions tr))
  	(while (not (equal w n)) nil
        (transpiler-wanted tr #'transpiler-pass1 t)
  	  (setf w n
  			n (transpiler-wanted-functions tr))))
  
    (format t "### Pass 2...~%")
    (with (src (transpiler-concat-strings
  			   (list (transpiler-wanted tr #'transpiler-pass2 t)
  					 (transpiler-pass2 tr forms))))
    (format t "### Emitting code...~%")
  	(with-open-file f (open name :direction 'output)
  	  (format f "// TRE transpiler output~%")
  