Bug in intern-function-name (low.l)

[kempf@Sun.COM]

This function uses ~S to generate function names instead of ~A. Thus, if
the interning is being done in another package, the package qualification
will be inserted into the name and a different name will be generated.
Below, it is correctly defined.

(defun intern-function-name (name)
  #+Symbolics name
  #-Symbolics (cond ((symbolp name) name)
		    ((listp name)
		     (intern (format nil "~A" name)
			     (if (eq (car name) 'method)
				 (symbol-package (if (listp (cadr name))
						     (cadr (cadr name))
						     (cadr name)))
				 *package*)))))