(declare (ignore char))
(let ((sqllist (read-delimited-list #\] stream t)))
(cond ((string= (write-to-string (car sqllist)) "||")
- (cons (sql-operator 'concat) (cdr sqllist)))
+ (cons (sql-operator 'concat-op) (cdr sqllist)))
((and (= (length sqllist) 1) (eql (car sqllist) '*))
(apply #'generate-sql-reference sqllist))
((sql-operator (car sqllist))
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
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))))