X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fobjects.lisp;h=8fa98903a85450c436d20258b91cdb4c81345c68;hb=5be31565b7d87b90f0e79a9e61af84ad05e12920;hp=869e643f23a386ffebd8bedd7db6fd09400d9ba8;hpb=75defa0ce7e93c50c87fe272632dcdd942e80d49;p=clsql.git

diff --git a/sql/objects.lisp b/sql/objects.lisp
index 869e643..8fa9890 100644
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -968,8 +968,8 @@ superclass of the newly-defined View Class."
 (defun find-all (view-classes 
 		 &rest args
 		 &key all set-operation distinct from where group-by having 
-		      order-by order-by-descending offset limit refresh
-		      flatp result-types inner-join on 
+		      order-by offset limit refresh flatp result-types 
+                      inner-join on 
 		      (database *default-database*)
 		      instances)
   "Called by SELECT to generate object query results when the
@@ -1020,12 +1020,6 @@ superclass of the newly-defined View Class."
 	  (setq fullsels 
 		  (append fullsels (mapcar #'(lambda (att) (cons nil att))
 					   (listify ob))))))
-      (dolist (ob (listify order-by-descending))
-	(when (and ob (not (member ob (mapcar #'cdr fullsels)
-				   :test #'ref-equal)))
-	  (setq fullsels 
-		(append fullsels (mapcar #'(lambda (att) (cons nil att))
-					 (listify ob))))))
       (dolist (ob (listify distinct))
 	(when (and (typep ob 'sql-ident) 
 		   (not (member ob (mapcar #'cdr fullsels)