From cab6bc9726ec3399ec79fe53522e0b90912b750f Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Mon, 10 May 2004 00:59:53 +0000 Subject: [PATCH] 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. --- ChangeLog | 3 +++ debian/changelog | 6 ++++++ sql/kmr-mop.lisp | 4 ++-- sql/metaclasses.lisp | 2 +- 4 files changed, 12 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 95c8302..6ff0345 100644 --- 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 b9d0ae7..53f7a4f 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-sql (2.10.15-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg 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 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) diff --git a/sql/metaclasses.lisp b/sql/metaclasses.lisp index f981c90..5586dab 100644 --- 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." -- 2.34.1