<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"><html>
<head>
<meta name="Generator" content="Zarafa WebAccess v6.20.4-14107">
<meta http-equiv="Content-Type" content="text/html; charset=Windows-1252">
<title>hu.dwim.rdbms.oracle-utf-problems-10 - Is it babel?</title>
<style type="text/css">
body
{
font-family: Arial, Verdana, Sans-Serif;
font-size: 12px;
padding: 5px 5px 5px 5px;
margin: 0px;
border-style: none;
background-color: #ffffff;
}
p, ul, li
{
margin-top: 0px;
margin-bottom: 0px;
}
</style>
</head>
<body>
<p>Tried a dirty patch so that I can move on until the proper patch arrives.<br />Strange thing is, it doesn't work when it comes to hu.dwim.rdbms.oracle?<br />Don't like second guessing you but maybe babel isn't doing this?<br /><br /><br />*** Before the patch:<br /><br />BABEL> (let ((octet-array-utf-16le (make-array 6 :element-type '(unsigned-byte 8)<br /> :initial-contents (vector #X66 #X00 #X6F #X00 #X6F #X00))))<br /> (babel:octets-to-string octet-array-utf-16le :encoding :utf-16))<br />"???"<br />BABEL> <br /><br /><br />*** After the path:<br /><br />BABEL> (let ((octet-array-utf-16le (make-array 6 :element-type '(unsigned-byte 8)<br /> :initial-contents (vector #X66 #X00 #X6F #X00 #X6F #X00))))<br /> (babel:octets-to-string octet-array-utf-16le :encoding :utf-16))<br />"foo"<br />BABEL><br /><br /><br /><br />$ cat babel-src-enc-unicode.lisp.diff <br />548c548<br />< (t #+little-endian nil)))))<br />---<br />> (t #+little-endian t)))))<br />602c602<br />< (t #+little-endian nil)))))<br />---<br />> (t #+little-endian t)))))<br /><br /><br /><br />But after the patch the trouble with hu.dwim.rdbms.oracle stays the same:<br /><br />$ rm -r .cache/common-lisp/sbcl-1.0.37-linux-x86-64/home/chris/code/lisp-tp/babel/<br />$ sbcl --eval "(progn (asdf::load-system 'symarena-oracle) (in-package "SYMORA"))"<br /><br />...<br /><br />* (select-symtag)<br />--TIME MARK 2010-11-04--<br />12:51 0 RDBMS DEBUG About to BEGIN transaction in database #<ORACLE {1003B5A741}><br />12:51 0 RDBMS DEBUG Executing "SELECT SYMTAG_KEY FROM symtag"<br />...<br />12:51 0 RDBMS DEBUG Preparing command: "SELECT SYMTAG_KEY FROM symtag"<br />12:51 0 RDBMS DEBUG Fetching "??????????" from buffer at index 0<br />12:51 0 RDBMS DEBUG Fetched: "???"<br />12:51 0 RDBMS DEBUG Fetching "??????????" from buffer at index 0<br />...<br />12:51 0 RDBMS DEBUG Freeing environment handle of transaction #<#<STANDARD-CLASS NIL {1004F711B1}> :begin-executed-p #t {1003286641}><br />#<(AND (VECTOR T 8) (NOT SIMPLE-ARRAY)) {100415A8DF}><br />* (defparameter foostr (elt (elt * 0) 0))<br /><br />FOOSTR<br />* (list (elt foostr 0) (elt foostr 1) (elt foostr 2))<br /><br />(#\U6600 #\U6F00 #\U6F00)<br />* foostr<br /><br />"???"<br />* </p><p> </p><p> </p><p> </p><p>Regards,</p><p>chris</p>
!DSPAM:4cd2a5dc48581985511769!
</body>
</html>