From e4f4d8ebacc5b44cd110d201de5b26c90cc849be Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 12 Mar 2022 15:37:50 -0700 Subject: MAPC-OPEN-{INPUT,OUTPUT}-STREAMS: don't use &rest This brings these functions closer to MAPC. Signed-off-by: Sean Whitton --- src/image.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/image.lisp') diff --git a/src/image.lisp b/src/image.lisp index 76c2fd0..c069569 100644 --- a/src/image.lisp +++ b/src/image.lisp @@ -303,7 +303,8 @@ property by applying it like this: ;; standard about closing synonym streams; see ;; . (loop initially (mapc-open-input-streams - #'close *standard-input* *debug-io* *terminal-io*) + #'close (list *standard-input* + *debug-io* *terminal-io*)) with ,fork-control = (open ,fork-control :element-type 'character) for (input . output) = (handler-case (with-safe-io-syntax () @@ -312,8 +313,8 @@ property by applying it like this: (close ,fork-control) (uiop:quit))) do (mapc-open-output-streams - #'force-output - *standard-output* *error-output* *debug-io* *terminal-io*) + #'force-output (list *debug-io* *terminal-io* + *standard-output* *error-output*)) when (zerop (fork)) do (nix:setsid) (close ,fork-control) -- cgit v1.2.3