[rucksack-devel] Persistent identity

[Arthur Lemmens]

Nikodemus wrote:

>       (with-rucksack (r "/tmp/test-rucksack/" :if-exists :supersede)
>           (let (a)
>             (with-transaction ()
>               (add-rucksack-root (setf a (make-instance 'p-test :slot 0))
>                                  r))
>             (with-transaction ()
>               (incf (slot-of a)))
>             (with-transaction ()
>               (incf (slot-of (car (rucksack-roots r)))))
>             (with-transaction ()
>               (setf result (slot-of a)))))
>       result)

So can I skip this example too by just saying "don't do that then"?
Or do you still think that this example is relevant?

Arthur