[jlisp] / run.lisp

;;; -*-lisp-*-

;;; Driver for the system.

(dolist (file '("jj" "swing" "queue" "weak" "dep" "dep-ui"))
  (sys:load-system-file file))

(use-package '(#:dep #:dep-ui))

(add-reason)
(dolist (arg *command-line-args*)
  (load arg))
(drop-reason)
Commit	Line	Data
ee79a5f1 MW	1	;;; --lisp--
	2
	3	;;; Driver for the system.
	4
a2e7266a	5	(dolist (file '("jj" "swing" "queue" "weak" "dep" "dep-ui"))
ee79a5f1 MW	6	(sys:load-system-file file))
	7
	8	(use-package '(#:dep #:dep-ui))
	9
	10	(add-reason)
	11	(dolist (arg command-line-args)
	12	(load arg))
	13	(drop-reason)