projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9601: Documentation for symbolic SQL syntax.
[clsql.git]
/
sql
/
syntax.lisp
diff --git
a/sql/syntax.lisp
b/sql/syntax.lisp
index 125bcaae6e154a3baa3df33ea10a5d31cce7b350..514f410438ede39fb8f33c09c37c435b2a60832c 100644
(file)
--- a/
sql/syntax.lisp
+++ b/
sql/syntax.lisp
@@
-161,8
+161,8
@@
and ALIAS; TABLE; and STRING."
represented by the symbol OPERATION."
(typecase operation
(string nil)
represented by the symbol OPERATION."
(typecase operation
(string nil)
- (symbol (gethash (symbol-name-default-case (symbol-name operation))
-
*sql-op-table*
))))
+ (symbol (
values (
gethash (symbol-name-default-case (symbol-name operation))
+
*sql-op-table*)
))))
(defun sql-operation (operation &rest rest)
"Returns an SQL expression constructed from the supplied SQL
(defun sql-operation (operation &rest rest)
"Returns an SQL expression constructed from the supplied SQL
@@
-172,6
+172,8
@@
REST is taken to be a valid SQL function and the remaining values
in REST its arguments."
(if (sql-operator operation)
(apply (symbol-function (sql-operator operation)) rest)
in REST its arguments."
(if (sql-operator operation)
(apply (symbol-function (sql-operator operation)) rest)
- (error "~A is not a recognized SQL operator." operation)))
+ (error 'sql-user-error
+ :message
+ (format nil "~A is not a recognized SQL operator." operation))))