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

restruct: structurize

Signed-off-by: Daniel Kochmański's avatarDaniel Kochmański <daniel@turtleware.eu>
parent 442fb32f
*.fas
ansi-aux-macros.fas
ansi-aux.fas
array-aux.fas
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Feb 15 07:27:22 2004
;;;; Contains: Tests of ADJUST-ARRAY
(in-package :cl-test)
(defun listify-form (form)
(cond
......
......@@ -3,7 +3,7 @@
;;;; Created: Mon Jan 20 21:25:22 2003
;;;; Contains: Tests for ADJUSTABLE-ARRAY-P
(in-package :cl-test)
(deftest adjustable-array-p.1
(notnot (adjustable-array-p (make-array '(5) :adjustable t)))
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Feb 11 17:33:24 2003
;;;; Contains: Tests for AREF
(in-package :cl-test)
;;; AREF is also tested in many other places
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 07:45:25 2003
;;;; Contains: Tests for ARRAY as a class
(in-package :cl-test)
(deftest array-as-class.1
(notnot-mv (typep #() (find-class 'array)))
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 06:55:14 2003
;;;; Contains: Tests of ARRAY-DIMENSION
(in-package :cl-test)
;;; array-dimension is also tested by the tests in make-array.lsp
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 06:59:37 2003
;;;; Contains: Tests of ARRAY-DIMENSIONS
(in-package :cl-test)
;;; The tests in make-array.lsp also test this function
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 06:20:51 2003
;;;; Contains: Tests for ARRAY-DISPLACEMENT
(in-package :cl-test)
;;; The tests in make-array.lsp also test array-displacement
......
......@@ -2,7 +2,7 @@
;;;; Author: Paul Dietz
;;;; Contains: Tests of the function ARRAY-ELEMENT-TYPE
(in-package :cl-test)
;;; Mosts tests are in other files, incidental to testing of
;;; other things
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 19:57:29 2003
;;;; Contains: Tests for ARRAY-IN-BOUNDS-P
(in-package :cl-test)
(deftest array-in-bounds-p.1
(array-in-bounds-p #() 0)
......
......@@ -3,7 +3,7 @@
;;;; Created: Wed Jan 22 21:17:25 2003
;;;; Contains: Misc. tests of array features
(in-package :cl-test)
(deftest array-dimension-limit.1
(and (<= 1024 array-dimension-limit) t)
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 20:32:57 2003
;;;; Contains: Tests for ARRAY-RANK
(in-package :cl-test)
;;; Most tests for ARRAY-RANK are in make-array.lsp
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 21:37:03 2003
;;;; Contains: Tests of ARRAY-ROW-MAJOR-INDEX
(in-package :cl-test)
;;; More array-row-major-index tests are in make-array.lsp
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Jan 25 11:55:48 2003
;;;; Contains: Tests of (array t ...) type specifiers
(in-package :cl-test)
;;; Tests of (array t)
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 22:01:09 2003
;;;; Contains: Tests of ARRAY-TOTAL-SIZE
(in-package :cl-test)
;;; More tests of ARRAY-TOTAL-SIZE are in make-array.lsp
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Jan 25 08:46:58 2003
;;;; Contains: Tests of the ARRAY type specifier
(in-package :cl-test)
;;; Tests of array by itself
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 22:08:21 2003
;;;; Contains: Tests of ARRAYP
(in-package :cl-test)
;;; Also tested by make-array.lsp
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 18:18:47 2003
;;;; Contains: Tests of BIT-AND
(in-package :cl-test)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 18:56:39 2003
;;;; Contains: Tests of BIT-ANDC1
(in-package :cl-test)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 19:01:38 2003
;;;; Contains: Tests of BIT-ANDC2
(in-package :cl-test)
......
......@@ -4,7 +4,7 @@
;;;; Contains: Tests of BIT-EQV
(in-package :cl-test)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 19:13:34 2003
;;;; Contains: Tests of BIT-IOR
(in-package :cl-test)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 19:16:15 2003
;;;; Contains: Tests for BIT-NAND
(in-package :cl-test)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 19:20:40 2003
;;;; Contains: Tests for BIT-NOR
(in-package :cl-test)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 19:40:13 2003
;;;; Contains: Tests of BIT-NOT
(in-package :cl-test)
(deftest bit-not.1
(let ((a1 (make-array nil :element-type 'bit :initial-element 0)))
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 19:25:28 2003
;;;; Contains: Tests of BIT-ORC1
(in-package :cl-test)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 19:31:35 2003
;;;; Contains: Tests of BIT-ORC2
(in-package :cl-test)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 20:16:50 2003
;;;; Contains: Tests of BIT-VECTOR-P
(in-package :cl-test)
(deftest bit-vector-p.2
(notnot-mv (bit-vector-p #*))
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 13:03:22 2003
;;;; Contains: Tests of type BIT-VECTOR
(in-package :cl-test)
(deftest bit-vector.1
(notnot-mv (find-class 'bit-vector))
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 19:35:46 2003
;;;; Contains: Tests of BIT-XOR
(in-package :cl-test)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 13:22:59 2003
;;;; Contains: Tests for accessor BIT
(in-package :cl-test)
(deftest bit.1
(bit #*0010 2)
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 22:14:23 2003
;;;; Contains: Tests of FILL-POINTER
(in-package :cl-test)
;;; More tests are in make-array.lsp
......
......@@ -2,7 +2,11 @@
(compile-and-load "ANSI-TESTS:AUX;array-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 "array.lsp")
(load "array-t.lsp")
......
......@@ -3,7 +3,7 @@
;;;; Created: Fri Sep 20 06:47:37 2002
;;;; Contains: Tests for MAKE-ARRAY
(in-package :cl-test)
......
......@@ -3,7 +3,7 @@
;;;; Created: Wed Jan 22 20:16:38 2003
;;;; Contains: Tests of ROW-MAJOR-AREF
(in-package :cl-test)
;;; ROW-MAJOR-AREF is also used by equalp-with-case (see rt/rt.lsp)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 15:30:31 2003
;;;; Contains: Tests for SBIT
(in-package :cl-test)
(deftest sbit.1
(sbit #*0010 2)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 07:23:45 2003
;;;; Contains: Tests of SIMPLE-ARRAY on T element type
(in-package :cl-test)
;;; Tests of (simple-array t)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 07:20:31 2003
;;;; Contains: Tests of SIMPLE-ARRAY
(in-package :cl-test)
;;; Tests of simple-array by itself
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 20:20:27 2003
;;;; Contains: Tests of SIMPLE-BIT-VECTOR-P
(in-package :cl-test)
(deftest simple-bit-vector-p.2
(notnot-mv (simple-bit-vector-p #*))
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 13:12:07 2003
;;;; Contains: Tests for type SIMPLE-BIT-VECTOR
(in-package :cl-test)
(deftest simple-bit-vector.2
(notnot-mv (typep #* 'simple-bit-vector))
......
......@@ -3,7 +3,7 @@
;;;; Created: Wed Jan 22 21:23:45 2003
;;;; Contains: Tests for SIMPLE-VECTOR-P
(in-package :cl-test)
;;; More tests for this are in make-array.lsp
......
......@@ -3,7 +3,7 @@
;;;; Created: Wed Jan 22 21:39:30 2003
;;;; Contains: Tests of SVREF
(in-package :cl-test)
(deftest svref.1
(let ((a (vector 1 2 3 4)))
......
......@@ -3,7 +3,7 @@
;;;; Created: Wed Jan 22 20:43:55 2003
;;;; Contains: Tests of UPGRADED-ARRAY-ELEMENT-TYPE
(in-package :cl-test)
(deftest upgraded-array-element-type.1
(let ((upgraded-bit (upgraded-array-element-type 'bit)))
......
......@@ -3,7 +3,7 @@
;;;; Created: Fri Jan 24 07:46:29 2003
;;;; Contains: Tests for VECTOR-POP
(in-package :cl-test)
(deftest vector-pop.1
(let ((v (make-array '(5) :initial-contents '(a b c d e)
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Jan 25 08:04:35 2003
;;;; Contains: Tests for VECTOR-PUSH-EXTEND
(in-package :cl-test)
(deftest vector-push-extend.1
(let ((a (make-array '(5) :fill-pointer 2
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Jan 25 00:55:43 2003
;;;; Contains: Tests for VECTOR-PUSH
(in-package :cl-test)
(deftest vector-push.1
(let ((a (make-array '(5) :fill-pointer 2
......
......@@ -3,7 +3,7 @@
;;;; Created: Thu Jan 23 06:32:02 2003
;;;; Contains: Tests of VECTOR (type and function)
(in-package :cl-test)
;;; More tests of type vector in make-array.lsp
......
......@@ -3,7 +3,7 @@
;;;; Created: Sun Jan 26 13:17:05 2003
;;;; Contains: Tests for VECTORP
(in-package :cl-test)
(deftest vectorp.1
(vectorp 1)
......
......@@ -3,7 +3,7 @@
;;;; Created: Wed Jul 2 07:05:41 2003
;;;; Contains: Macros used in ansi-aux and elsewhere.
(in-package :cl-test)
(declaim (optimize (safety 3)))
......
......@@ -3,7 +3,7 @@
;;;; Created: Sat Mar 28 17:10:18 1998
;;;; Contains: Aux. functions for CL-TEST
(in-package :cl-test)
(declaim (optimize (safety 3)))
......
......@@ -3,7 +3,7 @@
;;;; Created: Tue Jan 21 05:11:31 2003
;;;; Contains: Auxiliary functions for array tests
(in-package :cl-test)
(defun make-array-check-upgrading (type)
(subtypep* type (array-element-type (make-array 0 :element-type type))))
......
......@@ -3,7 +3,7 @@
;;;; Created: Fri Jun 11 08:04:23 2004
;;;; Contains: Aux. functions associated with backquote tests
(in-package :cl-test)