From 9d9c3e395fe62067c6f4c45e7af28772bc6532d9 Mon Sep 17 00:00:00 2001 From: SANO Masatoshi Date: Tue, 28 Nov 2023 02:20:37 +0900 Subject: [PATCH] show help when 'lisp script init' --- lib/script/init/main.lisp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lib/script/init/main.lisp b/lib/script/init/main.lisp index 7345f08..fed5a0d 100644 --- a/lib/script/init/main.lisp +++ b/lib/script/init/main.lisp @@ -16,6 +16,8 @@ (name (first args)) (name (namestring (make-pathname :defaults name :type nil))) params) + (unless (clingon:command-arguments cmd) + (clingon:run cmd '("--help"))) (map () (lambda (i) (setf name (remove i name))) "./\\")