Re: [Sbcl-devel] patch for buil contrib/sb-posix on win-32

[Juho S. <js...@ik...>]

Yaroslav Kavenchuk <kav...@tu...> writes:

> --- contrib/sb-posix/interface.lisp     Sun Jun  3 13:42:39 2007
> +++ contrib/sb-posix/interface.lisp       Mon Jun  4 22:09:45 2007
> @@ -288,7 +288,8 @@
>    (defun getcwd ()
>      (flet ((%getcwd (buffer size)
>               (alien-funcall
> -              (extern-alien "getcwd" (function c-string (* t) int))
> +              (extern-alien #-win32 "getcwd"
> +                            #+win32 "_getcwd" (function c-string (* t) 
> int))
>                buffer size)))
>        (with-growing-c-string (buf size)
>          (let ((result (%getcwd buf size)))

Thanks, committed.

-- 
Juho Snellman