From 5ce1deef1f0410d54d0abe54adf882c522232d3e Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Thu, 11 Aug 2022 18:16:42 +0100 Subject: [PATCH] TODO: Put a short summary on the line above and replace this paragraph with a longer explanation of this change. Complete the meta-information with other relevant fields (see below for details). To make it easier, the information below has been extracted from the changelog. Adjust it or drop it. gcl (2.6.12-16) unstable; urgency=medium * Version_2_6_13pre19 Gbp-Pq: Name Version_2_6_13pre20 --- o/file.d | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/o/file.d b/o/file.d index e54ec6c..4df7f54 100755 --- a/o/file.d +++ b/o/file.d @@ -543,14 +543,14 @@ DEFUN_NEW("OPEN-STREAM-P",object,fLopen_stream_p,LISP,1,1,NONE,OO,OO,OO,OO,(obje case smm_broadcast: case smm_concatenated: for (x=x->sm.sm_object0;!endp(x);x=x->c.c_cdr) - if (!FFN(fLopen_stream_p(x))) + if (!FFN(fLopen_stream_p)(x)) return Cnil; return Ct; case smm_two_way: case smm_echo: - if (FFN(fLopen_stream_p(STREAM_INPUT_STREAM(x)))==Cnil) + if (FFN(fLopen_stream_p)(STREAM_INPUT_STREAM(x))==Cnil) return Cnil; - return FFN(fLopen_stream_p(STREAM_OUTPUT_STREAM(x))); + return FFN(fLopen_stream_p)(STREAM_OUTPUT_STREAM(x)); default: error("illegal stream mode"); return Cnil; -- 2.30.2