From 9517d5da9c3bf68c0b4e91d1cb8605937ae8e7d7 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 5 Mar 2024 07:57:57 +0200 Subject: gnosis-edit-update-note: Adjust cl-assert options for MCQ --- gnosis.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gnosis.el b/gnosis.el index 46f0e13..b3a2d67 100644 --- a/gnosis.el +++ b/gnosis.el @@ -1361,7 +1361,7 @@ SUSPEND: Suspend note, 0 for unsuspend, 1 for suspend" "Extra-notes must be a string, or nil") (cl-assert (listp tags) nil "Tags must be a list of strings") (cl-assert (and (listp ef) (length= ef 3)) nil "ef must be a list of 3 floats") - (cl-assert (stringp options) nil "Options must be a string") + (cl-assert (or (stringp options) (listp options)) nil "Options must be a string, or a list for MCQ") ;; Construct the update clause for the emacsql update statement. (cl-loop for (field . value) in `((main . ,main) -- cgit v1.2.3