r1648: *** empty log message ***

[clsql.git] / doc / ref.sgml

diff --git a/doc/ref.sgml b/doc/ref.sgml
index e7c17eca2aa2fee7483bd0f56e9263b19090a9a7..0c860c16c838d9d33b7daff2c23092fe15d7786a 100644 (file)
--- 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))