;;; 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))
;;; 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"