;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;;
;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;;
(setf (slot-value instance slot-name)
(fault-join-slot class instance slot-object))
(setf (slot-value instance slot-name) nil)))
(setf (slot-value instance slot-name)
(fault-join-slot class instance slot-object))
(setf (slot-value instance slot-name) nil)))
(let ((*db-deserializing* t))
(if (view-database instance)
(setf (slot-value instance slot-name)
(let ((*db-deserializing* t))
(if (view-database instance)
(setf (slot-value instance slot-name)
(create-view-from-class (class-name pclass)
:database database :transactions transactions))
(%install-class tclass database :transactions transactions))
(create-view-from-class (class-name pclass)
:database database :transactions transactions))
(%install-class tclass database :transactions transactions))
(ordered-class-direct-slots self)
(ordered-class-slots self))))
(dolist (slotdef ordered-slots)
(ordered-class-direct-slots self)
(ordered-class-slots self))))
(dolist (slotdef ordered-slots)
(error "Class ~s has no :base slots" self))
(progn
(create-table (sql-expression :table (view-table self)) (nreverse schemadef)
(error "Class ~s has no :base slots" self))
(progn
(create-table (sql-expression :table (view-table self)) (nreverse schemadef)