;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
;;;; This file is Copyright (c) 2000-2006 by Kevin M. Rosenberg
;;;; *************************************************************************
;;;; This file is Copyright (c) 2000-2006 by Kevin M. Rosenberg
;;;; *************************************************************************
:accessor user-name-plural
:documentation "Plural user name for class")
(default-print-slots :initarg :default-print-slots :type list :initform nil
:accessor user-name-plural
:documentation "Plural user name for class")
(default-print-slots :initarg :default-print-slots :type list :initform nil
(defmethod finalize-inheritance :after ((cl hyperobject-class))
"Initialize a hyperobject class. Calculates all class slots"
(finalize-subobjects cl)
(defmethod finalize-inheritance :after ((cl hyperobject-class))
"Initialize a hyperobject class. Calculates all class slots"
(finalize-subobjects cl)
(eval-when (:compile-toplevel :load-toplevel :execute)
(when (>= (length (generic-function-lambda-list
(eval-when (:compile-toplevel :load-toplevel :execute)
(when (>= (length (generic-function-lambda-list