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

Fixed typo in the order of errors when building DELETE-FILE.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2013-06-27 23:01:20 +02:00
parent 08594e60a9
commit e2ae310e2c
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/unixfsys.d
View file

@ -596,8 +596,8 @@ cl_delete_file(cl_object file)
if (ok < 0) {
const char *msg =
isdir?
"Cannot delete the file ~S.~%C library error: ~S" :
"Cannot delete the directory ~S.~%C library error: ~S";
"Cannot delete the directory ~S.~%C library error: ~S" :
"Cannot delete the file ~S.~%C library error: ~S";
cl_object c_error = _ecl_strerror(errno);
si_signal_simple_error
(6, @'file-error', /* condition */