projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9403: Rework conditions to be CommonSQL backward compatible
[clsql.git]
/
sql
/
sql.lisp
diff --git
a/sql/sql.lisp
b/sql/sql.lisp
index 6bc454724621bf4adbbc76ddfdbae63caff5b9a3..0a0d2f3fef16dc5c4663f6a1c3e2d51d2ff2cd1d 100644
(file)
--- a/
sql/sql.lisp
+++ b/
sql/sql.lisp
@@
-120,7
+120,7
@@
table INTO. The default value of DATABASE is *DEFAULT-DATABASE*."
(av-pairs nil)
(subquery nil))
(unless into
(av-pairs nil)
(subquery nil))
(unless into
- (error '
clsql-sql-syntax-error :reason
":into keyword not supplied"))
+ (error '
sql-user-error :message
":into keyword not supplied"))
(let ((insert (make-instance 'sql-insert :into into)))
(with-slots (attributes values query)
insert
(let ((insert (make-instance 'sql-insert :into into)))
(with-slots (attributes values query)
insert
@@
-138,8
+138,8
@@
table INTO. The default value of DATABASE is *DEFAULT-DATABASE*."
(setf attributes attrs)
(setf query subquery))
(t
(setf attributes attrs)
(setf query subquery))
(t
- (error '
clsql-sql-syntax
-error
- :
reason
"bad or ambiguous keyword combination.")))
+ (error '
sql-user
-error
+ :
message
"bad or ambiguous keyword combination.")))
insert)))
(defun delete-records (&key (from nil)
insert)))
(defun delete-records (&key (from nil)