25개 이상의 토픽을 선택하실 수 없습니다.
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
531 B
17 lines
531 B
;;; 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)
|