anchor.diff:    (incf *transpiler-obfuscation-counter*)
     (number-sym *transpiler-obfuscation-counter*))
   
  -(defun %transpiler-obfuscate-symbol-unpackaged (tr x)
  +(defun %transpiler-obfuscate-symbol-1 (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)))
  +			  (aif (symbol-package x)
  +    		       (make-symbol (symbol-name (transpiler-obfuscated-sym))
  +						        !)
  +    		       (transpiler-obfuscated-sym))))))
   
   (defun transpiler-obfuscate-symbol-0 (tr x)
     (if (or (not (transpiler-obfuscate? tr))
  -          (eq t (href (transpiler-obfuscations tr) (make-symbol (symbol-name x)))))
  +          (eq t (href (transpiler-obfuscations tr) x)))
         x
   	  (%transpiler-obfuscate-symbol-1 tr x)))
   
  
positive.code:   (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)))))
  
negative.code: ;;;;; TRE transpiler
  ;;;;; Copyright (c) 2008-2010 Sven Klose <pixel@copei.de>
  
  (defvar *transpiler-obfuscation-counter* 0)
  
  