PRINT-OBJECT is ignored.

ID	Created	Type	mocl Version	Dev OS	Target	Status
#46	by simon on 2014-06-27 (1882 days ago)	defect	14.05	Mac OS X	iOS	closed

Description

Summary:

PRINT-OBJECT defined by user for user defined class is ignored when printing instances of such a class.



Steps to Reproduce:

In a file, to compile:

(defclass klass ()
  ((bar :initarg :bar :initform 0 :accessor bar)))

(defclass klass2 ()
  ((bar :initarg :bar :initform 0 :accessor bar)))

(defmethod print-object ((object klass) stream)
  (print-unreadable-object (object stream :type t)
	(with-slots (bar) object
	  (format stream ":bar ~s" bar))))

(defun my-call-in ()
  (let ((klass1 (make-instance 'klass :bar 1))
	(klass2 (make-instance 'klass2 :bar 2)))
	(format t "klass ~A klass2 ~A~%" klass1 klass2)))

Compile, run on iPhone simulator. From Objective-C call MY-CALL-IN.



Expected Results:

klass #<KLASS :bar 1> klass2 #<INSTANCE of KLASS2>



Actual Results:

klass #<INSTANCE of KLASS> klass2 #<INSTANCE of KLASS2>



Notes:

Using mocl from Git, revision d4b1dac (latest)

Comments

```
Fix committed (258c670)
```
- Wukix, 1881 days ago