Merge pull request #17 from bd339/master
Make push-logic-frame-with work with nonlocal exits and multiple values
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Mon, 21 Dec 2020 20:51:12 -0500 |
| parents |
e5916bc47786
(current diff)
8afc76e76f4b
(diff)
|
| children |
(none) |
| branches/tags |
default tip |
| files |
|
Changes
--- a/src/ui.lisp Tue Jan 14 19:04:20 2020 -0500
+++ b/src/ui.lisp Mon Dec 21 20:51:12 2020 -0500
@@ -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 -----------------------------------------------------------------