X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=interfaces%2Fpostgresql%2Fpostgresql-package.cl;h=22c4a3f862341c9503bd4316a2d7aedff03e299b;hb=058946c5c54f1d2225b49ac607edd8f5397902a8;hp=2957cee2efc469566a192811e4ee2528eb24ae50;hpb=9a78eef71c902d3b272fb7c777bff6dd0acd8a2b;p=clsql.git

diff --git a/interfaces/postgresql/postgresql-package.cl b/interfaces/postgresql/postgresql-package.cl
index 2957cee..22c4a3f 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.2 2002/03/24 04:01:26 kevin Exp $
+;;;; $Id: postgresql-package.cl,v 1.7 2002/04/19 20:25:20 marc.battyani 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 :clsql-sys)
+    (:use :common-lisp :clsql-uffi)
     (:export
      #:pgsql-oid
      #:pgsql-conn-status-type
@@ -39,6 +39,13 @@
      #:pgsql-conn
      #:pgsql-result
 
+     #:pgsql-ftype#bytea
+     #:pgsql-ftype#int2
+     #:pgsql-ftype#int4
+     #:pgsql-ftype#int8
+     #:pgsql-ftype#float4
+     #:pgsql-ftype#float8
+     
      ;; Functions
      #:PQsetdbLogin
      #:PQlogin
@@ -61,6 +68,16 @@
      #:PQgetlength
      #:PQgetisnull
      #:PQclear
+     #:PQisBusy
+     
+     ;;Large Objects (Marc B)
+     #:lo-create
+     #:lo-open
+     #:lo-write
+     #:lo-read
+     #:lo-lseek
+     #:lo-close
+     #:lo-unlink
      )
     (:documentation "This is the low-level interface to PostgreSQL."))