r1746: updated require form for lispworks

[clsql.git] / interfaces / postgresql-socket / postgresql-socket-package.cl

diff --git a/interfaces/postgresql-socket/postgresql-socket-package.cl b/interfaces/postgresql-socket/postgresql-socket-package.cl
index b9ccd8b5151549e898501e602ae8170ae5720643..9097a454e439d6e3e01608bb5f86f4de8c805297 100644 (file)
--- a/interfaces/postgresql-socket/postgresql-socket-package.cl
+++ b/interfaces/postgresql-socket/postgresql-socket-package.cl
@@ -7,7 +7,7 @@
 ;;;; Programmers:   Kevin M. Rosenberg
 ;;;; Date Started:  Feb 2002
 ;;;;
-;;;; $Id: postgresql-socket-package.cl,v 1.1 2002/03/23 14:04:53 kevin Exp $
+;;;; $Id: postgresql-socket-package.cl,v 1.5 2002/04/06 20:47:29 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -19,11 +19,19 @@
 (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
 (in-package :cl-user)
 
-(in-package :cl-user)
+#+lispworks (require "comm")
 
 (defpackage :postgresql-socket
   (:use :common-lisp)
-  (:export #:+crypt-library+
+  (:export #:pgsql-ftype
+          #:pgsql-ftype#bytea
+          #:pgsql-ftype#int2
+          #:pgsql-ftype#int4
+          #:pgsql-ftype#int8
+          #:pgsql-ftype#float4
+          #:pgsql-ftype#float8
+
+          #:+crypt-library+
           #:postgresql-condition
           #:postgresql-condition-connection
           #:postgresql-condition-message