Common Lisp Package: CL-TUPLES-TEST

README:

FUNCTION

Private

COPY-PAIR (SEQUENCE)

Return a copy of SEQUENCE which is EQUAL to SEQUENCE but not EQ.

COPY-QUAD (SEQUENCE)

Return a copy of SEQUENCE which is EQUAL to SEQUENCE but not EQ.

MAKE-PAIR-ARRAY (DIMENSIONS &KEY ADJUSTABLE (INITIAL-ELEMENT 0 INITIAL-ELEMENT-P) (FILL-POINTER NIL FILL-POINTER-P))

Create an array suitable for holding a number of PAIR's

PAIR-ARRAY-DIMENSIONS (TUPLE-ARRAY)

Return the size of a vector of PAIR's (ie how many PAIR's it contains)

REPORT-RESULT (RESULT FORM)

Report the results of a single test case. Called by 'check'.

Undocumented

=== (X Y &OPTIONAL (EPSILON 1.e-5))

MAKE-QUAD-ARRAY (DIMENSIONS &KEY ADJUSTABLE (INITIAL-ELEMENT 0 INITIAL-ELEMENT-P) (FILL-POINTER NIL FILL-POINTER-P))

PAIR-AREF (TUPLE-ARRAY TUPLE-INDEX)

PAIR-AREF-SETTER (TUPLE-NAME TUPLE-INDEX TUPLE)

PAIR-FILL-POINTER (TUPLE-ARRAY)

SETFPAIR-FILL-POINTER (VALUE TUPLE-ARRAY)

PAIR-FIRST (STRUCTURE)

SETFPAIR-FIRST (NEW-VALUE STRUCTURE)

PAIR-SECOND (STRUCTURE)

SETFPAIR-SECOND (NEW-VALUE STRUCTURE)

PAIR-VECTOR-PUSH (TUPLE ARRAY-NAME)

PAIR-VECTOR-PUSH-EXTEND (TUPLE ARRAY-NAME)

QUAD-A (STRUCTURE)

SETFQUAD-A (NEW-VALUE STRUCTURE)

QUAD-AREF (TUPLE-ARRAY TUPLE-INDEX)

QUAD-AREF-SETTER (TUPLE-NAME TUPLE-INDEX TUPLE)

QUAD-ARRAY-DIMENSIONS (TUPLE-ARRAY)

QUAD-B (STRUCTURE)

SETFQUAD-B (NEW-VALUE STRUCTURE)

QUAD-C (STRUCTURE)

SETFQUAD-C (NEW-VALUE STRUCTURE)

QUAD-D (STRUCTURE)

SETFQUAD-D (NEW-VALUE STRUCTURE)

QUAD-VECTOR-PUSH (TUPLE ARRAY-NAME)

QUAD-VECTOR-PUSH-EXTEND (TUPLE ARRAY-NAME)

SET-QUAD (TUPLE-PLACE A B C D)

TEST-TUPLE-ARRAYS

TEST-TUPLE-MACROS

TEST-TUPLE-PRIMITIVES

TEST-TUPLE-SETF

TEST-TUPLE-TYPE

TEST-VECTORS

MACRO

Private

CHECK (&BODY FORMS)

Run each expression in 'forms' as a test case.

COMBINE-RESULTS (&BODY FORMS)

Combine the results (as booleans) of evaluating 'forms' in order.

DEFTEST (NAME PARAMETERS &BODY BODY)

Define a test function. Within a test function we can call other test functions or use 'check' to run individual test cases.

MAKE-PAIR (&REST ELEMENTS)

Create an array sutable for holding a single PAIR and initialize it from a multiple-values form

MAKE-PAIR* (TUPLE-VALUES)

Create an array sutable for holding a single PAIR and initialize it from a form

NEW-PAIR

Create an array suitable for holding a single PAIR

PAIR* (TUPLE-ARRAY-NAME)

Unpack array representation of an PAIR and convert to multiple values.

PAIR-AREF* (TUPLE-ARRAY ARRAY-INDEX)

Unpack individual PAIR to multiple values from an array of PAIRs.

PAIR-AREF-SETTER* (ARRAY-NAME ARRAY-INDEX TUPLE-VALUES)

Creates a macro for setting an PAIR vector in a vector of PAIRs from a multiple values PAIR

PAIR-SETTER* (TUPLE-PLACE TUPLE-VALUES)

Creates a macro for setting an PAIR vector from a multiple values PAIR

PAIR-VALUES* (&REST ELEMENTS)

Convert PAIR forms to multiple values.

PAIR-VECTOR-PUSH* (TUPLE-VALUES ARRAY-NAME)

Push a PAIR multiple value onto the end of a vector of PAIR's

PAIR-VECTOR-PUSH-EXTEND* (TUPLE-VALUES ARRAY-NAME)

Push a PAIR multiple value onto the end of a vector of PAIR's with the possibility of extension

WITH-PAIR (TUPLE-PLACE ELEMENT-SYMS &BODY FORMS)

Bind elements of a PAIR multiple value to symbols.

WITH-PAIR* (TUPLE ELEMENT-SYMS &BODY FORMS)

Bind elements of a PAIR vector to symbols.

WITH-PAIR-AREF ((ARRAY-NAME INDEX ELEMENT-SYMS) &BODY FORMS)

Bind the elements of a PAIR from vector of PAIR's to symbols

Undocumented

ALWAYS-PASS (&BODY BODY)

MAKE-QUAD (&REST ELEMENTS)

MAKE-QUAD* (TUPLE-VALUES)

NEW-QUAD

QUAD* (TUPLE-ARRAY-NAME)

QUAD-AREF* (TUPLE-ARRAY ARRAY-INDEX)

QUAD-AREF-SETTER* (ARRAY-NAME ARRAY-INDEX TUPLE-VALUES)

QUAD-SETTER* (TUPLE-PLACE TUPLE-VALUES)

QUAD-VALUES* (&REST ELEMENTS)

QUAD-VECTOR-PUSH* (TUPLE-VALUES ARRAY-NAME)

QUAD-VECTOR-PUSH-EXTEND* (TUPLE-VALUES ARRAY-NAME)

WITH-QUAD (TUPLE-PLACE ELEMENT-SYMS &BODY FORMS)

WITH-QUAD* (TUPLE ELEMENT-SYMS &BODY FORMS)

WITH-QUAD-AREF ((ARRAY-NAME INDEX ELEMENT-SYMS) &BODY FORMS)

WITH-TEST (TEST-SYM TEST &REST FORMS)

VARIABLE

Private

Undocumented

*PAIR-ARRAY*

*QUAD*

*QUADS*

*TEST-NAME*

*TEST-PAIR*

*TEST-VECTOR*

*V2D*

*VECTOR0*

*VECTOR1*

*VECTORX*

*VECTORY*

*VECTORZ*