anchor.diff:            (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)))
  +  (rename-function-arguments-inside-named-toplevel-functions x))
  
positive.code:     (cons (rename-function-arguments-0 x. replacements env)
  		  (rename-function-arguments-0 .x replacements env))))
  
  ;(defun rename-function-arguments-named-function (x)
  ;  (let fun (%setq-value x)
  ;	`(%setq ,(%setq-place x) #'(,@(lambda-funinfo-and-args fun)
  ;				     				  ,@(rename-function-arguments-0 (lambda-body fun))))))
  
  (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)
  ;  (when x
  ;    (cons (if
  ;			(%setq-lambda? x.)
  ;			  (rename-function-arguments-named-function x.)
  ;        	(consp x.)
  ;			  (rename-function-arguments-inside-named-toplevel-functions x.)
  ;			x.)
  ;          (rename-function-arguments-inside-named-toplevel-functions .x))))
  
  (defun rename-function-arguments-inside-named-toplevel-functions (x)
    (if (atom x)
  
negative.code: 		    old-replacements)))
  
  (defun rename-arg (replacements x)
    (assoc-replace x replacements :test #'eq))
  
  ;;; XXX renames top-level keyword arguments?
  (defun rename-function-arguments-0 (x &optional (replacements nil) (env nil))
  