X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=classes.lisp;h=dbb4bc1b8c91e7edc7131bff5b8f13560b99f7c4;hb=d17db83f9f6dc74ea41cc960770dcbfafa3fef30;hp=e1cf6ccf863becf926689486fff7aebf178b36d3;hpb=1c5e2a86547aebe304e7b4c6f7bfa75af090fa43;p=umlisp.git

diff --git a/classes.lisp b/classes.lisp
index e1cf6cc..dbb4bc1 100644
--- a/classes.lisp
+++ b/classes.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: classes.lisp,v 1.13 2002/11/23 18:41:41 kevin Exp $
+;;;; $Id: classes.lisp,v 1.14 2002/11/23 22:15:13 kevin Exp $
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@ -218,7 +218,7 @@
   (:metaclass hyperobject-class)
   (:default-initargs :sab nil :rel nil :atx nil)
   (:title "Associated Expression")
-  (print-slots sab rel atx))
+  (:print-slots sab rel atx))
 
 (defclass ucon (umlsclass)
   ((cui :type fixnum :initarg :cui :reader cui :print-formatter fmt-cui
@@ -286,7 +286,7 @@
   (:metaclass hyperobject-class)
   (:default-initargs :eui nil :wrd nil)
   (:title "Lexical Term")
-  (:print-list eui wrd))
+  (:print-slots eui wrd))
 
 
 (defclass labr  (umlsclass)
@@ -446,7 +446,7 @@
   (:metaclass hyperobject-class)
   (:default-initargs :ui nil :ui2 nil :ui3 nil)
   (:title "Fully Inherited Set of Releatons (TUI's)")
-  (:print-slots ui ui2 ui3)
+  (:print-slots ui ui2 ui3))
 
 (defclass sstre2 (umlsclass)
   ((sty :type string :initarg :ui :reader sty)