Fix proposed:
--- old-elephant-1.0/src/elephant/schema-evolution.lisp 2009-05-03
19:18:29.277598554 +0200
+++ new-elephant-1.0/src/elephant/schema-evolution.lisp 2009-05-03
19:18:29.284267720 +0200
@@ -120,8 +120,7 @@
upgrade-instance. This should be called after a redefinition."
(loop for inst being the hash-value of (controller-instance-cache sc) do
#+(or cmu sbcl)(oid (weak-pointer-value inst))
- #+openmcl (oid (value inst))
- #-(or cmu sbcl openmcl) (oid inst)))
+ #-(or cmu sbcl) (oid inst)))
(defmethod upgrade-all-db-instances ((sc store-controller) class-schema)
"This does a scan and upgrades each instance of the class referred to
I'm not sure where VALUE would be defined. CCL 1.3 apparently doesn't
know it; TRIVIAL-GARBAGE claims that CCL doesn't support weak data
structures at all (it simulates weak pointers with a hash table).
Leslie
--
http://www.linkedin.com/in/polzer
_______________________________________________
elephant-devel site list
elephant-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/elephant-devel
