From c605ccbaf3e6ebbc8b5126adf8e0837ce25d4cc9 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Tue, 10 Jul 2018 08:26:55 -0500 Subject: [PATCH] Change: (org-ql--org-timestamp-element<) Use macrolet Should be a small performance improvement, avoiding funcall overhead. --- org-ql.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/org-ql.el b/org-ql.el index 30cfe54..cac8297 100644 --- a/org-ql.el +++ b/org-ql.el @@ -333,9 +333,9 @@ Deadline is considered before scheduled." (defun org-ql--org-timestamp-element< (a b) "Return non-nil if A's date element is earlier than B's. A and B are Org timestamp elements." - (cl-flet ((ts (ts) - (when ts - (org-timestamp-format ts "%s")))) + (cl-macrolet ((ts (ts) + `(when ,ts + (org-timestamp-format ,ts "%s")))) (let* ((a-ts (ts a)) (b-ts (ts b))) (cond ((and a-ts b-ts)