[Chicken-users] s11n and tinyclos

[Simon St-Onge]

Hi,

I am trying to serialize/deserialize a tinyclos object using s11n:

(use s11n)
(use tinyclos)
(use srfi-9)

(define-class <thing> () (element))

(define-method (initialize (thing <thing>) (element <top>))
  (slot-set! thing 'element element))

(let ((port (open-output-file "~/local/thing.txt"))
      (thing (make <thing> "allo")))
  (serialize thing port)
  (close-output-port port))

(let ((thing (deserialize (open-input-file "~/local/thing.txt"))))
  (instance-of? thing <thing>))

Running this yields the following error:

Error: call-next-method: no methods left: #<procedure (f_1360 . args160)>

        Call history:

        ##sys#require
        test2.scm: 5    make
        test2.scm: 7    ##tinyclos#add-global-method
        test2.scm: 10   open-output-file
        test2.scm: 11   make
        test2.scm: 8    slot-set!
        test2.scm: 12   serialize
        test2.scm: 13   close-output-port
        test2.scm: 15   open-input-file
        test2.scm: 15   deserialize
        test2.scm: 16  
instance-of?                   
<--

Is this a bug or am I missing something about tinyclos and s11n?

Thanks,

Simon