anchor.diff:  
   (defun transpiler-add-obfuscation-exceptions (tr &rest x)
     (dolist (i x)
  -	(setf (href (transpiler-obfuscations tr) i) t)))
  +	(setf (href (transpiler-obfuscations tr) (make-symbol (symbol-name i)))
  +		  t)))
   
   (define-slot-setter-push! transpiler-add-plain-arg-fun tr
     (transpiler-plain-arg-funs tr))
  
positive.code:     (funcall (expander-lookup expander)
  			 expander
  		     name)))
  
negative.code:   (compiled-decls nil)
    (compiled-inits nil))
  
  (defun transpiler-defined-function (tr name)
    (href (transpiler-defined-functions-hash tr) name))
  
  