[cxml-cvs] CVS update: cxml/runes/encodings.lisp

[David Lichteblau]

Update of /project/cxml/cvsroot/cxml/runes
In directory common-lisp.net:/tmp/cvs-serv19629/runes

Modified Files:
	encodings.lisp 
Log Message:
name-hashtable in den context gezogen, das war wohl kaum thread-safe so.
allerdings keine ahnung wofuer sie ueberhaupt da ist.

Date: Sun Nov 27 21:59:00 2005
Author: dlichteblau

Index: cxml/runes/encodings.lisp
diff -u cxml/runes/encodings.lisp:1.4 cxml/runes/encodings.lisp:1.5
--- cxml/runes/encodings.lisp:1.4	Sun Nov 27 19:20:10 2005
+++ cxml/runes/encodings.lisp	Sun Nov 27 21:59:00 2005
@@ -124,7 +124,7 @@
 	;; Zeichen abwarten und nachgucken, dass nicht etwa die andere
 	;; Haelfte fehlt!
         (let ((x (logior (ash hi 8) lo)))
-	  (when (or (eql x #xFFFE) (eql x #/U+FFFF))
+	  (when (or (eql x #xFFFE) (eql x #xFFFF))
 	    (xerror "not a valid code point: #x~X" x))
 	  (setf (aref out wptr) x))
         (setf wptr (%+ 1 wptr))))
@@ -147,7 +147,7 @@
 	;; Zeichen abwarten und nachgucken, dass nicht etwa die andere
 	;; Haelfte fehlt!
         (let ((x (logior (ash hi 8) lo)))
-	  (when (or (eql x #xFFFE) (eql x #/U+FFFF))
+	  (when (or (eql x #xFFFE) (eql x #xFFFF))
 	    (xerror "not a valid code point: #x~X" x))
 	  (setf (aref out wptr) x))
         (setf wptr (%+ 1 wptr))))
@@ -169,7 +169,7 @@
 		       (xerror "surrogate encoded in UTF-8: #x~X." x))
                      (cond ((or (%> x #x10FFFF)
 				(eql x #xFFFE)
-				(eql x #/U+FFFF))
+				(eql x #xFFFF))
                             (xerror "not a valid code point: #x~X" x))
 		           ((%> x #xFFFF)
                             (setf (aref out (%+ 0 wptr)) (%+ #xD7C0 (ash x -10))