diff --git a/tests/matrix-product-hermitian.lisp b/tests/matrix-product-hermitian.lisp index b0aed305e2de9def413970f3a4a9d505fa0d292b..64c934370665ae2b2bb4c87aa13538f58ae9e2f0 100644 --- a/tests/matrix-product-hermitian.lisp +++ b/tests/matrix-product-hermitian.lisp @@ -22,12 +22,12 @@ (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)))) + #2A((#C(161635.16f0 -134299.77f0) #C(93510.016f0 -191870.72f0) + #C(55739.336f0 13621.439f0)) + (#C(-68526.41f0 125188.29f0) #C(46318.242f0 59787.605f0) + #C(-28142.984f0 5816.9385f0)) + (#C(-139503.38f0 55690.902f0) #C(2898.8164f0 49116.78f0) + #C(-57882.3f0 -176350.63f0)))) (MULTIPLE-VALUE-LIST (LET ((M1 (GRID:MAKE-FOREIGN-ARRAY @@ -93,8 +93,8 @@ (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))) + #(#C(117171.67f0 19582.54f0) #C(18787.117f0 29534.742f0) + #C(-104992.03f0 72729.13f0))) (MULTIPLE-VALUE-LIST (LET ((M1 (GRID:MAKE-FOREIGN-ARRAY