Hi,
On Fri 18 Jan 2013 11:25, Andrew Gaylard <[email protected]> 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/
