projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9374: Remove redundant and commonsql incompatible order-by-descending keyword arg...
[clsql.git]
/
sql
/
objects.lisp
diff --git
a/sql/objects.lisp
b/sql/objects.lisp
index 869e643f23a386ffebd8bedd7db6fd09400d9ba8..8fa98903a85450c436d20258b91cdb4c81345c68 100644
(file)
--- 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
(defun find-all (view-classes
&rest args
&key all set-operation distinct from where group-by having
- order-by o
rder-by-descending offset limit refresh
-
flatp result-types
inner-join on
+ order-by o
ffset limit refresh flatp result-types
+ inner-join on
(database *default-database*)
instances)
"Called by SELECT to generate object query results when the
(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))))))
(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)
(dolist (ob (listify distinct))
(when (and (typep ob 'sql-ident)
(not (member ob (mapcar #'cdr fullsels)