From bfb85ee47ae477920a830386e4804a341c7e260b Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 6 Mar 2016 16:11:41 -0800 Subject: 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. --- stream.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'stream.c') 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); -- cgit v1.2.3