;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Name: sql.cl
-;;;; Purpose: High-level SQL interface
-;;;; Programmers: Kevin M. Rosenberg based on
-;;;; Original code by Pierre R. Mai
-;;;; Date Started: Feb 2002
+;;;; Name: sql.cl
+;;;; Purpose: High-level SQL interface
+;;;; Authors: Kevin M. Rosenberg based on code by Pierre R. Mai
+;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: sql.lisp,v 1.2 2002/10/14 15:25:15 kevin Exp $
+;;;; $Id: sql.lisp,v 1.5 2003/05/06 02:27:08 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
-(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
-(in-package :clsql-sys)
+(eval-when (:compile-toplevel)
+ (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0))))
-;;; Modified by KMR
-;;; - to use CMUCL-COMPAT library
-;;; - fix format strings in error messages
-;;; - use field types
-
-
-;;; Simple implementation of SQL along the lines of Harlequin's Common SQL
+(in-package #:clsql-sys)
;;; Database handling
(database-type *default-database-type*)
(pool nil))
"Connects to a database of the given database-type, using the type-specific
-connection-spec. if-exists is currently ignored.
-If pool is t the the connection will be taken from the general pool,
+connection-spec.
+If pool is t the connection will be taken from the general pool,
if pool is a conn-pool object the connection will be taken from this pool.
"
(if pool