Re: Persisting GOOPS objects

[Andy Wingo]

Hi,

On Fri 18 Jan 2013 11:25, Andrew Gaylard <address@hidden> writes:

> I'm trying to persist a GOOPS object.
>
> I've found oop/goops/save.scm, which defines save-object.
> That looks like what I need.

Cool.  I don't know of anyone that has used this code in many years, so
be prepared for some bugs.  OTOH if it works fine, documentation is
appreciated :)

> scheme@(guile-user)> (save-objects l (current-output-port))
> (define c 'c)
> ERROR: In procedure hashq-get-handle:
> ERROR: In procedure hashq-get-handle: Handle access not permitted on
> weak table

This is an implementation bug, introduced May 2011 by a change to the
weak table interface.  See commit
1d9c2e6271105ee0f728127d9b544432b7cc0f4f for full details.

I have fixed this in stable-2.0.  You can fix in in your copy by:

  (set! (@@ (oop goops save) readable?)
        (lambda (x) (hashq-ref (@@ (oop goops save) readables) x)))

Regards,

Andy
-- 
http://wingolog.org/