1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
6 ;;;; Purpose: Package definition for CLSQL (high-level) interface
7 ;;;; Programmers: Kevin M. Rosenberg based on
8 ;;;; Original code by Pierre R. Mai
9 ;;;; Date Started: Feb 2002
11 ;;;; $Id: package.lisp,v 1.2 2002/10/21 07:45:50 kevin Exp $
13 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
14 ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
16 ;;;; CLSQL users are granted the rights to distribute and use this software
17 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
18 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
19 ;;;; *************************************************************************
21 (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
25 (eval-when (:compile-toplevel :load-toplevel :execute)
26 (defpackage :clsql-sys
28 (:use :common-lisp :clsql-base-sys)
29 #+scl (:import-from :thread #:make-lock #:with-lock-held)
38 #:clsql-simple-warning
39 #:clsql-invalid-spec-error
40 #:clsql-invalid-spec-error-connection-spec
41 #:clsql-invalid-spec-error-database-type
42 #:clsql-invalid-spec-error-template
44 #:clsql-connect-error-database-type
45 #:clsql-connect-error-connection-spec
46 #:clsql-connect-error-errno
47 #:clsql-connect-error-error
49 #:clsql-sql-error-database
50 #:clsql-sql-error-expression
51 #:clsql-sql-error-errno
52 #:clsql-sql-error-error
53 #:clsql-database-warning
54 #:clsql-database-warning-database
55 #:clsql-database-warning-message
56 #:clsql-exists-condition
57 #:clsql-exists-condition-new-db
58 #:clsql-exists-condition-old-db
59 #:clsql-exists-warning
62 #:clsql-closed-error-database
64 #:*loaded-database-types*
65 #:reload-database-types
66 #:*default-database-type*
67 #:*initialized-database-types*
68 #:initialize-database-type
73 #:database-name-from-spec
76 #:number-to-sql-string
99 ;; For High-level UncommonSQL compatibility
108 ;; Pooled connections
110 #:find-or-create-connection-pool
115 #:rollback-transaction
116 #:add-transaction-commit-hook
117 #:add-transaction-rollback-hook
119 ;; Large objects (Marc B)
120 #:create-large-object
123 #:delete-large-object
128 (:documentation "This is the INTERNAL SQL-Interface package of CLSQL."))
132 (defpackage #:clsql-user
133 (:use #:common-lisp #:clsql)
134 (:documentation "This is the user package for experimenting with CLSQL."))