Commit 37f446c7 authored by Liam M. Healy's avatar Liam M. Healy

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

parent 80544fee
;; Regression test BLAS-COPY 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,11 +20,11 @@
(LISP-UNIT:DEFINE-TEST BLAS-COPY
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #(-34.5 8.24 3.29))
(LIST #(-34.5f0 8.24f0 3.29f0))
(MULTIPLE-VALUE-LIST
(LET ((V1
(GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT :INITIAL-CONTENTS '(-34.5 8.24 3.29)))
'SINGLE-FLOAT :INITIAL-CONTENTS '(-34.5f0 8.24f0 3.29f0)))
(V2 (GRID:MAKE-FOREIGN-ARRAY 'SINGLE-FLOAT :DIMENSIONS '3)))
(BLAS-COPY V1 V2)
(GRID:COPY-TO V2))))
......@@ -38,13 +38,13 @@
(BLAS-COPY V1 V2)
(GRID:COPY-TO V2))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #(#C(-34.5 8.24) #C(3.29 -8.93) #C(34.12 -6.15)))
(LIST #(#C(-34.5f0 8.24f0) #C(3.29f0 -8.93f0) #C(34.12f0 -6.15f0)))
(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(-34.5f0 8.24f0) #C(3.29f0 -8.93f0) #C(34.12f0 -6.15f0))))
(V2
(GRID:MAKE-FOREIGN-ARRAY
'(COMPLEX SINGLE-FLOAT) :DIMENSIONS '3)))
......
;; Regression test BLAS-SWAP 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,16 +20,16 @@
(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)))
(LIST (LIST #(-8.93f0 34.12f0 -6.15f0) #(-34.5f0 8.24f0 3.29f0)))
(MULTIPLE-VALUE-LIST
(LET ((V1
(GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT :INITIAL-CONTENTS
'(-34.5 8.24 3.29)))
'(-34.5f0 8.24f0 3.29f0)))
(V2
(GRID:MAKE-FOREIGN-ARRAY
'SINGLE-FLOAT :INITIAL-CONTENTS
'(-8.93 34.12 -6.15))))
'(-8.93f0 34.12f0 -6.15f0))))
(BLAS-SWAP V2 V1)
(LIST (GRID:COPY-TO V1) (GRID:COPY-TO V2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
......@@ -50,19 +50,19 @@
(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))))
#(#C(-8.93f0 34.12f0) #C(-6.15f0 49.27f0) #C(-13.49f0 32.5f0))
#(#C(-34.5f0 8.24f0) #C(3.29f0 -8.93f0) #C(34.12f0 -6.15f0))))
(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(-34.5f0 8.24f0) #C(3.29f0 -8.93f0) #C(34.12f0 -6.15f0))))
(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)))))
'(#C(-8.93f0 34.12f0) #C(-6.15f0 49.27f0) #C(-13.49f0 32.5f0)))))
(BLAS-SWAP V2 V1)
(LIST (GRID:COPY-TO V1) (GRID:COPY-TO V2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
......
;; Regression test MATRIX-ADD 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,151 +19,151 @@
(in-package :gsl)
(LISP-UNIT:DEFINE-TEST MATRIX-ADD
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
#2A((8.23 -9.0 46.600002)
(-25.050001 25.869999 15.290001)
(0.18999863 -53.15 -16.96)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
#2A((8.229999999999997d0 -8.999999999999998d0 46.6d0)
(-25.05d0 25.869999999999997d0
15.290000000000001d0)
(0.19000000000000483d0 -53.15d0 -16.96d0)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((-32 -40 101) (-54 -21 -18) (58 -27 -65)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((95 54 208) (144 85 101) (197 68 64)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((-32 -40 101) (-54 -21 -18) (58 -27 191)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((95 54 208) (144 341 357) (197 324 320)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((-32 -40 101) (-54 -21 -18) (58 -27 191)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((95 54 208) (144 341 357) (197 324 320)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2)))))
#+int64
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((-32 -40 101) (-54 -21 -18) (58 -27 191)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2)))))
#+int64
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((95 54 208) (144 341 357) (197 324 320)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2))))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
#2A((8.23f0 -9.0f0 46.600002f0)
(-25.050001f0 25.869999f0 15.290001f0)
(0.18999863f0 -53.15f0 -16.96f0)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
#2A((8.229999999999997d0 -8.999999999999998d0 46.6d0)
(-25.05d0 25.869999999999997d0
15.290000000000001d0)
(0.19000000000000483d0 -53.15d0 -16.96d0)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((-32 -40 101) (-54 -21 -18) (58 -27 -65)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((95 54 208) (144 85 101) (197 68 64)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((-32 -40 101) (-54 -21 -18) (58 -27 191)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((95 54 208) (144 341 357) (197 324 320)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((-32 -40 101) (-54 -21 -18) (58 -27 191)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((95 54 208) (144 341 357) (197 324 320)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2)))))
#+int64
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((-32 -40 101) (-54 -21 -18) (58 -27 191)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2)))))
#+int64
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((95 54 208) (144 341 357) (197 324 320)))
(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)))))
(GRID:COPY-TO (ELT+ M1 M2))))))
;; Regression test MATRIX-DIV 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,153 +19,153 @@
(in-package :gsl)
(LISP-UNIT:DEFINE-TEST MATRIX-DIV
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
#2A((-0.8073953 -0.47795823 0.075963974)
(0.5539702 -4.1357574 -0.28684703)
(-1.0038712 0.3401412 -0.6570967)))
(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)))))
(GRID:COPY-TO (ELT/ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
#2A((-0.8073952726421718d0 -0.4779582366589328d0
0.07596398060494113d0)
(0.553970223325062d0 -4.135757575757576d0
-0.2868470149253731d0)
(-1.0038712306438469d0 0.3401412002017146d0
-0.6570966437525273d0)))
(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)))))
(GRID:COPY-TO (ELT/ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((-2 -2 2) (-2 0 1) (-4 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))))
(M2
(GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS
'((32 28 30) (37 -73 -8)
(-15 -22 68)))))
(GRID:COPY-TO (ELT/ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((2 4 9) (4 0 0) (4 1 0)))
(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)))))
(GRID:COPY-TO (ELT/ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((-2 -2 2) (-2 0 1) (-4 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))))
(M2
(GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 16)
:INITIAL-CONTENTS
'((32 28 30) (37 -73 -8)
(-15 -22 68)))))
(GRID:COPY-TO (ELT/ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((2 4 9) (4 0 0) (4 1 0)))
(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)))))
(GRID:COPY-TO (ELT/ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((-2 -2 2) (-2 0 1) (-4 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))))
(M2
(GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 32)
:INITIAL-CONTENTS
'((32 28 30) (37 -73 -8)
(-15 -22 68)))))
(GRID:COPY-TO (ELT/ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((2 4 9) (4 0 0) (4 1 0)))
(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)))))
(GRID:COPY-TO (ELT/ M1 M2)))))
#+int64
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((-2 -2 2) (-2 0 1) (-4 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))))
(M2
(GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 64)
:INITIAL-CONTENTS
'((32 28 30) (37 -73 -8)
(-15 -22 68)))))
(GRID:COPY-TO (ELT/ M1 M2)))))
#+int64
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((2 4 9) (4 0 0) (4 1 0)))
(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)))))
(GRID:COPY-TO (ELT/ M1 M2))))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
#2A((-0.8073953f0 -0.47795823f0 0.075963974f0)
(0.5539702f0 -4.1357574f0 -0.28684703f0)
(-1.0038712f0 0.3401412f0 -0.6570967f0)))
(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)))))
(GRID:COPY-TO (ELT/ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST
#2A((-0.8073952726421718d0 -0.4779582366589328d0
0.07596398060494113d0)
(0.553970223325062d0 -4.135757575757576d0
-0.2868470149253731d0)
(-1.0038712306438469d0 0.3401412002017146d0
-0.6570966437525273d0)))
(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)))))
(GRID:COPY-TO (ELT/ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL
(LIST #2A((-2 -2 2) (-2 0 1) (-4 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))))
(M2
(GRID:MAKE-FOREIGN-ARRAY '(SIGNED-BYTE 8) :INITIAL-CONTENTS
'((32 28 30) (37 -73 -8)
(-15 -22 68)))))
(GRID:COPY-TO (ELT/ M1 M2)))))
(LISP-UNIT::ASSERT-NUMERICAL-EQUAL