Fix log type output for summary files.

A summary file could be asked for which is not of either csv, json or copy
format. Then use the text format.

Fix #695.
This commit is contained in:
Dimitri Fontaine 2017-12-06 20:57:19 +01:00
parent b7d87a9eb1
commit 62b45e4d16

View File

@ -31,7 +31,8 @@
(if pathname
(cond ((string= "csv" (pathname-type pathname)) 'print-format-csv)
((string= "json" (pathname-type pathname)) 'print-format-json)
((string= "copy" (pathname-type pathname)) 'print-format-copy))
((string= "copy" (pathname-type pathname)) 'print-format-copy)
(t 'print-format-text))
(if (member *client-min-messages*
'(:notice :sql :info :debug :data))
'print-format-verbose