Commit 52cc09fe authored by Liam M. Healy's avatar Liam M. Healy Committed by Liam M. Healy

Single-float tests have explicit single-float numbers (finish)

parent c3be4c44
;; Regression test MATRIX-PRODUCT-NONSQUARE for GSLL, automatically generated
;;
;; Copyright 2009, 2010 Liam M. Healy
;; Copyright 2009, 2010, 2011 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,18 +20,18 @@
(LISP-UNIT:DEFINE-TEST MATRIX-PRODUCT-NONSQUARE
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((-1488.7347 959.9901) (774.94495 1312.0566)))
(LIST #2A((-1488.7347f0 959.9901f0) (774.94495f0 1312.0566f0)))
(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))))
'((-34.5f0 8.24f0 3.29f0)
(-8.93f0 34.12f0 -6.15f0))))
(M2
(GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT :INITIAL-CONTENTS
'((49.27 -13.49) (32.5 42.73)
(-17.24 43.31)))))
'((49.27f0 -13.49f0) (32.5f0 42.73f0)
(-17.24f0 43.31f0)))))
(GRID:COPY-TO (MATRIX-PRODUCT M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
......@@ -53,24 +53,24 @@
#+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))))
#2A((#C(-1422.0259f0 2305.5098f0)
#C(-1744.0583f0 -1092.294f0))
(#C(-3459.892f0 1995.4918f0)
#C(-3290.4465f0 -801.0577f0))))
(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(-34.5f0 8.24f0) #C(3.29f0 -8.93f0) #C(34.12f0 -6.15f0))
(#C(-8.93f0 34.12f0) #C(-6.15f0 49.27f0) #C(-13.49f0 32.5f0)))))
(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))))))
'((#C(49.27f0 -13.49f0) #C(32.5f0 42.73f0))
(#C(32.5f0 42.73f0) #C(-17.24f0 43.31f0))
(#C(-17.24f0 43.31f0) #C(-16.12f0 -8.25f0))))))
(GRID:COPY-TO (MATRIX-PRODUCT M1 M2)))))
#+fsbv
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
......
;; Regression test MATRIX-PRODUCT-SYMMETRIC for GSLL, automatically generated
;;
;; Copyright 2009 Liam M. Healy
;; Copyright 2009, 2011 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,95 +19,95 @@
(in-package :gsl)
(LISP-UNIT:DEFINE-TEST MATRIX-PRODUCT-SYMMETRIC
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
#2A((74519.41 -16747.695 61311.69)
(-3264.9219 6201.1797 -56698.92)
(57711.813 52563.74 65404.063)))
(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))
(GRID:COPY-TO
(MATRIX-PRODUCT-SYMMETRIC M1 M2 M3 S1 S2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
#2A((74519.41329d0 -16747.696062d0
61311.694176000005d0)
(-3264.923076000001d0 6201.180462000002d0
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
#2A((74519.41f0 -16747.695f0 61311.69f0)
(-3264.9219f0 6201.1797f0 -56698.92f0)
(57711.813f0 52563.74f0 65404.063f0)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS
'((-34.5f0 8.24f0 3.29f0)
(-8.93f0 34.12f0 -6.15f0)
(49.27f0 -13.49f0 32.5f0))))
(M2
(GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS
'((42.73f0 -17.24f0 43.31f0)
(-16.12f0 -8.25f0 21.44f0)
(-49.08f0 -39.66f0 -49.46f0))))
(M3
(GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS
'((19.68f0 -5.55f0 -8.82f0)
(25.37f0 -30.58f0 31.67f0)
(29.36f0 -33.24f0 -27.03f0))))
(S1 -41.67f0)
(S2 42.0f0))
(GRID:COPY-TO
(MATRIX-PRODUCT-SYMMETRIC M1 M2 M3 S1 S2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
#2A((74519.41329d0 -16747.696062d0
61311.694176000005d0)
(-3264.923076000001d0 6201.180462000002d0
-56698.92695400001d0)
(57711.81710100001d0 52563.740607d0
65404.066887d0)))
(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))
(GRID:COPY-TO
(MATRIX-PRODUCT-SYMMETRIC M1 M2 M3 S1 S2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #(72971.1 24989.41 -82037.61))
(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)))
(V3
(GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS
'(-16.12 -8.25 21.44)))
(S1 -49.08)
(S2 -39.66))
(GRID:COPY-TO
(MATRIX-PRODUCT-SYMMETRIC M1 V1 V3 S1 S2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
#(72971.10171599999d0 24989.409107999996d0
-82037.597316d0))
(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)))
(V3
(GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS
'(-16.12d0 -8.25d0 21.44d0)))
(S1 -49.08d0)
(S2 -39.66d0))
(GRID:COPY-TO
(MATRIX-PRODUCT-SYMMETRIC M1 V1 V3 S1 S2))))))
(57711.81710100001d0 52563.740607d0
65404.066887d0)))
(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))
(GRID:COPY-TO
(MATRIX-PRODUCT-SYMMETRIC M1 M2 M3 S1 S2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #(72971.1f0 24989.41f0 -82037.61f0))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS
'((-34.5f0 8.24f0 3.29f0)
(-8.93f0 34.12f0 -6.15f0)
(49.27f0 -13.49f0 32.5f0))))
(V1
(GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS
'(42.73f0 -17.24f0 43.31f0)))
(V3
(GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :INITIAL-CONTENTS
'(-16.12f0 -8.25f0 21.44f0)))
(S1 -49.08f0)
(S2 -39.66f0))
(GRID:COPY-TO
(MATRIX-PRODUCT-SYMMETRIC M1 V1 V3 S1 S2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
#(72971.10171599999d0 24989.409107999996d0
-82037.597316d0))
(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)))
(V3
(GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :INITIAL-CONTENTS
'(-16.12d0 -8.25d0 21.44d0)))
(S1 -49.08d0)
(S2 -39.66d0))
(GRID:COPY-TO
(MATRIX-PRODUCT-SYMMETRIC M1 V1 V3 S1 S2))))))
......@@ -21,23 +21,23 @@
(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)))
#2A((-34803.82f0 7799.5503f0 -29131.375f0)
(-4884.0327f0 -739.594f0 20382.809f0)
(-31391.57f0 -25366.535f0 -31634.615f0)))
(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))))
'((-34.5f0 8.24f0 3.29f0)
(-8.93f0 34.12f0 -6.15f0)
(49.27f0 -13.49f0 32.5f0))))
(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))
'((42.73f0 -17.24f0 43.31f0)
(-16.12f0 -8.25f0 21.44f0)
(-49.08f0 -39.66f0 -49.46f0))))
(S1 19.68f0))
(GRID:COPY-TO (MATRIX-PRODUCT-TRIANGULAR M1 M2 S1)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
......@@ -62,25 +62,25 @@
#+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))))
#2A((#C(-66397.9f0 18986.908f0) #C(-56335.145f0 48514.305f0) #C(-18830.469f0 -13449.601f0))
(#C(38337.09f0 -49128.918f0) #C(42681.344f0 -22972.445f0) #C(50375.406f0 -50562.54f0))
(#C(42453.223f0 -42606.086f0) #C(-13764.868f0 -48835.813f0) #C(8910.526f0 -4389.117f0))))
(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)))))
'((#C(-34.5f0 8.24f0) #C(3.29f0 -8.93f0) #C(34.12f0 -6.15f0))
(#C(-8.93f0 34.12f0) #C(-6.15f0 49.27f0) #C(-13.49f0 32.5f0))
(#C(49.27f0 -13.49f0) #C(32.5f0 42.73f0) #C(-17.24f0 43.31f0)))))
(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)))
'((#C(42.73f0 -17.24f0) #C(43.31f0 -16.12f0) #C(-8.25f0 21.44f0))
(#C(-16.12f0 -8.25f0) #C(21.44f0 -49.08f0) #C(-39.66f0 -49.46f0))
(#C(-49.08f0 -39.66f0) #C(-49.46f0 19.68f0) #C(-5.55f0 -8.82f0)))))
(S1 #C(19.68f0 -5.55f0)))
(GRID:COPY-TO (MATRIX-PRODUCT-TRIANGULAR M1 M2 S1)))))
#+fsbv
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
......@@ -112,19 +112,19 @@
(S1 #C(19.68d0 -5.55d0)))
(GRID:COPY-TO (MATRIX-PRODUCT-TRIANGULAR M1 M2 S1)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #(-1473.7527 -854.58527 1407.5751))
(LIST #(-1473.7527f0 -854.58527f0 1407.5751f0))
(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))))
'((-34.5f0 8.24f0 3.29f0)
(-8.93f0 34.12f0 -6.15f0)
(49.27f0 -13.49f0 32.5f0))))
(V1
(GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT :INITIAL-CONTENTS
'(42.73 -17.24 43.31)))
(S1 -16.12))
'(42.73f0 -17.24f0 43.31f0)))
(S1 -16.12f0))
(GRID:COPY-TO (MATRIX-PRODUCT-TRIANGULAR M1 V1 S1)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #(-1473.7527d0 -854.5853d0 1407.575d0))
......@@ -144,22 +144,22 @@
#+fsbv
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
#(#C(-1483.223 1289.3523) #C(-57.63159 1675.6711)
#C(-786.3365 -726.9331)))
#(#C(-1483.223f0 1289.3523f0) #C(-57.63159f0 1675.6711f0)
#C(-786.3365f0 -726.9331f0)))
(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)))))
'((#C(-34.5f0 8.24f0) #C(3.29f0 -8.93f0) #C(34.12f0 -6.15f0))
(#C(-8.93f0 34.12f0) #C(-6.15f0 49.27f0) #C(-13.49f0 32.5f0))
(#C(49.27f0 -13.49f0) #C(32.5f0 42.73f0) #C(-17.24f0 43.31f0)))))
(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)))
'(#C(42.73f0 -17.24f0) #C(43.31f0 -16.12f0) #C(-8.25f0 21.44f0))))
(S1 #C(-16.12f0 -8.25f0)))
(GRID:COPY-TO (MATRIX-PRODUCT-TRIANGULAR M1 V1 S1)))))
#+fsbv
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
......
;; Regression test MATRIX-SET-ALL for GSLL, automatically generated
;;
;; Copyright 2009 Liam M. Healy
;; Copyright 2009, 2011 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,105 +19,105 @@
(in-package :gsl)
(LISP-UNIT:DEFINE-TEST MATRIX-SET-ALL
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST
#2A((-34.5 -34.5 -34.5)
(-34.5 -34.5 -34.5)
(-34.5 -34.5 -34.5)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '(3 3))))
(GRID:COPY-TO (SET-ALL M1 -34.5)))))
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST
#2A((-34.5d0 -34.5d0 -34.5d0)
(-34.5d0 -34.5d0 -34.5d0)
(-34.5d0 -34.5d0 -34.5d0)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS '(3 3))))
(GRID:COPY-TO (SET-ALL M1 -34.5d0)))))
#+fsbv
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST
#2A((#C(-34.5 8.24) #C(-34.5 8.24) #C(-34.5 8.24))
(#C(-34.5 8.24) #C(-34.5 8.24) #C(-34.5 8.24))
(#C(-34.5 8.24) #C(-34.5 8.24) #C(-34.5 8.24))))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT)
:DIMENSIONS '(3 3))))
(GRID:COPY-TO (SET-ALL M1 #C(-34.5 8.24))))))
#+fsbv
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST
#2A((#C(-34.5d0 8.24d0) #C(-34.5d0 8.24d0)
#C(-34.5d0 8.24d0))
(#C(-34.5d0 8.24d0) #C(-34.5d0 8.24d0)
#C(-34.5d0 8.24d0))
(#C(-34.5d0 8.24d0) #C(-34.5d0 8.24d0)
#C(-34.5d0 8.24d0))))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT)
:DIMENSIONS '(3 3))))
(GRID:COPY-TO (SET-ALL M1 #C(-34.5d0 8.24d0))))))
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST #2A((-64 -64 -64) (-64 -64 -64) (-64 -64 -64)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :DIMENSIONS
'(3 3))))
(GRID:COPY-TO (SET-ALL M1 -64)))))
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST #2A((67 67 67) (67 67 67) (67 67 67)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) :DIMENSIONS
'(3 3))))
(GRID:COPY-TO (SET-ALL M1 67)))))
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST #2A((-64 -64 -64) (-64 -64 -64) (-64 -64 -64)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) :DIMENSIONS
'(3 3))))
(GRID:COPY-TO (SET-ALL M1 -64)))))
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST #2A((67 67 67) (67 67 67) (67 67 67)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) :DIMENSIONS
'(3 3))))
(GRID:COPY-TO (SET-ALL M1 67)))))
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST #2A((-64 -64 -64) (-64 -64 -64) (-64 -64 -64)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) :DIMENSIONS
'(3 3))))
(GRID:COPY-TO (SET-ALL M1 -64)))))
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST #2A((67 67 67) (67 67 67) (67 67 67)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) :DIMENSIONS
'(3 3))))
(GRID:COPY-TO (SET-ALL M1 67)))))
#+int64
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST #2A((-64 -64 -64) (-64 -64 -64) (-64 -64 -64)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) :DIMENSIONS
'(3 3))))
(GRID:COPY-TO (SET-ALL M1 -64)))))
#+int64
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST #2A((67 67 67) (67 67 67) (67 67 67)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 64) :DIMENSIONS
'(3 3))))
(GRID:COPY-TO (SET-ALL M1 67))))))
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST
#2A((-34.5f0 -34.5f0 -34.5f0)
(-34.5f0 -34.5f0 -34.5f0)
(-34.5f0 -34.5f0 -34.5f0)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '(3 3))))
(GRID:COPY-TO (SET-ALL M1 -34.5f0)))))
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST
#2A((-34.5d0 -34.5d0 -34.5d0)
(-34.5d0 -34.5d0 -34.5d0)
(-34.5d0 -34.5d0 -34.5d0)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY 'DOUBLE-FLOAT :DIMENSIONS '(3 3))))
(GRID:COPY-TO (SET-ALL M1 -34.5d0)))))
#+fsbv
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST
#2A((#C(-34.5f0 8.24f0) #C(-34.5f0 8.24f0) #C(-34.5f0 8.24f0))
(#C(-34.5f0 8.24f0) #C(-34.5f0 8.24f0) #C(-34.5f0 8.24f0))
(#C(-34.5f0 8.24f0) #C(-34.5f0 8.24f0) #C(-34.5f0 8.24f0))))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(COMPLEX SINGLE-FLOAT)
:DIMENSIONS '(3 3))))
(GRID:COPY-TO (SET-ALL M1 #C(-34.5f0 8.24f0))))))
#+fsbv
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST
#2A((#C(-34.5d0 8.24d0) #C(-34.5d0 8.24d0)
#C(-34.5d0 8.24d0))
(#C(-34.5d0 8.24d0) #C(-34.5d0 8.24d0)
#C(-34.5d0 8.24d0))
(#C(-34.5d0 8.24d0) #C(-34.5d0 8.24d0)
#C(-34.5d0 8.24d0))))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(COMPLEX DOUBLE-FLOAT)
:DIMENSIONS '(3 3))))
(GRID:COPY-TO (SET-ALL M1 #C(-34.5d0 8.24d0))))))
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST #2A((-64 -64 -64) (-64 -64 -64) (-64 -64 -64)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :DIMENSIONS
'(3 3))))
(GRID:COPY-TO (SET-ALL M1 -64)))))
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST #2A((67 67 67) (67 67 67) (67 67 67)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 8) :DIMENSIONS
'(3 3))))
(GRID:COPY-TO (SET-ALL M1 67)))))
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST #2A((-64 -64 -64) (-64 -64 -64) (-64 -64 -64)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16) :DIMENSIONS
'(3 3))))
(GRID:COPY-TO (SET-ALL M1 -64)))))
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST #2A((67 67 67) (67 67 67) (67 67 67)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 16) :DIMENSIONS
'(3 3))))
(GRID:COPY-TO (SET-ALL M1 67)))))
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST #2A((-64 -64 -64) (-64 -64 -64) (-64 -64 -64)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32) :DIMENSIONS
'(3 3))))
(GRID:COPY-TO (SET-ALL M1 -64)))))
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST #2A((67 67 67) (67 67 67) (67 67 67)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(UNSIGNED-BYTE 32) :DIMENSIONS
'(3 3))))
(GRID:COPY-TO (SET-ALL M1 67)))))
#+int64
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST #2A((-64 -64 -64) (-64 -64 -64) (-64 -64 -64)))
(MULTIPLE-VALUE-LIST
(LET ((M1
(GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64) :DIMENSIONS
'(3 3))))
(GRID:COPY-TO (SET-ALL M1 -64)))))
#+int64
(LISP-UNIT:ASSERT-NUMERICAL-EQUAL
(LIST #2A((67 67 67) (67 67 67) (67 67 67)))