Add gnosis-assert-int-or-nil

1 files changed, 5 insertions, 0 deletions

diff --git a/gnosis.el b/gnosis.el
index dcdb964..6913cdf 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1237,6 +1237,11 @@ Insert deck values `ef-increase', `ef-decrease', `ef-threshold', `failure-factor
     (insert (format "\n:id %s\n:name \"%s\"\n:ef-increase %s\n:ef-decrease %s\n:ef-threshold %s\n:failure-factor %s"
 		    id name ef-increase ef-decrease ef-threshold failure-factor))))
 
+(defun gnosis-assert-int-or-nil (value description)
+  "Assert that VALUE is an integer or nil."
+  (unless (or (null value) (integerp value))
+    (error "Invalid value: %s, %s" value description)))
+
 
 (cl-defun gnosis-edit-save-exit (&optional deck-edit (exit-func 'exit-recursive-edit) &rest args)
   "Save edits and exit.