;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
-;;;; $Id: mop.lisp,v 1.70 2003/05/14 05:29:48 kevin Exp $
+;;;; $Id: mop.lisp,v 1.71 2003/05/14 05:36:22 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
(user-name cl))
2)))
- (dolist (name '(description))
+ (dolist (name '(user-name description))
(awhen (slot-value cl name)
(setf (slot-value cl name)
(etypecase (slot-value cl name)