Bug in Xerox-low.lisp

[Arun Welch <welch@cis.ohio-state.edu>]

I suspect that the last form in xerox-low.lisp should be:

(defun set-function-name-1 (fn new-name uninterned-name)
  (cond ((typep fn 'il:compiled-closure)
	   (il:\\rplptr (compiled-closure-fnheader fn) 4 new-name)
	 ((when (and (consp uninterned-name)
		    (eq (car uninterned-name) 'method)))
	   (let ((debug (si::compiled-function-debugging-info fn)))
	     (when debug (setf (cdr debug) uninterned-name)))))
	(t nil))
  fn)


rather than it's current form. 

...arun