defstruct :print-function bug with #'

[Ira Baxter <baxter@zola.ICS.UCI.EDU>]

AKCL Version 1.243 (yes, yes, its a bit dated) does not operate
correctly when #' is used as :print-function.  Example:

>(defstruct
  (fred
    (:print-function (lambda (a b c)
                        (format b "fred-type slot=~S~%" (fred-slot a)))))
  (slot))
FRED

>(make-fred)
fred-type slot=NIL

>(defstruct
  (fred
    (:print-function #'(lambda (a b c)
               ;     ^^    Note addition here
                        (format b "fred-type slot=~S~%" (fred-slot a)))))
  (slot))
Warning: structure FRED is changing
FRED

>(make-fred)

Error: NIL is not of type CONS.
Error signalled by PRIN1.

Broken at :ZOMBI.  Type :H for Help.
>>