Public archive for the Return to Ritherdon project.
https://www.nicolaellisandritherdon.com
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
652 B
28 lines
652 B
#!/bin/sh |
|
#|-*- mode:lisp -*-|# |
|
#| |
|
exec ros -Q -- $0 "$@" |
|
|# |
|
|
|
;; use +Q if you don't have Quicklisp dependencies to save startup time. |
|
|
|
(defun help () |
|
(format t "~&Usage: |
|
|
|
ritherdon-archive [name] |
|
|
|
")) |
|
|
|
;; XXX: this load does not load from everywhere |
|
;; it doesn't work for to run as a script. |
|
(load (truename "ritherdon-archive.asd")) |
|
(ql:quickload "ritherdon-archive") |
|
|
|
(defun main (&rest argv) |
|
"Optional name parameter." |
|
(when (member "-h" argv :test #'equal) |
|
;; To parse command line arguments, use a third-party library such as |
|
;; unix-opts, defmain, adopt… |
|
(help) |
|
(uiop:quit)) |
|
(ritherdon-archive::greet (first argv)))
|
|
|