[closure-cvs] CVS closure/src/parse

[dlichteblau]

Update of /project/closure/cvsroot/closure/src/parse
In directory clnet:/tmp/cvs-serv17861

Modified Files:
	sgml-parse.lisp 
Log Message:
rune fix


--- /project/closure/cvsroot/closure/src/parse/sgml-parse.lisp	2006/12/31 12:05:33	1.6
+++ /project/closure/cvsroot/closure/src/parse/sgml-parse.lisp	2007/01/21 15:25:27	1.7
@@ -961,9 +961,9 @@
    (sgml::find-element dtd name nil nil)))
 
 (defun foofoo (r)
-  (cond ((integerp r) (map 'rod #'char-code (prin1-to-string r)))
-        ((symbolp r)  (map 'rod #'char-code (princ-to-string r)))
-        ((stringp r)  (map 'rod #'char-code r))
+  (cond ((integerp r) (string-rod (prin1-to-string r)))
+        ((symbolp r)  (string-rod (princ-to-string r)))
+        ((stringp r)  (string-rod r))
         (t
          (error "foofoo: Hmm ~S ?!" r))))