X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fkmr-mop.lisp;fp=sql%2Fkmr-mop.lisp;h=d18cec177276f0536156a1981adeb9f02695dc12;hp=b709f1bea9c0b7ec81b21f4bd6ee462d9e93b881;hb=cab6bc9726ec3399ec79fe53522e0b90912b750f;hpb=508c4b5bfa6d1bf0cc8434bc991c14395493a7f0

diff --git a/sql/kmr-mop.lisp b/sql/kmr-mop.lisp
index b709f1b..d18cec1 100644
--- a/sql/kmr-mop.lisp
+++ b/sql/kmr-mop.lisp
@@ -47,8 +47,8 @@
   )
 
 (defun ordered-class-slots (class)
-  #+(or cmu sbcl) (class-slots class)
-  #-(or cmu sbcl) (reverse (class-slots class)))
+  #+(or cmu18 sbcl) (class-slots class)
+  #-(or cmu18 sbcl) (reverse (class-slots class)))
 
 ;; Lispworks has symbol for slot rather than the slot instance
 (defun %svuc-slot-name (slot)