blob: ddb8b8ddb9d3cee1e8347434c711e8c6d4ecca7f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
(in-package #:rva)
(defparameter *banner*
" _/_/ _/_/
_/ _/
_/ _/ _/_/ _/ _/ _/_/_/ _/
_/ _/_/ _/ _/ _/ _/ _/
_/ _/ _/ _/ _/ _/ _/
_/ _/ _/ _/_/_/ _/
_/_/ _/_/ "
"Stylized ASCII logo.")
(defun print-version-number ()
"Prints a pretty splash-screen."
(let ((system (asdf:find-system "rva" nil)))
(format t "~av~a~%" *banner* (asdf:component-version system))))
(defun error-cli (message)
"Prints MESSAGE and usage information to stderr
and exits with error code 1."
(format *error-output*
"~a~%Usage:
rva file~%"
message)
(sb-ext:exit :code 1))
(defun main ()
(print-version-number)
(error-cli "Nitimur in Vetitum"))
|
