fix for non-default *READ-DEFAULT-FLOAT-FORMAT* in examples/cons-specializer.lisp

[specializable.git] / examples / cons-specializer.lisp

diff --git a/examples/cons-specializer.lisp b/examples/cons-specializer.lisp
index 38be99d129176cf17d711b5507706e23b50aed3e..5fcd906743c5aeaa7de7784f49e29601e13e0fa0 100644 (file)
--- a/examples/cons-specializer.lisp
+++ b/examples/cons-specializer.lisp
@@ -117,8 +117,8 @@
    (assert (= (keyword-args 1.0 :key1 t) 3.0))
    (assert (= (keyword-args 1.0 :key3 t) 3.0))
    (assert (= (keyword-args 1.0 :key1 t :key3 t) 3.0))
-   (assert (nth-value 1 (ignore-errors (keyword-args 1.0 :key1 t :key2 t))))
-   (assert (nth-value 1 (ignore-errors (keyword-args 1.0 :key2 t))))
+   (assert (nth-value 1 (ignore-errors (keyword-args 1.0f0 :key1 t :key2 t))))
+   (assert (nth-value 1 (ignore-errors (keyword-args 1.0f0 :key2 t))))
    (assert (= (keyword-args 1.0 :key2 t :allow-other-keys t) 3.0))
 
    (assert (= (keyword-args 1.0d0) 3.0d0))