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

[clsql.git] / sql / oodml.lisp

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)
-                   do (etypecase (nth i order-by-list)
+                   do (typecase (nth i order-by-list)
                            (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
-                            (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)))