In elephant.lisp:

(defmethod count-persistent-objects ((store elephant-store) class-name
                                                            &key
filter-fn &allow-other-keys)
  (if (subtypep class-name 'persistent-object)
      (...)
      (count-persistent-objects store class-name)))

Seems to me that last line should be a call to
count-persistent-standard-objects, or just return 0.  Its current
state results in an infinite loop.

-- 
You received this message because you are subscribed to the Google Groups 
"weblocks" group.
To post to this group, send email to [email protected].
To unsubscribe from this group, send email to 
[email protected].
For more options, visit this group at 
http://groups.google.com/group/weblocks?hl=en.

Attachment: weblocks-elephant.patch
Description: Binary data

Reply via email to