+cl-kmrcl (1.9-1) unstable; urgency=low
+
+ * ml-class.lisp: Get package name from object
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Mon, 14 Oct 2002 13:23:23 -0600
+
cl-kmrcl (1.8-1) unstable; urgency=low
* ml-class.lisp: Add defgeneric for generic functions
;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
-;;;; $Id: ml-class.lisp,v 1.10 2002/10/14 15:25:11 kevin Exp $
+;;;; $Id: ml-class.lisp,v 1.11 2002/10/14 19:26:36 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(value-func '())
(xmlvalue-func '())
(classname (class-name cl))
+ (package (symbol-package (class-name cl)))
(ref-fields (slot-value cl 'ref-fields)))
(declare (ignore classname))
(dolist (f (slot-value cl 'fields))
(if formatter
(setq plain-value-func
- (list `(,formatter (,(concat-symbol-pkg
- :umlisp namestr) x))))
+ (list `(,formatter (,(intern namestr package) x))))
(setq plain-value-func
- (list `(,(concat-symbol-pkg
- :umlisp namestr) x))))
+ (list `(,(intern namestr package) x))))
(setq value-func (append value-func plain-value-func))
(if (eql type :cdata)