From 0c3cea696d853b80fd0a1f3a749b561e574d190b Mon Sep 17 00:00:00 2001 From: Jan Moringen Date: Sun, 18 May 2014 23:23:43 +0200 Subject: [PATCH] fix for non-default *READ-DEFAULT-FLOAT-FORMAT* in examples/cons-specializer.lisp --- examples/cons-specializer.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/examples/cons-specializer.lisp b/examples/cons-specializer.lisp index 38be99d..5fcd906 100644 --- 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)) -- 2.39.5