8 |
(merge-pathnames (make-pathname :directory '(:relative :up))))) |
(merge-pathnames (make-pathname :directory '(:relative :up))))) |
9 |
(load "gclload1.lsp")) |
(load "gclload1.lsp")) |
10 |
(load "ba-test-package.lsp") |
(load "ba-test-package.lsp") |
11 |
(compile-and-load "ba-aux.lsp") |
(eval '(compile-and-load "ba-aux.lsp")) |
12 |
(load "errors-eval-compile.lsp") |
(load "errors-eval-compile.lsp") |
13 |
(load "errors-types-and-class.lsp") |
(load "errors-types-and-class.lsp") |
14 |
(load "errors-data-and-control-flow-1.lsp") |
(load "errors-data-and-control-flow-1.lsp") |
15 |
(load "errors-data-and-control-flow-2.lsp") |
(load "errors-data-and-control-flow-2.lsp") |
16 |
|
(load "errors-data-and-control-flow-3.lsp") |
17 |
(in-package :ba-test) |
(in-package :ba-test) |
18 |
) |
) |
19 |
|
|