anchor.diff:      (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)
  
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: 		    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))
  