<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 e54ec6c89e1fe9af3dad6dcc3d96bb0697142612..4df7f54fa527059e9b0c87ef5702e2d35e2a93bd 100755 (executable)
--- 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;