Skip to content
Browse files

don't flush the old *TTY* stream in the child

  CLOSE :ABORT T is plenty enough.
  • Loading branch information...
1 parent 1f08a01 commit 72e905968307d90aa5e531222345cb50946f6205 @nikodemus committed May 29, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 daemon.lisp
View
2 daemon.lisp
@@ -142,7 +142,7 @@ USER and GROUP can either be specified as numeric ids, or as strings.
(let ((tty sb-sys:*tty*))
(when (typep tty 'sb-sys:fd-stream)
;; Throw away the old *TTY* stream.
- (close tty)
+ (close tty :abort t)
(setf sb-sys:*tty* (make-two-way-stream sb-sys:*stdin*
sb-sys:*stdout*))))
(sb-posix:chdir "/")

0 comments on commit 72e9059

Please sign in to comment.
Something went wrong with that request. Please try again.