1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
5 ;;;; Name: package.lisp
6 ;;;; Purpose: Package definition for CLSQL-CLASSIC high-level interface
7 ;;;; Programmers: Kevin M. Rosenberg based on
8 ;;;; Original code by Pierre R. Mai
9 ;;;; Date Started: Feb 2002
13 ;;;; This file, part of CLSQL, is Copyright (c) 2002-2004 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 (in-package #:cl-user)
23 (eval-when (:compile-toplevel :load-toplevel :execute)
24 (defpackage #:clsql-classic-sys
25 (:nicknames #:clsql-classic)
26 (:use #:cl #:clsql-base-sys)
35 #:clsql-simple-warning
36 #:clsql-invalid-spec-error
37 #:clsql-invalid-spec-error-connection-spec
38 #:clsql-invalid-spec-error-database-type
39 #:clsql-invalid-spec-error-template
41 #:clsql-access-error-database-type
42 #:clsql-access-error-connection-spec
43 #:clsql-access-error-error
45 #:clsql-connect-error-errno
47 #:clsql-sql-error-database
48 #:clsql-sql-error-expression
49 #:clsql-sql-error-errno
50 #:clsql-sql-error-error
51 #:clsql-database-warning
52 #:clsql-database-warning-database
53 #:clsql-database-warning-message
54 #:clsql-exists-condition
55 #:clsql-exists-condition-new-db
56 #:clsql-exists-condition-old-db
57 #:clsql-exists-warning
60 #:clsql-closed-error-database
62 #:*loaded-database-types*
63 #:reload-database-types
64 #:*default-database-type*
65 #:*initialized-database-types*
66 #:initialize-database-type
72 #:database-name-from-spec
75 #:number-to-sql-string
79 ;; database.lisp -- Connection
80 #:*default-database-type* ; clsql-base xx
81 #:*default-database* ; classes xx
82 #:connect ; database xx
83 #:*connect-if-exists* ; database xx
84 #:connected-databases ; database xx
85 #:database ; database xx
86 #:database-name ; database xx
87 #:disconnect ; database xx
88 #:reconnect ; database
89 #:find-database ; database xx
90 #:status ; database xx
92 #:with-default-database
102 #:delete-large-object
109 #:rollback-transaction
110 #:add-transaction-commit-hook
111 #:add-transaction-rollback-hook
112 #:commit ; transact xx
113 #:rollback ; transact xx
114 #:with-transaction ; transact xx .
115 #:start-transaction ; transact xx
116 #:in-transaction-p ; transact xx
117 #:database-start-transaction
118 #:database-abort-transaction
119 #:database-commit-transaction
128 ;; Large objects (Marc B)
129 #:create-large-object
132 #:delete-large-object
135 ;; These are no longer export since different functions are
136 ;; exported by the CLSQL package
144 (:documentation "This is the INTERNAL SQL-Interface package of CLSQL-CLASSIC."))
148 (defpackage #:clsql-classic-user
149 (:use #:common-lisp #:clsql-classic)
150 (:documentation "This is the user package for experimenting with CLSQL-CLASSIC."))