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.
Tree:
9650008ce9
master
stable
unstable
${ noResults }
ritherdon-archive/hunchentoot-example/roswell/ritherdon-archive.ros
29 lines
652 B
29 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)))
|