[jackhill/mal.git] / common-lisp / run-mkcl.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)
Commit	Line	Data
269ce7ff IA	1	(require 'asdf)
	2	(push default-pathname-defaults asdf:central-registry)
	3
	4	(defvar raw-command-line-args (loop
	5	:for index
	6	:from 1
	7	:below (mkcl:argc)
	8	:collect (mkcl:argv index)))
	9
	10	(defvar command-line-args (subseq raw-command-line-args
	11	(min (1+ (position "--" raw-command-line-args :test #'string=))
	12	(length raw-command-line-args))))
	13
	14	;; Suppress compilation output
	15	(let ((error-output (make-broadcast-stream))
	16	(standard-output (make-broadcast-stream)))
	17	(format standard-output "~a" command-line-args)
	18	(asdf:load-system (car command-line-args) :verbose nil))
	19
	20	(mal:main (cdr command-line-args))
	21	(quit)