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