4 |
;;; with arbitrary legal garbage. |
;;; with arbitrary legal garbage. |
5 |
;; (pushnew :ansi-tests-strict-initial-element *features*) |
;; (pushnew :ansi-tests-strict-initial-element *features*) |
6 |
|
|
|
#+allegro (run-shell-command "rm -f *.fasl") |
|
7 |
#+allegro (setq *enclose-printer-errors* nil) |
#+allegro (setq *enclose-printer-errors* nil) |
8 |
#+cmu (run-program "rm -f *.x86f") |
|
9 |
|
;;; Remove compiled files |
10 |
|
(let* ((fn (compile-file-pathname "doit.lsp")) |
11 |
|
(type (pathname-type fn)) |
12 |
|
(dir-pathname (make-pathname :name :wild :type type)) |
13 |
|
(files (directory dir-pathname))) |
14 |
|
(assert type) |
15 |
|
(assert (not (string-equal type "lsp"))) |
16 |
|
(mapc #'delete-file files)) |
17 |
|
|
18 |
(load "gclload1.lsp") |
(load "gclload1.lsp") |
19 |
(load "gclload2.lsp") |
(load "gclload2.lsp") |