mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
13 lines
300 B
Common Lisp
13 lines
300 B
Common Lisp
(defpackage :roswell.dist.clean
|
|
(:use :cl)
|
|
(:shadow :list))
|
|
(in-package :roswell.dist.clean)
|
|
|
|
(defun clean (&rest r)
|
|
(setf r (cdr r))
|
|
(let* ((name (first r))
|
|
(dist (ql-dist:find-dist name)))
|
|
(if dist
|
|
(ql-dist:clean dist)
|
|
(format t "dist:~A not found.~%" name))))
|