Hello.
Here is a simplified test reproducing my problem:
(class +Content +Entity)
(rel data (+Number))
(rel containers (+List +Joint) contents (+Container))
(class +Container +Entity)
(rel data (+Number))
(rel contents (+List +Joint) containers (+Content))
(pool "/tmp/test.db")
(setq objContainer
(obj
((+Container))
data 52 ) )
(commit)
(setq objContent
(obj
((+Content))
data 25 ) )
(commit)
(put!>
objContent
'containers
(append (; 'objContent containers) objContainer) )
(show objContent)
(show objContainer)
(zap objContainer)
(commit)
(show objContent)
A +Content can be linked to multiple +Container.
I was expecting to be able to remove the +Container and then, later, look for
+Content with 'containers empty to remove them.
Obviously, my way does not work.
Please consider that I'm very new to picolisp (and to lisp more generally) so I
may make basic mistakes.
Regards,
--
Laurent ARTAUD
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe