Either I've forgotten, or this issue has never been brought up before.
Apologies in advance if it's the former case.

Basically what I want to achieve is the following:

(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 in the dbs call.

So I want that line to output "Hi admin" which it will, I just want to make
sure that this is the best way of doing it. If I try:

(setq *Admin (db 'id '+Admin 3))
(hi> *Admin)

It doesn't work, but maybe it does if some configuration is set up that I
don't know about?

Reply via email to