X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Fdefpackage.lisp;h=23c5cce2a30861ed81dc62d1737e834e37ff514f;hb=f0da2f63aa0b4e6d4dbf884854a4bf2dfdd01fc0;hp=91ee3c35d955b623b9e6b0599190165f2109032c;hpb=0b85642df140fabd8f0a91c85edff0543dc359b1;p=sbcl.git diff --git a/contrib/sb-posix/defpackage.lisp b/contrib/sb-posix/defpackage.lisp index 91ee3c3..23c5cce 100644 --- a/contrib/sb-posix/defpackage.lisp +++ b/contrib/sb-posix/defpackage.lisp @@ -1,20 +1,27 @@ (defpackage :sb-posix (:use #:sb-alien #:cl) - (:shadow close open ftruncate truncate time) - (:export #:syscall-error #:syscall-errno + (:shadow close open ftruncate truncate time read write) + (:export #:syscall-error #:syscall-errno #:syscall-name - ;; grovel structure accessors + ;; types and type conversion + #:file-descriptor-designator + #:file-descriptor + #:filename-designator + #:filename - #:dirent-name + ;; grovel structure accessors + #:dirent-name #-win32 #:dirent-ino ;; 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 + #:stat-rdev #:termios-iflag #:termios-oflag #:termios-cflag - #:termios-lflag #:termios-cc #:timeval-sec #:timeval-usec)) + #:termios-lflag #:termios-cc #:timeval-sec #:timeval-usec + #:flock-type #:flock-whence #:flock-start #:flock-len + #:flock-pid)) #+win32 -(load-shared-object "msvcrt.dll") +(sb-alien:load-shared-object "msvcrt.dll")