mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-09 02:33:14 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixes for Windows

Browse source
This commit is contained in:
jjgarcia 2004-11-29 13:05:22 +00:00
parent 1281dfb830
commit 0a7813e93e
2 changed files with 16 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

21
src/c/unixfsys.d
View file

@ -487,14 +487,22 @@ list_current_directory(const char *mask, bool only_dir)
#else
# ifdef _MSC_VER
WIN32_FIND_DATA fd;
HANDLE hFind = FindFirstFile(".\\*", &fd);
HANDLE hFind = NULL;
BOOL found = FALSE;
if (hFind == INVALID_HANDLE_VALUE)
return Cnil;
found = TRUE;
for (;;) {
if (hFind == NULL)
{
hFind = FindFirstFile(".\\*", &fd);
if (hFind == INVALID_HANDLE_VALUE)
return Cnil;
found = TRUE;
}
else
found = FindNextFile(hFind, &fd);
while (found) {
if (!found)
break;
text = fd.cFileName;
# else /* sys/dir.h as in SYSV */
@ -525,9 +533,6 @@ list_current_directory(const char *mask, bool only_dir)
continue;
*out_cdr = CONS(make_string_copy(text), Cnil);
out_cdr = &CDR(*out_cdr);
#ifdef _MSC_VER
found = FindNextFile(hFind, &fd);
#endif
}
#ifdef HAVE_DIRENT_H
closedir(dir);

6
src/lsp/numlib.lsp
View file

@ -156,9 +156,9 @@ Returns the arc cosine of NUMBER."
#+(and (not ecl-min) win32)
(progn
(ffi:clines "double asinh(x) { return log(x+sqrt(1.0+x*x)); }")
(ffi:clines "double acosh(x) { return log(x+sqrt((x-1)*(x+1))); }")
(ffi:clines "double atanh(x) { return (log(x+1)-log(x-1))/2; }"))
(ffi:clines "double asinh(double x) { return log(x+sqrt(1.0+x*x)); }")
(ffi:clines "double acosh(double x) { return log(x+sqrt((x-1)*(x+1))); }")
(ffi:clines "double atanh(double x) { return log((1+x)/(1-x))/2; }"))
;; Ported from CMUCL
(defun asinh (x)