Improve push-logic-frame-with macro
| author |
bd339 <ronoueb@gmail.com> |
| date |
Sun, 20 Dec 2020 19:23:59 +0100 |
| parents |
e5916bc47786
|
| children |
9995687a24c8
|
| branches/tags |
(none) |
| files |
src/ui.lisp |
Changes
--- a/src/ui.lisp Tue Jan 14 19:04:20 2020 -0500
+++ b/src/ui.lisp Sun Dec 20 19:23:59 2020 +0100
@@ -203,10 +203,10 @@
"
(once-only (database)
- `(prog2
- (push-logic-frame ,database)
- (progn ,@body)
- (finalize-logic-frame ,database))))
+ `(unwind-protect (progn
+ (push-logic-frame ,database)
+ ,@body)
+ (finalize-logic-frame ,database))))
;;;; Querying -----------------------------------------------------------------