mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
11 lines
271 B
Common Lisp
11 lines
271 B
Common Lisp
(defpackage :roswell.dist.disable
|
|
(:use :cl))
|
|
(in-package :roswell.dist.disable)
|
|
|
|
(defun disable (&rest r)
|
|
(dolist (elm (rest r))
|
|
(let ((dist (ql-dist:find-dist elm)))
|
|
(if dist
|
|
(ql-dist:disable dist)
|
|
(format t "~A not found.~%" elm)))))
|