r9451: 23 May 2004 Kevin Rosenberg

        * sql/kmr-mop.lisp, sql/objects.lisp: Since SBCL is the only implementation that
        has reversed class slots, change the default for ordered-class-slots so that slots
        are now in the same order an in the def-view-class.

diff --git a/ChangeLog b/ChangeLog
index 361840bad3391191c78b029ae37e0b13305875b6..fce7ca43c422bd360f3410fa56024b11ef3979e9 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+23 May 2004 Kevin Rosenberg
+       * sql/kmr-mop.lisp, sql/objects.lisp: Since SBCL is the only implementation that
+       has reversed class slots, change the default for ordered-class-slots so that slots
+       are now in the same order an in the def-view-class.
+       
 22 May 2004 Kevin Rosenberg
        * Version 2.10.21 released
        * sql/sequences.lisp: Move generic sequence functions here from db-sqlite,

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)

diff --git a/sql/objects.lisp b/sql/objects.lisp
index 3d031e2cd58c28ad851464b93bc7775a4e4255a1..63cef6a2d27f97dc394b78d645bc76165704cd74 100644 (file)
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -89,7 +89,7 @@ in DATABASE which defaults to *DEFAULT-DATABASE*."
         (push res schemadef))))
   (unless schemadef
     (error "Class ~s has no :base slots" self))
-  (create-table (sql-expression :table (view-table self)) schemadef
+  (create-table (sql-expression :table (view-table self)) (nreverse schemadef)
                 :database database
                 :constraints (database-pkey-constraint self database))
   (push self (database-view-classes database))

diff --git a/sql/sequences.lisp b/sql/sequences.lisp
index 1e3ef9ec6b75475848c320c5daf6c09662c4473f..54da54e47594869d82953a92cdfcc1ca1e8fb77a 100644 (file)
--- a/sql/sequences.lisp
+++ b/sql/sequences.lisp
@@ -1,7 +1,7 @@
 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 ;;;; *************************************************************************
 ;;;;
-;;;; $Id:$
+;;;; $Id$
 ;;;;
 ;;;; Generic sequence implementation. Backends should use native sequences if
 ;;;; are available.