From: Camm Maguire <camm@debian.org>
Date: Sat, 4 Sep 2021 19:23:26 +0000 (+0100)
Subject: <short summary of the patch>
X-Git-Tag: archive/raspbian/2.6.12-103+rpi1^2~102
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=d4916293d2d7ec0a13a3c9afb50469078ef46ebe;p=gcl.git

<short summary of the 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
---

diff --git a/o/file.d b/o/file.d
index e54ec6c8..4df7f54f 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;