Fix executing extent guards

ruricolist · May 5, 2024 · 4e17457 · 4e17457
1 parent d0bf1b3
commit 4e17457
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/defer.lisp b/defer.lisp
@@ -52,9 +52,10 @@
 (-> execute-extent-guards (guarded-extent) (values &optional))
 (defun execute-extent-guards (guarded-extent)
   (nlet execute-extent-guards ((extent-guards (guarded-extent-guards guarded-extent)))
-    (unwind-protect
-         (execute-extent-guard (first extent-guards))
-      (execute-extent-guards (rest extent-guards))))
+    (when extent-guards
+      (unwind-protect
+           (execute-extent-guard (first extent-guards))
+        (execute-extent-guards (rest extent-guards)))))
   (values))
 
 (defmacro unwind-protect/without-interrupts (protected &body cleanup)