X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=doc%2Fref.sgml;h=0c860c16c838d9d33b7daff2c23092fe15d7786a;hb=9a78eef71c902d3b272fb7c777bff6dd0acd8a2b;hp=e7c17eca2aa2fee7483bd0f56e9263b19090a9a7;hpb=b06cb6d32e2a334f7dc72e8fb583a5b9609136b7;p=clsql.git

diff --git a/doc/ref.sgml b/doc/ref.sgml
index e7c17ec..0c860c1 100644
--- a/doc/ref.sgml
+++ b/doc/ref.sgml
@@ -1985,8 +1985,9 @@
 (map-query '(vector double-float)
 	   #'(lambda (salary name)
 	       (declare (ignorable name))
-	       (coerce (read-from-string salary) 'double-float))
-	   "select salary,name from simple where salary > 8000")
+               (let ((*read-default-float-format* 'double-float))
+ 	         (coerce (read-from-string salary) 'double-float))
+ 	          "select salary,name from simple where salary > 8000"))
 => #(10000.0d0 8000.5d0)
 (type-of *)
 => (SIMPLE-ARRAY DOUBLE-FLOAT (2))