Can't print instances without *pretty-print*

[Stas Boukarev]

(write (make-instance (defclass foo () ())) :pretty nil)
#<unknown pointer object, lowtag=#x3 {103EAA58C3}>

[Alexander Artemenko (svetlyak40wt)]

Guys, what is the status of this fix? Which version of SBCL will include it?

[Stas Boukarev (stassats)]

There was never a version with this bug.

[Alexander Artemenko (svetlyak40wt)]

It is strange, because I have it in my SBCL, built with Roswell.

[Alexander Artemenko (svetlyak40wt)]

But now I found that it depends on some libraries loaded into the image.

If I start a new lisp image, then this code works:

CL-USER> (defclass person () ((name :initarg :name :reader person-name)))
#<STANDARD-CLASS COMMON-LISP-USER::PERSON>
CL-USER> (make-instance 'person :name "Peter")
#<PERSON {1002C9DE23}>
CL-USER> (lisp-implementation-version)
"1.3.16"
CL-USER>

But if I load my project, which uses weblocks and it's dependencies, then I get:

PLAYGROUND> (defclass person () ((name :initarg :name :reader person-name)))
#<STANDARD-CLASS PLAYGROUND::PERSON>
PLAYGROUND> (make-instance 'person :name "Peter")
#<unknown pointer object, lowtag=#x3 {1008B3CAA3}>
PLAYGROUND> (lisp-implementation-type)
"SBCL"
PLAYGROUND> (lisp-implementation-version)
"1.3.16"

[Stas Boukarev (stassats)]

weblocks defines a print-object method on standard-object, which isn't allowed.
(defmethod print-object ((obj standard-object) stream) (call-next-method))
(write (make-instance (defclass foo () ())) :pretty nil)
#<unknown pointer object, lowtag=#x3 {1003EDA583}>

[Alexander Artemenko (svetlyak40wt)]

Agrrhh! I'll let it's maintainer know :)

[Stas Boukarev (stassats)]

And if they are insisting on doing that, at least make it an :around method. But it's still a bad idea either way.