Oracle support doesn't compile
Carlos Konstanski <[email protected]>
| Newsgroups | gmane.lisp.clsql.general |
|---|---|
| Message-ID | <[email protected]> |
I just installed the latest 5.x version of CLSQL. I was excited to see the unicode support in action, which would fix a long-standing bug in one of my Oracle apps. However, oracle-sql.lisp does not compile. Output below. Carlos ; file: /usr/share/common-lisp/source/clsql/db-oracle/oracle-sql.lisp ; in: DEFUN FETCH-ROW ; (DEFUN CLSQL-ORACLE::FETCH-ROW ; (CLSQL-ORACLE::QC (CLSQL-ORACLE::EOF-ERRORP T) CLSQL-ORACLE::EOF-VALUE ; CLSQL-SYS:ENCODING) ; (DECLARE (OPTIMIZE (SPEED 3))) ; (COND ; ((ZEROP (CLSQL-ORACLE::QC-N-FROM-OCI CLSQL-ORACLE::QC)) ; (IF CLSQL-ORACLE::EOF-ERRORP ; (ERROR 'CLSQL-SYS:SQL-DATABASE-ERROR :MESSAGE #) ; CLSQL-ORACLE::EOF-VALUE)) ; ((>= (CLSQL-ORACLE::QC-N-TO-DBI CLSQL-ORACLE::QC) ; (CLSQL-ORACLE::QC-N-FROM-OCI CLSQL-ORACLE::QC)) ; (CLSQL-ORACLE::REFILL-QC-BUFFERS CLSQL-ORACLE::QC) ; (CLSQL-ORACLE::FETCH-ROW CLSQL-ORACLE::QC NIL CLSQL-ORACLE::EOF-VALUE ; CLSQL-SYS:ENCODING)) ; (T ; (LET (# # #) ; (DOTIMES # #) ; (INCF #) ; (NREVERSE CLSQL-ORACLE::REVERSED-RESULT))))) ; --> PROGN EVAL-WHEN ; ==> ; (SB-IMPL::%DEFUN 'CLSQL-ORACLE::FETCH-ROW ; (SB-INT:NAMED-LAMBDA CLSQL-ORACLE::FETCH-ROW ; (CLSQL-ORACLE::QC (CLSQL-ORACLE::EOF-ERRORP T) ; CLSQL-ORACLE::EOF-VALUE CLSQL-SYS:ENCODING) ; (DECLARE (OPTIMIZE (SPEED 3))) ; (BLOCK CLSQL-ORACLE::FETCH-ROW ; (COND (# #) (# # #) (T #)))) ; NIL 'NIL (SB-C:SOURCE-LOCATION)) ; ; caught ERROR: ; Required argument is not a symbol: (EOF-ERRORP T)