Make errors continuable.

Shirakumo · Sep 5, 2020 · 5f042c8 · 5f042c8
1 parent 7776b86
commit 5f042c8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/toolkit.lisp b/toolkit.lisp
@@ -22,7 +22,7 @@
     (remf args :ok)
     `(let ((,err (progn ,@form)))
        (unless (find ,err ,ok)
-         (error ,datum ,@args)))))
+         (cerror "Ignore the error." ,datum ,@args)))))
 
 (defmacro with-generic-error (&body form)
   (let ((err (gensym "ERR")))