1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
;;; swank-quicklisp.lisp -- Quicklisp support
;;
;; Authors: Matthew Kennedy <burnsidemk@gmail.com>
;; License: Public Domain
;;
(in-package :swank)
(defslimefun list-quicklisp-systems ()
"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)))
(error "Could not find Quicklisp already loaded.")))
(provide :swank-quicklisp)
|
