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

diff --git a/sql/kmr-mop.lisp b/sql/kmr-mop.lisp
index e82ac66..8fccf57 100644
--- a/sql/kmr-mop.lisp
+++ b/sql/kmr-mop.lisp
@@ -16,7 +16,7 @@
 ;;;; This file was extracted from the KMRCL utilities
 ;;;; *************************************************************************
 
-(in-package #:clsql)
+(in-package #:clsql-sys)
 
 #+lispworks
 (defun intern-eql-specializer (slot)
@@ -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)