[Openmcl-devel] utf-16-stream-encode bug

[Takehiko Abe]

In ccl::utf-16-stream-encode , stream arg is missing
for the write-function call.

(hope i'm looking at the right cvs.)


Index: level-1/l1-unicode.lisp
===================================================================
RCS file: /usr/local/tmpcvs/openmcl-dev/ccl/level-1/l1-unicode.lisp,v
retrieving revision 1.16
diff -u -r1.16 l1-unicode.lisp
--- level-1/l1-unicode.lisp	3 Dec 2006 09:26:55 -0000	1.16
+++ level-1/l1-unicode.lisp	2 Apr 2007 14:32:18 -0000
@@ -3027,7 +3027,7 @@
         1)
       (progn
         (funcall write-function stream (logior #xd800 (the fixnum (ash
highbits -10))))
-        (funcall write-function (logior #xdc00 (the fixnum (logand
highbits #x3ff))))
+        (funcall write-function stream (logior #xdc00 (the fixnum
(logand highbits #x3ff))))
         2))))
 
 (defun utf-16-stream-decode (1st-unit next-unit-function stream)