r10077: * multiple: Apply patch from Joerg Hoehle with multiple

[clsql.git] / sql / conditions.lisp

diff --git a/sql/conditions.lisp b/sql/conditions.lisp
index bd36b8c0ddefdf068fb125d1fa2133538682c603..5e805e172e11cc3464eafe0e261e92094cafec86 100644 (file)
--- 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))))