(lui :value-type fixnum :initform nil :initarg :lui :reader lui :print-formatter fmt-lui)
(sui :value-type fixnum :initform nil :initarg :sui :reader sui :print-formatter fmt-sui))
(:metaclass hyperobject-class)
(lui :value-type fixnum :initform nil :initarg :lui :reader lui :print-formatter fmt-lui)
(sui :value-type fixnum :initform nil :initarg :sui :reader sui :print-formatter fmt-sui))
(:metaclass hyperobject-class)