X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=inline;f=views.lisp;h=deef1267782709709cbb0c7d47711c51a8bdeeea;hb=2c4ff80d1c348835341cc5ae36807356acc97e76;hp=f4f075742d6156bb55f0af351f9cd5bd636b65e2;hpb=47a7911aaa793adcce5add7bc912ded4bff18d99;p=hyperobject.git
diff --git a/views.lisp b/views.lisp
index f4f0757..deef126 100644
--- a/views.lisp
+++ b/views.lisp
@@ -7,7 +7,7 @@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: views.lisp,v 1.18 2002/12/26 11:57:15 kevin Exp $
+;;;; $Id: views.lisp,v 1.21 2003/01/17 19:16:28 kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
@@ -186,7 +186,7 @@
(error "Slot ~A is not found in class ~S" slot-name obj-cl))
(let* ((name (slot-definition-name slot))
(namestr-lower (string-downcase (symbol-name name)))
- (xml-namestring (escape-xml-string namestr-lower))
+ (xml-namestr (escape-xml-string namestr-lower))
(xml-tag (escape-xml-string namestr-lower))
(type (slot-value slot 'type))
(print-formatter (esd-print-formatter slot)))
@@ -244,7 +244,7 @@
((or :xml-link-labels :ie-xml-link-labels)
(push name links)
(if (esd-hyperlink slot)
- (string-append fmtstr " <~~a>" value-fmt "~~a>")
+ (string-append fmtstr " <~~a>" value-fmt "~~a>")
(string-append fmtstr (concatenate 'string " <" xml-tag ">" value-fmt "" xml-tag ">")))))
) ;; let value-fmt
@@ -252,6 +252,7 @@
`(,print-formatter (slot-value x (quote ,name)))
`(slot-value x (quote ,name)))))
(when (and (in category :xml :xhtml :xml-link :xhtml-link
+ :xml-labels :ie-xml-labels
:xhtml-link-labels :xml-link-labels :ie-xml-link
:ie-xml-link-labels)
(or print-formatter
@@ -553,4 +554,3 @@
(defun fmt-comma-integer (i)
(format nil "~:d" i))
-