X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Fdefpackage.lisp;h=23c5cce2a30861ed81dc62d1737e834e37ff514f;hb=f0da2f63aa0b4e6d4dbf884854a4bf2dfdd01fc0;hp=59567f5510e04de4cab39002d0b3a71f8726e48a;hpb=9fb8bf2eb2c91cbda313edaa3362ff8b221ab81d;p=sbcl.git

diff --git a/contrib/sb-posix/defpackage.lisp b/contrib/sb-posix/defpackage.lisp
index 59567f5..23c5cce 100644
--- a/contrib/sb-posix/defpackage.lisp
+++ b/contrib/sb-posix/defpackage.lisp
@@ -1,22 +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
            #:flock-type #:flock-whence #:flock-start #:flock-len
            #:flock-pid))
 
 #+win32
-(load-shared-object "msvcrt.dll")
+(sb-alien:load-shared-object "msvcrt.dll")