[bknr-cvs] r2151 - trunk/bknr/src/web

[bknr at bknr.net]

Author: hhubner
Date: 2007-04-15 03:11:08 -0400 (Sun, 15 Apr 2007)
New Revision: 2151

Modified:
   trunk/bknr/src/web/handlers.lisp
Log:
Remove call to not-yet-existent set-string-rod-fn


Modified: trunk/bknr/src/web/handlers.lisp
===================================================================
--- trunk/bknr/src/web/handlers.lisp	2007-04-15 07:08:04 UTC (rev 2150)
+++ trunk/bknr/src/web/handlers.lisp	2007-04-15 07:11:08 UTC (rev 2151)
@@ -463,7 +463,7 @@
 (defgeneric object-list-handler-show-object-xml (handler object req))
 
 (defmethod object-list-handler-show-object-xml ((handler xml-object-list-handler) object req)
-  (set-string-rod-fn #'cxml::utf8-string-to-rod)
+  #+(or) (set-string-rod-fn #'cxml::utf8-string-to-rod)
   (write-to-xml object))
 
 (defmethod handle-object ((handler xml-object-list-handler) object req)