anchor.diff:    (dolist (k (hashkeys (transpiler-obfuscations tr)))
       (unless (in=? (elt (symbol-name k) 0) #\~) ; #\_)
   	  (format t "~A -> ~A" (symbol-name k)
  -						     (href (transpiler-obfuscations tr) k)))))
  +						   (href (transpiler-obfuscations tr) k)))))
  
positive.code:   (incf *transpiler-obfuscation-counter*)
    (number-sym *transpiler-obfuscation-counter*))
  
  (defun %transpiler-obfuscate-symbol-unpackaged (tr x)
    (let obs (transpiler-obfuscations tr)
      (or (href obs x)
          (setf (href obs x)
                (transpiler-obfuscated-sym)))))
  
  (defun %transpiler-obfuscate-symbol-1 (tr x)
    (with (pack (symbol-package x)
  	     n (%transpiler-obfuscate-symbol-unpackaged
  		       tr
  		       (if pack
  		   	       (make-symbol (symbol-name x))
  			       x)))
      (if pack
          (make-symbol (symbol-name n) pack)
  	    n)))
  
  (defun transpiler-obfuscate-symbol-0 (tr x)
    (if (or (not (transpiler-obfuscate? tr))
            (eq t (href (transpiler-obfuscations tr) (make-symbol (symbol-name x)))))
        x
  	  (%transpiler-obfuscate-symbol-1 tr x)))
  
  
negative.code: ;;;;; TRE transpiler
  ;;;;; Copyright (c) 2008-2010 Sven Klose <pixel@copei.de>
  
  (defvar *transpiler-obfuscation-counter* 0)
  
  