r9293: 9 May 2004 Kevin Rosenberg (kevin@rosenberg.net)

        * Version 2.10.15
        * sql/kmr-mop.lisp: Make CMUCL reader macros specific for cmu18
        since cmu19 has opposite order of class slots.

diff --git a/ChangeLog b/ChangeLog
index 95c8302e850c69cc6bb10967a3cf3146fbcf22df..6ff0345aa8d59f26f0f2b96df19a49a07172074b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,4 +1,7 @@
 9 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
+       * Version 2.10.15
+       * sql/kmr-mop.lisp: Make CMUCL reader macros specific for cmu18
+       since cmu19 has opposite order of class slots.
        * sql/objects.lisp: Fix (setf slot-value-using-class) for Lispworks
        * tests/test-fdml.lisp: Renumber SELECT tests to avoid overwriting
        a previous test

diff --git a/debian/changelog b/debian/changelog
index b9d0ae7dd3fd1035b34a622ce04a47644752de5e..53f7a4f9d199d8a95a6dd1b9e29e360d9d2e80be 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-sql (2.10.15-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Sun,  9 May 2004 18:59:19 -0600
+
 cl-sql (2.10.14-1) unstable; urgency=low
 
   * New upstream

diff --git a/sql/kmr-mop.lisp b/sql/kmr-mop.lisp
index b709f1bea9c0b7ec81b21f4bd6ee462d9e93b881..d18cec177276f0536156a1981adeb9f02695dc12 100644 (file)
--- 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)

diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp
index f981c900be363b18be8e67cd8db6895e800d465e..5586dab79ef6dfaded6412645bd7bdfb971f8a46 100644 (file)
--- a/sql/metaclasses.lisp
+++ b/sql/metaclasses.lisp
@@ -362,7 +362,7 @@ column definition in the database.")
    (defun compute-class-precedence-list (class)
      (class-precedence-list class))))
 
-#-(or sbcl cmu)
+#-(or sbcl cmu18)
 (defmethod compute-slots ((class standard-db-class))
   "Need to sort order of class slots so they are the same across
 implementations."