From 833de5ad442a652031c4297cf5490db599dcdde5 Mon Sep 17 00:00:00 2001 From: Juho Snellman Date: Thu, 16 Nov 2006 03:24:07 +0000 Subject: [PATCH] 0.9.18.56: Fix SB-POSIX build on Windows (broken by largefile support). Thanks to Yaroslav Kavenchuk. --- contrib/sb-posix/interface.lisp | 6 +++++- version.lisp-expr | 2 +- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/contrib/sb-posix/interface.lisp b/contrib/sb-posix/interface.lisp index e718b0c..870fa14 100644 --- a/contrib/sb-posix/interface.lisp +++ b/contrib/sb-posix/interface.lisp @@ -73,7 +73,11 @@ ;;; 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)) diff --git a/version.lisp-expr b/version.lisp-expr index 06bab0a..1d74fec 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -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" -- 1.7.10.4