Bugfix: get-string closing stream when told not to.

* stream.c (get_string): Use default_arg_strict instead
of default_arg, so that the t value is only substituted for a
missing argument, not for a nil argument.

1 files changed, 1 insertions, 1 deletions

diff --git a/stream.c b/stream.c
index d112c71e..cbb6821a 100644
--- a/stream.c
+++ b/stream.c
@@ -3195,7 +3195,7 @@ val get_string(val stream, val nchars, val close_after_p)
   }
 
   if ((missingp(close_after_p) && (!opt_compat || opt_compat > 102)) ||
-      default_arg(close_after_p, t))
+      default_arg_strict(close_after_p, t))
     close_stream(stream, t);
 
   return get_string_from_stream(strstream);