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

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

[nongnu] elpa/slime 7e08d61fad 31/43: swank-asdf: Fix slime-load-system


From: ELPA Syncer
Subject: [nongnu] elpa/slime 7e08d61fad 31/43: swank-asdf: Fix slime-load-system for systems with dots in the name
Date: Thu, 28 Dec 2023 22:00:30 -0500 (EST)

branch: elpa/slime
commit 7e08d61fad0d7a69829ba41eeddbb6b16dc8ecac
Author: Kasper Gałkowski <k@galkowski.xyz>
Commit: Luís Oliveira <luismbo@gmail.com>

    swank-asdf: Fix slime-load-system for systems with dots in the name
---
 contrib/swank-asdf.lisp | 37 +++++++++++++++++++------------------
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/contrib/swank-asdf.lisp b/contrib/swank-asdf.lisp
index 6e3f755258..413160218c 100644
--- a/contrib/swank-asdf.lisp
+++ b/contrib/swank-asdf.lisp
@@ -386,24 +386,25 @@ Example:
   "Returns a list of all systems in ASDF's central registry
 AND in its source-registry. (legacy name)"
   (unique-string-list
-   (mapcar
-    #'pathname-name
-    (while-collecting (c)
-      (loop for dir in asdf:*central-registry*
-            for defaults = (eval dir)
-            when defaults
-            do (collect-asds-in-directory defaults #'c))
-      (asdf:ensure-source-registry)
-      (if (or #+asdf3 t
-             #-asdf3 (asdf:version-satisfies (asdf:asdf-version) "2.15"))
-          (loop :for k :being :the :hash-keys :of asdf::*source-registry*
-               :do (c k))
-         #-asdf3
-          (dolist (entry (asdf::flatten-source-registry))
-            (destructuring-bind (directory &key recurse exclude) entry
-              (register-asd-directory
-               directory
-               :recurse recurse :exclude exclude :collect #'c))))))))
+   (while-collecting (c)
+     (loop for dir in asdf:*central-registry*
+           for defaults = (eval dir)
+           when defaults
+           do (collect-asds-in-directory
+               defaults
+               (lambda (pathname)
+                 (c (pathname-name pathname)))))
+     (asdf:ensure-source-registry)
+     (if (or #+asdf3 t
+                  #-asdf3 (asdf:version-satisfies (asdf:asdf-version) "2.15"))
+         (loop :for k :being :the :hash-keys :of asdf::*source-registry*
+                          :do (c k))
+              #-asdf3
+         (dolist (entry (asdf::flatten-source-registry))
+           (destructuring-bind (directory &key recurse exclude) entry
+             (register-asd-directory
+              directory
+              :recurse recurse :exclude exclude :collect #'c)))))))
 
 (defslimefun list-all-systems-known-to-asdf ()
   "Returns a list of all systems ASDF knows already."



reply via email to

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