PRINT-OBJECT not used

[mmontone]

PRINT-OBJECT is not used by WRITE family of functions.

Example:

CL-USER> (defclass person () 
... (firstname lastname))
#<standard-class PERSON>
CL-USER> (make-instance 'person)
#<instance PERSON (..) (..) >
CL-USER> (defmethod print-object ((person person) stream) 
... (print-unreadable-object (person stream :type t :identity t) 
... (format stream "A person")))
#<standard-method PRINT-OBJECT((PERSON PERSON) STREAM)>
CL-USER> (make-instance 'person)
#<instance PERSON (..) (..) >

Not super important, but I stumbled with this when looking at showing lambda-lists for function objects.
I wasn't able to fix the implementation, but changing the implementation of the WRITE has some effect.