mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

add store-new-objects to swap-element-by-id

Browse source
This commit is contained in:
David Botton 2022-08-18 13:25:25 -04:00
parent 6ef9b9c20a
commit c702623a6a
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
source/clog-element.lisp
View file

@ -2266,6 +2266,9 @@ CLOG-ELEMENT and set CLOG-ELEMENT to html-id. Returns CLOG-ELEMENT"))
(setf (property new "id") html-id)
(setf (slot-value new 'html-id) html-id)
(replace-element obj new)
(when (or *store-new-objects*
(connection-data-item new html-id))
(setf (connection-data-item new html-id) new))
(destroy obj)
new))