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

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