75a76 > char last; 89c90,93 < output->base_string.self[size++] = '/'; --- > last = output->base_string.self[size - 1]; > if ((last != '\\') && (last != '/')) { > output->base_string.self[size++] = '/'; > } 666a671,684 > #ifdef _MSC_VER > cl_object drive; > cl_index len; > cl_object target; > > drive = pathname->pathname.device; > len = drive->base_string.fillp; > target = cl_alloc_simple_base_string(len + 2); > memcpy(target->base_string.self, drive->base_string.self, len); > memcpy(target->base_string.self + len, ":/", 2); > > if (chdir(target->base_string.self) < 0) > return Cnil; > #else 668a687 > #endif