Red Hat Linux
Click URL instructions:
Right-click on ad, choose "Copy Link", then paste here →
(This may not be possible with some types of ads)
You seem to have CSS turned off.
Please don't fill out this field.
Briefly describe the problem (required):
Please provide the ad click URL, if possible:
Update of /cvsroot/sbcl/sbcl/contrib/sb-posix
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv20999/contrib/sb-posix
184.108.40.206: More syscall wrappers on NetBSD, to work around C preprocessor abuse
* socket, dirent (patch from Richard Kreuter)
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-posix/interface.lisp,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -d -r1.35 -r1.36
--- interface.lisp 15 Jan 2007 22:09:11 -0000 1.35
+++ interface.lisp 19 Jan 2007 00:07:29 -0000 1.36
@@ -106,8 +106,10 @@
(define-call "rename" int minusp (oldpath filename) (newpath filename))
(define-call* "rmdir" int minusp (pathname filename))
(define-call* "unlink" int minusp (pathname filename))
-(define-call "opendir" (* t) null-alien (pathname filename))
-(define-call ("readdir" :options :largefile) (* dirent)
+(define-call #-netbsd "opendir" #+netbsd "_opendir"
+ (* t) null-alien (pathname filename))
+(define-call (#-netbsd "readdir" #+netbsd "_readdir" :options :largefile)
+ (* dirent)
;; readdir() has the worst error convention in the world. It's just
;; too painful to support. (return is NULL _and_ errno "unchanged"
;; is not an error, it's EOF).
Sign up for the SourceForge newsletter: