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 ec8634b09c48a9c8af40b6e7009e72c4b59c88d1..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.2 2002/03/25 23:22:07 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,7 +19,7 @@
 (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)
@@ -27,6 +27,7 @@
           #:pgsql-ftype#bytea
           #:pgsql-ftype#int2
           #:pgsql-ftype#int4
+          #:pgsql-ftype#int8
           #:pgsql-ftype#float4
           #:pgsql-ftype#float8