projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed error in read-sql-value that was throwing no next-method errors
[clsql.git]
/
sql
/
oodml.lisp
diff --git
a/sql/oodml.lisp
b/sql/oodml.lisp
index 169fa89d70d6f0fe17e834749e9a27f337cfe2f8..5a966e7abd554a2bf811a021e792ea7960575222 100644
(file)
--- a/
sql/oodml.lisp
+++ b/
sql/oodml.lisp
@@
-657,9
+657,13
@@
(number (not (zerop val))))))
((wall-time duration) (parse-timestring val))
(date (parse-datestring val))
(number (not (zerop val))))))
((wall-time duration) (parse-timestring val))
(date (parse-datestring val))
- (t (call-next-method))))
+ (list (let ((*read-eval* nil))
+ (read-from-string val)))
+ (t (error-converting-value val type database))))
(t (typecase val
(t (typecase val
- (string (read-from-string val))
+ (string
+ (let ((*read-eval* nil))
+ (read-from-string val)))
(t (error-converting-value val type database))))))
;; ------------------------------------------------------------
(t (error-converting-value val type database))))))
;; ------------------------------------------------------------