;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Name: package.cl
+;;;; Name: package.lisp
;;;; Purpose: Package definition for CLSQL (high-level) interface
;;;; Programmers: Kevin M. Rosenberg based on
;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: package.lisp,v 1.2 2002/10/21 07:45:50 kevin Exp $
+;;;; $Id$
;;;;
-;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
+;;;; This file, part of CLSQL, is Copyright (c) 2002-2004 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
;;;;
;;;; CLSQL users are granted the rights to distribute and use this software
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
-(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
-(in-package :cl-user)
-
+(in-package #:cl-user)
(eval-when (:compile-toplevel :load-toplevel :execute)
- (defpackage :clsql-sys
- (:nicknames :clsql)
- (:use :common-lisp :clsql-base-sys)
- #+scl (:import-from :thread #:make-lock #:with-lock-held)
+ (defpackage #:clsql-sys
+ (:nicknames #:clsql)
+ (:use #:cl #:clsql-base-sys)
(:import-from
- :clsql-base
+ #:clsql-base
.
#1=(
#:clsql-condition
))
(:export
;; sql.cl
- #:*connect-if-exists*
- #:connected-databases
- #:*default-database*
- #:find-database
- #:connect
- #:disconnect
- #:query
- #:execute-command
#:map-query
#:do-query
+ #:for-each-row
;; functional.cl
#:insert-records
#:update-records
#:with-database
- ;; For High-level UncommonSQL compatibility
- #:sql-ident
- #:list-tables
- #:list-attributes
- #:attribute-type
- #:create-sequence
- #:drop-sequence
- #:sequence-next
-
- ;; Pooled connections
- #:disconnect-pooled
- #:find-or-create-connection-pool
-
- ;; Transactions
- #:with-transaction
- #:commit-transaction
- #:rollback-transaction
- #:add-transaction-commit-hook
- #:add-transaction-rollback-hook
-
;; Large objects (Marc B)
#:create-large-object
#:write-large-object
#:read-large-object
#:delete-large-object
-
+
.
#1#
)