mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
13 lines
430 B
Common Lisp
13 lines
430 B
Common Lisp
(defpackage :roswell.dist.add
|
|
(:use :cl))
|
|
(in-package :roswell.dist.add)
|
|
|
|
(defun add (&rest r)
|
|
(let ((gh-support (asdf:find-system "gh-dist")))
|
|
(dolist (elm (rest r))
|
|
(if (and gh-support
|
|
(= 0 (count #\/ elm))
|
|
(not (zerop (count #\- elm))))
|
|
(uiop:symbol-call :gh-dist :install (substitute #\/ #\- elm :count 1) :prompt nil)
|
|
(ql-dist:install-dist elm :prompt nil)))))
|