[Openmcl-devel] (symbol-function function-name) no error signaled

[Frank]

Hello,
Just stumbled over this while I was reading the HS.  Shouldn't 
symbol-function signal an error if it's argument doesn't evaluate to a 
symbol?

(defparameter *store* nil)

(defun (setf store) (newval)
  (setf *store* newval))

(symbol-function '(setf store))  ; Shouldn't this signal an error?

#:Frank