(in-package #:clsql-aodbc)
;; interface foreign library loading routines
-(defmethod clsql-base-sys:database-type-library-loaded ((database-type (eql :aodbc)))
+(defmethod clsql-base:database-type-library-loaded ((database-type (eql :aodbc)))
"T if foreign library was able to be loaded successfully. "
(when (find-package :dbi) ;; finds Allegro's DBI (AODBC) package
t))
-(defmethod clsql-base-sys:database-type-load-foreign ((databae-type (eql :aodbc)))
+(defmethod clsql-base:database-type-load-foreign ((databae-type (eql :aodbc)))
t)
(when (find-package :dbi)
- (clsql-base-sys:database-type-load-foreign :aodbc))
+ (clsql-base:database-type-load-foreign :aodbc))
(defmethod database-initialize-database-type ((database-type (eql :aodbc)))
t)
(setf (database-aodbc-conn database) nil)
t)
-(defmethod database-query (query-expression (database aodbc-database) result-types)
+(defmethod database-query (query-expression (database aodbc-database) result-types field-names)
#+aodbc-v2
(handler-case
(dbi:sql query-expression :db (database-aodbc-conn database)
- :types result-types)
+ :types result-types
+ :column-names field-names)
(clsql-error (e)
(error e))
(error ()
(defmethod db-backend-has-create/destroy-db? ((db-type (eql :aodbc)))
nil)
-#+ignore
-(when (clsql-base-sys:database-type-library-loaded :aodbc)
- (clsql-base-sys:initialize-database-type :database-type :aodbc))
+(defmethod database-initialize-database-type ((database-type (eql :aodbc)))
+ t)
+
+(when (clsql-base:database-type-library-loaded :aodbc)
+ (clsql-base:initialize-database-type :database-type :aodbc))