< Support Home
PRINT-OBJECT is ignored.
ID
Created
Type
mocl Version
Dev OS
Target
Status
#46
by simon on 2014-06-27 (2395 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, 2394 days ago