Prepare work:
(load "/usr/share/common-lisp/source/asdf/asdf-install.lisp")
Create empty file: /root/.clsql-test.config
Load package rte from http://files.b9.com/.
(load "/tmp_2/rt-20040621/rt.asd")
(load "/tmp_2/rt-20040621/rt-test.lisp")
/usr/share/doc/cl-sql/examples# sh run-tests.sh
-- Works !

(load "/usr/share/doc/cl-sql/examples/clsql-tutorial.lisp")
Error:
No matching method for the generic function
#<STANDARD-GENERIC-FUNCTION (SETF CLSQL-SYS:COMMAND-RECORDING-STREAM) (1)
  {58621CA1}>,
when called with arguments (#<Broadcast Stream> NIL).
   [Condition of type PCL::NO-APPLICABLE-METHOD-ERROR]


-- Begin work:
(clc:clc-require :clsql)
(push :oci7 cl:*features*)
(clc:clc-require :clsql-oracle)
(asdf:operate 'asdf:load-op 'clsql-oracle)
-- Works !

(clsql:connect '("localhost" "mysql" "root" "") :database-type :mysql)
-- Works !

(clsql:connected-databases)
(clsql:status)
(clsql:disconnect)
-- Works !

(clsql-sys:database-type-load-foreign :oracle)
-- Works !

(clsql:connect (list nil nil nil :connection-string "Driver={SQL Server};Server=MyServer;Database=MyDB;Uid=myuser;Pwd=MyPassword;") :if-exists :new :database-type :odbc)
-- Going !


(clsql:connect '("DRIVER={Microsoft Access Driver (*.mdb)};
   UID=admin;
   FIL={MS Access};
   DefaultDir={C:\\Temp};
   DBQ={C:\\Temp\\test.mdb}" "" "")
  :database-type :odbc)
Error opening shared object "odbc32.so"
-- Going !


(clsql:initialize-database-type :database-type :oracle)
(clsql:initialize-database-type)
:ORACLE
-- Work !


(clsql:database-name-from-spec '("db-meds" "a" "dsa") :oracle)
"db-meds/a"
(clsql:database-name-from-spec '("db-meds.ckb.rzd" "a" "dsa") :oracle)
"db-meds.ckb.rzd/a"
-- Work !


(clsql:connect '("promis" "a" "dsa") :database-type :oracle)
(clsql:connect '("promis_test" "a" "dsa") :database-type :oracle)



(setf *default-database-type* :oracle)
(clsql:initialize-database-type)
-- Work !


(clsql:in-transaction-p)
-- Work !

(clsql:list-tables :owner "a")
-- Work !



HR Oracle-demo
(clsql:select '*  :from 'hr.jobs)
(clsql:select 'MAX_SALARY  :from 'hr.jobs)
(clsql:query "SELECT * FROM hr.jobs")
(clsql:query "SELECT * FROM hr.jobs where MAX_SALARY > 20000")
(clsql:query "SELECT * FROM hr.jobs where JOB_TITLE = 'President'")
(clsql:query "SELECT * FROM hr.jobs where JOB_TITLE like ('%Sale%')")
(clsql:query "SELECT JOB_TITLE FROM hr.jobs where JOB_TITLE like ('%Sale%')")
(clsql:query (format nil "SELECT JOB_TITLE FROM hr.jobs ~a" "MAX_SALARY"))
-- Work !



(clsql:select 'stavki  :from 'al_dol)
Structure al_dol: ID, PODR_ID, OTCH_ID, NAME, SHORT_NAME, STAVKI, OKLAD, A, B, C, NDO, STATUS)
(clsql:select '*  :from 'al_dol)
(clsql:query "select NAME from al_dol where stavki <> 1")
??? Language!?
-- Work !

(clsql:disconnect)