clsql/db-aodbc aodbc-sql.lisp,1.1,1.2

Update of /pubcvs/clsql/db-aodbc
In directory boa.b9.com:/tmp/cvs-serv1523/db-aodbc

Modified Files:
	aodbc-sql.lisp 
Log Message:


Index: aodbc-sql.lisp
===================================================================
RCS file: /pubcvs/clsql/db-aodbc/aodbc-sql.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** aodbc-sql.lisp	30 Sep 2002 10:19:23 -0000	1.1
--- aodbc-sql.lisp	2 May 2003 03:05:54 -0000	1.2
***************
*** 22,26 ****
  
  ;; interface foreign library loading routines
! (defmethod 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
--- 22,26 ----
  
  ;; interface foreign library loading routines
! (defmethod clsql-base-sys: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
***************
*** 146,150 ****
  	list))))
  
! 		       
  (when (clsql-base-sys:database-type-library-loaded :aodbc)
    (clsql-base-sys:initialize-database-type :database-type :aodbc))
--- 146,150 ----
  	list))))
  
! #+ignore		       
  (when (clsql-base-sys:database-type-library-loaded :aodbc)
    (clsql-base-sys:initialize-database-type :database-type :aodbc))