mirror of
https://github.com/amix/vimrc
synced 2025-07-12 14:15:00 +08:00
Add support for Scheme and Racket language.
This commit is contained in:
17
sources_non_forked/slimv/slime/contrib/swank-quicklisp.lisp
Normal file
17
sources_non_forked/slimv/slime/contrib/swank-quicklisp.lisp
Normal file
@ -0,0 +1,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)
|
Reference in New Issue
Block a user