From c0a10ba96a1543a582f5c2dd4b2f231eff63b3c0 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Tue, 10 Nov 2020 00:27:35 -0600 Subject: [PATCH] Fix: (org-dblock-write:org-ql) cl-minusp --- org-ql-search.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/org-ql-search.el b/org-ql-search.el index c82d6f0..f9506f2 100644 --- a/org-ql-search.el +++ b/org-ql-search.el @@ -286,7 +286,7 @@ For example, an org-ql dynamic block header could look like: :order-by sort))) (when take (setf elements (cl-etypecase take - ((and integer (satisfies minusp)) (-take-last (abs take) elements)) + ((and integer (satisfies cl-minusp)) (-take-last (abs take) elements)) (integer (-take take elements))))) (cl-labels ((format-element (element) (string-join (cl-loop for column in columns