X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=base%2Fconditions.cl;h=2446eb35bae3db40ffd9695f8e9fb865bca9d7d9;hb=fb3fa36a2446cccd10aaa2a7cfb221d86ea76f74;hp=5785653646501327585df2f434cfccb828ce3f33;hpb=43d545f166cd4eb23ba835aa92685d5bd6d23d01;p=clsql.git diff --git a/base/conditions.cl b/base/conditions.cl index 5785653..2446eb3 100644 --- a/base/conditions.cl +++ b/base/conditions.cl @@ -8,7 +8,7 @@ ;;;; Original code by Pierre R. Mai ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: conditions.cl,v 1.1 2002/05/13 16:22:08 kevin Exp $ +;;;; $Id: conditions.cl,v 1.5 2002/09/30 06:13:05 kevin Exp $ ;;;; ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai @@ -19,7 +19,7 @@ ;;;; ************************************************************************* (declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0))) -(in-package :clsql-sys) +(in-package :clsql-base-sys) ;;; Conditions (define-condition clsql-condition () @@ -118,7 +118,7 @@ and signal an clsql-invalid-spec-error if they don't match." (database-name (clsql-exists-condition-old-db c)))) (t (format stream - " Created new connection ~A to database ~A~% ~ + " Created new connection ~A to database ~A~% although there is an existing connection (~A)." (clsql-exists-condition-new-db c) (database-name (clsql-exists-condition-new-db c))