mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

Small optimization

Browse source
This commit is contained in:
jjgarcia 2004-01-09 13:46:37 +00:00
parent 738b711ea2
commit 7802543f2d
1 changed files with 1 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/pathname.d
View file

@ -1123,16 +1123,12 @@ coerce_to_from_pathname(cl_object x, cl_object host)
switch (type_of(x)) {
case t_string:
x = cl_parse_namestring(2, x, host);
break;
case t_pathname:
if (x->pathname.logical)
return x;
default:
return Cnil;
}
if (type_of(x) != t_pathname || !x->pathname.logical)
FEerror("~S is not a valid from-pathname translation", 1, x);
return x;
}
}
@(defun si::pathname_translations (host &optional (set OBJNULL))