load.lsp 535 Bytes
Newer Older
1 2 3 4 5
;-*- Mode:     Lisp -*-
;;;; Author:   Paul Dietz
;;;; Created:  Thu Jan  1 11:59:35 2004
;;;; Contains: Load tests of section 20, 'Files'

6
(in-package #:cl-test)
7

8 9 10
(let ((*default-pathname-defaults*
       (make-pathname
        :directory (pathname-directory *load-pathname*))))
11 12 13 14 15 16 17 18 19 20
  (load "directory.lsp")
  (load "probe-file.lsp")
  (load "ensure-directories-exist.lsp")
  (load "truename.lsp")
  (load "file-author.lsp")
  (load "file-write-date.lsp")
  (load "rename-file.lsp")
  (load "delete-file.lsp")
  (load "file-error.lsp")
)