And to achieve the same thing after the fact, I suppose (set! Obj
'(+Admin +User)) would work?
On Sun, Nov 10, 2013 at 2:46 PM, Alexander Burger a...@software-lab.dewrote:
On Sun, Nov 10, 2013 at 01:30:28PM +0700, Henrik Sarvell wrote:
But pretend I'd like to go down the prefix route
On Sun, Nov 10, 2013 at 02:57:25PM +0700, Henrik Sarvell wrote:
And to achieve the same thing after the fact, I suppose (set! Obj
'(+Admin +User)) would work?
Yes.
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Hi Henrik,
(class +User +Entity)
(rel id (+Key +Number))
(rel nm (+Key +String))
(dm hi () (print (; This nm)))
(class +Admin +User)
(dm hi () (print Hi admin.))
(setq *Admin (db 'id '+User 3))
(push *Admin '+Admin)
(hi *Admin)
Note that +User is the base class that is specified
On Sun, Nov 10, 2013 at 01:30:28PM +0700, Henrik Sarvell wrote:
But pretend I'd like to go down the prefix route instead. How would I do
that practically so that I'd be able to use (extra)? I get the object with
(setq *Admin (db 'id '+User 3)) and how do I get +Admin to be a prefix
class to