r9457: Reworked CLSQL file structure.

[clsql.git] / sql / kmr-mop.lisp

diff --git a/sql/kmr-mop.lisp b/sql/kmr-mop.lisp
index 530bee4acd3446a87d3a9eb355f38b35e27ddb51..8fccf57778e306a4a9ce6b3b7801dfd49c026d3e 100644 (file)
--- 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)