Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 3a8cf68)
Fixed typo
authorJuanjo Garcia-Ripoll <jjgarcia@users.sourcerforge.net>
Tue, 15 Oct 2013 07:57:25 +0000 (09:57 +0200)
committerJuanjo Garcia-Ripoll <jjgarcia@users.sourcerforge.net>
Tue, 15 Oct 2013 07:57:25 +0000 (09:57 +0200)
src/c/pathname.d patch | blob | blame | history

diff --git a/src/c/pathname.d b/src/c/pathname.d
index 1eb3e6c..5eacb70 100644 (file)
--- a/src/c/pathname.d
+++ b/src/c/pathname.d
@@ -222,7 +222,7 @@ destructively_check_directory(cl_object directory, bool logical, bool delete_bac
                                 cl_object next = ECL_CONS_CDR(ptr);
                                 ptr = ecl_nthcdr(i-2, directory);
                                ECL_RPLACD(ptr, next);
-                                i--;
+                                i = i-2;
                         }
                } else if (item == @':up') {
                        if (i == 0)
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)