- cl-rdbms-devel@lists.common-lisp.net - mailman3.common-lisp.net

[cl-rdbms-devel] hu.dwim.rdbms.oracle-utf-problems
by Marshall McLuhan 04 Nov '10

04 Nov '10

Solved. Thank you -------- chris. * (select-symtag) --TIME MARK 2010-11-04-- 17:46 0 RDBMS DEBUG About to BEGIN transaction in database #<ORACLE {1003212741}> 17:46 0 RDBMS DEBUG Executing "SELECT SYMTAG_KEY FROM symtag" STYLE-WARNING: Undefined alien: "OCIGetInstantClientPackageName" 17:46 0 RDBMS DEBUG Connecting in transaction #<#<STANDARD-CLASS NIL {1005497791}> :begin-executed-p #t {100501B101}> 17:46 0 RDBMS DEBUG Logging on in transaction #<#<STANDARD-CLASS NIL {1005497791}> :begin-executed-p #t {100501B101}> 17:46 0 RDBMS DEBUG Preparing command: "SELECT SYMTAG_KEY FROM symtag" 17:46 0 RDBMS DEBUG Fetching "SYMTAG_KEY" from buffer at index 0 17:46 0 RDBMS DEBUG Fetched: "foo" 17:46 0 RDBMS DEBUG Fetching "SYMTAG_KEY" from buffer at index 0 17:46 0 RDBMS DEBUG Fetched: "foo11" 17:46 0 RDBMS DEBUG Fetching "SYMTAG_KEY" from buffer at index 0 17:46 0 RDBMS DEBUG Fetched: "foobar" 17:46 0 RDBMS DEBUG Fetching "SYMTAG_KEY" from buffer at index 0 17:46 0 RDBMS DEBUG Fetched: "foobar33" 17:46 0 RDBMS DEBUG About to COMMIT transaction #<#<STANDARD-CLASS NIL {1005497791}> :begin-executed-p #t {100501B101}> 17:46 0 RDBMS DEBUG Cleaning up Oracle transaction #<#<STANDARD-CLASS NIL {1005497791}> :begin-executed-p #t {100501B101}> to database #<ORACLE {100501B001}> 17:46 0 RDBMS DEBUG Calling logoff in transaction #<#<STANDARD-CLASS NIL {1005497791}> :begin-executed-p #t {100501B101}> 17:46 0 RDBMS DEBUG Freeing environment handle of transaction #<#<STANDARD-CLASS NIL {1005497791}> :begin-executed-p #t {100501B101}> #<(AND (VECTOR T 8) (NOT SIMPLE-ARRAY)) {1003A38F1F}> * !DSPAM:4cd2e92d48581444717246!

1 0

[cl-rdbms-devel] hu.dwim.rdbms.oracle-utf-problems-12 - ops, babel does it
by Marshall McLuhan 04 Nov '10

04 Nov '10

