'ros update quicklisp` available.

lisp/update-quicklisp.lisp

@@ -0,0 +1,25 @@
+(roswell:include "util")
+(defpackage :roswell.update.quicklisp
+  (:use :cl :roswell.util))
+(in-package :roswell.update.quicklisp)
+
+(defun quicklisp (&rest r)
+  (ql:update-client :prompt nil)
+  (cond
+    ((or (second r)
+         (and (first r)
+              (zerop (count-if-not
+                      (lambda (x) (or (digit-char-p x)
+                                      (char= x #\-)))
+                      (first r)))
+              (setf r (list "quicklisp" (first r)))))
+     (ql-dist:install-dist
+      (cdr (assoc (second r) (ql-dist:available-versions
+                              (ql-dist:dist (first r)))
+                  :test 'equal))
+      :replace t))
+    ((first r)
+     (ql:update-dist (first r)))
+    ((not r)
+     (ql:update-all-dists)))
+  t)