Update of /project/closure/cvsroot/closure/src/css In directory clnet:/tmp/cvs-serv29975/src/css Modified Files: css-parse.lisp css-support.lisp Log Message: More rune fixes. --- /project/closure/cvsroot/closure/src/css/css-parse.lisp 2006/12/29 21:29:23 1.6 +++ /project/closure/cvsroot/closure/src/css/css-parse.lisp 2006/12/31 12:05:33 1.7 @@ -1153,6 +1153,10 @@ (eql a b)) (defun hieroglyph-equal (a b) (equal a b)) +(defun hieroglyph-char (x) + (code-char x)) +(defun papyrus-string (v) + (map 'string (lambda (x) (or (hieroglyph-char x) #\?)) v)) (defun find-value-parser (slot) (unless (typep slot 'rod) --- /project/closure/cvsroot/closure/src/css/css-support.lisp 2006/12/29 21:29:24 1.4 +++ /project/closure/cvsroot/closure/src/css/css-support.lisp 2006/12/31 12:05:33 1.5 @@ -37,9 +37,12 @@ ;;; hmmm -(defun intern-attribute-name (string) +(defun intern-attribute-name (papyrus) ;; XXX hack - (intern (string-upcase (map 'string (lambda (x) (or (rune-char x) #\?)) string)) :keyword)) + (intern (string-upcase (if (stringp papyrus) + papyrus + (papyrus-string papyrus))) + :keyword)) (defun intern-gi (string) (intern-attribute-name string))