X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=interfaces%2Fpostgresql%2Fpostgresql-package.cl;h=96f0bfb4a77d9c75ecbfb11cee192557136db203;hb=c111edce91ce4aceb898fa4f7e98b9d532c281a5;hp=27a588ea2f100dd5f066afddd26a8a7dc1d87fa4;hpb=33401393ccc0a9567da4104b3c2e7608956a8624;p=clsql.git

diff --git a/interfaces/postgresql/postgresql-package.cl b/interfaces/postgresql/postgresql-package.cl
index 27a588e..96f0bfb 100644
--- a/interfaces/postgresql/postgresql-package.cl
+++ b/interfaces/postgresql/postgresql-package.cl
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: postgresql-package.cl,v 1.4 2002/03/25 14:13:41 kevin Exp $
+;;;; $Id: postgresql-package.cl,v 1.6 2002/03/29 09:37:24 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -21,7 +21,7 @@
 
 (defpackage :postgresql
     (:nicknames :pgsql)
-    (:use :common-lisp)
+    (:use :common-lisp :clsql-uffi)
     (:export
      #:pgsql-oid
      #:pgsql-conn-status-type
@@ -42,8 +42,10 @@
      #:pgsql-ftype#bytea
      #:pgsql-ftype#int2
      #:pgsql-ftype#int4
+     #:pgsql-ftype#int8
      #:pgsql-ftype#float4
      #:pgsql-ftype#float8
+     
      ;; Functions
      #:PQsetdbLogin
      #:PQlogin
@@ -66,6 +68,7 @@
      #:PQgetlength
      #:PQgetisnull
      #:PQclear
+     #:PQisBusy
      )
     (:documentation "This is the low-level interface to PostgreSQL."))