X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Fdefpackage.lisp;h=3b9d6c21e0f7cb61c6185c30554a904296fb6c05;hb=040d97b2a9f9c822d3bbe3b0ac7989c7fe085874;hp=b7781de03c16224bf2d636ca0e0b272f288bcc5a;hpb=1f7401c39a46466c307938c8f6cf7db224741981;p=sbcl.git diff --git a/contrib/sb-posix/defpackage.lisp b/contrib/sb-posix/defpackage.lisp index b7781de..3b9d6c2 100644 --- a/contrib/sb-posix/defpackage.lisp +++ b/contrib/sb-posix/defpackage.lisp @@ -1,4 +1,22 @@ -(defpackage :sb-posix (:use) - (:export #:syscall-error)) +(defpackage :sb-posix (:use #:sb-alien #:cl) + (:shadow close open ftruncate truncate time) + (:export #:syscall-error #:syscall-errno -(defpackage :sb-posix-internal (:use #:sb-alien #:cl)) + ;; grovel structure accessors + + #:dirent-name + + ;; wrapper class accessors + + #:passwd-name #:passwd-passwd #:passwd-uid #:passwd-gid + #:passwd-gecos #:passwd-dir #:passwd-shell + #:group-name #:group-gid #:group-passwd + #:stat-mode #:stat-ino #:stat-dev #:stat-nlink #:stat-uid + #:stat-gid #:stat-size #:stat-atime #:stat-mtime #:stat-ctime + #:termios-iflag #:termios-oflag #:termios-cflag + #:termios-lflag #:termios-cc #:timeval-sec #:timeval-usec + #:flock-type #:flock-whence #:flock-start #:flock-len + #:flock-pid)) + +#+win32 +(sb-alien:load-shared-object "msvcrt.dll")