From: Jan Moringen Date: Sun, 18 May 2014 21:23:43 +0000 (+0200) Subject: fix for non-default *READ-DEFAULT-FLOAT-FORMAT* in examples/cons-specializer.lisp X-Git-Url: http://christophe.rhodes.io/gitweb/?a=commitdiff_plain;h=0c3cea696d853b80fd0a1f3a749b561e574d190b;p=specializable.git fix for non-default *READ-DEFAULT-FLOAT-FORMAT* in examples/cons-specializer.lisp --- 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))