X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=contrib%2Fsb-posix%2Finterface.lisp;h=3631996749942477077228c4da845753e6daf643;hb=4ed3f0d08c3a57a6762018d9622f253ab9d0f2b6;hp=bd7ed8dec61bc9e8b2380ab46c210feb4999b7d3;hpb=126e0a851c7e170b13c206c530083fc48572ea60;p=sbcl.git

diff --git a/contrib/sb-posix/interface.lisp b/contrib/sb-posix/interface.lisp
index bd7ed8d..3631996 100644
--- a/contrib/sb-posix/interface.lisp
+++ b/contrib/sb-posix/interface.lisp
@@ -152,13 +152,13 @@
 
 
 ;;; mode flags
-(define-call "s_isreg" sb-posix::mode-t never-fails (mode sb-posix::mode-t))
-(define-call "s_isdir" sb-posix::mode-t never-fails (mode sb-posix::mode-t))
-(define-call "s_ischr" sb-posix::mode-t never-fails (mode sb-posix::mode-t))
-(define-call "s_isblk" sb-posix::mode-t never-fails (mode sb-posix::mode-t))
-(define-call "s_isfifo" sb-posix::mode-t never-fails (mode sb-posix::mode-t))
-(define-call "s_islnk" sb-posix::mode-t never-fails (mode sb-posix::mode-t))
-(define-call "s_issock" sb-posix::mode-t never-fails (mode sb-posix::mode-t))
+(define-call "s_isreg" boolean never-fails (mode sb-posix::mode-t))
+(define-call "s_isdir" boolean never-fails (mode sb-posix::mode-t))
+(define-call "s_ischr" boolean never-fails (mode sb-posix::mode-t))
+(define-call "s_isblk" boolean never-fails (mode sb-posix::mode-t))
+(define-call "s_isfifo" boolean never-fails (mode sb-posix::mode-t))
+(define-call "s_islnk" boolean never-fails (mode sb-posix::mode-t))
+(define-call "s_issock" boolean never-fails (mode sb-posix::mode-t))
 
 (export 'sb-posix::pipe :sb-posix)
 (declaim (inline sb-posix::pipe))
@@ -173,5 +173,3 @@
     (when (minusp r)
       (syscall-error)))
   (values (aref filedes2 0) (aref filedes2 1)))
-  
-(define-call "frobozz" int minusp)