Commit 9858efa4 authored by Daniel Kochmański's avatar Daniel Kochmański

restruct: structurize

Signed-off-by: default avatarDaniel Kochmański <daniel@turtleware.eu>
parent 442fb32f
*.fas
ansi-aux-macros.fas ansi-aux-macros.fas
ansi-aux.fas ansi-aux.fas
array-aux.fas array-aux.fas
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Sun Feb 15 07:27:22 2004 ;;;; Created: Sun Feb 15 07:27:22 2004
;;;; Contains: Tests of ADJUST-ARRAY ;;;; Contains: Tests of ADJUST-ARRAY
(in-package :cl-test)
(defun listify-form (form) (defun listify-form (form)
(cond (cond
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Mon Jan 20 21:25:22 2003 ;;;; Created: Mon Jan 20 21:25:22 2003
;;;; Contains: Tests for ADJUSTABLE-ARRAY-P ;;;; Contains: Tests for ADJUSTABLE-ARRAY-P
(in-package :cl-test)
(deftest adjustable-array-p.1 (deftest adjustable-array-p.1
(notnot (adjustable-array-p (make-array '(5) :adjustable t))) (notnot (adjustable-array-p (make-array '(5) :adjustable t)))
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Tue Feb 11 17:33:24 2003 ;;;; Created: Tue Feb 11 17:33:24 2003
;;;; Contains: Tests for AREF ;;;; Contains: Tests for AREF
(in-package :cl-test)
;;; AREF is also tested in many other places ;;; AREF is also tested in many other places
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 07:45:25 2003 ;;;; Created: Sun Jan 26 07:45:25 2003
;;;; Contains: Tests for ARRAY as a class ;;;; Contains: Tests for ARRAY as a class
(in-package :cl-test)
(deftest array-as-class.1 (deftest array-as-class.1
(notnot-mv (typep #() (find-class 'array))) (notnot-mv (typep #() (find-class 'array)))
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 06:55:14 2003 ;;;; Created: Tue Jan 21 06:55:14 2003
;;;; Contains: Tests of ARRAY-DIMENSION ;;;; Contains: Tests of ARRAY-DIMENSION
(in-package :cl-test)
;;; array-dimension is also tested by the tests in make-array.lsp ;;; array-dimension is also tested by the tests in make-array.lsp
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 06:59:37 2003 ;;;; Created: Tue Jan 21 06:59:37 2003
;;;; Contains: Tests of ARRAY-DIMENSIONS ;;;; Contains: Tests of ARRAY-DIMENSIONS
(in-package :cl-test)
;;; The tests in make-array.lsp also test this function ;;; The tests in make-array.lsp also test this function
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 06:20:51 2003 ;;;; Created: Tue Jan 21 06:20:51 2003
;;;; Contains: Tests for ARRAY-DISPLACEMENT ;;;; Contains: Tests for ARRAY-DISPLACEMENT
(in-package :cl-test)
;;; The tests in make-array.lsp also test array-displacement ;;; The tests in make-array.lsp also test array-displacement
......
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
;;;; Author: Paul Dietz ;;;; Author: Paul Dietz
;;;; Contains: Tests of the function ARRAY-ELEMENT-TYPE ;;;; Contains: Tests of the function ARRAY-ELEMENT-TYPE
(in-package :cl-test)
;;; Mosts tests are in other files, incidental to testing of ;;; Mosts tests are in other files, incidental to testing of
;;; other things ;;; other things
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 19:57:29 2003 ;;;; Created: Tue Jan 21 19:57:29 2003
;;;; Contains: Tests for ARRAY-IN-BOUNDS-P ;;;; Contains: Tests for ARRAY-IN-BOUNDS-P
(in-package :cl-test)
(deftest array-in-bounds-p.1 (deftest array-in-bounds-p.1
(array-in-bounds-p #() 0) (array-in-bounds-p #() 0)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Wed Jan 22 21:17:25 2003 ;;;; Created: Wed Jan 22 21:17:25 2003
;;;; Contains: Misc. tests of array features ;;;; Contains: Misc. tests of array features
(in-package :cl-test)
(deftest array-dimension-limit.1 (deftest array-dimension-limit.1
(and (<= 1024 array-dimension-limit) t) (and (<= 1024 array-dimension-limit) t)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 20:32:57 2003 ;;;; Created: Tue Jan 21 20:32:57 2003
;;;; Contains: Tests for ARRAY-RANK ;;;; Contains: Tests for ARRAY-RANK
(in-package :cl-test)
;;; Most tests for ARRAY-RANK are in make-array.lsp ;;; Most tests for ARRAY-RANK are in make-array.lsp
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 21:37:03 2003 ;;;; Created: Tue Jan 21 21:37:03 2003
;;;; Contains: Tests of ARRAY-ROW-MAJOR-INDEX ;;;; Contains: Tests of ARRAY-ROW-MAJOR-INDEX
(in-package :cl-test)
;;; More array-row-major-index tests are in make-array.lsp ;;; More array-row-major-index tests are in make-array.lsp
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Sat Jan 25 11:55:48 2003 ;;;; Created: Sat Jan 25 11:55:48 2003
;;;; Contains: Tests of (array t ...) type specifiers ;;;; Contains: Tests of (array t ...) type specifiers
(in-package :cl-test)
;;; Tests of (array t) ;;; Tests of (array t)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 22:01:09 2003 ;;;; Created: Tue Jan 21 22:01:09 2003
;;;; Contains: Tests of ARRAY-TOTAL-SIZE ;;;; Contains: Tests of ARRAY-TOTAL-SIZE
(in-package :cl-test)
;;; More tests of ARRAY-TOTAL-SIZE are in make-array.lsp ;;; More tests of ARRAY-TOTAL-SIZE are in make-array.lsp
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Sat Jan 25 08:46:58 2003 ;;;; Created: Sat Jan 25 08:46:58 2003
;;;; Contains: Tests of the ARRAY type specifier ;;;; Contains: Tests of the ARRAY type specifier
(in-package :cl-test)
;;; Tests of array by itself ;;; Tests of array by itself
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 22:08:21 2003 ;;;; Created: Tue Jan 21 22:08:21 2003
;;;; Contains: Tests of ARRAYP ;;;; Contains: Tests of ARRAYP
(in-package :cl-test)
;;; Also tested by make-array.lsp ;;; Also tested by make-array.lsp
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 18:18:47 2003 ;;;; Created: Sun Jan 26 18:18:47 2003
;;;; Contains: Tests of BIT-AND ;;;; Contains: Tests of BIT-AND
(in-package :cl-test)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 18:56:39 2003 ;;;; Created: Sun Jan 26 18:56:39 2003
;;;; Contains: Tests of BIT-ANDC1 ;;;; Contains: Tests of BIT-ANDC1
(in-package :cl-test)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 19:01:38 2003 ;;;; Created: Sun Jan 26 19:01:38 2003
;;;; Contains: Tests of BIT-ANDC2 ;;;; Contains: Tests of BIT-ANDC2
(in-package :cl-test)
......
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
;;;; Contains: Tests of BIT-EQV ;;;; Contains: Tests of BIT-EQV
(in-package :cl-test)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 19:13:34 2003 ;;;; Created: Sun Jan 26 19:13:34 2003
;;;; Contains: Tests of BIT-IOR ;;;; Contains: Tests of BIT-IOR
(in-package :cl-test)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 19:16:15 2003 ;;;; Created: Sun Jan 26 19:16:15 2003
;;;; Contains: Tests for BIT-NAND ;;;; Contains: Tests for BIT-NAND
(in-package :cl-test)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 19:20:40 2003 ;;;; Created: Sun Jan 26 19:20:40 2003
;;;; Contains: Tests for BIT-NOR ;;;; Contains: Tests for BIT-NOR
(in-package :cl-test)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 19:40:13 2003 ;;;; Created: Sun Jan 26 19:40:13 2003
;;;; Contains: Tests of BIT-NOT ;;;; Contains: Tests of BIT-NOT
(in-package :cl-test)
(deftest bit-not.1 (deftest bit-not.1
(let ((a1 (make-array nil :element-type 'bit :initial-element 0))) (let ((a1 (make-array nil :element-type 'bit :initial-element 0)))
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 19:25:28 2003 ;;;; Created: Sun Jan 26 19:25:28 2003
;;;; Contains: Tests of BIT-ORC1 ;;;; Contains: Tests of BIT-ORC1
(in-package :cl-test)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 19:31:35 2003 ;;;; Created: Sun Jan 26 19:31:35 2003
;;;; Contains: Tests of BIT-ORC2 ;;;; Contains: Tests of BIT-ORC2
(in-package :cl-test)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 20:16:50 2003 ;;;; Created: Sun Jan 26 20:16:50 2003
;;;; Contains: Tests of BIT-VECTOR-P ;;;; Contains: Tests of BIT-VECTOR-P
(in-package :cl-test)
(deftest bit-vector-p.2 (deftest bit-vector-p.2
(notnot-mv (bit-vector-p #*)) (notnot-mv (bit-vector-p #*))
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 13:03:22 2003 ;;;; Created: Sun Jan 26 13:03:22 2003
;;;; Contains: Tests of type BIT-VECTOR ;;;; Contains: Tests of type BIT-VECTOR
(in-package :cl-test)
(deftest bit-vector.1 (deftest bit-vector.1
(notnot-mv (find-class 'bit-vector)) (notnot-mv (find-class 'bit-vector))
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 19:35:46 2003 ;;;; Created: Sun Jan 26 19:35:46 2003
;;;; Contains: Tests of BIT-XOR ;;;; Contains: Tests of BIT-XOR
(in-package :cl-test)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 13:22:59 2003 ;;;; Created: Sun Jan 26 13:22:59 2003
;;;; Contains: Tests for accessor BIT ;;;; Contains: Tests for accessor BIT
(in-package :cl-test)
(deftest bit.1 (deftest bit.1
(bit #*0010 2) (bit #*0010 2)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 22:14:23 2003 ;;;; Created: Tue Jan 21 22:14:23 2003
;;;; Contains: Tests of FILL-POINTER ;;;; Contains: Tests of FILL-POINTER
(in-package :cl-test)
;;; More tests are in make-array.lsp ;;; More tests are in make-array.lsp
......
...@@ -2,7 +2,11 @@ ...@@ -2,7 +2,11 @@
(compile-and-load "ANSI-TESTS:AUX;array-aux.lsp") (compile-and-load "ANSI-TESTS:AUX;array-aux.lsp")
(compile-and-load "ANSI-TESTS:AUX;bit-aux.lsp") (compile-and-load "ANSI-TESTS:AUX;bit-aux.lsp")
(let ((*default-pathname-defaults* (pathname *load-pathname*))) (in-package #:cl-test)
(let ((*default-pathname-defaults*
(make-pathname
:directory (pathname-directory *load-pathname*))))
(load "aref.lsp") (load "aref.lsp")
(load "array.lsp") (load "array.lsp")
(load "array-t.lsp") (load "array-t.lsp")
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Fri Sep 20 06:47:37 2002 ;;;; Created: Fri Sep 20 06:47:37 2002
;;;; Contains: Tests for MAKE-ARRAY ;;;; Contains: Tests for MAKE-ARRAY
(in-package :cl-test)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Wed Jan 22 20:16:38 2003 ;;;; Created: Wed Jan 22 20:16:38 2003
;;;; Contains: Tests of ROW-MAJOR-AREF ;;;; Contains: Tests of ROW-MAJOR-AREF
(in-package :cl-test)
;;; ROW-MAJOR-AREF is also used by equalp-with-case (see rt/rt.lsp) ;;; ROW-MAJOR-AREF is also used by equalp-with-case (see rt/rt.lsp)
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 15:30:31 2003 ;;;; Created: Sun Jan 26 15:30:31 2003
;;;; Contains: Tests for SBIT ;;;; Contains: Tests for SBIT