;;;;
;;;; Name: postgresql.cl
;;;; Purpose: Low-level PostgreSQL interface using UFFI
-;;;; Programmers: Kevin M. Rosenberg based on
-;;;; Original code by Pierre R. Mai
+;;;; Programmers: Kevin M. Rosenberg based on
+;;;; Original code by Pierre R. Mai
;;;; Date Started: Feb 2002
;;;;
;;;; $Id$
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
-(in-package #:postgresql)
+(in-package #:pgsql)
;;;; This file implements as little of the FFI bindings to the
(uffi:def-foreign-type pgsql-oid :unsigned-int)
-(uffi:def-enum pgsql-conn-status-type
+(uffi:def-enum pgsql-conn-status-type
(:connection-ok
:connection-bad))
(:int8 20)
(:float4 700)
(:float8 701)))
-
+
;;(declaim (inline PQsetdbLogin)) ;; causes compile error in LW 4.2.0
(uffi:def-function ("PQsetdbLogin" PQsetdbLogin)
((pghost :cstring)
((res pgsql-result)
(field-code :int))
:module "postgresql"
- :returning (* char))
+ :returning :cstring)
(declaim (inline PQresultErrorMessage))
(uffi:def-function ("PQresultErrorMessage" PQresultErrorMessage)
:returning :cstring)
(declaim (inline PQntuples))
-(uffi:def-function ("PQntuples" PQntuples)
+(uffi:def-function ("PQntuples" PQntuples)
((res pgsql-result))
:module "postgresql"
:returning :int)