show help when 'lisp script init'

roswell · Nov 27, 2023 · 9d9c3e3 · 9d9c3e3
1 parent 8eec492
commit 9d9c3e3
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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)))
          "./\\")