From 00af1f8312277222898db569d5186e97b6b274df Mon Sep 17 00:00:00 2001 From: Liam Healy <liam@thinkpad.local> Date: Wed, 30 Jun 2010 23:17:34 -0400 Subject: [PATCH] Complex arrays must be initialized with complex numbers In the tests, complex arrays were initialized with reals (giving real, imaginary in sequence), but that is no longer permitted, so these were converted into complex. --- documentation/index.html | 8 +- tests/absolute-sum.lisp | 104 +++--- tests/axpy.lisp | 180 +++++----- tests/blas-copy.lisp | 96 +++--- tests/blas-swap.lisp | 131 +++---- tests/cdot.lisp | 79 ++--- tests/column.lisp | 405 ++++++++++------------ tests/covariance.lisp | 26 +- tests/dot.lisp | 146 ++++---- tests/euclidean-norm.lisp | 100 +++--- tests/givens.lisp | 12 +- tests/hankel.lisp | 6 +- tests/histogram.lisp | 8 +- tests/index-max.lisp | 120 +++---- tests/inverse-matrix-product.lisp | 341 +++++++++---------- tests/matrix-product-hermitian.lisp | 266 +++++++-------- tests/matrix-product-nonsquare.lisp | 151 +++++---- tests/matrix-product-triangular.lisp | 339 +++++++++---------- tests/matrix-product.lisp | 450 ++++++++++++------------ tests/matrix-set-zero.lisp | 280 +++++++-------- tests/matrix-swap.lisp | 489 +++++++++++++-------------- tests/matrix-transpose-copy.lisp | 322 +++++++++--------- tests/matrix-transpose.lisp | 266 ++++++++------- tests/row.lisp | 391 +++++++++------------ tests/scale.lisp | 198 ++++++----- tests/set-basis.lisp | 259 +++++++------- tests/set-identity.lisp | 257 +++++++------- tests/setf-column.lisp | 367 ++++++++++---------- tests/setf-row.lisp | 374 ++++++++++---------- tests/swap-columns.lisp | 266 ++++++++------- tests/swap-elements.lisp | 256 +++++++------- tests/swap-row-column.lisp | 260 +++++++------- tests/swap-rows.lisp | 266 ++++++++------- tests/vector-reverse.lisp | 233 ++++++------- tests/vector-set-zero.lisp | 221 +++++------- tests/vector-swap.lisp | 324 +++++++++--------- 36 files changed, 3844 insertions(+), 4153 deletions(-) diff --git a/documentation/index.html b/documentation/index.html index 495b3c75..05ad1d9e 100644 --- a/documentation/index.html +++ b/documentation/index.html @@ -88,12 +88,6 @@ complex conjugate scalar product</a> of two complex vectors of length 3: #2m(#c(49.27d0 -13.49d0) #c(32.5d0 42.73d0) #c(-17.24d0 43.31d0))) #C(-2940.2118d0 1861.9380999999998d0) </pre> -<p>or equivalently the vector arguments may be specified with reals, -<pre> -(cdot #2m(-34.5d0 8.24d0 3.29d0 -8.93d0 34.12d0 -6.15d0) - #2m(49.27d0 -13.49d0 32.5d0 42.73d0 -17.24d0 43.31d0)) -#C(-2940.2118d0 1861.9380999999998d0) -</pre> <p>There are over 1500 examples available from within GSLL with the function <code>examples</code>. There is also a suite of over 4000 tests; many of the examples also serve as tests, and most others @@ -472,7 +466,7 @@ and arrays used internally or for function return. <!-- Created: Feb 25 2005 --> <!-- hhmts start --> <small> -Time-stamp: <2010-06-30 19:57:28EDT index.html> +Time-stamp: <2010-06-30 21:18:34EDT index.html> </small> <!-- hhmts end --> </div> diff --git a/tests/absolute-sum.lisp b/tests/absolute-sum.lisp index 4d7ab271..fa1d6b70 100644 --- a/tests/absolute-sum.lisp +++ b/tests/absolute-sum.lisp @@ -1,6 +1,6 @@ ;; Regression test ABSOLUTE-SUM for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,68 +19,40 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST ABSOLUTE-SUM - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 157.99) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - 'SINGLE-FLOAT - :INITIAL-CONTENTS - '(-34.5 8.24 - 3.29 -8.93 - 34.12 - -6.15 - 49.27 - -13.49)))) - (ABSOLUTE-SUM - V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 157.99d0) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - 'DOUBLE-FLOAT - :INITIAL-CONTENTS - '(-34.5d0 - 8.24d0 - 3.29d0 - -8.93d0 - 34.12d0 - -6.15d0 - 49.27d0 - -13.49d0)))) - (ABSOLUTE-SUM - V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 388.65997) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - '(COMPLEX - SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5 8.24 - 3.29 -8.93 - 34.12 - -6.15 - 49.27 - -13.49 - 32.5 42.73 - -17.24 - 43.31 - -16.12 - -8.25 - 21.44 - -49.08)))) - (ABSOLUTE-SUM - V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST 388.65999999999997d0) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0 49.27d0 -13.49d0 - 32.5d0 42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0 - -49.08d0)))) - (ABSOLUTE-SUM V1))))) - + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST 157.99) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS + '(-34.5 8.24 3.29 -8.93 34.12 -6.15 49.27 -13.49)))) + (ABSOLUTE-SUM V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST 157.99d0) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT + :INITIAL-CONTENTS + '(-34.5d0 8.24d0 3.29d0 -8.93d0 34.12d0 -6.15d0 49.27d0 -13.49d0)))) + (ABSOLUTE-SUM V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST 388.65997) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX + SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15) #C(49.27 -13.49) + #C(32.5 42.73) #C(-17.24 43.31) #C(-16.12 -8.25) #C(21.44 -49.08))))) + (ABSOLUTE-SUM V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST 388.65999999999997d0) + (MULTIPLE-VALUE-LIST + (LET ((V1 + #2m(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0) + #C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0) + #C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0)))) + (ABSOLUTE-SUM V1))))) diff --git a/tests/axpy.lisp b/tests/axpy.lisp index 8d28e853..63bf5dff 100644 --- a/tests/axpy.lisp +++ b/tests/axpy.lisp @@ -19,91 +19,95 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST AXPY - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(1400.77 -284.0684 -147.7214 397.47382 -1369.3191 - 235.659 -1932.6083 485.93335)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(-34.5 8.24 3.29 -8.93 34.12 - -6.15 49.27 -13.49))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(32.5 42.73 -17.24 43.31 -16.12 - -8.25 21.44 -49.08))) - (SCALAR -39.66)) - (CL-ARRAY (AXPY SCALAR V1 V2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(1400.77d0 -284.06839999999994d0 -147.7214d0 - 397.4738d0 -1369.3191999999997d0 235.659d0 - -1932.6082d0 485.93339999999995d0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0 49.27d0 - -13.49d0))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(32.5d0 42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0 - -49.08d0))) - (SCALAR -39.66d0)) - (CL-ARRAY (AXPY SCALAR V1 V2))))) - #+fsbv - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(1808.3204 1422.3015) #C(-589.3992 234.75043) - #C(-1673.498 -1451.916) #C(-2599.8237 -1950.9608) - #C(784.81586 -3351.5815) #C(2845.531 -870.5343) - #C(222.45422 1149.8602) #C(-3308.3872 917.76044))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5 8.24 3.29 -8.93 34.12 - -6.15 49.27 -13.49 32.5 42.73 - -17.24 43.31 -16.12 -8.25 21.44 - -49.08))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(32.5 42.73 -17.24 43.31 -16.12 - -8.25 21.44 -49.08 -39.66 -49.46 - 19.68 -5.55 -8.82 25.37 -30.58 - 31.67))) - (SCALAR #C(-39.66 -49.46))) - (CL-ARRAY (AXPY SCALAR V1 V2))))) - #+fsbv - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(1808.3204d0 1422.3016000000002d0) - #C(-589.3992d0 234.75039999999998d0) - #C(-1673.4981999999998d0 -1451.9162000000001d0) - #C(-2599.8236d0 -1950.9608000000003d0) - #C(784.8158000000002d0 -3351.5818d0) - #C(2845.5309999999995d0 -870.5342d0) - #C(222.45420000000001d0 1149.8601999999998d0) - #C(-3308.3871999999997d0 917.7603999999995d0))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0 49.27d0 -13.49d0 - 32.5d0 42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0 - -49.08d0))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(32.5d0 42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0 - -49.08d0 -39.66d0 -49.46d0 - 19.68d0 -5.55d0 -8.82d0 25.37d0 - -30.58d0 31.67d0))) - (SCALAR #C(-39.66d0 -49.46d0))) - (CL-ARRAY (AXPY SCALAR V1 V2)))))) - + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(1400.77 -284.0684 -147.7214 397.47382 -1369.3191 + 235.659 -1932.6083 485.93335)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '(-34.5 8.24 3.29 -8.93 34.12 -6.15 49.27 -13.49))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '(32.5 42.73 -17.24 43.31 -16.12 -8.25 21.44 -49.08))) + (SCALAR -39.66)) + (CL-ARRAY (AXPY SCALAR V1 V2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(1400.77d0 -284.06839999999994d0 -147.7214d0 + 397.4738d0 -1369.3191999999997d0 235.659d0 + -1932.6082d0 485.93339999999995d0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT + :INITIAL-CONTENTS + '(-34.5d0 8.24d0 3.29d0 -8.93d0 + 34.12d0 -6.15d0 49.27d0 + -13.49d0))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT + :INITIAL-CONTENTS + '(32.5d0 42.73d0 -17.24d0 43.31d0 + -16.12d0 -8.25d0 21.44d0 + -49.08d0))) + (SCALAR -39.66d0)) + (CL-ARRAY (AXPY SCALAR V1 V2))))) + #+fsbv + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(1808.3204 1422.3015) #C(-589.3992 234.75043) + #C(-1673.498 -1451.916) #C(-2599.8237 -1950.9608) + #C(784.81586 -3351.5815) #C(2845.531 -870.5343) + #C(222.45422 1149.8602) #C(-3308.3872 917.76044))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5 8.24) #C(3.29 -8.93) + #C(34.12 -6.15) #C(49.27 -13.49) #C(32.5 42.73) + #C(-17.24 43.31) #C(-16.12 -8.25) #C(21.44 -49.08)))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(32.5 42.73) #C(-17.24 43.31) #C(-16.12 -8.25) + #C(21.44 -49.08) #C(-39.66 -49.46) + #C(19.68 -5.55) #C(-8.82 25.37) + #C(-30.58 31.67)))) + (SCALAR #C(-39.66 -49.46))) + (CL-ARRAY (AXPY SCALAR V1 V2))))) + #+fsbv + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(1808.3204d0 1422.3016000000002d0) + #C(-589.3992d0 234.75039999999998d0) + #C(-1673.4981999999998d0 -1451.9162000000001d0) + #C(-2599.8236d0 -1950.9608000000003d0) + #C(784.8158000000002d0 -3351.5818d0) + #C(2845.5309999999995d0 -870.5342d0) + #C(222.45420000000001d0 1149.8601999999998d0) + #C(-3308.3871999999997d0 917.7603999999995d0))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) + #C(34.12d0 -6.15d0) #C(49.27d0 -13.49d0) + #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0) + #C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0)))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(32.5d0 42.73d0) #C(-17.24d0 43.31d0) + #C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0) + #C(-39.66d0 -49.46d0) #C(19.68d0 -5.55d0) + #C(-8.82d0 25.37d0) #C(-30.58d0 31.67d0)))) + (SCALAR #C(-39.66d0 -49.46d0))) + (CL-ARRAY (AXPY SCALAR V1 V2)))))) diff --git a/tests/blas-copy.lisp b/tests/blas-copy.lisp index 2dda8d0e..51f8eba0 100644 --- a/tests/blas-copy.lisp +++ b/tests/blas-copy.lisp @@ -1,6 +1,6 @@ ;; Regression test BLAS-COPY for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,50 +19,50 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST BLAS-COPY - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(-34.5 8.24 3.29)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(-34.5 8.24 3.29))) - (V2 (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '3))) - (BLAS-COPY V1 V2) - (CL-ARRAY V2)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(-34.5d0 8.24d0 3.29d0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0))) - (V2 (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS '3))) - (BLAS-COPY V1 V2) - (CL-ARRAY V2)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5 8.24 3.29 -8.93 34.12 - -6.15))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :DIMENSIONS '3))) - (BLAS-COPY V1 V2) - (CL-ARRAY V2)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) - #C(34.12d0 -6.15d0))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :DIMENSIONS '3))) - (BLAS-COPY V1 V2) - (CL-ARRAY V2))))) - + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-34.5 8.24 3.29)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS '(-34.5 8.24 3.29))) + (V2 (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '3))) + (BLAS-COPY V1 V2) + (CL-ARRAY V2)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-34.5d0 8.24d0 3.29d0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS '(-34.5d0 8.24d0 3.29d0))) + (V2 (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS '3))) + (BLAS-COPY V1 V2) + (CL-ARRAY V2)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) :DIMENSIONS '3))) + (BLAS-COPY V1 V2) + (CL-ARRAY V2)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) + #C(34.12d0 -6.15d0))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) + #C(34.12d0 -6.15d0)))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) :DIMENSIONS '3))) + (BLAS-COPY V1 V2) + (CL-ARRAY V2))))) diff --git a/tests/blas-swap.lisp b/tests/blas-swap.lisp index deb41a29..28a36abd 100644 --- a/tests/blas-swap.lisp +++ b/tests/blas-swap.lisp @@ -1,6 +1,6 @@ ;; Regression test BLAS-SWAP for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,66 +19,69 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST BLAS-SWAP - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST (LIST #(-8.93 34.12 -6.15) #(-34.5 8.24 3.29))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(-34.5 8.24 3.29))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(-8.93 34.12 -6.15)))) - (BLAS-SWAP V2 V1) - (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - (LIST #(-8.93d0 34.12d0 -6.15d0) - #(-34.5d0 8.24d0 3.29d0))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(-8.93d0 34.12d0 -6.15d0)))) - (BLAS-SWAP V2 V1) - (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - (LIST - #(#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) - #(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5 8.24 3.29 -8.93 34.12 - -6.15))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-8.93 34.12 -6.15 49.27 -13.49 - 32.5)))) - (BLAS-SWAP V2 V1) - (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - (LIST - #(#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) - #C(-13.49d0 32.5d0)) - #(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) - #C(34.12d0 -6.15d0)))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0)))) - (BLAS-SWAP V2 V1) - (LIST (CL-ARRAY V1) (CL-ARRAY V2)))))) - + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST (LIST #(-8.93 34.12 -6.15) #(-34.5 8.24 3.29))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '(-34.5 8.24 3.29))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '(-8.93 34.12 -6.15)))) + (BLAS-SWAP V2 V1) + (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + (LIST #(-8.93d0 34.12d0 -6.15d0) + #(-34.5d0 8.24d0 3.29d0))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '(-34.5d0 8.24d0 3.29d0))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '(-8.93d0 34.12d0 -6.15d0)))) + (BLAS-SWAP V2 V1) + (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + (LIST + #(#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + #(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5))))) + (BLAS-SWAP V2 V1) + (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + (LIST + #(#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) + #C(-13.49d0 32.5d0)) + #(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) + #C(34.12d0 -6.15d0)))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0))))) + (BLAS-SWAP V2 V1) + (LIST (CL-ARRAY V1) (CL-ARRAY V2)))))) diff --git a/tests/cdot.lisp b/tests/cdot.lisp index 0cd8b041..7834112e 100644 --- a/tests/cdot.lisp +++ b/tests/cdot.lisp @@ -1,6 +1,6 @@ ;; Regression test CDOT for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,42 +19,43 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST CDOT - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #C(-1.1684039224427728d28 0.0d0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5 8.24 3.29 -8.93 34.12 - -6.15 49.27 -13.49 32.5 42.73 - -17.24 43.31 -16.12 -8.25 21.44 - -49.08))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(32.5 42.73 -17.24 43.31 -16.12 - -8.25 21.44 -49.08 -39.66 -49.46 - 19.68 -5.55 -8.82 25.37 -30.58 - 31.67)))) - (CDOT V1 V2)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #C(-6252.624d0 -6236.050300000001d0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0 49.27d0 -13.49d0 - 32.5d0 42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0 - -49.08d0))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(32.5d0 42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0 - -49.08d0 -39.66d0 -49.46d0 - 19.68d0 -5.55d0 -8.82d0 25.37d0 - -30.58d0 31.67d0)))) - (CDOT V1 V2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #C(-1.1684039224427728d28 0.0d0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15) + #C(49.27 -13.49) #C(32.5 42.73) + #C(-17.24 43.31) #C(-16.12 -8.25) #C(21.44 -49.08)))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(32.5 42.73) #C(-17.24 43.31) #C(-16.12 -8.25) + #C(21.44 -49.08) #C(-39.66 -49.46) + #C(19.68 -5.55) #C(-8.82 25.37) #C(-30.58 31.67))))) + (CDOT V1 V2)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #C(-6252.624d0 -6236.050300000001d0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) + #C(34.12d0 -6.15d0) #C(49.27d0 -13.49d0) + #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0) + #C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0)))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(32.5d0 42.73d0) #C(-17.24d0 43.31d0) + #C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0) + #C(-39.66d0 -49.46d0) + #C(19.68d0 -5.55d0) #C(-8.82d0 25.37d0) + #C(-30.58d0 31.67d0))))) + (CDOT V1 V2))))) diff --git a/tests/column.lisp b/tests/column.lisp index 10d6eb8f..9ecaebc5 100644 --- a/tests/column.lisp +++ b/tests/column.lisp @@ -1,6 +1,6 @@ ;; Regression test COLUMN for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,236 +19,175 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST COLUMN - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(8.24 34.12 -13.49)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5)))) - (COL (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '3))) - (CL-ARRAY (COLUMN M1 1 COL))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(8.24d0 34.12d0 -13.49d0)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0)))) - (COL (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS '3))) - (CL-ARRAY (COLUMN M1 1 COL))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(#C(3.29 -8.93) #C(-6.15 49.27) #C(32.5 42.73))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :DIMENSIONS '3))) - (CL-ARRAY (COLUMN M1 1 COL))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(3.29d0 -8.93d0) #C(-6.15d0 49.27d0) - #C(32.5d0 42.73d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :DIMENSIONS '3))) - (CL-ARRAY (COLUMN M1 1 COL))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-68 52 -5)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 8) - :INITIAL-CONTENTS - '((-64 -68 - 71) - (-91 52 - -10) - (73 -5 - 123)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 8) - :DIMENSIONS - '3))) - (CL-ARRAY - (COLUMN M1 - 1 COL))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(44 163 215)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 8) - :INITIAL-CONTENTS - '((67 44 - 189) - (116 163 - 140) - (161 215 - 98)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 8) - :DIMENSIONS - '3))) - (CL-ARRAY - (COLUMN M1 - 1 COL))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-68 52 -5)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 16) - :INITIAL-CONTENTS - '((-64 -68 - 71) - (-91 52 - -10) - (73 -5 - 123)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 16) - :DIMENSIONS - '3))) - (CL-ARRAY - (COLUMN M1 - 1 COL))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(44 163 215)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 16) - :INITIAL-CONTENTS - '((67 44 - 189) - (116 163 - 140) - (161 215 - 98)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 16) - :DIMENSIONS - '3))) - (CL-ARRAY - (COLUMN M1 - 1 COL))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-68 52 -5)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 32) - :INITIAL-CONTENTS - '((-64 -68 - 71) - (-91 52 - -10) - (73 -5 - 123)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 32) - :DIMENSIONS - '3))) - (CL-ARRAY - (COLUMN M1 - 1 COL))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(44 163 215)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 32) - :INITIAL-CONTENTS - '((67 44 - 189) - (116 163 - 140) - (161 215 - 98)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 32) - :DIMENSIONS - '3))) - (CL-ARRAY - (COLUMN M1 - 1 COL))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-68 52 -5)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 64) - :INITIAL-CONTENTS - '((-64 -68 - 71) - (-91 52 - -10) - (73 -5 - 123)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 64) - :DIMENSIONS - '3))) - (CL-ARRAY - (COLUMN M1 - 1 COL))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(44 163 215)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 64) - :INITIAL-CONTENTS - '((67 44 - 189) - (116 163 - 140) - (161 215 - 98)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 64) - :DIMENSIONS - '3))) - (CL-ARRAY - (COLUMN M1 - 1 COL)))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(8.24 34.12 -13.49)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5)))) + (COL (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '3))) + (CL-ARRAY (COLUMN M1 1 COL))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(8.24d0 34.12d0 -13.49d0)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0)))) + (COL (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS '3))) + (CL-ARRAY (COLUMN M1 1 COL))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(#C(3.29 -8.93) #C(-6.15 49.27) #C(32.5 42.73))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31))))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) :DIMENSIONS '3))) + (CL-ARRAY (COLUMN M1 1 COL))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(3.29d0 -8.93d0) #C(-6.15d0 49.27d0) + #C(32.5d0 42.73d0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0))))) + (COL + (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) :DIMENSIONS '3))) + (CL-ARRAY (COLUMN M1 1 COL))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-68 52 -5)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) + :INITIAL-CONTENTS + '((-64 -68 71) + (-91 52 -10) + (73 -5 123)))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) + :DIMENSIONS '3))) + (CL-ARRAY (COLUMN M1 1 COL))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(44 163 215)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS + '((67 44 189) + (116 163 140) + (161 215 98)))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :DIMENSIONS '3))) + (CL-ARRAY (COLUMN M1 1 COL))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-68 52 -5)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) + :INITIAL-CONTENTS + '((-64 -68 71) + (-91 52 -10) + (73 -5 123)))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) :DIMENSIONS '3))) + (CL-ARRAY (COLUMN M1 1 COL))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(44 163 215)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS + '((67 44 189) + (116 163 140) + (161 215 98)))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) + :DIMENSIONS '3))) + (CL-ARRAY (COLUMN M1 1 COL))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-68 52 -5)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 32) + :INITIAL-CONTENTS + '((-64 -68 71) + (-91 52 -10) + (73 -5 123)))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 32) :DIMENSIONS '3))) + (CL-ARRAY (COLUMN M1 1 COL))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(44 163 215)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS + '((67 44 189) + (116 163 140) + (161 215 98)))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 32) :DIMENSIONS '3))) + (CL-ARRAY (COLUMN M1 1 COL))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-68 52 -5)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) + :INITIAL-CONTENTS + '((-64 -68 71) + (-91 52 -10) + (73 -5 123)))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) + :DIMENSIONS '3))) + (CL-ARRAY (COLUMN M1 1 COL))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(44 163 215)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS + '((67 44 189) + (116 163 140) + (161 215 98)))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 64) + :DIMENSIONS '3))) + (CL-ARRAY (COLUMN M1 1 COL)))))) diff --git a/tests/covariance.lisp b/tests/covariance.lisp index b9f33c4d..16b5f83d 100644 --- a/tests/covariance.lisp +++ b/tests/covariance.lisp @@ -1,6 +1,6 @@ ;; Regression test COVARIANCE for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -24,10 +24,10 @@ (MULTIPLE-VALUE-LIST (LET ((V1 (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(-34.5 8.24 3.29))) + '(-34.5 8.24 3.29))) (V2 (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(-8.93 34.12 -6.15)))) + '(-8.93 34.12 -6.15)))) (LET ((MEAN1 (MEAN V1)) (MEAN2 (MEAN V2))) (COVARIANCE V1 V2 MEAN1 MEAN2))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL @@ -35,10 +35,10 @@ (MULTIPLE-VALUE-LIST (LET ((V1 (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0))) + '(-34.5d0 8.24d0 3.29d0))) (V2 (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(-8.93d0 34.12d0 -6.15d0)))) + '(-8.93d0 34.12d0 -6.15d0)))) (LET ((MEAN1 (MEAN V1)) (MEAN2 (MEAN V2))) (COVARIANCE V1 V2 MEAN1 MEAN2))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL @@ -46,10 +46,10 @@ (MULTIPLE-VALUE-LIST (LET ((V1 (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '(-64 -68 71))) + '(-64 -68 71))) (V2 (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '(-91 52 -10)))) + '(-91 52 -10)))) (LET ((MEAN1 (MEAN V1)) (MEAN2 (MEAN V2))) (COVARIANCE V1 V2 MEAN1 MEAN2))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL @@ -66,9 +66,9 @@ (MULTIPLE-VALUE-LIST (LET ((V1 (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS '(-64 -68 71))) + :INITIAL-CONTENTS '(-64 -68 71))) (V2 (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS '(-91 52 -10)))) + :INITIAL-CONTENTS '(-91 52 -10)))) (LET ((MEAN1 (MEAN V1)) (MEAN2 (MEAN V2))) (COVARIANCE V1 V2 MEAN1 MEAN2))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL @@ -96,10 +96,10 @@ (MULTIPLE-VALUE-LIST (LET ((V1 (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS '(-64 -68 71))) + :INITIAL-CONTENTS '(-64 -68 71))) (V2 (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS '(-91 52 -10)))) + :INITIAL-CONTENTS '(-91 52 -10)))) (LET ((MEAN1 (MEAN V1)) (MEAN2 (MEAN V2))) (COVARIANCE V1 V2 MEAN1 MEAN2))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL @@ -116,10 +116,10 @@ (MULTIPLE-VALUE-LIST (LET ((V1 (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS '(-64 -68 71))) + :INITIAL-CONTENTS '(-64 -68 71))) (V2 (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS '(-91 52 -10)))) + :INITIAL-CONTENTS '(-91 52 -10)))) (LET ((MEAN1 (MEAN V1)) (MEAN2 (MEAN V2))) (COVARIANCE V1 V2 MEAN1 MEAN2))))) #+int64 diff --git a/tests/dot.lisp b/tests/dot.lisp index dce03a31..52ea38f2 100644 --- a/tests/dot.lisp +++ b/tests/dot.lisp @@ -19,80 +19,72 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST DOT - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 6.5285645) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - 'SINGLE-FLOAT - :INITIAL-CONTENTS - '(-34.5 8.24 - 3.29 -8.93 - 34.12 - -6.15 - 49.27 - -13.49))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY - 'SINGLE-FLOAT - :INITIAL-CONTENTS - '(32.5 42.73 - -17.24 - 43.31 - -16.12 - -8.25 - 21.44 - -49.08)))) - (DOT V1 V2)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST 6.528400000000033d0) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0 49.27d0 - -13.49d0))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(32.5d0 42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0 - -49.08d0)))) - (DOT V1 V2)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #C(-8.778225633844878d26 0.0d0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5 8.24 3.29 -8.93 34.12 - -6.15 49.27 -13.49 32.5 42.73 - -17.24 43.31 -16.12 -8.25 21.44 - -49.08))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(32.5 42.73 -17.24 43.31 -16.12 - -8.25 21.44 -49.08 -39.66 -49.46 - 19.68 -5.55 -8.82 25.37 -30.58 - 31.67)))) - (DOT V1 V2)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #C(625.9736000000007d0 -4310.1183d0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0 49.27d0 -13.49d0 - 32.5d0 42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0 - -49.08d0))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(32.5d0 42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0 - -49.08d0 -39.66d0 -49.46d0 - 19.68d0 -5.55d0 -8.82d0 25.37d0 - -30.58d0 31.67d0)))) - (DOT V1 V2))))) - + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST 6.5285645) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS + '(-34.5 8.24 3.29 -8.93 34.12 -6.15 49.27 -13.49))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS + '(32.5 42.73 -17.24 43.31 -16.12 -8.25 21.44 -49.08)))) + (DOT V1 V2)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST 6.528400000000033d0) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '(-34.5d0 8.24d0 3.29d0 -8.93d0 + 34.12d0 -6.15d0 49.27d0 + -13.49d0))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '(32.5d0 42.73d0 -17.24d0 43.31d0 + -16.12d0 -8.25d0 21.44d0 + -49.08d0)))) + (DOT V1 V2)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #C(-8.778225633844878d26 0.0d0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15) + #C(49.27 -13.49) #C(32.5 42.73) + #C(-17.24 43.31) #C(-16.12 -8.25) #C(21.44 -49.08)))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(32.5 42.73) #C(-17.24 43.31) #C(-16.12 -8.25) + #C(21.44 -49.08) #C(-39.66 -49.46) + #C(19.68 -5.55) #C(-8.82 25.37) #C(-30.58 31.67))))) + (DOT V1 V2)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #C(625.9736000000007d0 -4310.1183d0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) + #C(34.12d0 -6.15d0) #C(49.27d0 -13.49d0) + #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0) + #C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0)))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(32.5d0 42.73d0) #C(-17.24d0 43.31d0) + #C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0) + #C(-39.66d0 -49.46d0) + #C(19.68d0 -5.55d0) #C(-8.82d0 25.37d0) + #C(-30.58d0 31.67d0))))) + (DOT V1 V2))))) diff --git a/tests/euclidean-norm.lisp b/tests/euclidean-norm.lisp index 5d91e528..fcee147a 100644 --- a/tests/euclidean-norm.lisp +++ b/tests/euclidean-norm.lisp @@ -1,6 +1,6 @@ ;; Regression test EUCLIDEAN-NORM for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,61 +19,45 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST EUCLIDEAN-NORM - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 71.83472) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - 'SINGLE-FLOAT - :INITIAL-CONTENTS - '(-34.5 8.24 - 3.29 -8.93 - 34.12 - -6.15 - 49.27 - -13.49)))) - (EUCLIDEAN-NORM - V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST 71.83471653734007d0) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0 49.27d0 - -13.49d0)))) - (EUCLIDEAN-NORM V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 115.80907) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - '(COMPLEX - SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5 8.24 - 3.29 -8.93 - 34.12 - -6.15 - 49.27 - -13.49 - 32.5 42.73 - -17.24 - 43.31 - -16.12 - -8.25 - 21.44 - -49.08)))) - (EUCLIDEAN-NORM - V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST 115.8090670025452d0) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0 49.27d0 -13.49d0 - 32.5d0 42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0 - -49.08d0)))) - (EUCLIDEAN-NORM V1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST 71.83472) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS + '(-34.5 8.24 3.29 -8.93 34.12 -6.15 49.27 -13.49)))) + (EUCLIDEAN-NORM V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST 71.83471653734007d0) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '(-34.5d0 8.24d0 3.29d0 -8.93d0 34.12d0 -6.15d0 49.27d0 -13.49d0)))) + (EUCLIDEAN-NORM V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST 115.80907) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5 8.24) #C(3.29 -8.93) + #C(34.12 -6.15) #C(49.27 -13.49) + #C(32.5 42.73) #C(-17.24 43.31) + #C(-16.12 -8.25) #C(21.44 -49.08))))) + (EUCLIDEAN-NORM V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST 115.8090670025452d0) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) + #C(34.12d0 -6.15d0) #C(49.27d0 -13.49d0) + #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0) + #C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0))))) + (EUCLIDEAN-NORM V1))))) diff --git a/tests/givens.lisp b/tests/givens.lisp index 4903be72..ef781a3b 100644 --- a/tests/givens.lisp +++ b/tests/givens.lisp @@ -43,9 +43,9 @@ (COSINES (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '8))) (LOOP FOR I BELOW 8 DO - (SETF (MAREF SINES I) (SIN (MAREF ANGLES I))) - (SETF (MAREF COSINES I) - (COS (MAREF ANGLES I)))) + (SETF (GRID:GREF SINES I) (SIN (GRID:GREF ANGLES I))) + (SETF (GRID:GREF COSINES I) + (COS (GRID:GREF ANGLES I)))) (GIVENS-ROTATION V1 V2 COSINES SINES) (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL @@ -76,9 +76,9 @@ (COSINES (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS '8))) (LOOP FOR I BELOW 8 DO - (SETF (MAREF SINES I) (SIN (MAREF ANGLES I))) - (SETF (MAREF COSINES I) - (COS (MAREF ANGLES I)))) + (SETF (GRID:GREF SINES I) (SIN (GRID:GREF ANGLES I))) + (SETF (GRID:GREF COSINES I) + (COS (GRID:GREF ANGLES I)))) (GIVENS-ROTATION V1 V2 COSINES SINES) (LIST (CL-ARRAY V1) (CL-ARRAY V2)))))) diff --git a/tests/hankel.lisp b/tests/hankel.lisp index 66fc52a6..95ef9c18 100644 --- a/tests/hankel.lisp +++ b/tests/hankel.lisp @@ -116,7 +116,7 @@ (LET ((HANK (MAKE-HANKEL 128 0.0d0 100.0d0)) (IN (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 128))) (LOOP FOR N FROM 0 BELOW 128 DO - (SETF (MAREF IN N) + (SETF (GRID:GREF IN N) (/ (1+ (EXPT (SAMPLE-X-HANKEL HANK N) @@ -192,7 +192,7 @@ (LET ((HANK (MAKE-HANKEL 128 1.0d0 20.0d0)) (IN (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 128))) (LOOP FOR N FROM 0 BELOW 128 DO - (SETF (MAREF IN N) + (SETF (GRID:GREF IN N) (EXP (- (SAMPLE-X-HANKEL HANK N))))) (COPY (APPLY-HANKEL HANK IN) 'ARRAY)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL @@ -265,7 +265,7 @@ (LET ((HANK (MAKE-HANKEL 128 1.0d0 1.0d0)) (IN (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS 128))) (LOOP FOR N FROM 0 BELOW 128 DO - (SETF (MAREF IN N) + (SETF (GRID:GREF IN N) (LET ((X (SAMPLE-X-HANKEL HANK N))) (* X (- 1 (EXPT X 2)))))) (COPY (APPLY-HANKEL HANK IN) 'ARRAY))))) diff --git a/tests/histogram.lisp b/tests/histogram.lisp index 677b6b56..d832eb4e 100644 --- a/tests/histogram.lisp +++ b/tests/histogram.lisp @@ -39,7 +39,7 @@ (INCREMENT HISTO 6.9d0 2.0d0) - (MAREF HISTO 1)))) + (GRID:GREF HISTO 1)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 1.0d0) (MULTIPLE-VALUE-LIST (LET ((HISTO @@ -53,7 +53,7 @@ (INCREMENT HISTO 6.9d0 2.0d0) - (MAREF HISTO 2)))) + (GRID:GREF HISTO 2)))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 2.0d0) (MULTIPLE-VALUE-LIST (LET ((HISTO @@ -67,7 +67,7 @@ (INCREMENT HISTO 6.9d0 2.0d0) - (MAREF HISTO 6)))) + (GRID:GREF HISTO 6)))) (LISP-UNIT:ASSERT-ERROR 'INPUT-DOMAIN (LET ((HISTO (MAKE-HISTOGRAM 10))) @@ -76,7 +76,7 @@ 10.0d0) (INCREMENT HISTO 2.7d0) (INCREMENT HISTO 6.9d0 2.0d0) - (MAREF HISTO 16))) + (GRID:GREF HISTO 16))) (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 0.0d0 10.0d0) (MULTIPLE-VALUE-LIST (LET ((HISTO diff --git a/tests/index-max.lisp b/tests/index-max.lisp index ac18040f..07520444 100644 --- a/tests/index-max.lisp +++ b/tests/index-max.lisp @@ -1,6 +1,6 @@ ;; Regression test INDEX-MAX for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,77 +19,49 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST INDEX-MAX - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 6) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - 'SINGLE-FLOAT - :INITIAL-CONTENTS - '(-34.5 8.24 - 3.29 -8.93 - 34.12 - -6.15 - 49.27 - -13.49)))) - (INDEX-MAX V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 6) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - 'DOUBLE-FLOAT - :INITIAL-CONTENTS - '(-34.5d0 - 8.24d0 - 3.29d0 - -8.93d0 - 34.12d0 - -6.15d0 - 49.27d0 - -13.49d0)))) - (INDEX-MAX V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 4) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - '(COMPLEX - SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5 8.24 - 3.29 -8.93 - 34.12 - -6.15 - 49.27 - -13.49 - 32.5 42.73 - -17.24 - 43.31 - -16.12 - -8.25 - 21.44 - -49.08)))) - (INDEX-MAX V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST 4) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - '(COMPLEX - DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5d0 - 8.24d0 - 3.29d0 - -8.93d0 - 34.12d0 - -6.15d0 - 49.27d0 - -13.49d0 - 32.5d0 - 42.73d0 - -17.24d0 - 43.31d0 - -16.12d0 - -8.25d0 - 21.44d0 - -49.08d0)))) - (INDEX-MAX V1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST 6) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS + '(-34.5 8.24 3.29 -8.93 34.12 -6.15 49.27 -13.49)))) + (INDEX-MAX V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST 6) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT + :INITIAL-CONTENTS + '(-34.5d0 8.24d0 3.29d0 -8.93d0 34.12d0 -6.15d0 49.27d0 -13.49d0)))) + (INDEX-MAX V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST 4) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15) + #C(49.27 -13.49) #C(32.5 42.73) + #C(-17.24 43.31) #C(-16.12 -8.25) #C(21.44 -49.08))))) + (INDEX-MAX V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST 4) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5d0 8.24d0) + #C(3.29d0 -8.93d0) + #C(34.12d0 -6.15d0) + #C(49.27d0 -13.49d0) + #C(32.5d0 42.73d0) + #C(-17.24d0 43.31d0) + #C(-16.12d0 -8.25d0) + #C(21.44d0 -49.08d0))))) + (INDEX-MAX V1))))) diff --git a/tests/inverse-matrix-product.lisp b/tests/inverse-matrix-product.lisp index 6a7d1b56..3949bdb7 100644 --- a/tests/inverse-matrix-product.lisp +++ b/tests/inverse-matrix-product.lisp @@ -1,6 +1,6 @@ ;; Regression test INVERSE-MATRIX-PRODUCT for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,177 +19,172 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST INVERSE-MATRIX-PRODUCT - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((-30.708971 5.3737082 -25.897392) - (-14.654706 -9.08723 6.96797) - (-29.71983 -24.015656 -29.949932))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((42.73 -17.24 43.31) - (-16.12 -8.25 21.44) - (-49.08 -39.66 -49.46)))) - (S1 19.68)) - (CL-ARRAY (INVERSE-MATRIX-PRODUCT M1 M2 S1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((-30.708968222785604d0 5.373707833953741d0 - -25.89739157520614d0) - (-14.654705167282895d0 -9.087229795292632d0 - 6.967969411128146d0) - (-29.71982769230769d0 -24.015655384615382d0 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((-30.708971 5.3737082 -25.897392) + (-14.654706 -9.08723 6.96797) + (-29.71983 -24.015656 -29.949932))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '((42.73 -17.24 43.31) + (-16.12 -8.25 21.44) + (-49.08 -39.66 -49.46)))) + (S1 19.68)) + (CL-ARRAY (INVERSE-MATRIX-PRODUCT M1 M2 S1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((-30.708968222785604d0 5.373707833953741d0 + -25.89739157520614d0) + (-14.654705167282895d0 -9.087229795292632d0 + 6.967969411128146d0) + (-29.71982769230769d0 -24.015655384615382d0 -29.949932307692308d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((42.73d0 -17.24d0 43.31d0) - (-16.12d0 -8.25d0 21.44d0) - (-49.08d0 -39.66d0 -49.46d0)))) - (S1 19.68d0)) - (CL-ARRAY (INVERSE-MATRIX-PRODUCT M1 M2 S1))))) - #+fsbv - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(-28.191956 35.052914) #C(-13.378113 28.736774) - #C(5.4411864 -3.0717967)) - (#C(5.1555862 -11.330741) #C(-33.49236 -12.241006) - #C(-10.527424 20.3357)) - (#C(-0.71776515 27.669863) #C(20.046593 11.972884) - #C(-1.5907472 4.2853727)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((42.73 -17.24 43.31 -16.12 -8.25 - 21.44) - (-16.12 -8.25 21.44 -49.08 - -39.66 -49.46) - (-49.08 -39.66 -49.46 19.68 - -5.55 -8.82)))) - (S1 #C(19.68 -5.55))) - (CL-ARRAY (INVERSE-MATRIX-PRODUCT M1 M2 S1))))) - #+fsbv - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(-28.191956546692666d0 35.052909000810466d0) - #C(-13.378112744466048d0 28.736769449657892d0) - #C(5.441186078394205d0 -3.071795512940909d0)) - (#C(5.155586147762611d0 -11.330740389402608d0) - #C(-33.49236130612107d0 -12.241006594989193d0) - #C(-10.527425621635187d0 20.33570209413866d0)) - (#C(-0.7177649743298794d0 27.669860728641122d0) - #C(20.046591997869093d0 11.972882797431007d0) - #C(-1.590747546093172d0 4.285372608973592d0)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0) - (-16.12d0 -8.25d0 21.44d0 - -49.08d0 -39.66d0 -49.46d0) - (-49.08d0 -39.66d0 -49.46d0 - 19.68d0 -5.55d0 -8.82d0)))) - (S1 #C(19.68d0 -5.55d0))) - (CL-ARRAY (INVERSE-MATRIX-PRODUCT M1 M2 S1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(-1.1747805 -0.26507667 1.3326154)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5)))) - (V1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(42.73 -17.24 43.31))) - (S1 -16.12)) - (CL-ARRAY (INVERSE-MATRIX-PRODUCT M1 V1 S1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(-1.1747804927980594d0 -0.26507665253855167d0 - 1.3326153846153848d0)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0)))) - (V1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(42.73d0 -17.24d0 43.31d0))) - (S1 -16.12d0)) - (CL-ARRAY (INVERSE-MATRIX-PRODUCT M1 V1 S1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(-1.1218005 0.24990065) #C(-0.7679142 -0.9143634) - #C(0.4927793 -0.0056687724))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31)))) - (V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(42.73 -17.24 43.31 -16.12 -8.25 - 21.44))) - (S1 #C(-16.12 -8.25))) - (CL-ARRAY (INVERSE-MATRIX-PRODUCT M1 V1 S1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(-1.1218005239477833d0 0.2499006037347623d0) - #C(-0.7679142088967384d0 -0.9143634017568469d0) - #C(0.49277927293827817d0 -0.005668775466541512d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0)))) - (V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0))) - (S1 #C(-16.12d0 -8.25d0))) - (CL-ARRAY (INVERSE-MATRIX-PRODUCT M1 V1 S1)))))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((42.73d0 -17.24d0 43.31d0) + (-16.12d0 -8.25d0 21.44d0) + (-49.08d0 -39.66d0 -49.46d0)))) + (S1 19.68d0)) + (CL-ARRAY (INVERSE-MATRIX-PRODUCT M1 M2 S1))))) + #+fsbv + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(-28.191956 35.052914) #C(-13.378113 28.736774) + #C(5.4411864 -3.0717967)) + (#C(5.1555862 -11.330741) #C(-33.49236 -12.241006) + #C(-10.527424 20.3357)) + (#C(-0.71776515 27.669863) #C(20.046593 11.972884) + #C(-1.5907472 4.2853727)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31))))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(42.73 -17.24) #C(43.31 -16.12) #C(-8.25 21.44)) + (#C(-16.12 -8.25) #C(21.44 -49.08) #C(-39.66 -49.46)) + (#C(-49.08 -39.66) #C(-49.46 19.68) #C(-5.55 -8.82))))) + (S1 #C(19.68 -5.55))) + (CL-ARRAY (INVERSE-MATRIX-PRODUCT M1 M2 S1))))) + #+fsbv + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(-28.191956546692666d0 35.052909000810466d0) + #C(-13.378112744466048d0 28.736769449657892d0) + #C(5.441186078394205d0 -3.071795512940909d0)) + (#C(5.155586147762611d0 -11.330740389402608d0) + #C(-33.49236130612107d0 -12.241006594989193d0) + #C(-10.527425621635187d0 20.33570209413866d0)) + (#C(-0.7177649743298794d0 27.669860728641122d0) + #C(20.046591997869093d0 11.972882797431007d0) + #C(-1.590747546093172d0 4.285372608973592d0)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0))))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(42.73d0 -17.24d0) #C(43.31d0 -16.12d0) #C(-8.25d0 21.44d0)) + (#C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0) #C(-39.66d0 -49.46d0)) + (#C(-49.08d0 -39.66d0) #C(-49.46d0 19.68d0) #C(-5.55d0 -8.82d0))))) + (S1 #C(19.68d0 -5.55d0))) + (CL-ARRAY (INVERSE-MATRIX-PRODUCT M1 M2 S1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-1.1747805 -0.26507667 1.3326154)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5)))) + (V1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '(42.73 -17.24 43.31))) + (S1 -16.12)) + (CL-ARRAY (INVERSE-MATRIX-PRODUCT M1 V1 S1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(-1.1747804927980594d0 -0.26507665253855167d0 + 1.3326153846153848d0)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0)))) + (V1 + (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS + '(42.73d0 -17.24d0 43.31d0))) + (S1 -16.12d0)) + (CL-ARRAY (INVERSE-MATRIX-PRODUCT M1 V1 S1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(-1.1218005 0.24990065) #C(-0.7679142 -0.9143634) + #C(0.4927793 -0.0056687724))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31))))) + (V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(42.73 -17.24) #C(43.31 -16.12) #C(-8.25 21.44)))) + (S1 #C(-16.12 -8.25))) + (CL-ARRAY (INVERSE-MATRIX-PRODUCT M1 V1 S1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(-1.1218005239477833d0 0.2499006037347623d0) + #C(-0.7679142088967384d0 -0.9143634017568469d0) + #C(0.49277927293827817d0 -0.005668775466541512d0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0))))) + (V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(42.73d0 -17.24d0) #C(43.31d0 -16.12d0) #C(-8.25d0 21.44d0)))) + (S1 #C(-16.12d0 -8.25d0))) + (CL-ARRAY (INVERSE-MATRIX-PRODUCT M1 V1 S1)))))) diff --git a/tests/matrix-product-hermitian.lisp b/tests/matrix-product-hermitian.lisp index d58d6cec..39712734 100644 --- a/tests/matrix-product-hermitian.lisp +++ b/tests/matrix-product-hermitian.lisp @@ -1,6 +1,6 @@ ;; Regression test MATRIX-PRODUCT-HERMITIAN for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -20,144 +20,128 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST MATRIX-PRODUCT-HERMITIAN - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(161635.16 -134299.77) #C(93510.016 -191870.72) - #C(55739.336 13621.439)) - (#C(-68526.41 125188.29) #C(46318.242 59787.605) - #C(-28142.984 5816.9385)) - (#C(-139503.38 55690.902) #C(2898.8164 49116.78) - #C(-57882.3 -176350.63)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((42.73 -17.24 43.31 -16.12 -8.25 - 21.44) - (-16.12 -8.25 21.44 -49.08 - -39.66 -49.46) - (-49.08 -39.66 -49.46 19.68 - -5.55 -8.82)))) - (M3 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((19.68 -5.55 -8.82 25.37 -30.58 - 31.67) - (25.37 -30.58 31.67 29.36 -33.24 - -27.03) - (29.36 -33.24 -27.03 -41.67 42.0 - -20.81)))) - (S1 #C(-41.67 42.0)) - (S2 #C(42.0 -20.81))) - (CL-ARRAY - (MATRIX-PRODUCT-HERMITIAN M1 M2 M3 S1 S2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(161635.17690299999d0 -134299.761873d0) - #C(93510.01525000001d0 -191870.723694d0) - #C(55739.340844000006d0 13621.441385000013d0)) - (#C(-68526.41140699999d0 125188.28846599998d0) - #C(46318.25349699999d0 59787.61715899999d0) - #C(-28142.984856000003d0 5816.936996999999d0)) - (#C(-139503.391422d0 55690.900627999996d0) - #C(2898.816300000017d0 49116.78897299998d0) - #C(-57882.29909799999d0 -176350.62442500002d0)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0) - (-16.12d0 -8.25d0 21.44d0 - -49.08d0 -39.66d0 -49.46d0) - (-49.08d0 -39.66d0 -49.46d0 - 19.68d0 -5.55d0 -8.82d0)))) - (M3 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((19.68d0 -5.55d0 -8.82d0 25.37d0 - -30.58d0 31.67d0) - (25.37d0 -30.58d0 31.67d0 - 29.36d0 -33.24d0 -27.03d0) - (29.36d0 -33.24d0 -27.03d0 - -41.67d0 42.0d0 -20.81d0)))) - (S1 #C(-41.67d0 42.0d0)) - (S2 #C(42.0d0 -20.81d0))) - (CL-ARRAY - (MATRIX-PRODUCT-HERMITIAN M1 M2 M3 S1 S2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(117171.67 19582.54) #C(18787.117 29534.742) - #C(-104992.03 72729.13))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31)))) - (V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(42.73 -17.24 43.31 -16.12 -8.25 - 21.44))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-16.12 -8.25 21.44 -49.08 -39.66 - -49.46))) - (S1 #C(-49.08 -39.66)) - (S2 #C(-39.66 -49.46))) - (CL-ARRAY - (MATRIX-PRODUCT-HERMITIAN M1 V1 V2 S1 S2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(117171.67150799997d0 19582.539385999997d0) - #C(18787.113150000005d0 29534.74247000001d0) - #C(-104992.03586199998d0 72729.12516600001d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0)))) - (V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-16.12d0 -8.25d0 21.44d0 - -49.08d0 -39.66d0 -49.46d0))) - (S1 #C(-49.08d0 -39.66d0)) - (S2 #C(-39.66d0 -49.46d0))) - (CL-ARRAY - (MATRIX-PRODUCT-HERMITIAN M1 V1 V2 S1 S2)))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(161635.16 -134299.77) #C(93510.016 -191870.72) + #C(55739.336 13621.439)) + (#C(-68526.41 125188.29) #C(46318.242 59787.605) + #C(-28142.984 5816.9385)) + (#C(-139503.38 55690.902) #C(2898.8164 49116.78) + #C(-57882.3 -176350.63)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31))))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(42.73 -17.24) #C(43.31 -16.12) #C(-8.25 21.44)) + (#C(-16.12 -8.25) #C(21.44 -49.08) #C(-39.66 -49.46)) + (#C(-49.08 -39.66) #C(-49.46 19.68) #C(-5.55 -8.82))))) + (M3 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(19.68 -5.55) #C(-8.82 25.37) #C(-30.58 31.67)) + (#C(25.37 -30.58) #C(31.67 29.36) #C(-33.24 -27.03)) + (#C(29.36 -33.24) #C(-27.03 -41.67) #C(42.0 -20.81))))) + (S1 #C(-41.67 42.0)) + (S2 #C(42.0 -20.81))) + (CL-ARRAY + (MATRIX-PRODUCT-HERMITIAN M1 M2 M3 S1 S2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(161635.17690299999d0 -134299.761873d0) + #C(93510.01525000001d0 -191870.723694d0) + #C(55739.340844000006d0 13621.441385000013d0)) + (#C(-68526.41140699999d0 125188.28846599998d0) + #C(46318.25349699999d0 59787.61715899999d0) + #C(-28142.984856000003d0 5816.936996999999d0)) + (#C(-139503.391422d0 55690.900627999996d0) + #C(2898.816300000017d0 49116.78897299998d0) + #C(-57882.29909799999d0 -176350.62442500002d0)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0))))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(42.73d0 -17.24d0) #C(43.31d0 -16.12d0) #C(-8.25d0 21.44d0)) + (#C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0) #C(-39.66d0 -49.46d0)) + (#C(-49.08d0 -39.66d0) #C(-49.46d0 19.68d0) #C(-5.55d0 -8.82d0))))) + (M3 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(19.68d0 -5.55d0) #C(-8.82d0 25.37d0) #C(-30.58d0 31.67d0)) + (#C(25.37d0 -30.58d0) #C(31.67d0 29.36d0) #C(-33.24d0 -27.03d0)) + (#C(29.36d0 -33.24d0) #C(-27.03d0 -41.67d0) #C(42.0d0 -20.81d0))))) + (S1 #C(-41.67d0 42.0d0)) + (S2 #C(42.0d0 -20.81d0))) + (CL-ARRAY + (MATRIX-PRODUCT-HERMITIAN M1 M2 M3 S1 S2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(117171.67 19582.54) #C(18787.117 29534.742) + #C(-104992.03 72729.13))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31))))) + (V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(42.73 -17.24) #C(43.31 -16.12) #C(-8.25 21.44)))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-16.12 -8.25) #C(21.44 -49.08) #C(-39.66 -49.46)))) + (S1 #C(-49.08 -39.66)) + (S2 #C(-39.66 -49.46))) + (CL-ARRAY + (MATRIX-PRODUCT-HERMITIAN M1 V1 V2 S1 S2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(117171.67150799997d0 19582.539385999997d0) + #C(18787.113150000005d0 29534.74247000001d0) + #C(-104992.03586199998d0 72729.12516600001d0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0))))) + (V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(42.73d0 -17.24d0) #C(43.31d0 -16.12d0) #C(-8.25d0 21.44d0)))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0) #C(-39.66d0 -49.46d0)))) + (S1 #C(-49.08d0 -39.66d0)) + (S2 #C(-39.66d0 -49.46d0))) + (CL-ARRAY + (MATRIX-PRODUCT-HERMITIAN M1 V1 V2 S1 S2)))))) diff --git a/tests/matrix-product-nonsquare.lisp b/tests/matrix-product-nonsquare.lisp index 82f83388..aa30b3c0 100644 --- a/tests/matrix-product-nonsquare.lisp +++ b/tests/matrix-product-nonsquare.lisp @@ -1,6 +1,6 @@ ;; Regression test MATRIX-PRODUCT-NONSQUARE for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,78 +19,79 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST MATRIX-PRODUCT-NONSQUARE - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-1488.7347 959.9901) (774.94495 1312.0566))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((49.27 -13.49) (32.5 42.73) - (-17.24 43.31))))) - (CL-ARRAY (MATRIX-PRODUCT M1 M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((-1488.7346d0 959.9901d0) - (774.9448999999998d0 1312.0567999999996d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((49.27d0 -13.49d0) - (32.5d0 42.73d0) - (-17.24d0 43.31d0))))) - (CL-ARRAY (MATRIX-PRODUCT M1 M2))))) - #+fsbv - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(-1422.0259 2305.5098) - #C(-1744.0583 -1092.294)) - (#C(-3459.892 1995.4918) - #C(-3290.4465 -801.0577)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((49.27 -13.49 32.5 42.73) - (32.5 42.73 -17.24 43.31) - (-17.24 43.31 -16.12 -8.25))))) - (CL-ARRAY (MATRIX-PRODUCT M1 M2))))) - #+fsbv - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(-1422.0258d0 2305.5097000000005d0) - #C(-1744.0584d0 -1092.2939d0)) - (#C(-3459.8918d0 1995.4917d0) - #C(-3290.4465d0 -801.0577000000002d0)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((49.27d0 -13.49d0 32.5d0 - 42.73d0) - (32.5d0 42.73d0 -17.24d0 - 43.31d0) - (-17.24d0 43.31d0 -16.12d0 - -8.25d0))))) - (CL-ARRAY (MATRIX-PRODUCT M1 M2)))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-1488.7347 959.9901) (774.94495 1312.0566))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '((49.27 -13.49) (32.5 42.73) + (-17.24 43.31))))) + (CL-ARRAY (MATRIX-PRODUCT M1 M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((-1488.7346d0 959.9901d0) + (774.9448999999998d0 1312.0567999999996d0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((49.27d0 -13.49d0) + (32.5d0 42.73d0) + (-17.24d0 43.31d0))))) + (CL-ARRAY (MATRIX-PRODUCT M1 M2))))) + #+fsbv + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(-1422.0259 2305.5098) + #C(-1744.0583 -1092.294)) + (#C(-3459.892 1995.4918) + #C(-3290.4465 -801.0577)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5))))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(49.27 -13.49) #C(32.5 42.73)) + (#C(32.5 42.73) #C(-17.24 43.31)) + (#C(-17.24 43.31) #C(-16.12 -8.25)))))) + (CL-ARRAY (MATRIX-PRODUCT M1 M2))))) + #+fsbv + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(-1422.0258d0 2305.5097000000005d0) + #C(-1744.0584d0 -1092.2939d0)) + (#C(-3459.8918d0 1995.4917d0) + #C(-3290.4465d0 -801.0577000000002d0)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0))))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0)) + (#C(32.5d0 42.73d0) #C(-17.24d0 43.31d0)) + (#C(-17.24d0 43.31d0) #C(-16.12d0 -8.25d0)))))) + (CL-ARRAY (MATRIX-PRODUCT M1 M2)))))) diff --git a/tests/matrix-product-triangular.lisp b/tests/matrix-product-triangular.lisp index a6a43200..20015c8a 100644 --- a/tests/matrix-product-triangular.lisp +++ b/tests/matrix-product-triangular.lisp @@ -1,6 +1,6 @@ ;; Regression test MATRIX-PRODUCT-TRIANGULAR for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,178 +19,167 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST MATRIX-PRODUCT-TRIANGULAR - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((-34803.82 7799.5503 -29131.375) - (-4884.0327 -739.594 20382.809) - (-31391.57 -25366.535 -31634.615))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((42.73 -17.24 43.31) - (-16.12 -8.25 21.44) - (-49.08 -39.66 -49.46)))) - (S1 19.68)) - (CL-ARRAY (MATRIX-PRODUCT-TRIANGULAR M1 M2 S1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((-34803.82416d0 7799.550047999999d0 - -29131.375104000002d0) - (-4884.032832000001d0 -739.5940799999992d0 - 20382.808224d0) - (-31391.568d0 -25366.535999999996d0 - -31634.616d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((42.73d0 -17.24d0 43.31d0) - (-16.12d0 -8.25d0 21.44d0) - (-49.08d0 -39.66d0 -49.46d0)))) - (S1 19.68d0)) - (CL-ARRAY (MATRIX-PRODUCT-TRIANGULAR M1 M2 S1))))) - #+fsbv - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(-66397.9 18986.908) #C(-56335.145 48514.305) - #C(-18830.469 -13449.601)) - (#C(38337.09 -49128.918) #C(42681.344 -22972.445) - #C(50375.406 -50562.54)) - (#C(42453.223 -42606.086) - #C(-13764.868 -48835.813) - #C(8910.526 -4389.117)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((42.73 -17.24 43.31 -16.12 -8.25 - 21.44) - (-16.12 -8.25 21.44 -49.08 - -39.66 -49.46) - (-49.08 -39.66 -49.46 19.68 - -5.55 -8.82)))) - (S1 #C(19.68 -5.55))) - (CL-ARRAY (MATRIX-PRODUCT-TRIANGULAR M1 M2 S1))))) - #+fsbv - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(-66397.89753899998d0 18986.908142999997d0) - #C(-56335.14258600001d0 48514.306278000004d0) - #C(-18830.468709d0 -13449.603000000003d0)) - (#C(38337.08717099999d0 -49128.917505000005d0) - #C(42681.34176d0 -22972.447481999992d0) - #C(50375.404416000005d0 -50562.535017d0)) - (#C(42453.21956399999d0 -42606.08134200001d0) - #C(-13764.866562000001d0 -48835.809623999994d0) - #C(8910.526581d0 -4389.116526d0)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0) - (-16.12d0 -8.25d0 21.44d0 - -49.08d0 -39.66d0 -49.46d0) - (-49.08d0 -39.66d0 -49.46d0 - 19.68d0 -5.55d0 -8.82d0)))) - (S1 #C(19.68d0 -5.55d0))) - (CL-ARRAY (MATRIX-PRODUCT-TRIANGULAR M1 M2 S1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(-1473.7527 -854.58527 1407.5751)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5)))) - (V1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(42.73 -17.24 43.31))) - (S1 -16.12)) - (CL-ARRAY (MATRIX-PRODUCT-TRIANGULAR M1 V1 S1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(-1473.7527d0 -854.5853d0 1407.575d0)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0)))) - (V1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(42.73d0 -17.24d0 43.31d0))) - (S1 -16.12d0)) - (CL-ARRAY (MATRIX-PRODUCT-TRIANGULAR M1 V1 S1))))) - #+fsbv - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(-1483.223 1289.3523) #C(-57.63159 1675.6711) - #C(-786.3365 -726.9331))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31)))) - (V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(42.73 -17.24 43.31 -16.12 -8.25 - 21.44))) - (S1 #C(-16.12 -8.25))) - (CL-ARRAY (MATRIX-PRODUCT-TRIANGULAR M1 V1 S1))))) - #+fsbv - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(-1483.2230999999997d0 1289.3523999999998d0) - #C(-57.63160000000005d0 1675.6711000000003d0) - #C(-786.3364000000001d0 -726.9331d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0)))) - (V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0))) - (S1 #C(-16.12d0 -8.25d0))) - (CL-ARRAY (MATRIX-PRODUCT-TRIANGULAR M1 V1 S1)))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((-34803.82 7799.5503 -29131.375) + (-4884.0327 -739.594 20382.809) + (-31391.57 -25366.535 -31634.615))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '((42.73 -17.24 43.31) + (-16.12 -8.25 21.44) + (-49.08 -39.66 -49.46)))) + (S1 19.68)) + (CL-ARRAY (MATRIX-PRODUCT-TRIANGULAR M1 M2 S1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((-34803.82416d0 7799.550047999999d0 -29131.375104000002d0) + (-4884.032832000001d0 -739.5940799999992d0 20382.808224d0) + (-31391.568d0 -25366.535999999996d0 -31634.616d0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((42.73d0 -17.24d0 43.31d0) + (-16.12d0 -8.25d0 21.44d0) + (-49.08d0 -39.66d0 -49.46d0)))) + (S1 19.68d0)) + (CL-ARRAY (MATRIX-PRODUCT-TRIANGULAR M1 M2 S1))))) + #+fsbv + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(-66397.9 18986.908) #C(-56335.145 48514.305) #C(-18830.469 -13449.601)) + (#C(38337.09 -49128.918) #C(42681.344 -22972.445) #C(50375.406 -50562.54)) + (#C(42453.223 -42606.086) #C(-13764.868 -48835.813) #C(8910.526 -4389.117)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31))))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(42.73 -17.24) #C(43.31 -16.12) #C(-8.25 21.44)) + (#C(-16.12 -8.25) #C(21.44 -49.08) #C(-39.66 -49.46)) + (#C(-49.08 -39.66) #C(-49.46 19.68) #C(-5.55 -8.82))))) + (S1 #C(19.68 -5.55))) + (CL-ARRAY (MATRIX-PRODUCT-TRIANGULAR M1 M2 S1))))) + #+fsbv + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(-66397.89753899998d0 18986.908142999997d0) + #C(-56335.14258600001d0 48514.306278000004d0) + #C(-18830.468709d0 -13449.603000000003d0)) + (#C(38337.08717099999d0 -49128.917505000005d0) + #C(42681.34176d0 -22972.447481999992d0) + #C(50375.404416000005d0 -50562.535017d0)) + (#C(42453.21956399999d0 -42606.08134200001d0) + #C(-13764.866562000001d0 -48835.809623999994d0) + #C(8910.526581d0 -4389.116526d0)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0))))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(42.73d0 -17.24d0) #C(43.31d0 -16.12d0) #C(-8.25d0 21.44d0)) + (#C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0) #C(-39.66d0 -49.46d0)) + (#C(-49.08d0 -39.66d0) #C(-49.46d0 19.68d0) #C(-5.55d0 -8.82d0))))) + (S1 #C(19.68d0 -5.55d0))) + (CL-ARRAY (MATRIX-PRODUCT-TRIANGULAR M1 M2 S1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-1473.7527 -854.58527 1407.5751)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5)))) + (V1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '(42.73 -17.24 43.31))) + (S1 -16.12)) + (CL-ARRAY (MATRIX-PRODUCT-TRIANGULAR M1 V1 S1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-1473.7527d0 -854.5853d0 1407.575d0)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0)))) + (V1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '(42.73d0 -17.24d0 43.31d0))) + (S1 -16.12d0)) + (CL-ARRAY (MATRIX-PRODUCT-TRIANGULAR M1 V1 S1))))) + #+fsbv + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(-1483.223 1289.3523) #C(-57.63159 1675.6711) + #C(-786.3365 -726.9331))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31))))) + (V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(42.73 -17.24) #C(43.31 -16.12) #C(-8.25 21.44)))) + (S1 #C(-16.12 -8.25))) + (CL-ARRAY (MATRIX-PRODUCT-TRIANGULAR M1 V1 S1))))) + #+fsbv + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(-1483.2230999999997d0 1289.3523999999998d0) + #C(-57.63160000000005d0 1675.6711000000003d0) + #C(-786.3364000000001d0 -726.9331d0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0))))) + (V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(42.73d0 -17.24d0) #C(43.31d0 -16.12d0) #C(-8.25d0 21.44d0)))) + (S1 #C(-16.12d0 -8.25d0))) + (CL-ARRAY (MATRIX-PRODUCT-TRIANGULAR M1 V1 S1)))))) diff --git a/tests/matrix-product.lisp b/tests/matrix-product.lisp index 9a214c34..70ae43af 100644 --- a/tests/matrix-product.lisp +++ b/tests/matrix-product.lisp @@ -1,6 +1,6 @@ ;; Regression test MATRIX-PRODUCT for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,231 +19,223 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST MATRIX-PRODUCT - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((74519.41 -16747.695 61311.69) - (27307.273 -6133.5903 -25711.75) - (-29088.719 83072.016 -11019.719))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((42.73 -17.24 43.31) - (-16.12 -8.25 21.44) - (-49.08 -39.66 -49.46)))) - (M3 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((19.68 -5.55 -8.82) - (25.37 -30.58 31.67) - (29.36 -33.24 -27.03)))) - (S1 -41.67) - (S2 42.0)) - (CL-ARRAY (MATRIX-PRODUCT M1 M2 M3 S1 S2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((74519.41329d0 -16747.696061999995d0 - 61311.694176d0) - (27307.276670999996d0 -6133.589574d0 - -25711.752344999997d0) - (-29088.718053000033d0 83072.022741d0 - -11019.721527000016d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((42.73d0 -17.24d0 43.31d0) - (-16.12d0 -8.25d0 21.44d0) - (-49.08d0 -39.66d0 -49.46d0)))) - (M3 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((19.68d0 -5.55d0 -8.82d0) - (25.37d0 -30.58d0 31.67d0) - (29.36d0 -33.24d0 -27.03d0)))) - (S1 -41.67d0) - (S2 42.0d0)) - (CL-ARRAY (MATRIX-PRODUCT M1 M2 M3 S1 S2))))) - #+fsbv - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(140927.64 -143005.16) #C(72986.305 -201162.86) - #C(65956.16 9034.215)) - (#C(-102500.125 118033.82) #C(-147775.0 58489.473) - #C(-9582.236 190719.98)) - (#C(-16551.412 336505.22) #C(-7668.242 385798.25) - #C(45313.527 140641.6)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((42.73 -17.24 43.31 -16.12 -8.25 - 21.44) - (-16.12 -8.25 21.44 -49.08 - -39.66 -49.46) - (-49.08 -39.66 -49.46 19.68 - -5.55 -8.82)))) - (M3 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((19.68 -5.55 -8.82 25.37 -30.58 - 31.67) - (25.37 -30.58 31.67 29.36 -33.24 - -27.03) - (29.36 -33.24 -27.03 -41.67 42.0 - -20.81)))) - (S1 #C(-41.67 42.0)) - (S2 #C(42.0 -20.81))) - (CL-ARRAY (MATRIX-PRODUCT M1 M2 M3 S1 S2))))) - #+fsbv - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(140927.638311d0 -143005.14965699997d0) - #C(72986.314354d0 -201162.870342d0) - #C(65956.156396d0 9034.212785d0)) - (#C(-102500.143082d0 118033.81826900001d0) - #C(-147775.01365700003d0 58489.469011999994d0) - #C(-9582.23530800004d0 190719.98257199998d0)) - (#C(-16551.43698600002d0 336505.21680500003d0) - #C(-7668.248943000013d0 385798.22976300004d0) - #C(45313.51313299998d0 140641.59851399998d0)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0) - (-16.12d0 -8.25d0 21.44d0 - -49.08d0 -39.66d0 -49.46d0) - (-49.08d0 -39.66d0 -49.46d0 - 19.68d0 -5.55d0 -8.82d0)))) - (M3 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((19.68d0 -5.55d0 -8.82d0 25.37d0 - -30.58d0 31.67d0) - (25.37d0 -30.58d0 31.67d0 - 29.36d0 -33.24d0 -27.03d0) - (29.36d0 -33.24d0 -27.03d0 - -41.67d0 42.0d0 -20.81d0)))) - (S1 #C(-41.67d0 42.0d0)) - (S2 #C(42.0d0 -20.81d0))) - (CL-ARRAY (MATRIX-PRODUCT M1 M2 M3 S1 S2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(72971.1 60998.137 -184676.98)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5)))) - (V1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(42.73 -17.24 43.31))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(-16.12 -8.25 21.44))) - (S1 -49.08) - (S2 -39.66)) - (CL-ARRAY (MATRIX-PRODUCT M1 V1 V2 S1 S2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(72971.10171599999d0 60998.13393599999d0 - -184676.981676d0)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0)))) - (V1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(42.73d0 -17.24d0 43.31d0))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(-16.12d0 -8.25d0 21.44d0))) - (S1 -49.08d0) - (S2 -39.66d0)) - (CL-ARRAY (MATRIX-PRODUCT M1 V1 V2 S1 S2))))) - #+fsbv - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(124163.57 -3332.2988) #C(119793.48 -166378.0) - #C(-189845.23 -81764.12))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31)))) - (V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(42.73 -17.24 43.31 -16.12 -8.25 - 21.44))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-16.12 -8.25 21.44 -49.08 -39.66 - -49.46))) - (S1 #C(-49.08 -39.66)) - (S2 #C(-39.66 -49.46))) - (CL-ARRAY (MATRIX-PRODUCT M1 V1 V2 S1 S2))))) - #+fsbv - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(124163.58013199999d0 -3332.2974459999896d0) - #C(119793.47618999999d0 -166378.00423d0) - #C(-189845.21679399998d0 -81764.10481799999d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0)))) - (V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-16.12d0 -8.25d0 21.44d0 - -49.08d0 -39.66d0 -49.46d0))) - (S1 #C(-49.08d0 -39.66d0)) - (S2 #C(-39.66d0 -49.46d0))) - (CL-ARRAY (MATRIX-PRODUCT M1 V1 V2 S1 S2)))))) - + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((74519.41 -16747.695 61311.69) + (27307.273 -6133.5903 -25711.75) + (-29088.719 83072.016 -11019.719))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '((42.73 -17.24 43.31) + (-16.12 -8.25 21.44) + (-49.08 -39.66 -49.46)))) + (M3 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '((19.68 -5.55 -8.82) + (25.37 -30.58 31.67) + (29.36 -33.24 -27.03)))) + (S1 -41.67) + (S2 42.0)) + (CL-ARRAY (MATRIX-PRODUCT M1 M2 M3 S1 S2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((74519.41329d0 -16747.696061999995d0 61311.694176d0) + (27307.276670999996d0 -6133.589574d0 -25711.752344999997d0) + (-29088.718053000033d0 83072.022741d0 -11019.721527000016d0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((42.73d0 -17.24d0 43.31d0) + (-16.12d0 -8.25d0 21.44d0) + (-49.08d0 -39.66d0 -49.46d0)))) + (M3 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((19.68d0 -5.55d0 -8.82d0) + (25.37d0 -30.58d0 31.67d0) + (29.36d0 -33.24d0 -27.03d0)))) + (S1 -41.67d0) + (S2 42.0d0)) + (CL-ARRAY (MATRIX-PRODUCT M1 M2 M3 S1 S2))))) + #+fsbv + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(140927.64 -143005.16) #C(72986.305 -201162.86) + #C(65956.16 9034.215)) + (#C(-102500.125 118033.82) #C(-147775.0 58489.473) + #C(-9582.236 190719.98)) + (#C(-16551.412 336505.22) #C(-7668.242 385798.25) + #C(45313.527 140641.6)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31))))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(42.73 -17.24) #C(43.31 -16.12) #C(-8.25 21.44)) + (#C(-16.12 -8.25) #C(21.44 -49.08) #C(-39.66 -49.46)) + (#C(-49.08 -39.66) #C(-49.46 19.68) #C(-5.55 -8.82))))) + (M3 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(19.68 -5.55) #C(-8.82 25.37) #C(-30.58 31.67)) + (#C(25.37 -30.58) #C(31.67 29.36) #C(-33.24 -27.03)) + (#C(29.36 -33.24) #C(-27.03 -41.67) #C(42.0 -20.81))))) + (S1 #C(-41.67 42.0)) + (S2 #C(42.0 -20.81))) + (CL-ARRAY (MATRIX-PRODUCT M1 M2 M3 S1 S2))))) + #+fsbv + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(140927.638311d0 -143005.14965699997d0) + #C(72986.314354d0 -201162.870342d0) + #C(65956.156396d0 9034.212785d0)) + (#C(-102500.143082d0 118033.81826900001d0) + #C(-147775.01365700003d0 58489.469011999994d0) + #C(-9582.23530800004d0 190719.98257199998d0)) + (#C(-16551.43698600002d0 336505.21680500003d0) + #C(-7668.248943000013d0 385798.22976300004d0) + #C(45313.51313299998d0 140641.59851399998d0)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0))))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(42.73d0 -17.24d0) #C(43.31d0 -16.12d0) #C(-8.25d0 21.44d0)) + (#C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0) #C(-39.66d0 -49.46d0)) + (#C(-49.08d0 -39.66d0) #C(-49.46d0 19.68d0) #C(-5.55d0 -8.82d0))))) + (M3 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(19.68d0 -5.55d0) #C(-8.82d0 25.37d0) #C(-30.58d0 31.67d0)) + (#C(25.37d0 -30.58d0) #C(31.67d0 29.36d0) #C(-33.24d0 -27.03d0)) + (#C(29.36d0 -33.24d0) #C(-27.03d0 -41.67d0) #C(42.0d0 -20.81d0))))) + (S1 #C(-41.67d0 42.0d0)) + (S2 #C(42.0d0 -20.81d0))) + (CL-ARRAY (MATRIX-PRODUCT M1 M2 M3 S1 S2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(72971.1 60998.137 -184676.98)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5)))) + (V1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '(42.73 -17.24 43.31))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '(-16.12 -8.25 21.44))) + (S1 -49.08) + (S2 -39.66)) + (CL-ARRAY (MATRIX-PRODUCT M1 V1 V2 S1 S2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(72971.10171599999d0 60998.13393599999d0 + -184676.981676d0)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0)))) + (V1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '(42.73d0 -17.24d0 43.31d0))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '(-16.12d0 -8.25d0 21.44d0))) + (S1 -49.08d0) + (S2 -39.66d0)) + (CL-ARRAY (MATRIX-PRODUCT M1 V1 V2 S1 S2))))) + #+fsbv + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(124163.57 -3332.2988) #C(119793.48 -166378.0) + #C(-189845.23 -81764.12))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31))))) + (V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(42.73 -17.24) #C(43.31 -16.12) #C(-8.25 21.44)))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-16.12 -8.25) #C(21.44 -49.08) #C(-39.66 -49.46)))) + (S1 #C(-49.08 -39.66)) + (S2 #C(-39.66 -49.46))) + (CL-ARRAY (MATRIX-PRODUCT M1 V1 V2 S1 S2))))) + #+fsbv + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(124163.58013199999d0 -3332.2974459999896d0) + #C(119793.47618999999d0 -166378.00423d0) + #C(-189845.21679399998d0 -81764.10481799999d0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0))))) + (V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(42.73d0 -17.24d0) #C(43.31d0 -16.12d0) #C(-8.25d0 21.44d0)))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0) #C(-39.66d0 -49.46d0)))) + (S1 #C(-49.08d0 -39.66d0)) + (S2 #C(-39.66d0 -49.46d0))) + (CL-ARRAY (MATRIX-PRODUCT M1 V1 V2 S1 S2)))))) diff --git a/tests/matrix-set-zero.lisp b/tests/matrix-set-zero.lisp index 68d4ae5f..be65d0f3 100644 --- a/tests/matrix-set-zero.lisp +++ b/tests/matrix-set-zero.lisp @@ -1,6 +1,6 @@ ;; Regression test MATRIX-SET-ZERO for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,143 +19,143 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST MATRIX-SET-ZERO - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((0.0 0.0 0.0) (0.0 0.0 0.0) (0.0 0.0 0.0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5))))) - (SET-ZERO M1) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((0.0d0 0.0d0 0.0d0) - (0.0d0 0.0d0 0.0d0) - (0.0d0 0.0d0 0.0d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0))))) - (SET-ZERO M1) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(0.0 0.0) #C(0.0 0.0) #C(0.0 0.0)) - (#C(0.0 0.0) #C(0.0 0.0) #C(0.0 0.0)) - (#C(0.0 0.0) #C(0.0 0.0) #C(0.0 0.0)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31))))) - (SET-ZERO M1) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(0.0d0 0.0d0) #C(0.0d0 0.0d0) #C(0.0d0 0.0d0)) - (#C(0.0d0 0.0d0) #C(0.0d0 0.0d0) #C(0.0d0 0.0d0)) - (#C(0.0d0 0.0d0) #C(0.0d0 0.0d0) - #C(0.0d0 0.0d0)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0))))) - (SET-ZERO M1) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((0 0 0) (0 0 0) (0 0 0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (SET-ZERO M1) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((0 0 0) (0 0 0) (0 0 0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (SET-ZERO M1) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((0 0 0) (0 0 0) (0 0 0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (SET-ZERO M1) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((0 0 0) (0 0 0) (0 0 0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (SET-ZERO M1) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((0 0 0) (0 0 0) (0 0 0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (SET-ZERO M1) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((0 0 0) (0 0 0) (0 0 0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (SET-ZERO M1) - (CL-ARRAY M1)))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((0 0 0) (0 0 0) (0 0 0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (SET-ZERO M1) - (CL-ARRAY M1)))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((0 0 0) (0 0 0) (0 0 0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (SET-ZERO M1) - (CL-ARRAY M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((0.0 0.0 0.0) (0.0 0.0 0.0) (0.0 0.0 0.0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5))))) + (SET-ZERO M1) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((0.0d0 0.0d0 0.0d0) + (0.0d0 0.0d0 0.0d0) + (0.0d0 0.0d0 0.0d0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0))))) + (SET-ZERO M1) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(0.0 0.0) #C(0.0 0.0) #C(0.0 0.0)) + (#C(0.0 0.0) #C(0.0 0.0) #C(0.0 0.0)) + (#C(0.0 0.0) #C(0.0 0.0) #C(0.0 0.0)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31)))))) + (SET-ZERO M1) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(0.0d0 0.0d0) #C(0.0d0 0.0d0) #C(0.0d0 0.0d0)) + (#C(0.0d0 0.0d0) #C(0.0d0 0.0d0) #C(0.0d0 0.0d0)) + (#C(0.0d0 0.0d0) #C(0.0d0 0.0d0) + #C(0.0d0 0.0d0)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0)))))) + (SET-ZERO M1) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((0 0 0) (0 0 0) (0 0 0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (SET-ZERO M1) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((0 0 0) (0 0 0) (0 0 0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) + (161 215 98))))) + (SET-ZERO M1) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((0 0 0) (0 0 0) (0 0 0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) + (73 -5 123))))) + (SET-ZERO M1) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((0 0 0) (0 0 0) (0 0 0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (SET-ZERO M1) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((0 0 0) (0 0 0) (0 0 0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 32) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (SET-ZERO M1) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((0 0 0) (0 0 0) (0 0 0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (SET-ZERO M1) + (CL-ARRAY M1)))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((0 0 0) (0 0 0) (0 0 0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (SET-ZERO M1) + (CL-ARRAY M1)))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((0 0 0) (0 0 0) (0 0 0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (SET-ZERO M1) + (CL-ARRAY M1))))) diff --git a/tests/matrix-swap.lisp b/tests/matrix-swap.lisp index 861f5867..266c16b3 100644 --- a/tests/matrix-swap.lisp +++ b/tests/matrix-swap.lisp @@ -1,6 +1,6 @@ ;; Regression test MATRIX-SWAP for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,254 +19,241 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST MATRIX-SWAP - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - (LIST - #2A((42.73 -17.24 43.31) - (-16.12 -8.25 21.44) - (-49.08 -39.66 -49.46)) - #2A((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((42.73 -17.24 43.31) - (-16.12 -8.25 21.44) - (-49.08 -39.66 -49.46))))) - (SWAP M2 M1) - (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - (LIST - #2A((42.73d0 -17.24d0 43.31d0) - (-16.12d0 -8.25d0 21.44d0) - (-49.08d0 -39.66d0 -49.46d0)) - #2A((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((42.73d0 -17.24d0 43.31d0) - (-16.12d0 -8.25d0 21.44d0) - (-49.08d0 -39.66d0 -49.46d0))))) - (SWAP M2 M1) - (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - (LIST - #2A((#C(42.73 -17.24) #C(43.31 -16.12) - #C(-8.25 21.44)) - (#C(-16.12 -8.25) #C(21.44 -49.08) - #C(-39.66 -49.46)) - (#C(-49.08 -39.66) #C(-49.46 19.68) - #C(-5.55 -8.82))) - #2A((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) - (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) - (#C(49.27 -13.49) #C(32.5 42.73) - #C(-17.24 43.31))))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((42.73 -17.24 43.31 -16.12 -8.25 - 21.44) - (-16.12 -8.25 21.44 -49.08 - -39.66 -49.46) - (-49.08 -39.66 -49.46 19.68 - -5.55 -8.82))))) - (SWAP M2 M1) - (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - (LIST - #2A((#C(42.73d0 -17.24d0) #C(43.31d0 -16.12d0) - #C(-8.25d0 21.44d0)) - (#C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0) - #C(-39.66d0 -49.46d0)) - (#C(-49.08d0 -39.66d0) #C(-49.46d0 19.68d0) - #C(-5.55d0 -8.82d0))) - #2A((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) - #C(34.12d0 -6.15d0)) - (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) - #C(-13.49d0 32.5d0)) - (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) - #C(-17.24d0 43.31d0))))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0) - (-16.12d0 -8.25d0 21.44d0 - -49.08d0 -39.66d0 -49.46d0) - (-49.08d0 -39.66d0 -49.46d0 - 19.68d0 -5.55d0 -8.82d0))))) - (SWAP M2 M1) - (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - (LIST #2A((32 28 30) (37 -73 -8) (-15 -22 68)) - #2A((-64 -68 71) (-91 52 -10) (73 -5 123)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '((32 28 30) (37 -73 -8) - (-15 -22 68))))) - (SWAP M2 M1) - (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - (LIST #2A((28 10 19) (28 178 217) (36 109 222)) - #2A((67 44 189) (116 163 140) (161 215 98)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) - :INITIAL-CONTENTS - '((28 10 19) (28 178 217) - (36 109 222))))) - (SWAP M2 M1) - (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - (LIST #2A((32 28 30) (37 -73 -8) (-15 -22 68)) - #2A((-64 -68 71) (-91 52 -10) (73 -5 123)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS - '((32 28 30) (37 -73 -8) - (-15 -22 68))))) - (SWAP M2 M1) - (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - (LIST #2A((28 10 19) (28 178 217) (36 109 222)) - #2A((67 44 189) (116 163 140) (161 215 98)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) - :INITIAL-CONTENTS - '((28 10 19) (28 178 217) - (36 109 222))))) - (SWAP M2 M1) - (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - (LIST #2A((32 28 30) (37 -73 -8) (-15 -22 68)) - #2A((-64 -68 71) (-91 52 -10) (73 -5 123)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS - '((32 28 30) (37 -73 -8) - (-15 -22 68))))) - (SWAP M2 M1) - (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - (LIST #2A((28 10 19) (28 178 217) (36 109 222)) - #2A((67 44 189) (116 163 140) (161 215 98)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) - :INITIAL-CONTENTS - '((28 10 19) (28 178 217) - (36 109 222))))) - (SWAP M2 M1) - (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - (LIST #2A((32 28 30) (37 -73 -8) (-15 -22 68)) - #2A((-64 -68 71) (-91 52 -10) (73 -5 123)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS - '((32 28 30) (37 -73 -8) - (-15 -22 68))))) - (SWAP M2 M1) - (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - (LIST #2A((28 10 19) (28 178 217) (36 109 222)) - #2A((67 44 189) (116 163 140) (161 215 98)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) - :INITIAL-CONTENTS - '((28 10 19) (28 178 217) - (36 109 222))))) - (SWAP M2 M1) - (LIST (CL-ARRAY M1) (CL-ARRAY M2)))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + (LIST + #2A((42.73 -17.24 43.31) + (-16.12 -8.25 21.44) + (-49.08 -39.66 -49.46)) + #2A((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '((42.73 -17.24 43.31) + (-16.12 -8.25 21.44) + (-49.08 -39.66 -49.46))))) + (SWAP M2 M1) + (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + (LIST + #2A((42.73d0 -17.24d0 43.31d0) + (-16.12d0 -8.25d0 21.44d0) + (-49.08d0 -39.66d0 -49.46d0)) + #2A((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((42.73d0 -17.24d0 43.31d0) + (-16.12d0 -8.25d0 21.44d0) + (-49.08d0 -39.66d0 -49.46d0))))) + (SWAP M2 M1) + (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + (LIST + #2A((#C(42.73 -17.24) #C(43.31 -16.12) #C(-8.25 21.44)) + (#C(-16.12 -8.25) #C(21.44 -49.08) #C(-39.66 -49.46)) + (#C(-49.08 -39.66) #C(-49.46 19.68) #C(-5.55 -8.82))) + #2A((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) + #C(-17.24 43.31))))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31))))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(42.73 -17.24) #C(43.31 -16.12) #C(-8.25 21.44)) + (#C(-16.12 -8.25) #C(21.44 -49.08) #C(-39.66 -49.46)) + (#C(-49.08 -39.66) #C(-49.46 19.68) #C(-5.55 -8.82)))))) + (SWAP M2 M1) + (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + (LIST + #2A((#C(42.73d0 -17.24d0) #C(43.31d0 -16.12d0) #C(-8.25d0 21.44d0)) + (#C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0) #C(-39.66d0 -49.46d0)) + (#C(-49.08d0 -39.66d0) #C(-49.46d0 19.68d0) #C(-5.55d0 -8.82d0))) + #2A((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0))))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0))))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(42.73d0 -17.24d0) #C(43.31d0 -16.12d0) #C(-8.25d0 21.44d0)) + (#C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0) #C(-39.66d0 -49.46d0)) + (#C(-49.08d0 -39.66d0) #C(-49.46d0 19.68d0) #C(-5.55d0 -8.82d0)))))) + (SWAP M2 M1) + (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + (LIST #2A((32 28 30) (37 -73 -8) (-15 -22 68)) + #2A((-64 -68 71) (-91 52 -10) (73 -5 123)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) + (73 -5 123)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS + '((32 28 30) (37 -73 -8) + (-15 -22 68))))) + (SWAP M2 M1) + (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + (LIST #2A((28 10 19) (28 178 217) (36 109 222)) + #2A((67 44 189) (116 163 140) (161 215 98)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) + (161 215 98)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS + '((28 10 19) (28 178 217) + (36 109 222))))) + (SWAP M2 M1) + (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + (LIST #2A((32 28 30) (37 -73 -8) (-15 -22 68)) + #2A((-64 -68 71) (-91 52 -10) (73 -5 123)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) + (73 -5 123)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) + :INITIAL-CONTENTS + '((32 28 30) (37 -73 -8) + (-15 -22 68))))) + (SWAP M2 M1) + (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + (LIST #2A((28 10 19) (28 178 217) (36 109 222)) + #2A((67 44 189) (116 163 140) (161 215 98)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) + (161 215 98)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS + '((28 10 19) (28 178 217) + (36 109 222))))) + (SWAP M2 M1) + (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + (LIST #2A((32 28 30) (37 -73 -8) (-15 -22 68)) + #2A((-64 -68 71) (-91 52 -10) (73 -5 123)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) + (73 -5 123)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) + :INITIAL-CONTENTS + '((32 28 30) (37 -73 -8) + (-15 -22 68))))) + (SWAP M2 M1) + (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + (LIST #2A((28 10 19) (28 178 217) (36 109 222)) + #2A((67 44 189) (116 163 140) (161 215 98)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) + (161 215 98)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS + '((28 10 19) (28 178 217) + (36 109 222))))) + (SWAP M2 M1) + (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + (LIST #2A((32 28 30) (37 -73 -8) (-15 -22 68)) + #2A((-64 -68 71) (-91 52 -10) (73 -5 123)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) + (73 -5 123)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) + :INITIAL-CONTENTS + '((32 28 30) (37 -73 -8) + (-15 -22 68))))) + (SWAP M2 M1) + (LIST (CL-ARRAY M1) (CL-ARRAY M2))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + (LIST #2A((28 10 19) (28 178 217) (36 109 222)) + #2A((67 44 189) (116 163 140) (161 215 98)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) + (161 215 98)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS + '((28 10 19) (28 178 217) + (36 109 222))))) + (SWAP M2 M1) + (LIST (CL-ARRAY M1) (CL-ARRAY M2)))))) diff --git a/tests/matrix-transpose-copy.lisp b/tests/matrix-transpose-copy.lisp index b85169be..681db8c3 100644 --- a/tests/matrix-transpose-copy.lisp +++ b/tests/matrix-transpose-copy.lisp @@ -1,6 +1,6 @@ ;; Regression test MATRIX-TRANSPOSE for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,171 +19,157 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST MATRIX-TRANSPOSE - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((-34.5 -8.93 49.27) - (8.24 34.12 -13.49) - (3.29 -6.15 32.5))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '(3 3)))) - (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((-34.5d0 -8.93d0 49.27d0) - (8.24d0 34.12d0 -13.49d0) - (3.29d0 -6.15d0 32.5d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS '(3 3)))) - (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(-34.5 8.24) #C(-8.93 34.12) #C(49.27 -13.49)) - (#C(3.29 -8.93) #C(-6.15 49.27) #C(32.5 42.73)) - (#C(34.12 -6.15) #C(-13.49 32.5) - #C(-17.24 43.31)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :DIMENSIONS '(3 3)))) - (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(-34.5d0 8.24d0) #C(-8.93d0 34.12d0) - #C(49.27d0 -13.49d0)) - (#C(3.29d0 -8.93d0) #C(-6.15d0 49.27d0) - #C(32.5d0 42.73d0)) - (#C(34.12d0 -6.15d0) #C(-13.49d0 32.5d0) - #C(-17.24d0 43.31d0)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :DIMENSIONS '(3 3)))) - (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 -91 73) (-68 52 -5) (71 -10 123))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :DIMENSIONS - '(3 3)))) - (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 116 161) (44 163 215) (189 140 98))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) :DIMENSIONS - '(3 3)))) - (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 -91 73) (-68 52 -5) (71 -10 123))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) :DIMENSIONS - '(3 3)))) - (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 116 161) (44 163 215) (189 140 98))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) :DIMENSIONS - '(3 3)))) - (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 -91 73) (-68 52 -5) (71 -10 123))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) :DIMENSIONS - '(3 3)))) - (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 116 161) (44 163 215) (189 140 98))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) :DIMENSIONS - '(3 3)))) - (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 -91 73) (-68 52 -5) (71 -10 123))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) :DIMENSIONS - '(3 3)))) - (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 116 161) (44 163 215) (189 140 98))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98)))) - (M2 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) :DIMENSIONS - '(3 3)))) - (CL-ARRAY (MATRIX-TRANSPOSE M1 M2)))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((-34.5 -8.93 49.27) + (8.24 34.12 -13.49) + (3.29 -6.15 32.5))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '(3 3)))) + (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((-34.5d0 -8.93d0 49.27d0) + (8.24d0 34.12d0 -13.49d0) + (3.29d0 -6.15d0 32.5d0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS '(3 3)))) + (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(-34.5 8.24) #C(-8.93 34.12) #C(49.27 -13.49)) + (#C(3.29 -8.93) #C(-6.15 49.27) #C(32.5 42.73)) + (#C(34.12 -6.15) #C(-13.49 32.5) #C(-17.24 43.31)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31))))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) :DIMENSIONS '(3 3)))) + (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(-34.5d0 8.24d0) #C(-8.93d0 34.12d0) #C(49.27d0 -13.49d0)) + (#C(3.29d0 -8.93d0) #C(-6.15d0 49.27d0) #C(32.5d0 42.73d0)) + (#C(34.12d0 -6.15d0) #C(-13.49d0 32.5d0) #C(-17.24d0 43.31d0)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0))))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) :DIMENSIONS '(3 3)))) + (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 -91 73) (-68 52 -5) (71 -10 123))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :DIMENSIONS '(3 3)))) + (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 116 161) (44 163 215) (189 140 98))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) :DIMENSIONS '(3 3)))) + (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 -91 73) (-68 52 -5) (71 -10 123))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) :DIMENSIONS '(3 3)))) + (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 116 161) (44 163 215) (189 140 98))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) :DIMENSIONS '(3 3)))) + (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 -91 73) (-68 52 -5) (71 -10 123))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 32) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) :DIMENSIONS + '(3 3)))) + (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 116 161) (44 163 215) (189 140 98))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) + (161 215 98)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) :DIMENSIONS '(3 3)))) + (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 -91 73) (-68 52 -5) (71 -10 123))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) + :INITIAL-CONTENTS + '((-64 -68 71) (-1 52 -10) (73 -5 123)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) :DIMENSIONS '(3 3)))) + (CL-ARRAY (MATRIX-TRANSPOSE M1 M2))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 116 161) (44 163 215) (189 140 98))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98)))) + (M2 + (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) :DIMENSIONS '(3 3)))) + (CL-ARRAY (MATRIX-TRANSPOSE M1 M2)))))) diff --git a/tests/matrix-transpose.lisp b/tests/matrix-transpose.lisp index b5b8f465..906f07d8 100644 --- a/tests/matrix-transpose.lisp +++ b/tests/matrix-transpose.lisp @@ -1,6 +1,6 @@ ;; Regression test MATRIX-TRANSPOSE for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,137 +19,135 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST MATRIX-TRANSPOSE* - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((-34.5 -8.93 49.27) - (8.24 34.12 -13.49) - (3.29 -6.15 32.5))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5))))) - (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((-34.5d0 -8.93d0 49.27d0) - (8.24d0 34.12d0 -13.49d0) - (3.29d0 -6.15d0 32.5d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0))))) - (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(-34.5 8.24) #C(-8.93 34.12) #C(49.27 -13.49)) - (#C(3.29 -8.93) #C(-6.15 49.27) #C(32.5 42.73)) - (#C(34.12 -6.15) #C(-13.49 32.5) - #C(-17.24 43.31)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31))))) - (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(-34.5d0 8.24d0) #C(-8.93d0 34.12d0) - #C(49.27d0 -13.49d0)) - (#C(3.29d0 -8.93d0) #C(-6.15d0 49.27d0) - #C(32.5d0 42.73d0)) - (#C(34.12d0 -6.15d0) #C(-13.49d0 32.5d0) - #C(-17.24d0 43.31d0)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0))))) - (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 -91 73) (-68 52 -5) (71 -10 123))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 116 161) (44 163 215) (189 140 98))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 -91 73) (-68 52 -5) (71 -10 123))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 116 161) (44 163 215) (189 140 98))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 -91 73) (-68 52 -5) (71 -10 123))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 116 161) (44 163 215) (189 140 98))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 -91 73) (-68 52 -5) (71 -10 123))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 116 161) (44 163 215) (189 140 98))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (MATRIX-TRANSPOSE* M1)))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((-34.5 -8.93 49.27) + (8.24 34.12 -13.49) + (3.29 -6.15 32.5))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5))))) + (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((-34.5d0 -8.93d0 49.27d0) + (8.24d0 34.12d0 -13.49d0) + (3.29d0 -6.15d0 32.5d0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0))))) + (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(-34.5 8.24) #C(-8.93 34.12) #C(49.27 -13.49)) + (#C(3.29 -8.93) #C(-6.15 49.27) #C(32.5 42.73)) + (#C(34.12 -6.15) #C(-13.49 32.5) + #C(-17.24 43.31)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31)))))) + (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(-34.5d0 8.24d0) #C(-8.93d0 34.12d0) + #C(49.27d0 -13.49d0)) + (#C(3.29d0 -8.93d0) #C(-6.15d0 49.27d0) + #C(32.5d0 42.73d0)) + (#C(34.12d0 -6.15d0) #C(-13.49d0 32.5d0) + #C(-17.24d0 43.31d0)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0)))))) + (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 -91 73) (-68 52 -5) (71 -10 123))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 116 161) (44 163 215) (189 140 98))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 -91 73) (-68 52 -5) (71 -10 123))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 116 161) (44 163 215) (189 140 98))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 -91 73) (-68 52 -5) (71 -10 123))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 32) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 116 161) (44 163 215) (189 140 98))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 -91 73) (-68 52 -5) (71 -10 123))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (MATRIX-TRANSPOSE* M1))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 116 161) (44 163 215) (189 140 98))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (MATRIX-TRANSPOSE* M1)))))) diff --git a/tests/row.lisp b/tests/row.lisp index 3f3cf1f4..c04c514a 100644 --- a/tests/row.lisp +++ b/tests/row.lisp @@ -1,6 +1,6 @@ ;; Regression test ROW for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,237 +19,160 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST ROW - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(-8.93 34.12 -6.15)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5)))) - (ROW (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '3))) - (CL-ARRAY (ROW M1 1 ROW))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(-8.93d0 34.12d0 -6.15d0)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0)))) - (ROW (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS '3))) - (CL-ARRAY (ROW M1 1 ROW))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :DIMENSIONS '3))) - (CL-ARRAY (ROW M1 1 ROW))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) - #C(-13.49d0 32.5d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :DIMENSIONS '3))) - (CL-ARRAY (ROW M1 1 ROW))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-91 52 -10)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 8) - :INITIAL-CONTENTS - '((-64 -68 - 71) - (-91 52 - -10) - (73 -5 - 123)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 8) - :DIMENSIONS - '3))) - (CL-ARRAY - (ROW M1 - 1 ROW))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(116 163 140)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 8) - :INITIAL-CONTENTS - '((67 44 - 189) - (116 163 - 140) - (161 215 - 98)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 8) - :DIMENSIONS - '3))) - (CL-ARRAY - (ROW M1 - 1 ROW))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-91 52 -10)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 16) - :INITIAL-CONTENTS - '((-64 -68 - 71) - (-91 52 - -10) - (73 -5 - 123)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 16) - :DIMENSIONS - '3))) - (CL-ARRAY - (ROW M1 - 1 ROW))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(116 163 140)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 16) - :INITIAL-CONTENTS - '((67 44 - 189) - (116 163 - 140) - (161 215 - 98)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 16) - :DIMENSIONS - '3))) - (CL-ARRAY - (ROW M1 - 1 ROW))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-91 52 -10)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 32) - :INITIAL-CONTENTS - '((-64 -68 - 71) - (-91 52 - -10) - (73 -5 - 123)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 32) - :DIMENSIONS - '3))) - (CL-ARRAY - (ROW M1 - 1 ROW))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(116 163 140)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 32) - :INITIAL-CONTENTS - '((67 44 - 189) - (116 163 - 140) - (161 215 - 98)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 32) - :DIMENSIONS - '3))) - (CL-ARRAY - (ROW M1 - 1 ROW))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(-91 52 -10)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 64) - :INITIAL-CONTENTS - '((-64 -68 - 71) - (-91 52 - -10) - (73 -5 - 123)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 64) - :DIMENSIONS - '3))) - (CL-ARRAY - (ROW M1 - 1 ROW))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(116 163 140)) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 64) - :INITIAL-CONTENTS - '((67 44 - 189) - (116 163 - 140) - (161 215 - 98)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 64) - :DIMENSIONS - '3))) - (CL-ARRAY - (ROW M1 - 1 ROW)))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-8.93 34.12 -6.15)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5)))) + (ROW (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '3))) + (CL-ARRAY (ROW M1 1 ROW))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-8.93d0 34.12d0 -6.15d0)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT + :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0)))) + (ROW (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS '3))) + (CL-ARRAY (ROW M1 1 ROW))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31))))) + (ROW + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) :DIMENSIONS '3))) + (CL-ARRAY (ROW M1 1 ROW))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) + #C(-13.49d0 32.5d0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0))))) + (ROW + (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) :DIMENSIONS '3))) + (CL-ARRAY (ROW M1 1 ROW))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-91 52 -10)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) + :INITIAL-CONTETS + '((-64 -68 71) + (-91 52 -10) + (73 -5 123)))) + (ROW (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :DIMENSIONS '3))) + (CL-ARRAY + (ROW M1 + 1 ROW))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(116 163 140)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS + '((67 44 189) + (116 163 140) + (161 215 98)))) + (ROW (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) :DIMENSIONS '3))) + (CL-ARRAY (ROW M1 1 ROW))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-91 52 -10)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) + :INITIAL-CONTENTS + '((-64 -68 71) + (-91 52 -10) + (73 -5 123)))) + (ROW (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) :DIMENSIONS '3))) + (CL-ARRAY + (ROW M1 + 1 ROW))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(116 163 140)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS + '((67 44 189) + (116 163 140) + (161 215 98)))) + (ROW (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) :DIMENSIONS '3))) + (CL-ARRAY (ROW M1 1 ROW))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-91 52 -10)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 32) + :INITIAL-CONTETS + '((-64 -68 71) + (-91 52 -10) + (73 -5 123)))) + (ROW (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) :DIMENSIONS '3))) + (CL-ARRAY (ROW M1 1 ROW))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(116 163 140)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS + '((67 44 189) + (116 163 140) + (161 215 98)))) + (ROW (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) :DIMENSIONS '3))) + (CL-ARRAY (ROW M1 1 ROW))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-91 52 -10)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) + :INITIAL-CONTENTS + '((-64 -68 71) + (-91 52 -10) + (73 -5 123)))) + (ROW (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) :DIMENSIONS '3))) + (CL-ARRAY (ROW M1 1 ROW))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(116 163 140)) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS + '((67 44 189) + (116 163 140) + (161 215 98)))) + (ROW (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) :DIMENSIONS '3))) + (CL-ARRAY (ROW M1 1 ROW)))))) diff --git a/tests/scale.lisp b/tests/scale.lisp index 44aac334..5b071308 100644 --- a/tests/scale.lisp +++ b/tests/scale.lisp @@ -1,6 +1,6 @@ ;; Regression test SCALE for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,102 +19,100 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST SCALE - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(-1121.25 267.8) #C(106.924995 -290.225) - #C(1108.9 -199.875) #C(1601.275 -438.425) - #C(1056.25 1388.725) #C(-560.3 1407.5751) - #C(-523.9 -268.125) #C(696.8 -1595.1001))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5 8.24 3.29 -8.93 34.12 - -6.15 49.27 -13.49 32.5 42.73 - -17.24 43.31 -16.12 -8.25 21.44 - -49.08))) - (SCALAR 32.5)) - (CL-ARRAY (SCALE SCALAR V1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(-1121.25d0 267.8d0) - #C(106.925d0 -290.22499999999997d0) - #C(1108.8999999999999d0 -199.875d0) - #C(1601.275d0 -438.425d0) #C(1056.25d0 1388.725d0) - #C(-560.3d0 1407.575d0) #C(-523.9d0 -268.125d0) - #C(696.8000000000001d0 -1595.1d0))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0 49.27d0 -13.49d0 - 32.5d0 42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0 - -49.08d0))) - (SCALAR 32.5d0)) - (CL-ARRAY (SCALE SCALAR V1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(-1121.25 267.8 106.924995 -290.225 1108.9 -199.875 - 1601.275 -438.425)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(-34.5 8.24 3.29 -8.93 34.12 - -6.15 49.27 -13.49))) - (SCALAR 32.5)) - (CL-ARRAY (SCALE SCALAR V1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(-1121.25d0 267.8d0 106.925d0 -290.22499999999997d0 - 1108.8999999999999d0 -199.875d0 1601.275d0 - -438.425d0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0 49.27d0 - -13.49d0))) - (SCALAR 32.5d0)) - (CL-ARRAY (SCALE SCALAR V1))))) - #+fsbv - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(-1473.3452 -1206.385) #C(488.5039 -149.64331) - #C(1371.6895 1258.0725) #C(2177.7026 1666.8821) - #C(-769.6029 2777.45) #C(-2410.9363 670.9099) - #C(-171.37753 -956.9326) #C(2793.9885 -678.9689))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5 8.24 3.29 -8.93 34.12 - -6.15 49.27 -13.49 32.5 42.73 - -17.24 43.31 -16.12 -8.25 21.44 - -49.08))) - (SCALAR #C(32.5 42.73))) - (CL-ARRAY (SCALE SCALAR V1))))) - #+fsbv - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(-1473.3452d0 -1206.385d0) - #C(488.5039d0 -149.64329999999998d0) - #C(1371.6895d0 1258.0725999999997d0) - #C(2177.7027d0 1666.8821d0) - #C(-769.6028999999996d0 2777.45d0) - #C(-2410.9363d0 670.9098000000001d0) - #C(-171.3775d0 -956.9326d0) - #C(2793.9883999999997d0 -678.9687999999999d0))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0 49.27d0 -13.49d0 - 32.5d0 42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0 - -49.08d0))) - (SCALAR #C(32.5d0 42.73d0))) - (CL-ARRAY (SCALE SCALAR V1)))))) - + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(-1121.25 267.8) #C(106.924995 -290.225) + #C(1108.9 -199.875) #C(1601.275 -438.425) + #C(1056.25 1388.725) #C(-560.3 1407.5751) + #C(-523.9 -268.125) #C(696.8 -1595.1001))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(-34.5 8.24 3.29 -8.93 34.12 + -6.15 49.27 -13.49 32.5 42.73 + -17.24 43.31 -16.12 -8.25 21.44 + -49.08))) + (SCALAR 32.5)) + (CL-ARRAY (SCALE SCALAR V1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(-1121.25d0 267.8d0) + #C(106.925d0 -290.22499999999997d0) + #C(1108.8999999999999d0 -199.875d0) + #C(1601.275d0 -438.425d0) #C(1056.25d0 1388.725d0) + #C(-560.3d0 1407.575d0) #C(-523.9d0 -268.125d0) + #C(696.8000000000001d0 -1595.1d0))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0) + #C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0) + #C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0)))) + (SCALAR 32.5d0)) + (CL-ARRAY (SCALE SCALAR V1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-1121.25 267.8 106.924995 -290.225 1108.9 -199.875 1601.275 -438.425)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS + '(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15) #C(49.27 -13.49)))) + (SCALAR 32.5)) + (CL-ARRAY (SCALE SCALAR V1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(-1121.25d0 267.8d0 106.925d0 -290.22499999999997d0 + 1108.8999999999999d0 -199.875d0 1601.275d0 + -438.425d0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) + #C(34.12d0 -6.15d0) #C(49.27d0 -13.49d0)))) + (SCALAR 32.5d0)) + (CL-ARRAY (SCALE SCALAR V1))))) + #+fsbv + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(-1473.3452 -1206.385) #C(488.5039 -149.64331) + #C(1371.6895 1258.0725) #C(2177.7026 1666.8821) + #C(-769.6029 2777.45) #C(-2410.9363 670.9099) + #C(-171.37753 -956.9326) #C(2793.9885 -678.9689))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15) + #C(49.27 -13.49) #C(32.5 42.73) + #C(-17.24 43.31) #C(-16.12 -8.25) #C(21.44 -49.08)))) + (SCALAR #C(32.5 42.73))) + (CL-ARRAY (SCALE SCALAR V1))))) + #+fsbv + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(-1473.3452d0 -1206.385d0) + #C(488.5039d0 -149.64329999999998d0) + #C(1371.6895d0 1258.0725999999997d0) + #C(2177.7027d0 1666.8821d0) + #C(-769.6028999999996d0 2777.45d0) + #C(-2410.9363d0 670.9098000000001d0) + #C(-171.3775d0 -956.9326d0) + #C(2793.9883999999997d0 -678.9687999999999d0))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) + #C(34.12d0 -6.15d0) #C(49.27d0 -13.49d0) + #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0) + #C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0)))) + (SCALAR #C(32.5d0 42.73d0))) + (CL-ARRAY (SCALE SCALAR V1)))))) diff --git a/tests/set-basis.lisp b/tests/set-basis.lisp index c79be7f7..7e09aa7f 100644 --- a/tests/set-basis.lisp +++ b/tests/set-basis.lisp @@ -1,6 +1,6 @@ ;; Regression test SET-BASIS for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,127 +19,136 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST SET-BASIS - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(0.0 0.0 1.0 0.0 0.0 0.0 0.0 0.0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(-34.5 8.24 3.29 -8.93 34.12 - -6.15 49.27 -13.49)))) - (SET-BASIS V1 2) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(0.0d0 0.0d0 1.0d0 0.0d0 0.0d0 0.0d0 0.0d0 0.0d0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0 49.27d0 - -13.49d0)))) - (SET-BASIS V1 2) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(0.0 0.0) #C(0.0 0.0) #C(1.0 0.0) #C(0.0 0.0) - #C(0.0 0.0) #C(0.0 0.0) #C(0.0 0.0) #C(0.0 0.0))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5 8.24 3.29 -8.93 34.12 - -6.15 49.27 -13.49 32.5 42.73 - -17.24 43.31 -16.12 -8.25 21.44 - -49.08)))) - (SET-BASIS V1 2) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(0.0d0 0.0d0) #C(0.0d0 0.0d0) #C(1.0d0 0.0d0) - #C(0.0d0 0.0d0) #C(0.0d0 0.0d0) #C(0.0d0 0.0d0) - #C(0.0d0 0.0d0) #C(0.0d0 0.0d0))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0 49.27d0 -13.49d0 - 32.5d0 42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0 - -49.08d0)))) - (SET-BASIS V1 2) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(0 0 1 0 0 0 0 0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '(-64 -68 71 -91 52 -10 73 -5)))) - (SET-BASIS V1 2) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(0 0 1 0 0 0 0 0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) - :INITIAL-CONTENTS - '(67 44 189 116 163 140 161 215)))) - (SET-BASIS V1 2) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(0 0 1 0 0 0 0 0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS - '(-64 -68 71 -91 52 -10 73 -5)))) - (SET-BASIS V1 2) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(0 0 1 0 0 0 0 0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) - :INITIAL-CONTENTS - '(67 44 189 116 163 140 161 215)))) - (SET-BASIS V1 2) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(0 0 1 0 0 0 0 0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS - '(-64 -68 71 -91 52 -10 73 -5)))) - (SET-BASIS V1 2) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(0 0 1 0 0 0 0 0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) - :INITIAL-CONTENTS - '(67 44 189 116 163 140 161 215)))) - (SET-BASIS V1 2) - (CL-ARRAY V1)))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(0 0 1 0 0 0 0 0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS - '(-64 -68 71 -91 52 -10 73 -5)))) - (SET-BASIS V1 2) - (CL-ARRAY V1)))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(0 0 1 0 0 0 0 0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) - :INITIAL-CONTENTS - '(67 44 189 116 163 140 161 215)))) - (SET-BASIS V1 2) - (CL-ARRAY V1))))) - + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0.0 0.0 1.0 0.0 0.0 0.0 0.0 0.0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS + '(-34.5 8.24 3.29 -8.93 34.12 -6.15 49.27 -13.49)))) + (SET-BASIS V1 2) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(0.0d0 0.0d0 1.0d0 0.0d0 0.0d0 0.0d0 0.0d0 0.0d0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT + :INITIAL-CONTENTS + '(-34.5d0 8.24d0 3.29d0 -8.93d0 34.12d0 -6.15d0 49.27d0 -13.49d0)))) + (SET-BASIS V1 2) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(0.0 0.0) #C(0.0 0.0) #C(1.0 0.0) #C(0.0 0.0) + #C(0.0 0.0) #C(0.0 0.0) #C(0.0 0.0) #C(0.0 0.0))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5 8.24) #C(3.29 -8.93) + #C(34.12 -6.15) #C(49.27 -13.49) #C(32.5 42.73) + #C(-17.24 43.31) #C(-16.12 -8.25) #C(21.44 -49.08))))) + (SET-BASIS V1 2) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(0.0d0 0.0d0) #C(0.0d0 0.0d0) #C(1.0d0 0.0d0) + #C(0.0d0 0.0d0) #C(0.0d0 0.0d0) #C(0.0d0 0.0d0) + #C(0.0d0 0.0d0) #C(0.0d0 0.0d0))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) + #C(34.12d0 -6.15d0) #C(49.27d0 -13.49d0) + #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0) + #C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0))))) + (SET-BASIS V1 2) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0 0 1 0 0 0 0 0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) + :INITIAL-CONTENTS + '(-64 -68 71 -91 52 -10 73 -5)))) + (SET-BASIS V1 2) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0 0 1 0 0 0 0 0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS + '(67 44 189 116 163 140 161 215)))) + (SET-BASIS V1 2) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0 0 1 0 0 0 0 0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) + :INITIAL-CONTENTS + '(-64 -68 71 -91 52 -10 73 -5)))) + (SET-BASIS V1 2) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0 0 1 0 0 0 0 0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS + '(67 44 189 116 163 140 161 215)))) + (SET-BASIS V1 2) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0 0 1 0 0 0 0 0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 32) + :INITIAL-CONTENTS + '(-64 -68 71 -91 52 -10 73 -5)))) + (SET-BASIS V1 2) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0 0 1 0 0 0 0 0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS + '(67 44 189 116 163 140 161 215)))) + (SET-BASIS V1 2) + (CL-ARRAY V1)))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0 0 1 0 0 0 0 0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) + :INITIAL-CONTENTS + '(-64 -68 71 -91 52 -10 73 -5)))) + (SET-BASIS V1 2) + (CL-ARRAY V1)))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0 0 1 0 0 0 0 0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS + '(67 44 189 116 163 140 161 215)))) + (SET-BASIS V1 2) + (CL-ARRAY V1))))) diff --git a/tests/set-identity.lisp b/tests/set-identity.lisp index 0b281943..496b3c5c 100644 --- a/tests/set-identity.lisp +++ b/tests/set-identity.lisp @@ -1,6 +1,6 @@ ;; Regression test SET-IDENTITY for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,131 +19,132 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST SET-IDENTITY - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5))))) - (CL-ARRAY (SET-IDENTITY M1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((1.0d0 0.0d0 0.0d0) - (0.0d0 1.0d0 0.0d0) - (0.0d0 0.0d0 1.0d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0))))) - (CL-ARRAY (SET-IDENTITY M1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(1.0 0.0) #C(0.0 0.0) #C(0.0 0.0)) - (#C(0.0 0.0) #C(1.0 0.0) #C(0.0 0.0)) - (#C(0.0 0.0) #C(0.0 0.0) #C(1.0 0.0)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31))))) - (CL-ARRAY (SET-IDENTITY M1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(1.0d0 0.0d0) #C(0.0d0 0.0d0) #C(0.0d0 0.0d0)) - (#C(0.0d0 0.0d0) #C(1.0d0 0.0d0) #C(0.0d0 0.0d0)) - (#C(0.0d0 0.0d0) #C(0.0d0 0.0d0) - #C(1.0d0 0.0d0)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0))))) - (CL-ARRAY (SET-IDENTITY M1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((1 0 0) (0 1 0) (0 0 1))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (SET-IDENTITY M1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((1 0 0) (0 1 0) (0 0 1))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (SET-IDENTITY M1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((1 0 0) (0 1 0) (0 0 1))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (SET-IDENTITY M1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((1 0 0) (0 1 0) (0 0 1))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (SET-IDENTITY M1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((1 0 0) (0 1 0) (0 0 1))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (SET-IDENTITY M1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((1 0 0) (0 1 0) (0 0 1))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (SET-IDENTITY M1))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((1 0 0) (0 1 0) (0 0 1))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (SET-IDENTITY M1))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((1 0 0) (0 1 0) (0 0 1))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (SET-IDENTITY M1)))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5))))) + (CL-ARRAY (SET-IDENTITY M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((1.0d0 0.0d0 0.0d0) + (0.0d0 1.0d0 0.0d0) + (0.0d0 0.0d0 1.0d0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT + :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0))))) + (CL-ARRAY (SET-IDENTITY M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(1.0 0.0) #C(0.0 0.0) #C(0.0 0.0)) + (#C(0.0 0.0) #C(1.0 0.0) #C(0.0 0.0)) + (#C(0.0 0.0) #C(0.0 0.0) #C(1.0 0.0)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31)))))) + (CL-ARRAY (SET-IDENTITY M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(1.0d0 0.0d0) #C(0.0d0 0.0d0) #C(0.0d0 0.0d0)) + (#C(0.0d0 0.0d0) #C(1.0d0 0.0d0) #C(0.0d0 0.0d0)) + (#C(0.0d0 0.0d0) #C(0.0d0 0.0d0) + #C(1.0d0 0.0d0)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0)))))) + (CL-ARRAY (SET-IDENTITY M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((1 0 0) (0 1 0) (0 0 1))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (SET-IDENTITY M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((1 0 0) (0 1 0) (0 0 1))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (SET-IDENTITY M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((1 0 0) (0 1 0) (0 0 1))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (SET-IDENTITY M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((1 0 0) (0 1 0) (0 0 1))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (SET-IDENTITY M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((1 0 0) (0 1 0) (0 0 1))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 32) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (SET-IDENTITY M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((1 0 0) (0 1 0) (0 0 1))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (SET-IDENTITY M1))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((1 0 0) (0 1 0) (0 0 1))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (SET-IDENTITY M1))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((1 0 0) (0 1 0) (0 0 1))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (SET-IDENTITY M1)))))) diff --git a/tests/setf-column.lisp b/tests/setf-column.lisp index 68b7dd4e..d1f13c2c 100644 --- a/tests/setf-column.lisp +++ b/tests/setf-column.lisp @@ -19,189 +19,186 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST SETF-COLUMN - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((-34.5 8.24 42.73) - (-8.93 34.12 -17.24) - (49.27 -13.49 43.31))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(42.73 -17.24 43.31)))) - (SETF (COLUMN M1 2) COL) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((-34.5d0 8.24d0 42.73d0) - (-8.93d0 34.12d0 -17.24d0) - (49.27d0 -13.49d0 43.31d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(42.73d0 -17.24d0 43.31d0)))) - (SETF (COLUMN M1 2) COL) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(-34.5 8.24) #C(3.29 -8.93) #C(42.73 -17.24)) - (#C(-8.93 34.12) #C(-6.15 49.27) #C(43.31 -16.12)) - (#C(49.27 -13.49) #C(32.5 42.73) - #C(-8.25 21.44)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(42.73 -17.24 43.31 -16.12 -8.25 - 21.44)))) - (SETF (COLUMN M1 2) COL) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) - #C(42.73d0 -17.24d0)) - (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) - #C(43.31d0 -16.12d0)) - (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) - #C(-8.25d0 21.44d0)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0)))) - (SETF (COLUMN M1 2) COL) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 -68 32) (-91 52 28) (73 -5 30))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '(32 28 30)))) - (SETF (COLUMN M1 2) COL) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 44 28) (116 163 10) (161 215 19))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) - :INITIAL-CONTENTS '(28 10 19)))) - (SETF (COLUMN M1 2) COL) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 -68 32) (-91 52 28) (73 -5 30))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS '(32 28 30)))) - (SETF (COLUMN M1 2) COL) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 44 28) (116 163 10) (161 215 19))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) - :INITIAL-CONTENTS '(28 10 19)))) - (SETF (COLUMN M1 2) COL) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 -68 32) (-91 52 28) (73 -5 30))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS '(32 28 30)))) - (SETF (COLUMN M1 2) COL) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 44 28) (116 163 10) (161 215 19))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) - :INITIAL-CONTENTS '(28 10 19)))) - (SETF (COLUMN M1 2) COL) - (CL-ARRAY M1)))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 -68 32) (-91 52 28) (73 -5 30))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS '(32 28 30)))) - (SETF (COLUMN M1 2) COL) - (CL-ARRAY M1)))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 44 28) (116 163 10) (161 215 19))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98)))) - (COL - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) - :INITIAL-CONTENTS '(28 10 19)))) - (SETF (COLUMN M1 2) COL) - (CL-ARRAY M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((-34.5 8.24 42.73) + (-8.93 34.12 -17.24) + (49.27 -13.49 43.31))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5)))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT :INITIAL-CONTENTS + '(42.73 -17.24 43.31)))) + (SETF (COLUMN M1 2) COL) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((-34.5d0 8.24d0 42.73d0) + (-8.93d0 34.12d0 -17.24d0) + (49.27d0 -13.49d0 43.31d0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0)))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '(42.73d0 -17.24d0 43.31d0)))) + (SETF (COLUMN M1 2) COL) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(-34.5 8.24) #C(3.29 -8.93) #C(42.73 -17.24)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(43.31 -16.12)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-8.25 21.44)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31))))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(42.73 -17.24) #C(43.31 -16.12) #C(-8.25 21.44))))) + (SETF (COLUMN M1 2) COL) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(42.73d0 -17.24d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(43.31d0 -16.12d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-8.25d0 21.44d0)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0))))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(42.73d0 -17.24d0) #C(43.31d0 -16.12d0) #C(-8.25d0 21.44d0))))) + (SETF (COLUMN M1 2) COL) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 -68 32) (-91 52 28) (73 -5 30))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) + :INITIAL-CONTENTS '((-64 -68 71) (-91 52 -10) (73 -5 123)))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) + :INITIAL-CONTENTS '(32 28 30)))) + (SETF (COLUMN M1 2) COL) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 44 28) (116 163 10) (161 215 19))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS '((67 44 189) (116 163 140) (161 215 98)))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS '(28 10 19)))) + (SETF (COLUMN M1 2) COL) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 -68 32) (-91 52 28) (73 -5 30))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123)))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) + :INITIAL-CONTENTS '(32 28 30)))) + (SETF (COLUMN M1 2) COL) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 44 28) (116 163 10) (161 215 19))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS '((67 44 189) (116 163 140) (161 215 98)))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) :INITIAL-CONTENTS '(28 10 19)))) + (SETF (COLUMN M1 2) COL) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 -68 32) (-91 52 28) (73 -5 30))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 32) + :INITIAL-CONTENTS '((-64 -68 71) (-91 52 -10) (73 -5 123)))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 32) + :INITIAL-CONTENTS '(32 28 30)))) + (SETF (COLUMN M1 2) COL) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 44 28) (116 163 10) (161 215 19))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98)))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS '(28 10 19)))) + (SETF (COLUMN M1 2) COL) + (CL-ARRAY M1)))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 -68 32) (-91 52 28) (73 -5 30))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123)))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) :INITIAL-CONTENTS '(32 28 30)))) + (SETF (COLUMN M1 2) COL) + (CL-ARRAY M1)))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 44 28) (116 163 10) (161 215 19))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS '((67 44 189) (116 163 140) (161 215 98)))) + (COL + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 64) :INITIAL-CONTENTS '(28 10 19)))) + (SETF (COLUMN M1 2) COL) + (CL-ARRAY M1))))) diff --git a/tests/setf-row.lisp b/tests/setf-row.lisp index 541cc876..fb487d45 100644 --- a/tests/setf-row.lisp +++ b/tests/setf-row.lisp @@ -1,6 +1,6 @@ ;; Regression test SETF-ROW for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,189 +19,191 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST SETF-ROW - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (42.73 -17.24 43.31))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(42.73 -17.24 43.31)))) - (SETF (ROW M1 2) ROW) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (42.73d0 -17.24d0 43.31d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(42.73d0 -17.24d0 43.31d0)))) - (SETF (ROW M1 2) ROW) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) - (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) - (#C(42.73 -17.24) #C(43.31 -16.12) - #C(-8.25 21.44)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(42.73 -17.24 43.31 -16.12 -8.25 - 21.44)))) - (SETF (ROW M1 2) ROW) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) - #C(34.12d0 -6.15d0)) - (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) - #C(-13.49d0 32.5d0)) - (#C(42.73d0 -17.24d0) #C(43.31d0 -16.12d0) - #C(-8.25d0 21.44d0)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0)))) - (SETF (ROW M1 2) ROW) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 -68 71) (-91 52 -10) (32 28 30))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '(32 28 30)))) - (SETF (ROW M1 2) ROW) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 44 189) (116 163 140) (28 10 19))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) - :INITIAL-CONTENTS '(28 10 19)))) - (SETF (ROW M1 2) ROW) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 -68 71) (-91 52 -10) (32 28 30))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS '(32 28 30)))) - (SETF (ROW M1 2) ROW) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 44 189) (116 163 140) (28 10 19))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) - :INITIAL-CONTENTS '(28 10 19)))) - (SETF (ROW M1 2) ROW) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 -68 71) (-91 52 -10) (32 28 30))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS '(32 28 30)))) - (SETF (ROW M1 2) ROW) - (CL-ARRAY M1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 44 189) (116 163 140) (28 10 19))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) - :INITIAL-CONTENTS '(28 10 19)))) - (SETF (ROW M1 2) ROW) - (CL-ARRAY M1)))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 -68 71) (-91 52 -10) (32 28 30))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS '(32 28 30)))) - (SETF (ROW M1 2) ROW) - (CL-ARRAY M1)))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 44 189) (116 163 140) (28 10 19))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98)))) - (ROW - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) - :INITIAL-CONTENTS '(28 10 19)))) - (SETF (ROW M1 2) ROW) - (CL-ARRAY M1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (42.73 -17.24 43.31))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5)))) + (ROW + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS '(42.73 -17.24 43.31)))) + (SETF (ROW M1 2) ROW) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (42.73d0 -17.24d0 43.31d0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT + :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0)))) + (ROW + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT + :INITIAL-CONTENTS '(42.73d0 -17.24d0 43.31d0)))) + (SETF (ROW M1 2) ROW) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(42.73 -17.24) #C(43.31 -16.12) + #C(-8.25 21.44)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31))))) + (ROW + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS '(#C(42.73 -17.24) #C(43.31 -16.12) #C(-8.25 21.44))))) + (SETF (ROW M1 2) ROW) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(42.73d0 -17.24d0) #C(43.31d0 -16.12d0) #C(-8.25d0 21.44d0)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0))))) + (ROW + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS '(42.73d0 -17.24d0 43.31d0 -16.12d0 -8.25d0 21.44d0)))) + (SETF (ROW M1 2) ROW) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 -68 71) (-91 52 -10) (32 28 30))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123)))) + (ROW + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) + :INITIAL-CONTENTS '(32 28 30)))) + (SETF (ROW M1 2) ROW) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 44 189) (116 163 140) (28 10 19))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98)))) + (ROW + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS '(28 10 19)))) + (SETF (ROW M1 2) ROW) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 -68 71) (-91 52 -10) (32 28 30))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123)))) + (ROW + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) + :INITIAL-CONTENTS '(32 28 30)))) + (SETF (ROW M1 2) ROW) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 44 189) (116 163 140) (28 10 19))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS '((67 44 189) (116 163 140) (161 215 98)))) + (ROW + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS '(28 10 19)))) + (SETF (ROW M1 2) ROW) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 -68 71) (-91 52 -10) (32 28 30))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 32) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123)))) + (ROW + (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) :INITIAL-CONTENTS '(32 28 30)))) + (SETF (ROW M1 2) ROW) + (CL-ARRAY M1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 44 189) (116 163 140) (28 10 19))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98)))) + (ROW + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS '(28 10 19)))) + (SETF (ROW M1 2) ROW) + (CL-ARRAY M1)))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 -68 71) (-91 52 -10) (32 28 30))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123)))) + (ROW + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) + :INITIAL-CONTENTS '(32 28 30)))) + (SETF (ROW M1 2) ROW) + (CL-ARRAY M1)))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 44 189) (116 163 140) (28 10 19))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98)))) + (ROW + (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS '(28 10 19)))) + (SETF (ROW M1 2) ROW) + (CL-ARRAY M1))))) diff --git a/tests/swap-columns.lisp b/tests/swap-columns.lisp index 80b1dfb6..6691ce29 100644 --- a/tests/swap-columns.lisp +++ b/tests/swap-columns.lisp @@ -1,6 +1,6 @@ ;; Regression test SWAP-COLUMNS for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,137 +19,135 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST SWAP-COLUMNS - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((-34.5 3.29 8.24) - (-8.93 -6.15 34.12) - (49.27 32.5 -13.49))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5))))) - (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((-34.5d0 3.29d0 8.24d0) - (-8.93d0 -6.15d0 34.12d0) - (49.27d0 32.5d0 -13.49d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0))))) - (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(-34.5 8.24) #C(34.12 -6.15) #C(3.29 -8.93)) - (#C(-8.93 34.12) #C(-13.49 32.5) #C(-6.15 49.27)) - (#C(49.27 -13.49) #C(-17.24 43.31) - #C(32.5 42.73)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31))))) - (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(-34.5d0 8.24d0) #C(34.12d0 -6.15d0) - #C(3.29d0 -8.93d0)) - (#C(-8.93d0 34.12d0) #C(-13.49d0 32.5d0) - #C(-6.15d0 49.27d0)) - (#C(49.27d0 -13.49d0) #C(-17.24d0 43.31d0) - #C(32.5d0 42.73d0)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0))))) - (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 71 -68) (-91 -10 52) (73 123 -5))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 189 44) (116 140 163) (161 98 215))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 71 -68) (-91 -10 52) (73 123 -5))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 189 44) (116 140 163) (161 98 215))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 71 -68) (-91 -10 52) (73 123 -5))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 189 44) (116 140 163) (161 98 215))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-64 71 -68) (-91 -10 52) (73 123 -5))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((67 189 44) (116 140 163) (161 98 215))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (SWAP-COLUMNS M1 1 2)))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((-34.5 3.29 8.24) + (-8.93 -6.15 34.12) + (49.27 32.5 -13.49))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5))))) + (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((-34.5d0 3.29d0 8.24d0) + (-8.93d0 -6.15d0 34.12d0) + (49.27d0 32.5d0 -13.49d0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT + :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0))))) + (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(-34.5 8.24) #C(34.12 -6.15) #C(3.29 -8.93)) + (#C(-8.93 34.12) #C(-13.49 32.5) #C(-6.15 49.27)) + (#C(49.27 -13.49) #C(-17.24 43.31) + #C(32.5 42.73)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31)))))) + (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(-34.5d0 8.24d0) #C(34.12d0 -6.15d0) #C(3.29d0 -8.93d0)) + (#C(-8.93d0 34.12d0) #C(-13.49d0 32.5d0) #C(-6.15d0 49.27d0)) + (#C(49.27d0 -13.49d0) #C(-17.24d0 43.31d0) #C(32.5d0 42.73d0)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0)))))) + (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 71 -68) (-91 -10 52) (73 123 -5))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 189 44) (116 140 163) (161 98 215))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 71 -68) (-91 -10 52) (73 123 -5))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 189 44) (116 140 163) (161 98 215))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 71 -68) (-91 -10 52) (73 123 -5))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 32) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 189 44) (116 140 163) (161 98 215))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-64 71 -68) (-91 -10 52) (73 123 -5))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (SWAP-COLUMNS M1 1 2))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((67 189 44) (116 140 163) (161 98 215))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (SWAP-COLUMNS M1 1 2)))))) diff --git a/tests/swap-elements.lisp b/tests/swap-elements.lisp index 6700b13e..7602d5e1 100644 --- a/tests/swap-elements.lisp +++ b/tests/swap-elements.lisp @@ -1,6 +1,6 @@ ;; Regression test SWAP-ELEMENTS for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,131 +19,131 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST SWAP-ELEMENTS - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(-34.5 8.24 -6.15 -8.93 34.12 3.29 49.27 -13.49)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(-34.5 8.24 3.29 -8.93 34.12 - -6.15 49.27 -13.49)))) - (SWAP-ELEMENTS V1 2 5) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(-34.5d0 8.24d0 -6.15d0 -8.93d0 34.12d0 3.29d0 - 49.27d0 -13.49d0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0 49.27d0 - -13.49d0)))) - (SWAP-ELEMENTS V1 2 5) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(-34.5 8.24) #C(3.29 -8.93) #C(-17.24 43.31) - #C(49.27 -13.49) #C(32.5 42.73) #C(34.12 -6.15) - #C(-16.12 -8.25) #C(21.44 -49.08))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5 8.24 3.29 -8.93 34.12 - -6.15 49.27 -13.49 32.5 42.73 - -17.24 43.31 -16.12 -8.25 21.44 - -49.08)))) - (SWAP-ELEMENTS V1 2 5) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) - #C(-17.24d0 43.31d0) #C(49.27d0 -13.49d0) - #C(32.5d0 42.73d0) #C(34.12d0 -6.15d0) - #C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0 49.27d0 -13.49d0 - 32.5d0 42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0 - -49.08d0)))) - (SWAP-ELEMENTS V1 2 5) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(-64 -68 -10 -91 52 71 73 -5)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '(-64 -68 71 -91 52 -10 73 -5)))) - (SWAP-ELEMENTS V1 2 5) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(67 44 140 116 163 189 161 215)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) - :INITIAL-CONTENTS - '(67 44 189 116 163 140 161 215)))) - (SWAP-ELEMENTS V1 2 5) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(-64 -68 -10 -91 52 71 73 -5)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS - '(-64 -68 71 -91 52 -10 73 -5)))) - (SWAP-ELEMENTS V1 2 5) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(67 44 140 116 163 189 161 215)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) - :INITIAL-CONTENTS - '(67 44 189 116 163 140 161 215)))) - (SWAP-ELEMENTS V1 2 5) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(-64 -68 -10 -91 52 71 73 -5)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS - '(-64 -68 71 -91 52 -10 73 -5)))) - (SWAP-ELEMENTS V1 2 5) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(67 44 140 116 163 189 161 215)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) - :INITIAL-CONTENTS - '(67 44 189 116 163 140 161 215)))) - (SWAP-ELEMENTS V1 2 5) - (CL-ARRAY V1)))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(-64 -68 -10 -91 52 71 73 -5)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS - '(-64 -68 71 -91 52 -10 73 -5)))) - (SWAP-ELEMENTS V1 2 5) - (CL-ARRAY V1)))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(67 44 140 116 163 189 161 215)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) - :INITIAL-CONTENTS - '(67 44 189 116 163 140 161 215)))) - (SWAP-ELEMENTS V1 2 5) - (CL-ARRAY V1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(-34.5 8.24 -6.15 -8.93 34.12 3.29 49.27 -13.49)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS + '(-34.5 8.24 3.29 -8.93 34.12 -6.15 49.27 -13.49)))) + (SWAP-ELEMENTS V1 2 5) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(-34.5d0 8.24d0 -6.15d0 -8.93d0 34.12d0 3.29d0 + 49.27d0 -13.49d0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT :INITIAL-CONTENTS + '(-34.5d0 8.24d0 3.29d0 -8.93d0 34.12d0 -6.15d0 49.27d0 -13.49d0)))) + (SWAP-ELEMENTS V1 2 5) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(-34.5 8.24) #C(3.29 -8.93) #C(-17.24 43.31) + #C(49.27 -13.49) #C(32.5 42.73) #C(34.12 -6.15) + #C(-16.12 -8.25) #C(21.44 -49.08))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15) #C(49.27 -13.49) + #C(32.5 42.73) #C(-17.24 43.31) #C(-16.12 -8.25) #C(21.44 -49.08))))) + (SWAP-ELEMENTS V1 2 5) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) + #C(-17.24d0 43.31d0) #C(49.27d0 -13.49d0) + #C(32.5d0 42.73d0) #C(34.12d0 -6.15d0) + #C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) + #C(34.12d0 -6.15d0) #C(49.27d0 -13.49d0) + #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0) + #C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0))))) + (SWAP-ELEMENTS V1 2 5) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-64 -68 -10 -91 52 71 73 -5)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) + :INITIAL-CONTENTS '(-64 -68 71 -91 52 -10 73 -5)))) + (SWAP-ELEMENTS V1 2 5) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(67 44 140 116 163 189 161 215)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS '(67 44 189 116 163 140 161 215)))) + (SWAP-ELEMENTS V1 2 5) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-64 -68 -10 -91 52 71 73 -5)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) + :INITIAL-CONTENTS '(-64 -68 71 -91 52 -10 73 -5)))) + (SWAP-ELEMENTS V1 2 5) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(67 44 140 116 163 189 161 215)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS '(67 44 189 116 163 140 161 215)))) + (SWAP-ELEMENTS V1 2 5) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-64 -68 -10 -91 52 71 73 -5)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 32) + :INITIAL-CONTENTS '(-64 -68 71 -91 52 -10 73 -5)))) + (SWAP-ELEMENTS V1 2 5) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(67 44 140 116 163 189 161 215)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS '(67 44 189 116 163 140 161 215)))) + (SWAP-ELEMENTS V1 2 5) + (CL-ARRAY V1)))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-64 -68 -10 -91 52 71 73 -5)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) + :INITIAL-CONTENTS '(-64 -68 71 -91 52 -10 73 -5)))) + (SWAP-ELEMENTS V1 2 5) + (CL-ARRAY V1)))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(67 44 140 116 163 189 161 215)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS '(67 44 189 116 163 140 161 215)))) + (SWAP-ELEMENTS V1 2 5) + (CL-ARRAY V1))))) diff --git a/tests/swap-row-column.lisp b/tests/swap-row-column.lisp index 4e2c0a3c..393d13d4 100644 --- a/tests/swap-row-column.lisp +++ b/tests/swap-row-column.lisp @@ -1,6 +1,6 @@ ;; Regression test SWAP-ROW-COLUMN for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,136 +19,128 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST SWAP-ROW-COLUMN - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((3.29 -6.15 32.5) - (-8.93 34.12 8.24) - (49.27 -13.49 -34.5))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5))))) - (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((3.29d0 -6.15d0 32.5d0) - (-8.93d0 34.12d0 8.24d0) - (49.27d0 -13.49d0 -34.5d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0))))) - (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(34.12 -6.15) #C(-13.49 32.5) #C(-17.24 43.31)) - (#C(-8.93 34.12) #C(-6.15 49.27) #C(3.29 -8.93)) - (#C(49.27 -13.49) #C(32.5 42.73) #C(-34.5 8.24)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31))))) - (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(34.12d0 -6.15d0) #C(-13.49d0 32.5d0) - #C(-17.24d0 43.31d0)) - (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) - #C(3.29d0 -8.93d0)) - (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) - #C(-34.5d0 8.24d0)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0))))) - (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((71 -10 123) (-91 52 -68) (73 -5 -64))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((189 140 98) (116 163 44) (161 215 67))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((71 -10 123) (-91 52 -68) (73 -5 -64))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((189 140 98) (116 163 44) (161 215 67))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((71 -10 123) (-91 52 -68) (73 -5 -64))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((189 140 98) (116 163 44) (161 215 67))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((71 -10 123) (-91 52 -68) (73 -5 -64))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((189 140 98) (116 163 44) (161 215 67))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2)))))) - + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((3.29 -6.15 32.5) + (-8.93 34.12 8.24) + (49.27 -13.49 -34.5))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5))))) + (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((3.29d0 -6.15d0 32.5d0) + (-8.93d0 34.12d0 8.24d0) + (49.27d0 -13.49d0 -34.5d0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT + :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0))))) + (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(34.12 -6.15) #C(-13.49 32.5) #C(-17.24 43.31)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(3.29 -8.93)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-34.5 8.24)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31)))))) + (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(34.12d0 -6.15d0) #C(-13.49d0 32.5d0) #C(-17.24d0 43.31d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(3.29d0 -8.93d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-34.5d0 8.24d0)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0)))))) + (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((71 -10 123) (-91 52 -68) (73 -5 -64))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) + :INITIAL-CONTENTS '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((189 140 98) (116 163 44) (161 215 67))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((71 -10 123) (-91 52 -68) (73 -5 -64))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((189 140 98) (116 163 44) (161 215 67))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((71 -10 123) (-91 52 -68) (73 -5 -64))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 32) + :INITIAL-CONTENTS '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((189 140 98) (116 163 44) (161 215 67))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) + (161 215 98))))) + (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((71 -10 123) (-91 52 -68) (73 -5 -64))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) + :INITIAL-CONTENTS '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((189 140 98) (116 163 44) (161 215 67))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (SWAP-ROW-COLUMN M1 0 2)))))) diff --git a/tests/swap-rows.lisp b/tests/swap-rows.lisp index cfc02700..cb088611 100644 --- a/tests/swap-rows.lisp +++ b/tests/swap-rows.lisp @@ -1,6 +1,6 @@ ;; Regression test SWAP-ROWS for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,137 +19,135 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST SWAP-ROWS - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((-8.93 34.12 -6.15) - (-34.5 8.24 3.29) - (49.27 -13.49 32.5))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '((-34.5 8.24 3.29) - (-8.93 34.12 -6.15) - (49.27 -13.49 32.5))))) - (CL-ARRAY (SWAP-ROWS M1 0 1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((-8.93d0 34.12d0 -6.15d0) - (-34.5d0 8.24d0 3.29d0) - (49.27d0 -13.49d0 32.5d0))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0) - (-8.93d0 34.12d0 -6.15d0) - (49.27d0 -13.49d0 32.5d0))))) - (CL-ARRAY (SWAP-ROWS M1 0 1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) - (#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) - (#C(49.27 -13.49) #C(32.5 42.73) - #C(-17.24 43.31)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5 8.24 3.29 -8.93 34.12 - -6.15) - (-8.93 34.12 -6.15 49.27 -13.49 - 32.5) - (49.27 -13.49 32.5 42.73 -17.24 - 43.31))))) - (CL-ARRAY (SWAP-ROWS M1 0 1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #2A((#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) - #C(-13.49d0 32.5d0)) - (#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) - #C(34.12d0 -6.15d0)) - (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) - #C(-17.24d0 43.31d0)))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '((-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0) - (-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0) - (49.27d0 -13.49d0 32.5d0 42.73d0 - -17.24d0 43.31d0))))) - (CL-ARRAY (SWAP-ROWS M1 0 1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-91 52 -10) (-64 -68 71) (73 -5 123))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (SWAP-ROWS M1 0 1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((116 163 140) (67 44 189) (161 215 98))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (SWAP-ROWS M1 0 1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-91 52 -10) (-64 -68 71) (73 -5 123))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (SWAP-ROWS M1 0 1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((116 163 140) (67 44 189) (161 215 98))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (SWAP-ROWS M1 0 1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-91 52 -10) (-64 -68 71) (73 -5 123))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (SWAP-ROWS M1 0 1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((116 163 140) (67 44 189) (161 215 98))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (SWAP-ROWS M1 0 1))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((-91 52 -10) (-64 -68 71) (73 -5 123))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS - '((-64 -68 71) (-91 52 -10) - (73 -5 123))))) - (CL-ARRAY (SWAP-ROWS M1 0 1))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #2A((116 163 140) (67 44 189) (161 215 98))) - (MULTIPLE-VALUE-LIST - (LET ((M1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) - :INITIAL-CONTENTS - '((67 44 189) (116 163 140) - (161 215 98))))) - (CL-ARRAY (SWAP-ROWS M1 0 1)))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((-8.93 34.12 -6.15) + (-34.5 8.24 3.29) + (49.27 -13.49 32.5))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS + '((-34.5 8.24 3.29) + (-8.93 34.12 -6.15) + (49.27 -13.49 32.5))))) + (CL-ARRAY (SWAP-ROWS M1 0 1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((-8.93d0 34.12d0 -6.15d0) + (-34.5d0 8.24d0 3.29d0) + (49.27d0 -13.49d0 32.5d0))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT + :INITIAL-CONTENTS + '((-34.5d0 8.24d0 3.29d0) + (-8.93d0 34.12d0 -6.15d0) + (49.27d0 -13.49d0 32.5d0))))) + (CL-ARRAY (SWAP-ROWS M1 0 1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(49.27 -13.49) #C(32.5 42.73) + #C(-17.24 43.31)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)) + (#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + (#C(49.27 -13.49) #C(32.5 42.73) #C(-17.24 43.31)))))) + (CL-ARRAY (SWAP-ROWS M1 0 1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #2A((#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0)))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '((#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)) + (#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + (#C(49.27d0 -13.49d0) #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0)))))) + (CL-ARRAY (SWAP-ROWS M1 0 1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-91 52 -10) (-64 -68 71) (73 -5 123))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (SWAP-ROWS M1 0 1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((116 163 140) (67 44 189) (161 215 98))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (SWAP-ROWS M1 0 1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-91 52 -10) (-64 -68 71) (73 -5 123))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (SWAP-ROWS M1 0 1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((116 163 140) (67 44 189) (161 215 98))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (SWAP-ROWS M1 0 1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-91 52 -10) (-64 -68 71) (73 -5 123))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 32) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (SWAP-ROWS M1 0 1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((116 163 140) (67 44 189) (161 215 98))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (SWAP-ROWS M1 0 1))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((-91 52 -10) (-64 -68 71) (73 -5 123))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) + :INITIAL-CONTENTS + '((-64 -68 71) (-91 52 -10) (73 -5 123))))) + (CL-ARRAY (SWAP-ROWS M1 0 1))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #2A((116 163 140) (67 44 189) (161 215 98))) + (MULTIPLE-VALUE-LIST + (LET ((M1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS + '((67 44 189) (116 163 140) (161 215 98))))) + (CL-ARRAY (SWAP-ROWS M1 0 1)))))) diff --git a/tests/vector-reverse.lisp b/tests/vector-reverse.lisp index 39f0385c..4576422e 100644 --- a/tests/vector-reverse.lisp +++ b/tests/vector-reverse.lisp @@ -1,6 +1,6 @@ ;; Regression test VECTOR-REVERSE for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,119 +19,120 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST VECTOR-REVERSE - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(-13.49 49.27 -6.15 34.12 -8.93 3.29 8.24 -34.5)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(-34.5 8.24 3.29 -8.93 34.12 - -6.15 49.27 -13.49)))) - (CL-ARRAY (VECTOR-REVERSE V1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(-13.49d0 49.27d0 -6.15d0 34.12d0 -8.93d0 3.29d0 - 8.24d0 -34.5d0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0 49.27d0 - -13.49d0)))) - (CL-ARRAY (VECTOR-REVERSE V1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(21.44 -49.08) #C(-16.12 -8.25) #C(-17.24 43.31) - #C(32.5 42.73) #C(49.27 -13.49) #C(34.12 -6.15) - #C(3.29 -8.93) #C(-34.5 8.24))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5 8.24 3.29 -8.93 34.12 - -6.15 49.27 -13.49 32.5 42.73 - -17.24 43.31 -16.12 -8.25 21.44 - -49.08)))) - (CL-ARRAY (VECTOR-REVERSE V1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(21.44d0 -49.08d0) #C(-16.12d0 -8.25d0) - #C(-17.24d0 43.31d0) #C(32.5d0 42.73d0) - #C(49.27d0 -13.49d0) #C(34.12d0 -6.15d0) - #C(3.29d0 -8.93d0) #C(-34.5d0 8.24d0))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0 49.27d0 -13.49d0 - 32.5d0 42.73d0 -17.24d0 43.31d0 - -16.12d0 -8.25d0 21.44d0 - -49.08d0)))) - (CL-ARRAY (VECTOR-REVERSE V1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(-5 73 -10 52 -91 71 -68 -64)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '(-64 -68 71 -91 52 -10 73 -5)))) - (CL-ARRAY (VECTOR-REVERSE V1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(215 161 140 163 116 189 44 67)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) - :INITIAL-CONTENTS - '(67 44 189 116 163 140 161 215)))) - (CL-ARRAY (VECTOR-REVERSE V1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(-5 73 -10 52 -91 71 -68 -64)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS - '(-64 -68 71 -91 52 -10 73 -5)))) - (CL-ARRAY (VECTOR-REVERSE V1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(215 161 140 163 116 189 44 67)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) - :INITIAL-CONTENTS - '(67 44 189 116 163 140 161 215)))) - (CL-ARRAY (VECTOR-REVERSE V1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(-5 73 -10 52 -91 71 -68 -64)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS - '(-64 -68 71 -91 52 -10 73 -5)))) - (CL-ARRAY (VECTOR-REVERSE V1))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(215 161 140 163 116 189 44 67)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) - :INITIAL-CONTENTS - '(67 44 189 116 163 140 161 215)))) - (CL-ARRAY (VECTOR-REVERSE V1))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(-5 73 -10 52 -91 71 -68 -64)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS - '(-64 -68 71 -91 52 -10 73 -5)))) - (CL-ARRAY (VECTOR-REVERSE V1))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(215 161 140 163 116 189 44 67)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) - :INITIAL-CONTENTS - '(67 44 189 116 163 140 161 215)))) - (CL-ARRAY (VECTOR-REVERSE V1)))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(-13.49 49.27 -6.15 34.12 -8.93 3.29 8.24 -34.5)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS '(-34.5 8.24 3.29 -8.93 34.12 -6.15 49.27 -13.49)))) + (CL-ARRAY (VECTOR-REVERSE V1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(-13.49d0 49.27d0 -6.15d0 34.12d0 -8.93d0 3.29d0 + 8.24d0 -34.5d0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT + :INITIAL-CONTENTS + '(-34.5d0 8.24d0 3.29d0 -8.93d0 34.12d0 -6.15d0 49.27d0 -13.49d0)))) + (CL-ARRAY (VECTOR-REVERSE V1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(21.44 -49.08) #C(-16.12 -8.25) #C(-17.24 43.31) + #C(32.5 42.73) #C(49.27 -13.49) #C(34.12 -6.15) + #C(3.29 -8.93) #C(-34.5 8.24))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15) + #C(49.27 -13.49) #C(32.5 42.73) + #C(-17.24 43.31) #C(-16.12 -8.25) #C(21.44 -49.08))))) + (CL-ARRAY (VECTOR-REVERSE V1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(21.44d0 -49.08d0) #C(-16.12d0 -8.25d0) + #C(-17.24d0 43.31d0) #C(32.5d0 42.73d0) + #C(49.27d0 -13.49d0) #C(34.12d0 -6.15d0) + #C(3.29d0 -8.93d0) #C(-34.5d0 8.24d0))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) + #C(34.12d0 -6.15d0) #C(49.27d0 -13.49d0) + #C(32.5d0 42.73d0) #C(-17.24d0 43.31d0) + #C(-16.12d0 -8.25d0) #C(21.44d0 -49.08d0))))) + (CL-ARRAY (VECTOR-REVERSE V1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-5 73 -10 52 -91 71 -68 -64)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) + :INITIAL-CONTENTS '(-64 -68 71 -91 52 -10 73 -5)))) + (CL-ARRAY (VECTOR-REVERSE V1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(215 161 140 163 116 189 44 67)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS '(67 44 189 116 163 140 161 215)))) + (CL-ARRAY (VECTOR-REVERSE V1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-5 73 -10 52 -91 71 -68 -64)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) + :INITIAL-CONTENTS '(-64 -68 71 -91 52 -10 73 -5)))) + (CL-ARRAY (VECTOR-REVERSE V1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(215 161 140 163 116 189 44 67)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS '(67 44 189 116 163 140 161 215)))) + (CL-ARRAY (VECTOR-REVERSE V1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-5 73 -10 52 -91 71 -68 -64)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 32) + :INITIAL-CONTENTS '(-64 -68 71 -91 52 -10 73 -5)))) + (CL-ARRAY (VECTOR-REVERSE V1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(215 161 140 163 116 189 44 67)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS '(67 44 189 116 163 140 161 215)))) + (CL-ARRAY (VECTOR-REVERSE V1))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(-5 73 -10 52 -91 71 -68 -64)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) + :INITIAL-CONTENTS '(-64 -68 71 -91 52 -10 73 -5)))) + (CL-ARRAY (VECTOR-REVERSE V1))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(215 161 140 163 116 189 44 67)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS '(67 44 189 116 163 140 161 215)))) + (CL-ARRAY (VECTOR-REVERSE V1)))))) diff --git a/tests/vector-set-zero.lisp b/tests/vector-set-zero.lisp index cb5e579a..7dd66828 100644 --- a/tests/vector-set-zero.lisp +++ b/tests/vector-set-zero.lisp @@ -1,6 +1,6 @@ ;; Regression test VECTOR-SET-ZERO for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,133 +19,94 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST VECTOR-SET-ZERO - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(0.0 0.0 0.0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - 'SINGLE-FLOAT - :INITIAL-CONTENTS - '(-34.5 8.24 - 3.29)))) - (SET-ZERO V1) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(0.0d0 0.0d0 0.0d0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0)))) - (SET-ZERO V1) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST #(#C(0.0 0.0) #C(0.0 0.0) #C(0.0 0.0))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5 8.24 3.29 -8.93 34.12 - -6.15)))) - (SET-ZERO V1) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - #(#C(0.0d0 0.0d0) #C(0.0d0 0.0d0) #C(0.0d0 0.0d0))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0)))) - (SET-ZERO V1) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(0 0 0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 8) - :INITIAL-CONTENTS - '(-64 -68 - 71)))) - (SET-ZERO V1) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(0 0 0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 8) - :INITIAL-CONTENTS - '(67 44 - 189)))) - (SET-ZERO V1) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(0 0 0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 16) - :INITIAL-CONTENTS - '(-64 -68 - 71)))) - (SET-ZERO V1) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(0 0 0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 16) - :INITIAL-CONTENTS - '(67 44 - 189)))) - (SET-ZERO V1) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(0 0 0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 32) - :INITIAL-CONTENTS - '(-64 -68 - 71)))) - (SET-ZERO V1) - (CL-ARRAY V1)))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(0 0 0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 32) - :INITIAL-CONTENTS - '(67 44 - 189)))) - (SET-ZERO V1) - (CL-ARRAY V1)))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(0 0 0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - '(SIGNED-BYTE - 64) - :INITIAL-CONTENTS - '(-64 -68 - 71)))) - (SET-ZERO V1) - (CL-ARRAY V1)))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL (LIST #(0 0 0)) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY - '(UNSIGNED-BYTE - 64) - :INITIAL-CONTENTS - '(67 44 - 189)))) - (SET-ZERO V1) - (CL-ARRAY V1))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0.0 0.0 0.0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS '(-34.5 8.24 3.29)))) + (SET-ZERO V1) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0.0d0 0.0d0 0.0d0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS '(-34.5d0 8.24d0 3.29d0)))) + (SET-ZERO V1) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(#C(0.0 0.0) #C(0.0 0.0) #C(0.0 0.0))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS '(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15))))) + (SET-ZERO V1) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + #(#C(0.0d0 0.0d0) #C(0.0d0 0.0d0) #C(0.0d0 0.0d0))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0))))) + (SET-ZERO V1) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0 0 0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS '(-64 -68 71)))) + (SET-ZERO V1) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0 0 0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS '(67 44 189)))) + (SET-ZERO V1) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0 0 0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) :INITIAL-CONTENTS '(-64 -68 71)))) + (SET-ZERO V1) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0 0 0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) :INITIAL-CONTENTS '(67 44 189)))) + (SET-ZERO V1) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0 0 0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) :INITIAL-CONTENTS '(-64 -68 71)))) + (SET-ZERO V1) + (CL-ARRAY V1)))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0 0 0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) :INITIAL-CONTENTS '(67 44 189)))) + (SET-ZERO V1) + (CL-ARRAY V1)))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0 0 0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) :INITIAL-CONTENTS '(-64 -68 71)))) + (SET-ZERO V1) + (CL-ARRAY V1)))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST #(0 0 0)) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) :INITIAL-CONTENTS '(67 44 189)))) + (SET-ZERO V1) + (CL-ARRAY V1))))) diff --git a/tests/vector-swap.lisp b/tests/vector-swap.lisp index 73e41e67..5d466947 100644 --- a/tests/vector-swap.lisp +++ b/tests/vector-swap.lisp @@ -1,6 +1,6 @@ ;; Regression test VECTOR-SWAP for GSLL, automatically generated ;; -;; Copyright 2009 Liam M. Healy +;; Copyright 2009, 2010 Liam M. Healy ;; Distributed under the terms of the GNU General Public License ;; ;; This program is free software: you can redistribute it and/or modify @@ -19,156 +19,174 @@ (in-package :gsl) (LISP-UNIT:DEFINE-TEST VECTOR-SWAP - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST (LIST #(-8.93 34.12 -6.15) #(-34.5 8.24 3.29))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(-34.5 8.24 3.29))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS - '(-8.93 34.12 -6.15)))) - (SWAP V2 V1) - (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - (LIST #(-8.93d0 34.12d0 -6.15d0) - #(-34.5d0 8.24d0 3.29d0))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS - '(-8.93d0 34.12d0 -6.15d0)))) - (SWAP V2 V1) - (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - (LIST - #(#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) - #(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5 8.24 3.29 -8.93 34.12 - -6.15))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT) - :INITIAL-CONTENTS - '(-8.93 34.12 -6.15 49.27 -13.49 - 32.5)))) - (SWAP V2 V1) - (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST - (LIST - #(#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) - #C(-13.49d0 32.5d0)) - #(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) - #C(34.12d0 -6.15d0)))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-34.5d0 8.24d0 3.29d0 -8.93d0 - 34.12d0 -6.15d0))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT) - :INITIAL-CONTENTS - '(-8.93d0 34.12d0 -6.15d0 49.27d0 - -13.49d0 32.5d0)))) - (SWAP V2 V1) - (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST (LIST #(-91 52 -10) #(-64 -68 71))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '(-64 -68 71))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS - '(-91 52 -10)))) - (SWAP V2 V1) - (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST (LIST #(116 163 140) #(67 44 189))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) - :INITIAL-CONTENTS '(67 44 189))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) - :INITIAL-CONTENTS '(116 163 140)))) - (SWAP V2 V1) - (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST (LIST #(-91 52 -10) #(-64 -68 71))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS '(-64 -68 71))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) - :INITIAL-CONTENTS '(-91 52 -10)))) - (SWAP V2 V1) - (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST (LIST #(116 163 140) #(67 44 189))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) - :INITIAL-CONTENTS '(67 44 189))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) - :INITIAL-CONTENTS '(116 163 140)))) - (SWAP V2 V1) - (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST (LIST #(-91 52 -10) #(-64 -68 71))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS '(-64 -68 71))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) - :INITIAL-CONTENTS '(-91 52 -10)))) - (SWAP V2 V1) - (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST (LIST #(116 163 140) #(67 44 189))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) - :INITIAL-CONTENTS '(67 44 189))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) - :INITIAL-CONTENTS '(116 163 140)))) - (SWAP V2 V1) - (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST (LIST #(-91 52 -10) #(-64 -68 71))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS '(-64 -68 71))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) - :INITIAL-CONTENTS '(-91 52 -10)))) - (SWAP V2 V1) - (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) - #+int64 - (LISP-UNIT::ASSERT-NUMERICAL-EQUAL - (LIST (LIST #(116 163 140) #(67 44 189))) - (MULTIPLE-VALUE-LIST - (LET ((V1 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) - :INITIAL-CONTENTS '(67 44 189))) - (V2 - (GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) - :INITIAL-CONTENTS '(116 163 140)))) - (SWAP V2 V1) - (LIST (CL-ARRAY V1) (CL-ARRAY V2)))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST (LIST #(-8.93 34.12 -6.15) #(-34.5 8.24 3.29))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS '(-34.5 8.24 3.29))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + 'SINGLE-FLOAT + :INITIAL-CONTENTS '(-8.93 34.12 -6.15)))) + (SWAP V2 V1) + (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + (LIST #(-8.93d0 34.12d0 -6.15d0) + #(-34.5d0 8.24d0 3.29d0))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT + :INITIAL-CONTENTS '(-34.5d0 8.24d0 3.29d0))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + 'DOUBLE-FLOAT + :INITIAL-CONTENTS '(-8.93d0 34.12d0 -6.15d0)))) + (SWAP V2 V1) + (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + (LIST + #(#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5)) + #(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX SINGLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-8.93 34.12) #C(-6.15 49.27) #C(-13.49 32.5))))) + (SWAP V2 V1) + (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST + (LIST + #(#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0)) + #(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-34.5d0 8.24d0) #C(3.29d0 -8.93d0) #C(34.12d0 -6.15d0)))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(COMPLEX DOUBLE-FLOAT) + :INITIAL-CONTENTS + '(#C(-8.93d0 34.12d0) #C(-6.15d0 49.27d0) #C(-13.49d0 32.5d0))))) + (SWAP V2 V1) + (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST (LIST #(-91 52 -10) #(-64 -68 71))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) + :INITIAL-CONTENTS '(-64 -68 71))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 8) + :INITIAL-CONTENTS '(-91 52 -10)))) + (SWAP V2 V1) + (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST (LIST #(116 163 140) #(67 44 189))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS '(67 44 189))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 8) + :INITIAL-CONTENTS '(116 163 140)))) + (SWAP V2 V1) + (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST (LIST #(-91 52 -10) #(-64 -68 71))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) + :INITIAL-CONTENTS '(-64 -68 71))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 16) + :INITIAL-CONTENTS '(-91 52 -10)))) + (SWAP V2 V1) + (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST (LIST #(116 163 140) #(67 44 189))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS '(67 44 189))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 16) + :INITIAL-CONTENTS '(116 163 140)))) + (SWAP V2 V1) + (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST (LIST #(-91 52 -10) #(-64 -68 71))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 32) + :INITIAL-CONTENTS '(-64 -68 71))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 32) + :INITIAL-CONTENTS '(-91 52 -10)))) + (SWAP V2 V1) + (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST (LIST #(116 163 140) #(67 44 189))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS '(67 44 189))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 32) + :INITIAL-CONTENTS '(116 163 140)))) + (SWAP V2 V1) + (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST (LIST #(-91 52 -10) #(-64 -68 71))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) + :INITIAL-CONTENTS '(-64 -68 71))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(SIGNED-BYTE 64) + :INITIAL-CONTENTS '(-91 52 -10)))) + (SWAP V2 V1) + (LIST (CL-ARRAY V1) (CL-ARRAY V2))))) + #+int64 + (LISP-UNIT::ASSERT-NUMERICAL-EQUAL + (LIST (LIST #(116 163 140) #(67 44 189))) + (MULTIPLE-VALUE-LIST + (LET ((V1 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS '(67 44 189))) + (V2 + (GRID:MAKE-FOREIGN-ARRAY + '(UNSIGNED-BYTE 64) + :INITIAL-CONTENTS '(116 163 140)))) + (SWAP V2 V1) + (LIST (CL-ARRAY V1) (CL-ARRAY V2)))))) -- GitLab