mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
16 lines
515 B
Common Lisp
16 lines
515 B
Common Lisp
(defpackage :roswell.dist.use
|
|
(:use :cl))
|
|
(in-package :roswell.dist.use)
|
|
|
|
(defun use (&rest r)
|
|
(setf r (cdr r))
|
|
(if r
|
|
(let* ((name (first r))
|
|
(version (second r))
|
|
(alist (ql-dist:available-versions (ql-dist:dist name)))
|
|
(found (cdr (assoc version alist :test 'equal))))
|
|
(if found
|
|
(ql-dist:install-dist found :replace t :prompt nil)
|
|
(format t "~A not found.~%" version)))
|
|
(format t "usage: ros dist use dist-name version~%")))
|