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