projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove deprecated cl-sql-sqlite from Debian cl-sql-tests package
[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)))
;; 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
((boolean generalized-boolean)
(if (member val '(nil t))
val