[web4r-devel] Elephant 1.0 and web4r

[mosi]

And to answer my question:
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.

this makes the wiki example work with elephant 1.0:

pclass.lisp
-------
(defun get-instance-by-oid (class oid)
  "Returns an instance of the persistent CLASS by the OID if any."
  (find (->int oid) (elephant:get-instances-by-class class) :test (lambda (x
y) (eql x (oid y))))
  ;(get-value (->int oid) (find-class-index class)))
  )

---
But I have no idea what are the implications of the following:

(defun indexed-slot-p (class slot)
  "Returns true if the SLOT in the CLASS is indexed and nil otherwise."
  t
  ;; (map-indices #'(lambda (k v)
;;                    (declare (ignore v))
;;                    (when (eq k slot)
;;                      (return-from indexed-slot-p t)))
;;                (elephant:find-class-index class))
  )

2009/6/21 mosi <amosat+lisp at gmail.com <amosat%2Blisp at gmail.com>>

> Hi,
> I tried the web4r package,
> it looks pretty amazing.
> Especially the automatic generation of pages from persistent classes.
>
> One question:
> what are the chances of porting the source for Elephant 1.0 ?
> You seem to use 0.9, but the old version does not seem to work for me.
>
> Elephant is preparing to release a public beta pretty soon.
>
> Thank you for your efforts,
> mosi
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/web4r-devel/attachments/20090622/33a5e7a2/attachment.html>