Browse files

Make functional expressions work with :desc and :asc specifiers.

  • Loading branch information...
1 parent 0c4d66a commit 9aafcb72bd7ca1d7e908938b6a5319753b3371d9 @ryszard committed Jan 4, 2009
Showing with 9 additions and 5 deletions.
  1. +9 −5 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)
- do (etypecase (nth i order-by-list)
+ do (typecase (nth i order-by-list)
- (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 ())))
- (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 ())))
(setf (getf qualifier-args :order-by) order-by-list)))

0 comments on commit 9aafcb7

Please sign in to comment.