projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r1791: * interfaces/postgresql/postgresql-sql.cl:
[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
;;;;
;;;; 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
;;;;
;;;;
;;;; 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)
(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)
(defpackage :postgresql-socket
(:use :common-lisp)
@@
-27,6
+27,7
@@
#:pgsql-ftype#bytea
#:pgsql-ftype#int2
#:pgsql-ftype#int4
#:pgsql-ftype#bytea
#:pgsql-ftype#int2
#:pgsql-ftype#int4
+ #:pgsql-ftype#int8
#:pgsql-ftype#float4
#:pgsql-ftype#float8
#:pgsql-ftype#float4
#:pgsql-ftype#float8