projects
/
hyperobject.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
47a7911
)
r3663: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Thu, 26 Dec 2002 12:04:00 +0000
(12:04 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Thu, 26 Dec 2002 12:04:00 +0000
(12:04 +0000)
views.lisp
patch
|
blob
|
history
diff --git
a/views.lisp
b/views.lisp
index f4f075742d6156bb55f0af351f9cd5bd636b65e2..b609ca08a772aa837ce86e94567a5e748e141e80 100644
(file)
--- a/
views.lisp
+++ b/
views.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: views.lisp,v 1.1
8 2002/12/26 11:57:15
kevin Exp $
+;;;; $Id: views.lisp,v 1.1
9 2002/12/26 12:04:00
kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2002 by Kevin M. Rosenberg
;;;;
;;;;
;;;; 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)))
(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-namestr
ing
(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)))
(xml-tag (escape-xml-string namestr-lower))
(type (slot-value slot 'type))
(print-formatter (esd-print-formatter slot)))
@@
-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
`(,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
:xhtml-link-labels :xml-link-labels :ie-xml-link
:ie-xml-link-labels)
(or print-formatter