From 7d695eae76d8e7aa701355f804e6b84501e88a63 Mon Sep 17 00:00:00 2001
From: Marius Gerbershagen <marius.gerbershagen@gmail.com>
Date: Sun, 10 Mar 2024 18:48:47 +0100
Subject: [PATCH] pathname: fix bug in handling streams

ecl_stream_pathname returns a string and not a pathname, so we have to
check for that again.
---
 src/c/pathname.d | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/c/pathname.d b/src/c/pathname.d
index bbe3793fe..32ebb5206 100644
--- a/src/c/pathname.d
+++ b/src/c/pathname.d
@@ -749,6 +749,7 @@ cl_pathname(cl_object x)
   default:
     if (!Null(cl_streamp(x))) {
       x = ecl_stream_pathname(x);
+      goto L;
     } else {
       const char *type = "(OR FILE-STREAM STRING PATHNAME)";
       FEwrong_type_only_arg(@[pathname], x, ecl_read_from_cstring(type));