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?