;;;; in Text, HTML, and XML formats. This includes hyperlinking\r
;;;; capability and sub-objects.\r
;;;;\r
-;;;; $Id: mop.lisp,v 1.82 2003/07/08 07:12:57 kevin Exp $\r
+;;;; $Id: mop.lisp,v 1.83 2003/07/11 18:02:41 kevin Exp $\r
;;;;\r
;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg\r
;;;; *************************************************************************\r
(direct-rules :type list :initform nil :initarg :direct-rules\r
:accessor direct-rules\r
:documentation "List of rules to fire on slot changes.")\r
+ (direct-views :type list :initform nil :initarg :direct-views\r
+ :accessor direct-views\r
+ :documentation "List of views")\r
(class-id :type integer :initform nil\r
:accessor class-id\r
:documentation "Unique ID for the class")\r
(user-name cl))\r
2)))\r
\r
- (dolist (name '(user-name description version guid sql-name))\r
+ (dolist (name '(user-name description version guid sql-name\r
+ direct-views direct-rules))\r
(awhen (slot-value cl name)\r
(setf (slot-value cl name)\r
(etypecase (slot-value cl name)\r