bidirectonal links

This commit is contained in:
David Botton 2022-02-15 15:13:56 -05:00
parent 523af33dbd
commit aa3de3d5ac

View file

@ -26,7 +26,7 @@
(declare (ignore tmp))
;; We set up direct relationships between lisp objects and clog objects
;; any change to i1 will change my-slot and any change to my-slot
;; will change i1.
;; will change i1 and transform it with #'string-upcase
(link-slot-and-form-element lisp-obj my-slot i1
:transform-to-element #'string-upcase)
;; any change to my-count will change t1