And hu.dwim.rdbms does use babel directly too. So now we just need to patch hu.dwim.rdbms? Regards, chris BABEL> (let ((octet-array-utf-16le (make-array 6 :element-type '(unsigned-byte 8) :initial-contents (vector #X66 #X00 #X6F #X00 #X6F #X00)))) (babel:octets-to-string octet-array-utf-16le :encoding :utf-16le)) "foo" !DSPAM:4cd2e49e48581293472516!

1 0

[cl-rdbms-devel] hu.dwim.rdbms.oracle-utf-problems-11 - Still trouble even with new babel?
by Marshall McLuhan 04 Nov '10

04 Nov '10

For me it seems iolib is the only system using babel directly? Can't see iolib using the octects-to-string function, only for dns but maybe I didn't look hard enough. Or it uses another babel function to do this? Do I have to turn on the right byte-ordering somewhere, just for the time being? Regards, chris BABEL> (let ((octet-array-utf-16le (make-array 6 :element-type '(unsigned-byte 8) :initial-contents (vector #X66 #X00 #X6F #X00 #X6F #X00)))) (babel:octets-to-string octet-array-utf-16le :encoding :utf-16)) "???" BABEL> * (select-symtag) --TIME MARK 2010-11-04-- 17:03 0 RDBMS DEBUG About to BEGIN transaction in database #<ORACLE {1003BAE741}> 17:03 0 RDBMS DEBUG Executing "SELECT SYMTAG_KEY FROM symtag" .. 17:03 0 RDBMS DEBUG Preparing command: "SELECT SYMTAG_KEY FROM symtag" 17:03 0 RDBMS DEBUG Fetching "??????????" from buffer at index 0 17:03 0 RDBMS DEBUG Fetched: "???" 17:03 0 RDBMS DEBUG Fetching "??????????" from buffer at index 0 .. #<(AND (VECTOR T 8) (NOT SIMPLE-ARRAY)) {100403E8DF}> * (defparameter foostr (elt (elt * 0) 0)) FOOSTR * (lst (elt foostr 0) (elt foostr 1) (elt foostr 2)) (#\U6600 #\U6F00 #\U6F00) * foostr "???" * !DSPAM:4cd2e12548585927441065!

2 1

[cl-rdbms-devel] hu.dwim.rdbms.oracle-utf-problems-8
by Marshall McLuhan 04 Nov '10

04 Nov '10

>>> > 12:20 0 RDBMS DRIBBLE Convert from 5, size is 90, content: >>> > 66 00 6F 00 6F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>> > 00 >>> > 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>> > 00 >>> > 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>> > 00 >>> > 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>> >>> >>> this data is utf-16, babel can deal with that, too. >>> >>> i'm looking into installing oracle now, so that i can test it myself... >>> >> >> Hm, the connection encoding is UTF-16. SBCL doesn't support UTF-16. >> Therefore I have to convert >> the UTF-16 string with babel to UTF-8 if babel does such a thing. > > >reading this makes me think that you don't have a clear model of lisp >strings/unicode/encodings. I probably don't, yes. > >i don't remember reading this article, but a quick glance looks >promising: http://www.joelonsoftware.com/articles/Unicode.html > Interesting read, I saw this once but didn't read it. But I did now. >in short: you need to convert between lisp strings and byte arrays, >sending/receiving byte arrays to/from the database. the encoding >needed for OCI, oracle's C interface, is utf-16. > Is getting strings in utf-16 at this point a feature or a bug? Asked another way: Am I supposed to convert utf-16 strings to lisp strings or should that already be in there? If it were not a bug I would get a byte array instead of a utf-16 string? Error messages don't show up correctly either e.g. for violations of unique constraints? On the other hand, this being a feature would makes sense when thinking about where the data is supposed to be seen, the major web browsers. Assuming the major web browsers support utf-16. But then, how do I go about manipulation utf-16 string data with sbcl. Do I have to take a harder look at babel or flexi-streams? >utf-8 is nowhere in the picture (if not the encoding emacs/slime uses >to communicate with the cl process). > Isn't sbcl able to use utf-8 to represent its lisp strings? Babel isn't able to convert between utf-16 and utf-8, yet? Confusion reigns ... ORACLE> (let ((octet-array (make-array 6 :element-type '(unsigned-byte 8) :initial-contents (vector #X66 #X00 #X6F #X00 #X6F #X00)))) (babel:octets-to-string octet-array :encoding :utf-8)) "f@^o@^o^@" ORACLE> Regards, chris >-- > attila > > !DSPAM:4cd1af6448581812115720!

2 3

[cl-rdbms-devel] hu.dwim.rdbms.oracle-utf-problems-10 - Is it babel?
by Marshall McLuhan 04 Nov '10

04 Nov '10

Tried a dirty patch so that I can move on until the proper patch arrives. Strange thing is, it doesn't work when it comes to hu.dwim.rdbms.oracle? Don't like second guessing you but maybe babel isn't doing this? *** Before the patch: BABEL> (let ((octet-array-utf-16le (make-array 6 :element-type '(unsigned-byte 8) :initial-contents (vector #X66 #X00 #X6F #X00 #X6F #X00)))) (babel:octets-to-string octet-array-utf-16le :encoding :utf-16)) "???" BABEL> *** After the path: BABEL> (let ((octet-array-utf-16le (make-array 6 :element-type '(unsigned-byte 8) :initial-contents (vector #X66 #X00 #X6F #X00 #X6F #X00)))) (babel:octets-to-string octet-array-utf-16le :encoding :utf-16)) "foo" BABEL> $ cat babel-src-enc-unicode.lisp.diff 548c548 < (t #+little-endian nil))))) --- > (t #+little-endian t))))) 602c602 < (t #+little-endian nil))))) --- > (t #+little-endian t))))) But after the patch the trouble with hu.dwim.rdbms.oracle stays the same: $ rm -r .cache/common-lisp/sbcl-1.0.37-linux-x86-64/home/chris/code/lisp-tp/babel/ $ sbcl --eval "(progn (asdf::load-system 'symarena-oracle) (in-package "SYMORA"))" .. * (select-symtag) --TIME MARK 2010-11-04-- 12:51 0 RDBMS DEBUG About to BEGIN transaction in database #<ORACLE {1003B5A741}> 12:51 0 RDBMS DEBUG Executing "SELECT SYMTAG_KEY FROM symtag" .. 12:51 0 RDBMS DEBUG Preparing command: "SELECT SYMTAG_KEY FROM symtag" 12:51 0 RDBMS DEBUG Fetching "??????????" from buffer at index 0 12:51 0 RDBMS DEBUG Fetched: "???" 12:51 0 RDBMS DEBUG Fetching "??????????" from buffer at index 0 .. 12:51 0 RDBMS DEBUG Freeing environment handle of transaction #<#<STANDARD-CLASS NIL {1004F711B1}> :begin-executed-p #t {1003286641}> #<(AND (VECTOR T 8) (NOT SIMPLE-ARRAY)) {100415A8DF}> * (defparameter foostr (elt (elt * 0) 0)) FOOSTR * (list (elt foostr 0) (elt foostr 1) (elt foostr 2)) (#\U6600 #\U6F00 #\U6F00) * foostr "???" * Regards, chris !DSPAM:4cd2a5dc48581985511769!

1 0

[cl-rdbms-devel] hu.dwim.rdbms.oracle-utf-problems-9 - Just an endianness / byte-order problem?
by Marshall McLuhan 03 Nov '10

03 Nov '10

We get big endian but need little endian? How do we best change to little endian? * (select-symtag) 23:11 0 RDBMS DEBUG About to BEGIN transaction in database #<ORACLE {1002AB8041}> .. 23:11 0 RDBMS DRIBBLE Retrieving column: name="??????????", type=1, size=44 23:11 0 RDBMS DEBUG Fetching "??????????" from buffer at index 0 23:11 0 RDBMS DRIBBLE Convert from 5, size is 90, content: 66 00 6F 00 6F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 23:11 0 RDBMS DEBUG Fetched: "???" .. #<(AND (VECTOR T 8) (NOT SIMPLE-ARRAY)) {100358C16F}> * (defparameter foostring (elt (elt * 0) 0)) FOOSTRING * (length foostring) 3 * (lst (elt foostring 0) (elt foostring 1) (elt foostring 2)) (#\U6600 #\U6F00 #\U6F00) * (coerce '(#\U0066 #\U006F #\U006F) 'string) "foo" * foostring "???" * Regards, chris !DSPAM:4cd1e54648587535314996!

1 0

[cl-rdbms-devel] hu.dwim.rdbms.oracle-utf-problems-7
by Marshall McLuhan 03 Nov '10

03 Nov '10

> > The converter doesn't seem to remove the second byte which is zero. ( 66 00 > > 6F 00 6F 00 equals "foo" ) > > As far as I know UTF-8 uses only one byte per ascii character. How do I get > > this thing to remove the zero byte? > > > > > > > > 12:20 0 RDBMS DRIBBLE Convert from 5, size is 90, content: > > 66 00 6F 00 6F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 > > 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 > > 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 > > 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 > > > this data is utf-16, babel can deal with that, too. > > i'm looking into installing oracle now, so that i can test it myself... > Hm, the connection encoding is UTF-16. SBCL doesn't support UTF-16. Therefore I have to convert the UTF-16 string with babel to UTF-8 if babel does such a thing. Sounds promising. But, if that is right, why isn't this done by default. Is there a lisp that uses UTF-16? I will try this later, have to eat and thank you. > -- > attila chris !DSPAM:4cd166f348585239786034!

2 1

[cl-rdbms-devel] hu.dwim.rdbms.oracle-utf-problems-6 - trailing zero byte problem for ascii characters using utf-8?
by Marshall McLuhan 03 Nov '10

03 Nov '10

The converter doesn't seem to remove the second byte which is zero. ( 66 00 6F 00 6F 00 equals "foo" ) As far as I know UTF-8 uses only one byte per ascii character. How do I get this thing to remove the zero byte? 12:20 0 RDBMS DRIBBLE Convert from 5, size is 90, content: 66 00 6F 00 6F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 hex binary dec 0 0000 0 1 0001 1 2 0010 2 3 0011 3 4 0100 4 5 0101 5 6 0110 6 7 0111 7 8 1000 8 9 1001 9 A 1010 10 B 1011 11 C 1100 12 D 1101 13 E 1110 14 F 1111 15 *** How it should be: ORACLE> #B01100110 ; HEX: 66 102 ORACLE> (char-code #\f) 102 *** How it is * (select-symtag2) 13:34 0 RDBMS DEBUG About to BEGIN transaction in database #<ORACLE {1002AB8041}> 13:34 0 SQL DRIBBLE SELECT SYMTAG_KEY FROM symtag 13:34 0 RDBMS DEBUG Executing "SELECT SYMTAG_KEY FROM symtag" STYLE-WARNING: Undefined alien: "OCIGetInstantClientPackageName" STYLE-WARNING: Undefined alien: "OCIGetInstantClientPackageName" 13:34 0 RDBMS DEBUG Connecting in transaction #<#<STANDARD-CLASS NIL {10030AFD91}> :begin-executed-p #t {1003E4FDA1}> 13:34 0 RDBMS DEBUG Logging on in transaction #<#<STANDARD-CLASS NIL {10030AFD91}> :begin-executed-p #t {1003E4FDA1}> 13:34 0 RDBMS DEBUG Preparing command: "SELECT SYMTAG_KEY FROM symtag" 13:34 0 RDBMS DRIBBLE Statement is allocated 13:34 0 RDBMS DRIBBLE Retrieving column: name="??????????", type=1, size=44 13:34 0 RDBMS DEBUG Fetching "??????????" from buffer at index 0 13:34 0 RDBMS DRIBBLE Convert from 5, size is 90, content: 66 00 6F 00 6F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .. #<(AND (VECTOR T 8) (NOT SIMPLE-ARRAY)) {1003F01CBF}> * (setq x *) #<(AND (VECTOR T 8) (NOT SIMPLE-ARRAY)) {1003F01CBF}> * (elt (elt x 0) 0) "???" * (elt * 0) #\U6600 ; this should be the character #\f * (setq y *) #\U6600 * (char-code y) 26112 ; this should be the char-code 102 * !DSPAM:4cd1607e48581541520698!

2 1

[cl-rdbms-devel] hu.dwim.rdbms+oracle+utf+read-from-server-problem-5
by Marshall McLuhan 03 Nov '10

03 Nov '10

Looking at the source and debug output now. How can I find out more about the converter. For example the function typemap-oci-to-lisp is somewhat mysterious to me. Where is it defined? ORACLE> (describe #'typemap-oci-to-lisp) #<CLOSURE (LAMBDA (SB-KERNEL:INSTANCE)) {1003A97B79}> [compiled closure] Lambda-list: (INSTANCE) Derived type: (FUNCTION (T) (VALUES T &OPTIONAL)) Source file: SYS:SRC;CODE;TARGET-DEFSTRUCT.LISP ; No value ORACLE> chris@catch22:~/code/lisp-tp$ ls hu-dwim/ hu.dwim.asdf hu.dwim.common hu.dwim.common-lisp hu.dwim.def hu.dwim.defclass-star hu.dwim.logger hu.dwim.rdbms hu.dwim.syntax-sugar hu.dwim.util hu.dwim.walker local-time chris@catch22:~/code/lisp-tp$ grep -R "typemap-oci-to-lisp" hu-dwim hu-dwim/hu.dwim.rdbms/source/oracle/backend.lisp: (converter (typemap-oci-to-lisp (typemap-of column-descriptor)))) *** source/oracle/backend.lisp (def function fetch-column-value (column-descriptor row-index) (rdbms.debug "Fetching ~S from buffer at index ~D" (name-of column-descriptor) row-index) (aprog1 (let* ((indicator (cffi:mem-aref (indicators-of column-descriptor) :short row-index))) (if (= indicator -1) :null (let* ((buffer (buffer-of column-descriptor)) (size (size-of column-descriptor)) (converter (typemap-oci-to-lisp (typemap-of column-descriptor)))) #+nil (rdbms.dribble "Buffer:~%~A" (dump-c-byte-array buffer (* size +number-of-buffered-rows+))) (rdbms.dribble "Convert from ~D, size is ~D, content:~%~A" (typemap-external-type (typemap-of column-descriptor)) size (dump-c-byte-array (cffi:inc-pointer buffer (* row-index size)) size)) (funcall converter (cffi:inc-pointer buffer (* row-index size)) size)))) (rdbms.debug "Fetched: ~S" it))) *** sbcl/shell * (setf (hu.dwim.rdbms::log-level 'rdbms) 0) * (select-symtag) 12:20 0 RDBMS DEBUG About to BEGIN transaction in database #<ORACLE {1002AB8041}> 12:20 0 SQL DRIBBLE SELECT SYMTAG_KEY FROM symtag 12:20 0 RDBMS DEBUG Executing "SELECT SYMTAG_KEY FROM symtag" STYLE-WARNING: Undefined alien: "OCIGetInstantClientPackageName" STYLE-WARNING: Undefined alien: "OCIGetInstantClientPackageName" 12:20 0 RDBMS DEBUG Connecting in transaction #<#<STANDARD-CLASS NIL {10030AFD91}> :begin-executed-p #t {1003D1DE11}> 12:20 0 RDBMS DEBUG Logging on in transaction #<#<STANDARD-CLASS NIL {10030AFD91}> :begin-executed-p #t {1003D1DE11}> 12:20 0 RDBMS DEBUG Preparing command: "SELECT SYMTAG_KEY FROM symtag" 12:20 0 RDBMS DRIBBLE Statement is allocated 12:20 0 RDBMS DRIBBLE Retrieving column: name="??????????", type=1, size=44 12:20 0 RDBMS DEBUG Fetching "??????????" from buffer at index 0 12:20 0 RDBMS DRIBBLE Convert from 5, size is 90, content: 66 00 6F 00 6F 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 12:20 0 RDBMS DEBUG Fetched: "???" 12:20 0 RDBMS DEBUG Fetching "??????????" from buffer at index 0 12:20 0 RDBMS DRIBBLE Convert from 5, size is 90, content: 66 00 6F 00 6F 00 31 00 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 12:20 0 RDBMS DEBUG Fetched: "?????" 12:20 0 RDBMS DEBUG Fetching "??????????" from buffer at index 0 12:20 0 RDBMS DRIBBLE Convert from 5, size is 90, content: 66 00 6F 00 6F 00 62 00 61 00 72 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 12:20 0 RDBMS DEBUG Fetched: "??????" 12:20 0 RDBMS DEBUG Fetching "??????????" from buffer at index 0 12:20 0 RDBMS DRIBBLE Convert from 5, size is 90, content: 66 00 6F 00 6F 00 62 00 61 00 72 00 33 00 33 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 12:20 0 RDBMS DEBUG Fetched: "????????" 12:20 0 RDBMS DEBUG About to COMMIT transaction #<#<STANDARD-CLASS NIL {10030AFD91}> :begin-executed-p #t {1003D1DE11}> 12:20 0 RDBMS DEBUG Cleaning up Oracle transaction #<#<STANDARD-CLASS NIL {10030AFD91}> :begin-executed-p #t {1003D1DE11}> to database #<ORACLE {1002AB8041}> 12:20 0 RDBMS DEBUG Calling logoff in transaction #<#<STANDARD-CLASS NIL {10030AFD91}> :begin-executed-p #t {1003D1DE11}> 12:20 0 RDBMS DEBUG Freeing environment handle of transaction #<#<STANDARD-CLASS NIL {10030AFD91}> :begin-executed-p #t {1003D1DE11}> #<(AND (VECTOR T 8) (NOT SIMPLE-ARRAY)) {1003DCCCBF}> * 66 00 6F 00 6F 00 equals "foo" 66 00 6F 00 6F 00 31 00 31 00 equals "foo11" 66 00 6F 00 6F 00 62 00 61 00 72 00 equals "foobar" 66 00 6F 00 6F 00 62 00 61 00 72 00 33 00 33 00 equals "foobar33" *** sqlplus SQL> select "SYMTAG_KEY" from symtag; SYMTAG_KEY -------------------------------------------------------------------------------- foo foobar foo11 foobar33 SQL> Regards, chris !DSPAM:4cd154f948581496711765!

1 0

[cl-rdbms-devel] hu.dwim.rdbms.oracle-utf-problems-4
by Marshall McLuhan 02 Nov '10

02 Nov '10

My current thinking is that it is a software bug because using hu.dwim.rdbms's insert-record function to insert string data and reading it afterwards with sqlplus works. Therefore the software bug should have something to do with reading string data from the oracle database server with hu.dwim.rdbms. Regards, chris *** Fooling around with the idea that I need to make xterm capable of unicode without success. ( (just boxes and asian chars insteat of empty spaces, also tried rxvt-unicode ...) xterm +u8 -fn '-Misc-Fixed-Medium-R-SemiCondensed--13-120-75-75-C-60-ISO10646-1' chris@catch22:~$ sbcl --eval "(progn (asdf::load-system 'symarena-oracle) (in-package "SYMORA"))" * (select-symtag) --TIME MARK 2010-11-02-- 23:35 0 RDBMS DEBUG About to BEGIN transaction in database #<ORACLE {1003F0E741}> 23:35 0 RDBMS DEBUG Executing "SELECT SYMTAG_KEY FROM symtag" STYLE-WARNING: Undefined alien: "OCIGetInstantClientPackageName" 23:35 0 RDBMS DEBUG Connecting in transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {1004C7A021}> 23:35 0 RDBMS DEBUG Logging on in transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {1004C7A021}> 23:35 0 RDBMS DEBUG Preparing command: "SELECT SYMTAG_KEY FROM symtag" 23:35 0 RDBMS DEBUG Fetching "Ã¥Ã¥Â¤Ã¤Â´Ã¥Ã¤ Ã¤Ã¥Â 14;Ã¤Â¬Ã¤Ã¥Â¤" from buffer at index 0 23:35 0 RDBMS DEBUG Fetched: "Ã¦Ã¦Â 14;Ã¦Â 14;" 23:35 0 RDBMS DEBUG Fetching "Ã¥Ã¥Â¤Ã¤Â´Ã¥Ã¤ Ã¤Ã¥Â 14;Ã¤Â¬Ã¤Ã¥Â¤" from buffer at index 0 23:35 0 RDBMS DEBUG Fetched: "Ã¦Ã¦Â 14;Ã¦Â 14;Ã¦Ã¦ Ã§" 23:35 0 RDBMS DEBUG Fetching "Ã¥Ã¥Â¤Ã¤Â´Ã¥Ã¤ Ã¤Ã¥Â 14;Ã¤Â¬Ã¤Ã¥Â¤" from buffer at index 0 23:35 0 RDBMS DEBUG Fetched: "Ã¦Ã¦Â 14;Ã¦Â 14;Ã£ Ã£ " 23:35 0 RDBMS DEBUG Fetching "Ã¥Ã¥Â¤Ã¤Â´Ã¥Ã¤ Ã¤Ã¥Â 14;Ã¤Â¬Ã¤Ã¥Â¤" from buffer at index 0 23:35 0 RDBMS DEBUG Fetched: "Ã¦Ã¦Â 14;Ã¦Â 14;Ã¦Ã¦ Ã§Ã£Ã£" 23:35 0 RDBMS DEBUG About to COMMIT transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {1004C7A021}> 23:35 0 RDBMS DEBUG Cleaning up Oracle transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {1004C7A021}> to database #<ORACLE {1004C7A001}> 23:35 0 RDBMS DEBUG Calling logoff in transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {1004C7A021}> 23:35 0 RDBMS DEBUG Freeing environment handle of transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {1004C7A021}> #<(AND (VECTOR T 8) (NOT SIMPLE-ARRAY)) {10034F65BF}> * (select-symtag2) 23:35 0 RDBMS DEBUG About to BEGIN transaction in database #<ORACLE {1004C7A001}> 23:35 0 RDBMS DEBUG Executing "SELECT SYMTAG_KEY FROM symtag" STYLE-WARNING: Undefined alien: "OCIGetInstantClientPackageName" STYLE-WARNING: Undefined alien: "OCIGetInstantClientPackageName" 23:35 0 RDBMS DEBUG Connecting in transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {10036EE6A1}> 23:35 0 RDBMS DEBUG Logging on in transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {10036EE6A1}> 23:35 0 RDBMS DEBUG Preparing command: "SELECT SYMTAG_KEY FROM symtag" 23:35 0 RDBMS DEBUG Fetching "Ã¥Ã¥Â¤Ã¤Â´Ã¥Ã¤ Ã¤Ã¥Â 14;Ã¤Â¬Ã¤Ã¥Â¤" from buffer at index 0 23:35 0 RDBMS DEBUG Fetched: "Ã¦Ã¦Â 14;Ã¦Â 14;" 23:35 0 RDBMS DEBUG Fetching "Ã¥Ã¥Â¤Ã¤Â´Ã¥Ã¤ Ã¤Ã¥Â 14;Ã¤Â¬Ã¤Ã¥Â¤" from buffer at index 0 23:35 0 RDBMS DEBUG Fetched: "Ã¦Ã¦Â 14;Ã¦Â 14;Ã¦Ã¦ Ã§" 23:35 0 RDBMS DEBUG Fetching "Ã¥Ã¥Â¤Ã¤Â´Ã¥Ã¤ Ã¤Ã¥Â 14;Ã¤Â¬Ã¤Ã¥Â¤" from buffer at index 0 23:35 0 RDBMS DEBUG Fetched: "Ã¦Ã¦Â 14;Ã¦Â 14;Ã£ Ã£ " 23:35 0 RDBMS DEBUG Fetching "Ã¥Ã¥Â¤Ã¤Â´Ã¥Ã¤ Ã¤Ã¥Â 14;Ã¤Â¬Ã¤Ã¥Â¤" from buffer at index 0 23:35 0 RDBMS DEBUG Fetched: "Ã¦Ã¦Â 14;Ã¦Â 14;Ã¦Ã¦ Ã§Ã£Ã£" 23:35 0 RDBMS DEBUG About to COMMIT transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {10036EE6A1}> 23:35 0 RDBMS DEBUG Cleaning up Oracle transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {10036EE6A1}> to database #<ORACLE {1004C7A001}> 23:35 0 RDBMS DEBUG Calling logoff in transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {10036EE6A1}> 23:35 0 RDBMS DEBUG Freeing environment handle of transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {10036EE6A1}> #<(AND (VECTOR T 8) (NOT SIMPLE-ARRAY)) {100393E23F}> * chris@catch22:~$ xterm -u8 -fn '-Misc-Fixed-Medium-R-SemiCondensed--13-120-75-75-C-60-ISO10646-1' * (select-symtag) --TIME MARK 2010-11-02-- 23:36 0 RDBMS DEBUG About to BEGIN transaction in database #<ORACLE {1003F0E741}> 23:36 0 RDBMS DEBUG Executing "SELECT SYMTAG_KEY FROM symtag" STYLE-WARNING: Undefined alien: "OCIGetInstantClientPackageName" 23:36 0 RDBMS DEBUG Connecting in transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {1004C7A021}> 23:36 0 RDBMS DEBUG Logging on in transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {1004C7A021}> 23:36 0 RDBMS DEBUG Preparing command: "SELECT SYMTAG_KEY FROM symtag" 23:36 0 RDBMS DEBUG Fetching "?å¤?ä´?å??ä??ä???ä¬?ä??å¤?" from buffer at index 0 23:36 0 RDBMS DEBUG Fetched: "???" 23:36 0 RDBMS DEBUG Fetching "?å¤?ä´?å??ä??ä???ä¬?ä??å¤?" from buffer at index 0 23:36 0 RDBMS DEBUG Fetched: "??????" 23:36 0 RDBMS DEBUG Fetching "?å¤?ä´?å??ä??ä???ä¬?ä??å¤?" from buffer at index 0 23:36 0 RDBMS DEBUG Fetched: "?????" 23:36 0 RDBMS DEBUG Fetching "?å¤?ä´?å??ä??ä???ä¬?ä??å¤?" from buffer at index 0 23:36 0 RDBMS DEBUG Fetched: "????????" 23:36 0 RDBMS DEBUG About to COMMIT transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {1004C7A021}> 23:36 0 RDBMS DEBUG Cleaning up Oracle transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {1004C7A021}> to database #<ORACLE {1004C7A001}> 23:36 0 RDBMS DEBUG Calling logoff in transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {1004C7A021}> 23:36 0 RDBMS DEBUG Freeing environment handle of transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {1004C7A021}> #<(AND (VECTOR T 8) (NOT SIMPLE-ARRAY)) {10034F65BF}> * (select-symtag2) 23:36 0 RDBMS DEBUG About to BEGIN transaction in database #<ORACLE {1004C7A001}> 23:36 0 RDBMS DEBUG Executing "SELECT SYMTAG_KEY FROM symtag" STYLE-WARNING: Undefined alien: "OCIGetInstantClientPackageName" STYLE-WARNING: Undefined alien: "OCIGetInstantClientPackageName" 23:36 0 RDBMS DEBUG Connecting in transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {10036EE6A1}> 23:36 0 RDBMS DEBUG Logging on in transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {10036EE6A1}> 23:36 0 RDBMS DEBUG Preparing command: "SELECT SYMTAG_KEY FROM symtag" 23:36 0 RDBMS DEBUG Fetching "?å¤?ä´?å??ä??ä???ä¬?ä??å¤?" from buffer at index 0 23:36 0 RDBMS DEBUG Fetched: "???" 23:36 0 RDBMS DEBUG Fetching "?å¤?ä´?å??ä??ä???ä¬?ä??å¤?" from buffer at index 0 23:36 0 RDBMS DEBUG Fetched: "??????" 23:36 0 RDBMS DEBUG Fetching "?å¤?ä´?å??ä??ä???ä¬?ä??å¤?" from buffer at index 0 23:36 0 RDBMS DEBUG Fetched: "?????" 23:36 0 RDBMS DEBUG Fetching "?å¤?ä´?å??ä??ä???ä¬?ä??å¤?" from buffer at index 0 23:36 0 RDBMS DEBUG Fetched: "????????" 23:36 0 RDBMS DEBUG About to COMMIT transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {10036EE6A1}> 23:36 0 RDBMS DEBUG Cleaning up Oracle transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {10036EE6A1}> to database #<ORACLE {1004C7A001}> 23:36 0 RDBMS DEBUG Calling logoff in transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {10036EE6A1}> 23:36 0 RDBMS DEBUG Freeing environment handle of transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {10036EE6A1}> #<(AND (VECTOR T 8) (NOT SIMPLE-ARRAY)) {100393E23F}> * chris@catch22:~$ rxvt-unicode chris@catch22:~$ sbcl --eval "(progn (asdf::load-system 'symarena-oracle) (in-package "SYMORA")) * (select-symtag) --TIME MARK 2010-11-02-- 23:38 0 RDBMS DEBUG About to BEGIN transaction in database #<ORACLE {1003F0E741}> 23:38 0 RDBMS DEBUG Executing "SELECT SYMTAG_KEY FROM symtag" STYLE-WARNING: Undefined alien: "OCIGetInstantClientPackageName" 23:38 0 RDBMS DEBUG Connecting in transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {1004C7A021}> 23:38 0 RDBMS DEBUG Logging on in transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {1004C7A021}> 23:38 0 RDBMS DEBUG Preparing command: "SELECT SYMTAG_KEY FROM symtag" 23:38 0 RDBMS DEBUG Fetching "?å¤?ä´?å??ä??ä???ä¬?ä??å¤?" from buffer at index 0 23:38 0 RDBMS DEBUG Fetched: "???" 23:38 0 RDBMS DEBUG Fetching "?å¤?ä´?å??ä??ä???ä¬?ä??å¤?" from buffer at index 0 23:38 0 RDBMS DEBUG Fetched: "??????" 23:38 0 RDBMS DEBUG Fetching "?å¤?ä´?å??ä??ä???ä¬?ä??å¤?" from buffer at index 0 23:38 0 RDBMS DEBUG Fetched: "?????" 23:38 0 RDBMS DEBUG Fetching "?å¤?ä´?å??ä??ä???ä¬?ä??å¤?" from buffer at index 0 23:38 0 RDBMS DEBUG Fetched: "????????" 23:38 0 RDBMS DEBUG About to COMMIT transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {1004C7A021}> 23:38 0 RDBMS DEBUG Cleaning up Oracle transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {1004C7A021}> to database #<ORACLE {1004C7A001}> 23:38 0 RDBMS DEBUG Calling logoff in transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {1004C7A021}> 23:38 0 RDBMS DEBUG Freeing environment handle of transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {1004C7A021}> #<(AND (VECTOR T 8) (NOT SIMPLE-ARRAY)) {10034F65BF}> * (select-symtag2) 23:38 0 RDBMS DEBUG About to BEGIN transaction in database #<ORACLE {1004C7A001}> 23:38 0 RDBMS DEBUG Executing "SELECT SYMTAG_KEY FROM symtag" STYLE-WARNING: Undefined alien: "OCIGetInstantClientPackageName" STYLE-WARNING: Undefined alien: "OCIGetInstantClientPackageName" 23:38 0 RDBMS DEBUG Connecting in transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {10036EE6A1}> 23:38 0 RDBMS DEBUG Logging on in transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {10036EE6A1}> 23:38 0 RDBMS DEBUG Preparing command: "SELECT SYMTAG_KEY FROM symtag" 23:38 0 RDBMS DEBUG Fetching "?å¤?ä´?å??ä??ä???ä¬?ä??å¤?" from buffer at index 0 23:38 0 RDBMS DEBUG Fetched: "???" 23:38 0 RDBMS DEBUG Fetching "?å¤?ä´?å??ä??ä???ä¬?ä??å¤?" from buffer at index 0 23:38 0 RDBMS DEBUG Fetched: "??????" 23:38 0 RDBMS DEBUG Fetching "?å¤?ä´?å??ä??ä???ä¬?ä??å¤?" from buffer at index 0 23:38 0 RDBMS DEBUG Fetched: "?????" 23:38 0 RDBMS DEBUG Fetching "?å¤?ä´?å??ä??ä???ä¬?ä??å¤?" from buffer at index 0 23:38 0 RDBMS DEBUG Fetched: "????????" 23:38 0 RDBMS DEBUG About to COMMIT transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {10036EE6A1}> 23:38 0 RDBMS DEBUG Cleaning up Oracle transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {10036EE6A1}> to database #<ORACLE {1004C7A001}> 23:38 0 RDBMS DEBUG Calling logoff in transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {10036EE6A1}> 23:38 0 RDBMS DEBUG Freeing environment handle of transaction #<#<STANDARD-CLASS NIL {1004CC6BC1}> :begin-executed-p #t {10036EE6A1}> #<(AND (VECTOR T 8) (NOT SIMPLE-ARRAY)) {100393E23F}> * !DSPAM:4cd09c6e48582529512900!

1 0