X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=db-postgresql-socket%2Fpostgresql-socket-sql.lisp;h=a0a534aa0392ba8f65fda49fdc261c6a3f31b290;hb=e303385b84c6246c7d60ebd95d764a282a181a23;hp=ebda22c0a7b4557c82504aeedb825b80ad314702;hpb=8a8ee2d7d791b7a3efaed06420802a925d16fca3;p=clsql.git

diff --git a/db-postgresql-socket/postgresql-socket-sql.lisp b/db-postgresql-socket/postgresql-socket-sql.lisp
index ebda22c..a0a534a 100644
--- a/db-postgresql-socket/postgresql-socket-sql.lisp
+++ b/db-postgresql-socket/postgresql-socket-sql.lisp
@@ -392,16 +392,15 @@ doesn't depend on UFFI."
                            owner-clause)
                    database nil nil))))
     (if result
-	(reverse
-         (remove-if #'(lambda (it) (member it '("cmin"
-                                                "cmax"
-                                                "xmax"
-                                                "xmin"
-						"oid"
-                                                "ctid"
-						;; kmr -- added tableoid
-						"tableoid") :test #'equal)) 
-		    result)))))
+        (remove-if #'(lambda (it) (member it '("cmin"
+                                               "cmax"
+                                               "xmax"
+                                               "xmin"
+                                               "oid"
+                                               "ctid"
+                                               ;; kmr -- added tableoid
+                                               "tableoid") :test #'equal)) 
+                   result))))
 
 (defmethod database-attribute-type (attribute (table string)
 				    (database postgresql-socket-database)