;;;; onShoreD to support UncommonSQL front-end
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: db-interface.cl,v 1.1 2002/05/13 16:22:08 kevin Exp $
+;;;; $Id: db-interface.cl,v 1.6 2002/09/27 15:08:13 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai, and onShoreD
;;;; *************************************************************************
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
-(in-package :clsql-sys)
+(in-package :clsql-base-sys)
(defgeneric database-type-load-foreign (database-type)
(:documentation
"The internal generic implementation for checking if
database type library loaded successfully."))
-(defgeneric database-type (database-type)
+(defgeneric database-type (database)
(:documentation
"Returns database type")
- (:method (database-type)
- (declare (ignore database-type))
+ (:method (database)
(signal-nodb-error database)))
(:documentation "Return the type SQL type specifier as a string, for
the given lisp type and parameters."))
-(defgeneric database-list-tables (database &key (system-tables nil))
+(defgeneric database-list-tables (database &key system-tables)
(:documentation "List all tables in the given database"))
(defgeneric database-list-attributes (table database)
(defgeneric database-create-large-object (database)
(:documentation "Creates a new large object in the database and returns the object identifier"))
-(defgeneric database-write-large-object (object-id (data string) database)
+(defgeneric database-write-large-object (object-id data database)
(:documentation "Writes data to the large object"))
(defgeneric database-read-large-object (object-id database)