- (format stream "While trying to connect to database ~A~% using database-type ~A:~% Error ~D / ~A~% has occurred."
- (when (and (sql-error-connection-spec c)
- (sql-error-database-type c))
- (database-name-from-spec
- (sql-error-connection-spec c)
- (sql-error-database-type c)))
- (sql-error-database-type c)
- (sql-error-error-id c)
- (sql-error-database-message c))))
+ (format stream "While trying to connect to database ~A~% using database-type ~A:~% Error ~D / ~A~% has occurred."
+ (when (and (sql-error-connection-spec c)
+ (sql-error-database-type c))
+ (database-name-from-spec
+ (sql-error-connection-spec c)
+ (sql-error-database-type c)))
+ (sql-error-database-type c)
+ (sql-error-error-id c)
+ (sql-error-database-message c))))