mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
18 lines
721 B
Common Lisp
18 lines
721 B
Common Lisp
(roswell:include "util")
|
|
(defpackage :roswell.serve.default
|
|
(:use :cl :roswell.util))
|
|
(in-package :roswell.serve.default)
|
|
|
|
(defun default (&rest r)
|
|
(if (null r)
|
|
(progn
|
|
(format *error-output* "Possible subcommands:~%")
|
|
(finish-output *error-output*)
|
|
(format t "~{~A~%~}"
|
|
(sort (loop for x in (asdf:registered-systems)
|
|
when (ignore-errors (and (string-equal "roswell.serve." x :end2 14)
|
|
(not (string-equal "roswell.serve.default" x))))
|
|
collect (subseq x 14))
|
|
#'string<)))
|
|
(format *error-output* "not suppported type for serve:~A~%" (first r))))
|