projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9408: 19 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
[clsql.git]
/
sql
/
sql.lisp
diff --git
a/sql/sql.lisp
b/sql/sql.lisp
index 0a0d2f3fef16dc5c4663f6a1c3e2d51d2ff2cd1d..79bf6cd037bc223b4086fa482df59275bb2d5b01 100644
(file)
--- a/
sql/sql.lisp
+++ b/
sql/sql.lisp
@@
-243,10
+243,11
@@
condition is true."
(if (or (null thing)
(eq 'null thing))
"NULL"
(if (or (null thing)
(eq 'null thing))
"NULL"
- (error 'clsql-simple-error
- :format-control
- "No type conversion to SQL for ~A is defined for DB ~A."
- :format-arguments (list (type-of thing) (type-of database)))))
+ (error 'sql-user-error
+ :message
+ (format nil
+ "No type conversion to SQL for ~A is defined for DB ~A."
+ (type-of thing) (type-of database)))))
(defmethod output-sql-hash-key ((arg vector) database)
(defmethod output-sql-hash-key ((arg vector) database)