macros(check-value): Return t when there are no jget* errors.

atlas-engineer · Sep 14, 2023 · be7aad5 · be7aad5
1 parent d11a808
commit be7aad5
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/macros.lisp b/macros.lisp
@@ -31,7 +31,11 @@ If TEST is `jtruep' evaluate BODY."
   (restart-case
       (let ((result (jget indices object)))
         (or (typecase expected
-              ((eql t) (jget* indices object))
+              ((eql t) (handler-case
+                           (prog1
+                               t
+                             (jget* indices object))
+                         (error () nil)))
               ((eql :true) (eq t result))
               ((eql :false) (eq nil result))
               ((and array (not string))