From 66c75a65d14892327ad966e9a466339709d0c924 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Thu, 13 May 2004 08:00:00 +0000 Subject: [PATCH] r9337: package rename --- db-aodbc/aodbc-sql.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/db-aodbc/aodbc-sql.lisp b/db-aodbc/aodbc-sql.lisp index 02d6d95..1fb81f8 100644 --- a/db-aodbc/aodbc-sql.lisp +++ b/db-aodbc/aodbc-sql.lisp @@ -19,16 +19,16 @@ (in-package #:clsql-aodbc) ;; interface foreign library loading routines -(defmethod clsql-base:database-type-library-loaded ((database-type (eql :aodbc))) +(defmethod clsql-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 t)) -(defmethod clsql-base:database-type-load-foreign ((databae-type (eql :aodbc))) +(defmethod clsql-sys:database-type-load-foreign ((databae-type (eql :aodbc))) t) (when (find-package :dbi) - (clsql-base:database-type-load-foreign :aodbc)) + (clsql-sys:database-type-load-foreign :aodbc)) (defmethod database-initialize-database-type ((database-type (eql :aodbc))) t) @@ -304,5 +304,5 @@ (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)) +(when (clsql-sys:database-type-library-loaded :aodbc) + (clsql-sys:initialize-database-type :database-type :aodbc)) -- 2.34.1