And to answer my question:<br>it is possible, but as I don`t know what I`m doing, feel free to review the code as you wish. elephant:find-class-index is missing from the new elephant.<br><br>this makes the wiki example work with elephant 1.0:<br>
<br>pclass.lisp<br>-------<br>(defun get-instance-by-oid (class oid)<br>  "Returns an instance of the persistent CLASS by the OID if any."<br>  (find (->int oid) (elephant:get-instances-by-class class) :test (lambda (x y) (eql x (oid y))))<br>
  ;(get-value (->int oid) (find-class-index class)))<br>  )<br><br>---<br>But I have no idea what are the implications of the following:<br><br>(defun indexed-slot-p (class slot)<br>  "Returns true if the SLOT in the CLASS is indexed and nil otherwise."<br>
  t<br>  ;; (map-indices #'(lambda (k v)<br>;;                    (declare (ignore v))<br>;;                    (when (eq k slot)<br>;;                      (return-from indexed-slot-p t)))<br>;;                (elephant:find-class-index class))<br>
  )<br><br><div class="gmail_quote">2009/6/21 mosi <span dir="ltr"><<a href="mailto:amosat%2Blisp@gmail.com">amosat+lisp@gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Hi,<br>I tried the web4r package,<br>it looks pretty amazing.<br>Especially the automatic generation of pages from persistent classes.<br><br>One question:<br>what are the chances of porting the source for Elephant 1.0 ?<br>

You seem to use 0.9, but the old version does not seem to work for me.<br><br>Elephant is preparing to release a public beta pretty soon.<br><br>Thank you for your efforts,<br><font color="#888888">mosi<br>
</font></blockquote></div><br>