2009/10/8 Attila Lendvai attila.lendvai@gmail.com:
(defun after-saved-image-initialized () (setf *log-output* nil) (init-log-output))
#+sbcl(pushnew 'after-saved-image-initialized sb-ext:*init-hooks*)
Unless I'm missing something, it seems mildly preferable to instead use *SAVE-HOOKS* to get the *LOG-OUTPUT* to NIL.
Not that it's a huge difference in practice -- just tidier to clean up the old stream before saving.
Cheers,
-- Nikodemus