[nongnu] elpa/slime 2d52732fc0 05/44: Add: local systems to swank-quicklisp systems list

[ELPA Syncer]

branch: elpa/slime
commit 2d52732fc093c3042ec3809b7b687dd200a90577
Author: Grant Shangreaux <shoshin@cicadas.surf>
Commit: Stas Boukarev <stassats@gmail.com>

    Add: local systems to swank-quicklisp systems list
    
    I am often using quicklisp to load local systems while
    developing. This seems like a useful addition to the functionality
    that ends up being used by the slime-quicklisp package.
---
 contrib/swank-quicklisp.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/contrib/swank-quicklisp.lisp b/contrib/swank-quicklisp.lisp
index 36545991c4..b46a01c69a 100644
--- a/contrib/swank-quicklisp.lisp
+++ b/contrib/swank-quicklisp.lisp
@@ -10,8 +10,10 @@
   "Returns the Quicklisp systems list."
   (if (member :quicklisp *features*)
       (let ((ql-dist-name (find-symbol "NAME" "QL-DIST"))
-            (ql-system-list (find-symbol "SYSTEM-LIST" "QL")))
-        (mapcar ql-dist-name (funcall ql-system-list)))
+            (ql-system-list (find-symbol "SYSTEM-LIST" "QL"))
+           (ql-local-systems (find-symbol "LIST-LOCAL-SYSTEMS" "QL")))
+        (append (mapcar ql-dist-name (funcall ql-system-list))
+               (funcall ql-local-systems)))
       (error "Could not find Quicklisp already loaded.")))
 
 (provide :swank-quicklisp)