Re: [Sbcl-devel] [PATCH] UCS-2 and UTF-16

[Yaroslav K. <kav...@je...>]

Many thanks, but:

$ ./make.sh
...
; file: C:\gnu\home\src\sbcl\sbcl\src\code\external-formats\enc-uni.lisp
; in: DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE)
;     (SB!IMPL::DEFINE-EXTERNAL-FORMAT/VARIABLE-WIDTH (:UCS-2LE :UCS2LE)
;                                                   NIL
;                                                   2
;                                                   (IF (< SB!SYS:BITS 
65536)
;                                                       (SETF 
(SB!IMPL::SAP-REF-16LE
;                                                              SB!IMPL::SAP
; 
SB!IMPL::TAIL)
;                                                               SB!SYS:BITS)
; 
(SB!IMPL::STREAM-ENCODING-ERROR-AND-HANDLE
;                                                        STREAM
;                                                        SB!SYS:BITS))
;                                                   2
;                                                   (CODE-CHAR
;                                                    (SB!IMPL::SAP-REF-16LE
;                                                     SB!IMPL::SAP
;                                                     SB!IMPL::HEAD)))
; --> PROGN DEFUN PROGN
; ==>
;   (SB!INT:COLD-FSET SB!IMPL::BYTES-FOR-CHAR/UCS-2LE
;                     (LAMBDA (SB-XC:BYTE)
;                       (BLOCK SB!IMPL::BYTES-FOR-CHAR/UCS-2LE 2)))
;
; caught WARNING:
;   The variable BYTE is defined but never used.
...
; compilation unit finished
;   caught 10 WARNING conditions
;   printed 6 notes


; 
C:\gnu\home\src\sbcl\sbcl\obj\from-xc\src\code\external-formats\enc-uni.lisp-obj-tmp 
written
; compilation finished in 0:00:01

debugger invoked on a SIMPLE-ERROR:
   FAILURE-P was set when creating 
"obj/from-xc/src/code/external-formats/enc-uni.lisp-obj".
...

Bug?

-- 
WBR, Yaroslav Kavenchuk.