r1648: *** empty log message ***
[clsql.git] / doc / ref.sgml
index 71d6da3a3afb6af0053ac3b702df619b4c6e4226..0c860c16c838d9d33b7daff2c23092fe15d7786a 100644 (file)
 (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))
        query via a loop clause</refpurpose>
        <refclass>Loop Clause</refclass>
       </refnamediv>
+      <refsect1>
+        <title>Compatibility</title>
+        <caution><para><function>loop-for-as-tuples</function> only works with &cmucl;.</para></caution>
+      </refsect1>
       <refsect1>
        <title>Syntax</title>
        <synopsis><replaceable>var</replaceable> [<replaceable>type-spec</replaceable>] being {each | the} {record | records | tuple | tuples} {in | of} <replaceable>query</replaceable> [from <replaceable>database</replaceable>]</synopsis>
       </refsect1>
     </refentry>
   </reference>
+
   <reference>
     <title><symbol>CLSQL-SYS</symbol></title>
     <partintro>
        exported from <symbol>CLSQL</symbol>.  These symbols are part of
        the interface for database back-ends, but not part of the normal
        user-interface of &clsql;.</para>
-      <note>
-       <para>This part has only one demonstration entry, since the
-         rest still has to be written.  In the meantime, use the
-         source to understand the database back-end interface.</para>
-      </note>
     </partintro>
     <refentry id="database-initialize-database-type">
       <refnamediv>