r9535:

[umlisp.git] / classes.lisp

diff --git a/classes.lisp b/classes.lisp
index d51fc4ba16dab8137483504d32c65776436b6791..6def232e5a21436eadcdf27b48158e608dc1efb7 100644 (file)
--- a/classes.lisp
+++ b/classes.lisp
@@ -184,7 +184,7 @@
    (sl :value-type string  :initarg :sl :reader sl))
   (:metaclass hyperobject-class)
   (:user-name "Relationship")
-  (:default-print-slots rel rela sab sl mg cui2 pfstr2))
+  (:default-print-slots rel rela sab sl cui2 pfstr2))
        
 (defclass ucoc (umlsclass)
   ((cui1 :value-type fixnum :initarg :cui1 :reader cui1 :print-formatter fmt-cui)