Improve quickload function about quicklisp-client

[gigamonkey]

Here's a bit of code to add figure out names based on edit distance:

(defun system-names ()
(mapcan
(lambda (d) (mapcar #'name (provided-systems d)))
(all-dists)))

(defun closest (x &optional n)
(let ((sorted
(sort (loop for name in (system-names) collect (list name (length (com.gigamonkeys.prose-diff::lcs x name))))
#'> :key #'second)))
(mapcar #'first
(if n
(ldiff sorted (nthcdr n sorted))
sorted))))