mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
12 lines
421 B
Common Lisp
12 lines
421 B
Common Lisp
(roswell:include "help-options")
|
|
(defpackage :roswell.help.run
|
|
(:use :cl :roswell.util :roswell.help.options))
|
|
(in-package :roswell.help.run)
|
|
|
|
(defun run (argv)
|
|
(declare (ignorable argv))
|
|
(let ((s *error-output*))
|
|
(format s "Usage: ~A [OPTIONS] run [OPTIONS] [-- implementation-native-options...]~%~%" (pathname-name (opt "wargv0")))
|
|
(let ((*options* (nthcdr 4 *options*))) ;; fix me
|
|
(options nil))))
|