0.9.18.56:
authorJuho Snellman <jsnell@iki.fi>
Thu, 16 Nov 2006 03:24:07 +0000 (03:24 +0000)
committerJuho Snellman <jsnell@iki.fi>
Thu, 16 Nov 2006 03:24:07 +0000 (03:24 +0000)
        Fix SB-POSIX build on Windows (broken by largefile support). Thanks
        to Yaroslav Kavenchuk.

contrib/sb-posix/interface.lisp
version.lisp-expr

index e718b0c..870fa14 100644 (file)
 ;;; filesystem access
 (defmacro define-call* (name &rest arguments)
   #-win32 `(define-call ,name ,@arguments)
-  #+win32 `(define-call ,(concatenate 'string "_" name) ,@arguments))
+  #+win32 `(define-call ,(if (consp name)
+                             `(,(concatenate 'string "_" (car name))
+                                ,@(cdr name))
+                             (concatenate 'string "_" name))
+               ,@arguments))
 
 (define-call* "access" int minusp (pathname filename) (mode int))
 (define-call* "chdir" int minusp (pathname filename))
index 06bab0a..1d74fec 100644 (file)
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.18.55"
+"0.9.18.56"