| 1 | ;;; -*-lisp-*- |
| 2 | |
| 3 | ;;; Driver for the system. |
| 4 | |
| 5 | (dolist (file '("jj" "swing" "queue" "weak" "dep" "dep-ui")) |
| 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) |