Added a read-decimal-value function using cl-decimals

[clsql.git] / sql / oodml.lisp

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 0e4810b3ad8b63bae2228c0fc3a97fc021b7bc88..072bc4a633838be2806c4505fc7da47400da6b34 100644 (file)
--- 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