Use TYPE-OF to set the correct type when testing specific-array-eleme…

…nt-type.
OdonataResearchLLC · Oct 2, 2014 · a2372c1 · a2372c1
1 parent b4c0735
commit a2372c1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/test/kernel/utility.lisp b/test/kernel/utility.lisp
@@ -94,11 +94,11 @@
       (genarray 'double-float)))
     ;; Complex float
     (assert-equal
-     '(complex single-float)
+     (type-of (complex 1.0 0.0))
      (linear-algebra-kernel:specific-array-element-type
       (genarray '(complex single-float))))
     (assert-equal
-     '(complex double-float)
+     (type-of (complex 1D0 0D0))
      (linear-algebra-kernel:specific-array-element-type
       (genarray '(complex double-float))))))