[closure-cvs] CVS closure/src/css

[dlichteblau]

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