X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Funix.lisp;h=b1193bf7fec735e4260ac7ec50590293d4797e7d;hb=1e4629723d19f96d752235ffde34fe58431431ae;hp=abd35fcbbbcaa1610e05bcacfed27304a4c12940;hpb=b48a0ada03337a26f59744ed1df794b21420ea90;p=sbcl.git diff --git a/src/code/unix.lisp b/src/code/unix.lisp index abd35fc..b1193bf 100644 --- a/src/code/unix.lisp +++ b/src/code/unix.lisp @@ -282,22 +282,22 @@ ;; pointer is used. On a system which doesn't support that ;; extension, it'll have to be rewritten somehow. ;; - ;; SunOS provides almost as useful an extension: if given a null + ;; SunOS and OSF/1 provide almost as useful an extension: if given a null ;; buffer pointer, it will automatically allocate size space. The ;; KLUDGE in this solution arises because we have just read off ;; PATH_MAX+1 from the Solaris header files and stuck it in here as ;; a constant. Going the grovel_headers route doesn't seem to be ;; helpful, either, as Solaris doesn't export PATH_MAX from ;; unistd.h. - #!-(or linux openbsd freebsd sunos) (,stub,) - #!+(or linux openbsd freebsd sunos) + #!-(or linux openbsd freebsd sunos osf1) (,stub,) + #!+(or linux openbsd freebsd sunos osf1) (or (newcharstar-string (alien-funcall (extern-alien "getcwd" (function (* char) (* char) size-t)) nil #!+(or linux openbsd freebsd) 0 - #!+sunos 1025)) + #!+(or sunos osf1) 1025)) (simple-perror "getcwd"))) ;;; Return the Unix current directory as a SIMPLE-STRING terminated