mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2025-08-10 16:26:58 +02:00
Code Issues Projects Releases Wiki Activity

Don't close the *standard-output* logger.

Browse Source
This commit is contained in:
Dimitri Fontaine 2013-11-07 22:57:08 +01:00
parent 186be010dc
commit 6c81ea50d5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/utils.lisp
View File

@ -39,7 +39,7 @@
*log-messengers*) *log-messengers*)
(push (cl-log:start-messenger 'text-stream-messenger (push (cl-log:start-messenger 'text-stream-messenger
:name "client" :name "stdout"
:filter *client-min-messages* :filter *client-min-messages*
:stream *standard-output*) :stream *standard-output*)
*log-messengers*) *log-messengers*)
@ -51,6 +51,7 @@
(loop for messenger = (pop *log-messengers*) (loop for messenger = (pop *log-messengers*)
while messenger while messenger
when (string= "stdout" (cl-log:messenger-name messenger))
do (cl-log:stop-messenger messenger))) do (cl-log:stop-messenger messenger)))
;; monkey patch the print-object method for cl-log timestamp ;; monkey patch the print-object method for cl-log timestamp