X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fconditions.lisp;h=5e805e172e11cc3464eafe0e261e92094cafec86;hp=bd36b8c0ddefdf068fb125d1fa2133538682c603;hb=952ec6d5f4eeec95f2b9b077a49723b51912d38c;hpb=8a13e05588cb35ffeed91cca2dc26c313e387d70

diff --git a/sql/conditions.lisp b/sql/conditions.lisp
index bd36b8c..5e805e1 100644
--- a/sql/conditions.lisp
+++ b/sql/conditions.lisp
@@ -43,10 +43,8 @@ or :ignore/nil to silently ignore the warning.")
 		     :initform nil
 		     :reader sql-error-database))
   (:report (lambda (c stream)
-	     (format stream "A database error occurred~A: ~A / ~A~%  ~A"
-		     (if (sql-error-database c)
-			 (format nil " on database ~A" (sql-error-database c))
-			 "")
+ 	     (format stream "A database error occurred~@[ on database ~A~]: ~A / ~A~%  ~A"
+ 		     (sql-error-database c)
 		     (sql-error-error-id c)
 		     (sql-error-secondary-error-id c)
 		     (sql-error-database-message c))))