0.pre7.14.flaky4.13:

[sbcl.git] / tests / float.pure.lisp

diff --git a/tests/float.pure.lisp b/tests/float.pure.lisp
index 30ea87e..ab395ad 100644 (file)
--- a/tests/float.pure.lisp
+++ b/tests/float.pure.lisp
@@ -46,5 +46,5 @@
 ;;;
 ;;; (Peter Van Eynde's ansi-test suite caught this, and Eric Marsden
 ;;; reported a fix for CMU CL, which was ported to sbcl-0.6.12.35.)
-(assert (subtypep (nth-value 1 (ignore-errors (float-radix "notfloat")))
-                 'type-error))
\ No newline at end of file
+(assert (typep (nth-value 1 (ignore-errors (float-radix "notfloat")))
+              'type-error))