* 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.
+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,
(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)
(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))
;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;;
-;;;; $Id:$
+;;;; $Id$
;;;;
;;;; Generic sequence implementation. Backends should use native sequences if
;;;; are available.