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

Solve bogus patch to si::pathname-translations.

Browse source
This commit is contained in:
jjgarcia 2002-02-11 10:40:50 +00:00
parent 339300744e
commit ab82a93fda
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/pathname.d
View file

@ -1010,9 +1010,9 @@ coerce_to_from_pathname(cl_object x, cl_object host)
@
/* Check that host is a valid host name */
assert_type_string(host);
parsed_length = host->string.fillp;
length = host->string.fillp;
parse_word(host->string.self, '\0', WORD_LOGICAL, 0, length, &parsed_length);
if (parsed_length <= host->string.fillp)
if (parsed_length < host->string.fillp)
FEerror("Wrong host syntax ~S", 1, host);
/* Find its translation list */