sqrtminusone/biome
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/biome.git synced 2025-12-11 14:53:02 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

ci: byte compiler doesn't like cl-loop

Browse source
This commit is contained in:
Pavel Korytov 2023-07-22 23:39:00 +03:00
parent 6cc0ec1b21
commit a04c76b029
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
biome-query.el
View file

@ -725,8 +725,7 @@ exclude from the result."
exclude))) exclude)))
collect name) collect name)
;; Duplicate keys ;; Duplicate keys
(cl-loop for key being the hash-key of names-by-key (cl-loop for names being the hash-values of names-by-key
using (hash-values names)
if (< 1 (length names)) if (< 1 (length names))
collect (car (seq-sort-by #'length #'> names))) collect (car (seq-sort-by #'length #'> names)))
;; Duplicate subkeys ;; Duplicate subkeys
@ -740,9 +739,9 @@ exclude from the result."
for name in names-to-update for name in names-to-update
for old-key = (gethash name keys-by-name) for old-key = (gethash name keys-by-name)
for key-1 = (iter-next (gethash name iters)) 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 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)) keys-by-name))
(defun biome--query-section-fields-define-infixes (fields keys param infix-name) (defun biome--query-section-fields-define-infixes (fields keys param infix-name)