load.lsp 1.48 KB
Newer Older
1 2 3 4
;;; Tests on arrays
(compile-and-load "ANSI-TESTS:AUX;array-aux.lsp")
(compile-and-load "ANSI-TESTS:AUX;bit-aux.lsp")

5 6 7 8 9
(in-package #:cl-test)

(let ((*default-pathname-defaults*
       (make-pathname
        :directory (pathname-directory *load-pathname*))))
10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
  (load "aref.lsp")
  (load "array.lsp")
  (load "array-t.lsp")
  (load "array-as-class.lsp")
  (load "simple-array.lsp")
  (load "simple-array-t.lsp")
  (load "bit-vector.lsp")
  (load "simple-bit-vector.lsp")
  (load "make-array.lsp")
  (load "adjust-array.lsp")
  (load "adjustable-array-p.lsp")
  (load "array-displacement.lsp")
  (load "array-dimension.lsp")
  (load "array-dimensions.lsp")
  (load "array-element-type.lsp")
  (load "array-in-bounds-p.lsp")
  (load "array-misc.lsp")
  (load "array-rank.lsp")
  (load "array-row-major-index.lsp")
  (load "array-total-size.lsp")
  (load "arrayp.lsp")
  (load "fill-pointer.lsp")
  (load "row-major-aref.lsp")
  (load "simple-vector-p.lsp")
  (load "svref.lsp")
  (load "upgraded-array-element-type.lsp")
  (load "vector.lsp")
  (load "vector-pop.lsp")
  (load "vector-push.lsp")
  (load "vector-push-extend.lsp")
  (load "vectorp.lsp")
  (load "bit.lsp")
  (load "sbit.lsp")
  (load "bit-and.lsp")
  (load "bit-andc1.lsp")
  (load "bit-andc2.lsp")
  (load "bit-eqv.lsp")
  (load "bit-ior.lsp")
  (load "bit-nand.lsp")
  (load "bit-nor.lsp")
  (load "bit-orc1.lsp")
  (load "bit-orc2.lsp")
  (load "bit-xor.lsp")
  (load "bit-not.lsp")
  (load "bit-vector-p.lsp")
  (load "simple-bit-vector-p.lsp"))