mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-01-03 15:53:13 -08:00
Code Issues Projects Releases Wiki Activity

Merge branch 'rabbibotton:main' into main

Browse source
This commit is contained in:
Rosario S.E. 3vau 2022-09-11 16:54:00 +08:00 • committed by GitHub
commit af66708a2b
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
5 changed files with 70 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tools/clog-builder.lisp
View file

@ -1993,7 +1993,8 @@ It parse the string TEXT without using READ functions."
(save obj nil))
(t
(setf is-dirty nil)
(window-close win)))))
(window-close win))))
:ok-text "Yes" :cancel-text "No")
nil)
(t
t))))
@ -2689,7 +2690,8 @@ It parse the string TEXT without using READ functions."
(setf is-dirty nil)
(when result
(save obj nil))
(window-close win)))
(window-close win))
:ok-text "Yes" :cancel-text "No")
nil)
(t
t))))