# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1608601872 18000
# Node ID 9995687a24c83ab5c5087d25d488aa56b7fe9100
# Parent  e5916bc4778636b9425b0022701fa33202ebb1ac# Parent  8afc76e76f4b7d4caae0c234184d757046bdc442
Merge pull request #17 from bd339/master

Make push-logic-frame-with work with nonlocal exits and multiple values

diff -r e5916bc47786 -r 9995687a24c8 src/ui.lisp
--- 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 -----------------------------------------------------------------