printing prototypes

[Warren Harris <harris%hplwhh@hplabs.hp.com>]

Here's a fix that allows the print routines to print uninitialized
instances (such as class prototypes).  From "std-class.l":

(defun named-object-print-function (instance stream
					     &optional (extra nil extra-p))
  (declare (ignore depth))
  (printing-random-thing
   (instance stream)
   (if (slot-boundp instance 'name)					
     (format stream "~:(~A~) ~S~:[~*~; ~:S~]"    ; can you say format
	     (class-name (class-of instance))
	     (slot-value instance 'name)
	     extra-p extra)
     (format stream "~:(~A~)~:[~*~; ~:S~]"
	     (class-name (class-of instance))
	     extra-p extra))))

Warren