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))))