mirror of
https://github.com/kanaka/mal.git
synced 2024-08-17 09:40:21 +03:00
- Reorder README to have implementation list after "learning tool" bullet. - This also moves tests/ and libs/ into impls. It would be preferrable to have these directories at the top level. However, this causes difficulties with the wasm implementations which need pre-open directories and have trouble with paths starting with "../../". So in lieu of that, symlink those directories to the top-level. - Move the run_argv_test.sh script into the tests directory for general hygiene.
22 lines
851 B
Common Lisp
22 lines
851 B
Common Lisp
(require 'asdf)
|
|
(push *default-pathname-defaults* asdf:*central-registry*)
|
|
|
|
(defvar *raw-command-line-args* (loop
|
|
:for index
|
|
:from 1
|
|
:below (mkcl:argc)
|
|
:collect (mkcl:argv index)))
|
|
|
|
(defvar *command-line-args* (subseq *raw-command-line-args*
|
|
(min (1+ (position "--" *raw-command-line-args* :test #'string=))
|
|
(length *raw-command-line-args*))))
|
|
|
|
;; Suppress compilation output
|
|
(let ((*error-output* (make-broadcast-stream))
|
|
(*standard-output* (make-broadcast-stream)))
|
|
(format *standard-output* "~a" *command-line-args*)
|
|
(asdf:load-system (car *command-line-args*) :verbose nil))
|
|
|
|
(mal:main (cdr *command-line-args*))
|
|
(quit)
|