src/rva.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

(defpackage :rva
  (:use :cl))

(in-package :rva)

(defparameter *version* "v0.1")

(defun error-cli (message)
  (format *error-output*
	    "~a~%Usage:
	risc_vector file
Options:
	--version, -v: print version information~%"
	    message)
  (sb-ext:exit :code 1))

(defun main ()
  (lex:stub)
  (error-cli "foobar"))