From 4e17457e626eae313d0bd53e4b9d4989bf24b7d4 Mon Sep 17 00:00:00 2001 From: "Paul M. Rodriguez" Date: Sun, 5 May 2024 11:50:59 -0500 Subject: [PATCH] Fix executing extent guards --- defer.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/defer.lisp b/defer.lisp index 4556ada..bd4b599 100644 --- 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)