mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-22 09:40:38 -07:00
Code Issues Projects Releases Packages Wiki Activity

Cannot have variable declarations _after_ @-character

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2008-10-25 00:29:21 +02:00
parent 3ffbe63882
commit 163751a6d0
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/unixfsys.d
View file

@ -824,8 +824,9 @@ dir_recursive(cl_object pathname, cl_object directory)
@)
@(defun ext::getcwd (&optional (change_d_p_d Cnil))
cl_object output;
@
cl_object output = cl_parse_namestring(3, current_dir(), Cnil, Cnil);
output = cl_parse_namestring(3, current_dir(), Cnil, Cnil);
if (!Null(change_d_p_d)) {
ECL_SETQ(@'*default-pathname-defaults*', output);
}