From 0298f640eee047a87b675c6c55ca895017bf9a9f Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 16 May 2004 08:57:26 +0000 Subject: [PATCH] r9371: minor formatting change --- sql/conditions.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sql/conditions.lisp b/sql/conditions.lisp index 571054d..cfe3aa3 100644 --- a/sql/conditions.lisp +++ b/sql/conditions.lisp @@ -104,7 +104,7 @@ and signal an clsql-invalid-spec-error if they don't match." (error :initarg :error :initarg nil :reader clsql-sql-error-error)) (:report (lambda (c stream) (if (clsql-sql-error-message c) - (format stream "While accessing database ~A~%, Error~% ~A~% has occurred." + (format stream "While accessing database ~A,~% Error ~A~% has occurred." (clsql-sql-error-database c) (clsql-sql-error-message c)) (format stream "While accessing database ~A~% with expression ~S:~% Error ~D / ~A~% has occurred." -- 2.34.1