X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Foodml.lisp;fp=sql%2Foodml.lisp;h=072bc4a633838be2806c4505fc7da47400da6b34;hp=0e4810b3ad8b63bae2228c0fc3a97fc021b7bc88;hb=6ba1e44b4faf89ed2aa0ebdf410eebd65e04b3a5;hpb=eeb36233c9881cd2bb141f7a3241afbe82feda8d

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 0e4810b..072bc4a 100644
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -653,7 +653,7 @@
            ;; maybe wrong type of float
            (float val))
          (if (eql type 'double-float) 1.0d0 1.0s0)))
-       (number (read-from-string val))
+       (number (read-decimal-value val))
        ((boolean generalized-boolean)
         (if (member val '(nil t))
             val