;;; hyperobject. Fix from Gerd Moellmann.
(defclass hyperobject-class (standard-class)
((user-name :initarg :user-name :type string :initform nil
;;; hyperobject. Fix from Gerd Moellmann.
(defclass hyperobject-class (standard-class)
((user-name :initarg :user-name :type string :initform nil