OSCL/closure-common
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

name-hashtable in den context gezogen, das war wohl kaum thread-safe so.

Browse Source 
allerdings keine ahnung wofuer sie ueberhaupt da ist.
This commit is contained in:
dlichteblau
2005-11-27 20:59:00 +00:00
parent 055bbc5560
commit e77933779c
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
encodings.lisp
View File

@ -124,7 +124,7 @@
;; Zeichen abwarten und nachgucken, dass nicht etwa die andere ;; Zeichen abwarten und nachgucken, dass nicht etwa die andere
;; Haelfte fehlt! ;; Haelfte fehlt!
(let ((x (logior (ash hi 8) lo))) (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)) (xerror "not a valid code point: #x~X" x))
(setf (aref out wptr) x)) (setf (aref out wptr) x))
(setf wptr (%+ 1 wptr)))) (setf wptr (%+ 1 wptr))))
@ -147,7 +147,7 @@
;; Zeichen abwarten und nachgucken, dass nicht etwa die andere ;; Zeichen abwarten und nachgucken, dass nicht etwa die andere
;; Haelfte fehlt! ;; Haelfte fehlt!
(let ((x (logior (ash hi 8) lo))) (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)) (xerror "not a valid code point: #x~X" x))
(setf (aref out wptr) x)) (setf (aref out wptr) x))
(setf wptr (%+ 1 wptr)))) (setf wptr (%+ 1 wptr))))
@ -169,7 +169,7 @@
(xerror "surrogate encoded in UTF-8: #x~X." x)) (xerror "surrogate encoded in UTF-8: #x~X." x))
(cond ((or (%> x #x10FFFF) (cond ((or (%> x #x10FFFF)
(eql x #xFFFE) (eql x #xFFFE)
(eql x #/U+FFFF)) (eql x #xFFFF))
(xerror "not a valid code point: #x~X" x)) (xerror "not a valid code point: #x~X" x))
((%> x #xFFFF) ((%> x #xFFFF)
(setf (aref out (%+ 0 wptr)) (%+ #xD7C0 (ash x -10)) (setf (aref out (%+ 0 wptr)) (%+ #xD7C0 (ash x -10))