emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/emacsql 6018005f3c: Use mapcan instead of cl-mapcan


From: ELPA Syncer
Subject: [nongnu] elpa/emacsql 6018005f3c: Use mapcan instead of cl-mapcan
Date: Sat, 23 Nov 2024 18:59:37 -0500 (EST)

branch: elpa/emacsql
commit 6018005f3c690bd6c179d05ee2470a39fd57d491
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Use mapcan instead of cl-mapcan
    
    This was added in Emacs 26.1.
---
 tests/emacsql-external-tests.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/tests/emacsql-external-tests.el b/tests/emacsql-external-tests.el
index 70460bf115..e6b5ecdb63 100644
--- a/tests/emacsql-external-tests.el
+++ b/tests/emacsql-external-tests.el
@@ -28,14 +28,14 @@
     (message " ! skip `%s'; failed to load library" connector))
    ((let* ((unset ())
            (args (if envvars
-                     (cl-mapcan (lambda (var)
-                                  (let* ((envvar (car var))
-                                         (keyword (cadr var))
-                                         (value (and envvar (getenv envvar))))
-                                    (cond ((not value) (push envvar unset) nil)
-                                          (keyword (list keyword value))
-                                          ((list value)))))
-                                envvars)
+                     (mapcan (lambda (var)
+                               (let* ((envvar (car var))
+                                      (keyword (cadr var))
+                                      (value (and envvar (getenv envvar))))
+                                 (cond ((not value) (push envvar unset) nil)
+                                       (keyword (list keyword value))
+                                       ((list value)))))
+                             envvars)
                    (list nil))))
       (if unset
           (message " ! skip `%s'; required envvars not set" connector)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]