projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0c4d66a
)
Make functional expressions work with :desc and :asc specifiers.
author
Ryszard Szopa
<ryszard.szopa@gmail.com>
Sun, 4 Jan 2009 00:39:27 +0000
(
01:39
+0100)
committer
Ryszard Szopa
<ryszard.szopa@gmail.com>
Sun, 4 Jan 2009 00:39:27 +0000
(
01:39
+0100)
sql/oodml.lisp
patch
|
blob
|
history
diff --git
a/sql/oodml.lisp
b/sql/oodml.lisp
index 6283ee771ef10ff6df899310d2fe960f9ae07bba..fb76c55743fe7ff464377d42c08ac5958ec5dae6 100644
(file)
--- a/
sql/oodml.lisp
+++ b/
sql/oodml.lisp
@@
-1097,13
+1097,17
@@
as elements of a list."
(order-by-list (copy-seq (listify order-by))))
(loop for i from 0 below (length order-by-list)
(order-by-list (copy-seq (listify order-by))))
(loop for i from 0 below (length order-by-list)
- do (
e
typecase (nth i order-by-list)
+ do (typecase (nth i order-by-list)
(sql-ident-attribute
(sql-ident-attribute
- (unless (slot-value (nth i order-by-list) 'qualifier)
- (setf (slot-value (nth i order-by-list) 'qualifier) table-name)))
+ (handler-case
+ (unless (slot-value (nth i order-by-list) 'qualifier)
+ (setf (slot-value (nth i order-by-list) 'qualifier) table-name))
+ (simple-error ())))
(cons
(cons
- (unless (slot-value (car (nth i order-by-list)) 'qualifier)
- (setf (slot-value (car (nth i order-by-list)) 'qualifier) table-name)))
+ (handler-case
+ (unless (slot-value (car (nth i order-by-list)) 'qualifier)
+ (setf (slot-value (car (nth i order-by-list)) 'qualifier) table-name))
+ (simple-error ())))
(clsql-sys:sql-function-exp)))
(setf (getf qualifier-args :order-by) order-by-list)))
(clsql-sys:sql-function-exp)))
(setf (getf qualifier-args :order-by) order-by-list)))