Re: COMPUTE-SLOTS in MCL 2.0b1p3?

[bill (Bill St. Clair)]

> Date: Fri, 11 Oct 91 10:41:35
> From: bill (Bill St. Clair)
> To: rodney@hsvaic.boeing.com (Rodney Daughtrey)
> Subject: Re: COMPUTE-SLOTS in MCL 2.0b1p3?
> Cc: info-mcl@cambridge.apple.com
> 

> Someone else pointed out this problem with the inspector, it uses
> PRINC for slot names.  The following patch will fix the problem (and
> will be part of 2.0 final):
> 
> (in-package :inspector)
> 
> (defmethod prin1-label ((i inspector) stream value &optional label type)
>   (declare (ignore value type))
>   (if (stringp label)
>     (stream-write-string stream label 0 (length label))
>     (princ label stream)))
> 

As you may have noticed, I copied the wrong code into this
message. What I should have said was:

(in-package :inspector)

(defmethod prin1-label ((i standard-object-inspector) stream value
                        &optional label type)
  (declare (ignore value type))
  (prin1 label stream))