mirror of
https://github.com/kanaka/mal.git
synced 2024-09-11 13:55:55 +03:00
11 lines
346 B
Common Lisp
11 lines
346 B
Common Lisp
|
(require 'asdf)
|
||
|
(push *default-pathname-defaults* asdf:*central-registry*)
|
||
|
|
||
|
;; Suppress compilation output
|
||
|
(let ((*error-output* (make-broadcast-stream))
|
||
|
(*standard-output* (make-broadcast-stream)))
|
||
|
(asdf:load-system (car ext:*command-line-argument-list*) :verbose nil))
|
||
|
|
||
|
(mal:main (cdr ext:*command-line-argument-list*))
|
||
|
(cl-user::quit)
|