;-*- Mode: Lisp -*- ;;;; Author: Paul Dietz ;;;; Created: Wed Jun 8 06:52:59 2005 ;;;; Contains: Load beyond-ansi tests (let ((*default-pathname-defaults* (pathname *load-pathname*))) (let ((*default-pathname-defaults* (merge-pathnames (make-pathname :directory '(:relative :up))))) (load "gclload1.lsp")) (load "ba-test-package.lsp") (compile-and-load "ba-aux.lsp") (load "errors-eval-compile.lsp") (load "errors-types-and-class.lsp") (load "errors-data-and-control-flow-1.lsp") (load "errors-data-and-control-flow-2.lsp") (in-package :ba-test) )