From 0c4d66aaaf81025974508a4e7b5d10205e4db7f7 Mon Sep 17 00:00:00 2001 From: Ryszard Szopa Date: Sun, 4 Jan 2009 01:23:07 +0100 Subject: [PATCH] Make it possible to pass functional expression to :order-by in select. --- sql/oodml.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/sql/oodml.lisp b/sql/oodml.lisp index cc57941..6283ee7 100644 --- a/sql/oodml.lisp +++ b/sql/oodml.lisp @@ -1097,13 +1097,14 @@ 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 (etypecase (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))) (cons (unless (slot-value (car (nth i order-by-list)) 'qualifier) - (setf (slot-value (car (nth i order-by-list)) 'qualifier) table-name))))) + (setf (slot-value (car (nth i order-by-list)) 'qualifier) table-name))) + (clsql-sys:sql-function-exp))) (setf (getf qualifier-args :order-by) order-by-list))) (cond -- 2.34.1