Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3962/src/code
Modified Files:
octets.lisp
Log Message:
0.9.3.18:
* DEFINE-UNIBYTE-MAPPER defines correct externalization
routine for encodings, swapping 8-bit codes.
Index: octets.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/octets.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- octets.lisp 14 Jul 2005 16:30:37 -0000 1.5
+++ octets.lisp 2 Aug 2005 18:11:15 -0000 1.6
@@ -190,12 +190,12 @@
(declare (optimize speed (safety 0))
(type char-code code))
(case code
- (,(mapcar #'car exceptions) nil)
,@(mapcar (lambda (exception)
(destructuring-bind (byte code) exception
`(,code ,byte)))
exceptions)
- (otherwise code)))))
+ (,(mapcar #'car exceptions) nil)
+ (otherwise (if (< code 256) code nil))))))
#!+sb-unicode
(define-unibyte-mapper
|