Permalink
Browse files

bugfix: correct handling of relaxed-object-reference during classdefi…

…nition

Signed-off-by: Hans Huebner <hans.huebner@gmail.com>
  • Loading branch information...
1 parent 5f43cac commit da043c139d0766dc6df64212116f9e170d92e8f6 Ralf Stoye committed with Sep 12, 2011
Showing with 2 additions and 0 deletions.
  1. +2 −0 src/data/object.lisp
View
@@ -96,6 +96,8 @@
nil)
(:method ((slotd persistent-effective-slot-definition))
(slot-value slotd 'relaxed-object-reference))
+ (:method ((slotd persistent-direct-slot-definition))
+ (slot-value slotd 'relaxed-object-reference))
(:documentation "Return whether the given slot definition specifies
that the slot is relaxed. If a relaxed slot holds a pointer to
another persistent object and the pointed-to object is deleted, slot

0 comments on commit da043c1

Please sign in to comment.