SHARPM/GRINDEF fails on "FUNCTION"

[LSH at MIT-MC (Lars S. Hornfeldt)]

	From: Lars S. Hornfeldt <LSH at MIT-MC>
	Subject: GRINDEF of something that contains FUNCTION
	Example:
	(defun test (x) (mapcar (FUNCTION (lambda (y) y)) x))

	(GRINDEF test)                  now starts:

	(defun test (x) (mapcar         and then gives the ERROR:
	;QUOTE NON-FIXNUM VALUE

	When replacing FUNCTION with '  it works.

Complement: It's necessary to have   (SHARPM FASL MC LISP)
	loaded also, before or after (GRN    FASL MC LISP),
	for the error to occur.