X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fkmr-mop.lisp;h=8fccf57778e306a4a9ce6b3b7801dfd49c026d3e;hp=530bee4acd3446a87d3a9eb355f38b35e27ddb51;hb=e622ee6f4bf2b9fe81af59d566e651c983a4833b;hpb=8a8ee2d7d791b7a3efaed06420802a925d16fca3

diff --git a/sql/kmr-mop.lisp b/sql/kmr-mop.lisp
index 530bee4..8fccf57 100644
--- a/sql/kmr-mop.lisp
+++ b/sql/kmr-mop.lisp
@@ -57,8 +57,8 @@
       (b (pushnew :mop-slot-order-reversed cl:*features*)))))
        
 (defun ordered-class-slots (class)
-  #+mop-slot-order-reversed (class-slots class)
-  #-mop-slot-order-reversed (reverse (class-slots class)))
+  #+mop-slot-order-reversed (reverse (class-slots class))
+  #-mop-slot-order-reversed (class-slots class))
 
 ;; Lispworks has symbol for slot rather than the slot instance
 (defun %svuc-slot-name (slot)