Update all my elpa files

elpa/slime-20180413.1720/contrib/slime-quicklisp.el

@@ -0,0 +1,51 @@
+(require 'slime)
+(require 'cl-lib)
+
+;;; bits of the following taken from slime-asdf.el
+
+(define-slime-contrib slime-quicklisp
+  "Quicklisp support."
+  (:authors "Matthew Kennedy <burnsidemk@gmail.com>")
+  (:license "GPL")
+  (:slime-dependencies slime-repl)
+  (:swank-dependencies swank-quicklisp))
+
+;;; Utilities
+
+(defgroup slime-quicklisp nil
+  "Quicklisp support for Slime."
+  :prefix "slime-quicklisp-"
+  :group 'slime)
+
+(defvar slime-quicklisp-system-history nil
+  "History list for Quicklisp system names.")
+
+
+
+(defun slime-read-quicklisp-system-name (&optional prompt default-value)
+  "Read a Quick system name from the minibuffer, prompting with PROMPT."
+  (let* ((completion-ignore-case nil)
+         (prompt (or prompt "Quicklisp system"))
+         (quicklisp-system-names (slime-eval `(swank:list-quicklisp-systems)))
+         (prompt (concat prompt (if default-value
+                                    (format " (default `%s'): " default-value)
+                                  ": "))))
+    (completing-read prompt (slime-bogus-completion-alist quicklisp-system-names)
+                     nil nil nil
+                     'slime-quicklisp-system-history default-value)))
+
+(defun slime-quicklisp-quickload (system)
+  "Load a Quicklisp system."
+  (slime-save-some-lisp-buffers)
+  (slime-display-output-buffer)
+  (slime-repl-shortcut-eval-async `(ql:quickload ,system)))
+
+;;; REPL shortcuts
+
+(defslime-repl-shortcut slime-repl-quicklisp-quickload ("quicklisp-quickload" "ql")
+  (:handler (lambda ()
+              (interactive)
+              (slime-quicklisp-quickload (slime-read-quicklisp-system-name))))
+  (:one-liner "Load a system known to Quicklisp."))
+
+(provide 'slime-quicklisp)