mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
26 lines
762 B
Common Lisp
26 lines
762 B
Common Lisp
(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)
|