r9537:

[umlisp.git] / classes.lisp

diff --git a/classes.lisp b/classes.lisp
index 6def232e5a21436eadcdf27b48158e608dc1efb7..24ba9d1e0ba3c23d9d96fe5ede97878d366872f1 100644 (file)
--- a/classes.lisp
+++ b/classes.lisp
@@ -102,7 +102,7 @@
    (xc :value-type string  :initarg :xc :reader xc))
   (:metaclass hyperobject-class)
   (:user-name "Context")
-  (:default-print-slots sab code rnk cxn cxl hcd rela xc cui2 cxs))
+  (:default-print-slots sab code cxn cxl hcd rela xc cui2 cxs))
 
 (defclass ustr (umlsclass)
   ((sui :value-type fixnum :initarg :sui :reader sui :print-formatter fmt-sui
@@ -196,7 +196,7 @@
    (coa :value-type cdata :initarg :coa :reader coa))
   (:metaclass hyperobject-class)
   (:user-name "Co-occuring Concept")
-  (:default-print-slots soc cot cof coa cui2 pfstr2))
+  (:default-print-slots cot cof coa cui2 pfstr2))
 
        
 (defclass ucon (umlsclass)