mirror of
https://github.com/rabbibotton/clog.git
synced 2025-12-09 12:20:27 -08:00
bidirectonal links
This commit is contained in:
parent
523af33dbd
commit
aa3de3d5ac
1 changed files with 1 additions and 1 deletions
|
|
@ -26,7 +26,7 @@
|
||||||
(declare (ignore tmp))
|
(declare (ignore tmp))
|
||||||
;; We set up direct relationships between lisp objects and clog objects
|
;; 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
|
;; 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
|
(link-slot-and-form-element lisp-obj my-slot i1
|
||||||
:transform-to-element #'string-upcase)
|
:transform-to-element #'string-upcase)
|
||||||
;; any change to my-count will change t1
|
;; any change to my-count will change t1
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue