projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5398a72
)
r9371: minor formatting change
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 16 May 2004 08:57:26 +0000
(08:57 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 16 May 2004 08:57:26 +0000
(08:57 +0000)
sql/conditions.lisp
patch
|
blob
|
history
diff --git
a/sql/conditions.lisp
b/sql/conditions.lisp
index 571054d4d95e9d10128c58c356b578383379b93e..cfe3aa34dc407dc297071507c4324c168b47f57f 100644
(file)
--- 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."