;;;; in Text, HTML, and XML formats. This includes hyperlinking\r
;;;; capability and sub-objects.\r
;;;;\r
-;;;; $Id: mop.lisp,v 1.79 2003/06/24 08:32:32 kevin Exp $\r
+;;;; $Id: mop.lisp,v 1.80 2003/06/25 19:28:31 kevin Exp $\r
;;;;\r
;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg\r
;;;; *************************************************************************\r
(print-unreadable-object (obj s :type t :identity t)\r
(format s "~S" (name obj))))\r
\r
-#+(or cmu scl sbcl)\r
(defmethod validate-superclass ((class hyperobject-class) (superclass standard-class))\r
t)\r
\r