projects
/
hyperobject.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11085: support clisp
[hyperobject.git]
/
views.lisp
diff --git
a/views.lisp
b/views.lisp
index b9274aafb7834e10e19c95505d9dc0cbec94e07c..91217bd44b6b864e64ed79f0b27ab4b69eb9dccd 100644
(file)
--- a/
views.lisp
+++ b/
views.lisp
@@
-281,8
+281,8
@@
(user-name (esd-user-name slot))
(xml-user-name (escape-xml-string user-name))
(xml-tag (escape-xml-string user-name))
(user-name (esd-user-name slot))
(xml-user-name (escape-xml-string user-name))
(xml-tag (escape-xml-string user-name))
- (type (slot-
value slot #-sbcl 'type
- #+sbcl 'sb-pcl::%type))
+ (type (slot-
definition-type slot))
+
(cdata (not (null
(and (in vid :xml :xhtml :xml-link :xhtml-link
:xml-labels :ie-xml-labels
(cdata (not (null
(and (in vid :xml :xhtml :xml-link :xhtml-link
:xml-labels :ie-xml-labels