From a04c76b029eb9e8d42d44bbc924a55f1531c9a70 Mon Sep 17 00:00:00 2001 From: SqrtMinusOne Date: Sat, 22 Jul 2023 23:39:00 +0300 Subject: [PATCH] ci: byte compiler doesn't like cl-loop --- biome-query.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/biome-query.el b/biome-query.el index 74bf34b..9f0c9ea 100644 --- a/biome-query.el +++ b/biome-query.el @@ -725,8 +725,7 @@ exclude from the result." exclude))) collect name) ;; Duplicate keys - (cl-loop for key being the hash-key of names-by-key - using (hash-values names) + (cl-loop for names being the hash-values of names-by-key if (< 1 (length names)) collect (car (seq-sort-by #'length #'> names))) ;; Duplicate subkeys @@ -740,9 +739,9 @@ exclude from the result." for name in names-to-update for old-key = (gethash name keys-by-name) for key-1 = (iter-next (gethash name iters)) - if old-key-1 do (puthash old-key-1 (remove name (gethash old-key-1 names-by-key-1)) names-by-key-1) + if old-key do (puthash old-key (remove name (gethash old-key names-by-key-1)) names-by-key-1) do (puthash key-1 (cons name (gethash key-1 names-by-key-1)) names-by-key-1) - do (puthash name key-1 key-1s-by-name))) + do (puthash name key-1 keys-by-name))) keys-by-name)) (defun biome--query-section-fields-define-infixes (fields keys param infix-name)