mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-02-08 00:20:41 -08:00
Code Issues Projects Releases Packages Wiki Activity

pathname: fix bug in handling streams

Browse source 
ecl_stream_pathname returns a string and not a pathname, so we have to
check for that again.
This commit is contained in:
Marius Gerbershagen 2024-03-10 18:48:47 +01:00
parent 4ddfd0c5e3
commit 9756360b3c
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/c/pathname.d
View file

@ -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));