SHARPM/GRINDEF fails on "FUNCTION"

[Richard L. Bryan <RLB at MIT-MC>]

    Date: 10 APR 1980 0923-EST
    From: 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.