From rds at mercury.chem.pitt.edu Thu Jul 29 15:00:00 2004 From: rds at mercury.chem.pitt.edu (Robert Sedgewick) Date: Thu, 29 Jul 2004 11:00:00 -0400 Subject: [Cl-store-devel] bug with referrers Message-ID: Hi, I think I found a simple bug with the circularity fixing code where one of the referrers doesn't get set to its real value. """ (defclass foo () ((a :accessor foo-a))) (defvar *foo* (make-instance 'foo)) (defvar *bar* (make-instance 'foo)) (setf (foo-a *foo*) *bar*) (setf (foo-a *bar*) *foo*) (cl-store:store (list *foo*) "/tmp/test.store") (defvar *foo2* (cl-store:restore "/tmp/test.store")) """ Now (foo-a (foo-a (car *foo2*))) is 'CL-STORE-REFERRERS::%REFERRER-2 Basically the problem is that #'fix-circularities never gets called on the restored *foo*. --Robbie From sdr at jhb.ucs.co.za Thu Jul 29 16:48:34 2004 From: sdr at jhb.ucs.co.za (Sean Ross) Date: Thu, 29 Jul 2004 16:48:34 -0000 Subject: [Cl-store-devel] bug with referrers Message-ID: Hi, You have definitely found a bug :-) I've got a new version of cl-store which has a new, and hopefully better circularity mechanism, which works with your test case. Unfortunately I'm in the UK right now (I'm normally in South Africa) and don't have my cl.net password or ssh-keys on the laptop so committing to CVS might take a little time and weedling with the tech guys back home. If you want the new version now I can mail you a tarball of the latest sources. Regards Sean. -- Why is my .signature file missing?