[Chicken-users] Print asymmetry with coops

[EfraimVagner]

Hi,

I've started to work on a small project for fun in scheme, and I wanted to use a class for one thing. I saw that there is the coops extension, that does what I want, but my problem is that when printing an object i get #<coops-instance>. I saw I can use describe-object to get a better description of the object. Another thing that I would like to have, is that in sbcl, for example (I think any common lisp implementation acts the same), when using defstruct, the printed version of the new object can be used to create another object. For example:

(defstruct point x y)

(make-point :x 1 :y 2) ;; Will print #S(POINT :X 1 :Y 2)

(setq p1 #S(POINT :X 10 :Y 0)) ;; p1 will be a point with x=10 and y=0

I don't like the way it works in scheme because it looses the symmetry of lisp. My question is then, how can I restore the symmetry? (btw, I'm using chicken scheme if it matters)

Thanks!