anchor.diff: -;;;;; TRE transpiler
  -;;;;; Copyright (c) 2008-2009,2011 Sven Klose <pixel@copei.de>
  -;;;;;
  -;;;;; Identifier style conversion
  +;;;;; tré - Copyright (c) 2008-2009,2011-2012 Sven Michael Klose <pixel@copei.de>
   
   (defun transpiler-translate-symbol (tr from to)
     (acons! from to (transpiler-symbol-translations tr)))
  
positive.code: 			                        (= (elt str 0) #\*)
  			                        (= (elt str (1- l)) #\*))
  		                       (remove-if (fn = _ #\-) (string-list (string-upcase (subseq str 1 (1- l)))))
      	                       (convert-camel (string-list str)))))))))
  
  (defun transpiler-symbol-string-0 (tr s)
    (aif (symbol-package s)
  
negative.code: 		   (fn string-list (string-concat "T" (format nil "~A" (char-code _))))
  				
  		 convert-camel
  		   #'((x pos)
                  (when x
  			      (let c (char-downcase x.)
  			        (? (and .x (or (character= #\- c)
                                     (and (= 0 pos)
                                          (character= #\* c))))
  					   (cons (char-upcase (cadr x))
  						     (convert-camel ..x (1+ pos)))
  					   (cons c (convert-camel .x (1+ pos)))))))
  
  		 convert-special2
  		   (fn (when _
  