projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r1651: *** empty log message ***
[clsql.git]
/
interfaces
/
postgresql-socket
/
postgresql-socket-api.cl
diff --git
a/interfaces/postgresql-socket/postgresql-socket-api.cl
b/interfaces/postgresql-socket/postgresql-socket-api.cl
index c97eda18be744cf8a4e8a5455f120bdf83bd5ed8..3d58496de352babdc74d105506dc9ac175aa9128 100644
(file)
--- a/
interfaces/postgresql-socket/postgresql-socket-api.cl
+++ b/
interfaces/postgresql-socket/postgresql-socket-api.cl
@@
-9,7
+9,7
@@
;;;;
;;;; Date Started: Feb 2002
;;;;
;;;;
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: postgresql-socket-api.cl,v 1.
1 2002/03/23 17:10:48
kevin Exp $
+;;;; $Id: postgresql-socket-api.cl,v 1.
2 2002/03/24 04:01:26
kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@
-25,11
+25,19
@@
;;;; - Changed CMUCL FFI to UFFI
;;;; - Added necessary (force-output) for socket streams on
;;;; Allegro and Lispworks
;;;; - Changed CMUCL FFI to UFFI
;;;; - Added necessary (force-output) for socket streams on
;;;; Allegro and Lispworks
+;;;; - Added initialization variable
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
(in-package :postgresql-socket)
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
(in-package :postgresql-socket)
+(defmethod database-type-library-loaded ((database-type
+ (eql :postgresql-socket)))
+ "T if foreign library was able to be loaded successfully. Always true for
+socket interface"
+ t)
+
+
;;; Message I/O stuff
(defmacro define-message-constants (description &rest clauses)
;;; Message I/O stuff
(defmacro define-message-constants (description &rest clauses)