r1669: numeric type translation improvements

[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 2cfb1551f602f9102d419da8b280a3c43a73be2b..c53d0819f8d546d4067e222a113b69d03efff8f5 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
 ;;;;
-;;;; $Id: postgresql-socket-api.cl,v 1.7 2002/03/26 17:16:18 kevin Exp $
+;;;; $Id: postgresql-socket-api.cl,v 1.8 2002/03/27 05:04:19 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
@@ -653,7 +653,6 @@ connection, if it is still open."
          ((or (= char +char-code-lower-e+)           ;; E is for exponent
               (= char +char-code-upper-e+))
           (setq exponent (read-integer-from-socket socket (- length i)))
-          (format t "~&exp: ~a" exponent)
           (setq exponent (or exponent 0))
           (setq i length))
          (t