1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
5 ;;;; Name: postgresql-package.cl
6 ;;;; Purpose: Package definition for low-level PostgreSQL interface
7 ;;;; Programmer: Kevin M. Rosenberg
8 ;;;; Date Started: Feb 2002
10 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
12 ;;;; CLSQL users are granted the rights to distribute and use this software
13 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
14 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
15 ;;;; *************************************************************************
17 (in-package #:cl-user)
20 #-(and :lispworks (not :lispworks4))
21 (:nicknames #:postgresql)
22 (:use #:cl #:clsql-uffi)
25 #:pgsql-conn-status-type
26 #:pgsql-conn-status-type#connection-ok
27 #:pgsql-conn-status-type#connection-bad
28 #:pgsql-exec-status-type
29 #:pgsql-exec-status-type#empty-query
30 #:pgsql-exec-status-type#command-ok
31 #:pgsql-exec-status-type#tuples-ok
32 #:pgsql-exec-status-type#copy-out
33 #:pgsql-exec-status-type#copy-in
34 #:pgsql-exec-status-type#bad-response
35 #:pgsql-exec-status-type#nonfatal-error
36 #:pgsql-exec-status-type#fatal-error
47 ;; Used by PQresultErrorField to get the sql error code
59 #:PQresultErrorField ; used to grab the SQLSTATE code from an error
60 #:PQresultErrorMessage
76 ;;Large Objects (Marc B)
85 (:documentation "This is the low-level interface to PostgreSQL."))