anchor.diff:  		    old-replacements)))
   
   (defun rename-arg (replacements x)
  -;  (if (eq t (href (transpiler-obfuscations *current-transpiler*) x))
  -;  	  (print x)
  -  	  (assoc-replace x replacements :test #'eq));)
  +  (assoc-replace x replacements :test #'eq))
   
   ;;; XXX renames top-level keyword arguments?
   (defun rename-function-arguments-0 (x &optional (replacements nil) (env nil))
  
positive.code:           (rename-function-arguments-inside-named-toplevel-functions .x))))
  
  (defun rename-function-arguments (x)
  ;  (if (transpiler-named-functions? *current-transpiler*)
  	  (rename-function-arguments-inside-named-toplevel-functions x)
  	  )
  ;	  (rename-function-arguments-0 x)))
  
negative.code:     (cons (rename-function-arguments-0 x. replacements env)
  		  (rename-function-arguments-0 .x replacements env))))
  
  (defun rename-function-arguments-named-function (x)
    `#'(,@(lambda-funinfo-and-args x)
  			,@(rename-function-arguments-0 (lambda-body x))))
  
  (defun rename-function-arguments-inside-named-toplevel-functions (x)
    (if (atom x)
  