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)
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))
It doesn't work, but maybe it does if some configuration is set up that I
don't know about?