From 6c666c71551a904b8ac8bd435b31ef4586d24bdb Mon Sep 17 00:00:00 2001 From: zbigniew Date: Wed, 9 Dec 2009 17:17:54 -0600 Subject: types.db fixes for posix Signed-off-by: zbigniew --- types.db | 20 ++++++++++---------- 1 files changed, 10 insertions(+), 10 deletions(-) diff --git a/types.db b/types.db index cc6edc7..0bd3746 100644 --- a/types.db +++ b/types.db @@ -726,27 +726,27 @@ (fcntl/setfd fixnum) (fcntl/setfl fixnum) (fifo? (procedure fifo? (string) boolean)) -(file-access-time (procedure file-access-time (string) number)) -(file-change-time (procedure file-change-time (string) number)) +(file-access-time (procedure file-access-time ((or string fixnum)) number)) +(file-change-time (procedure file-change-time ((or string fixnum)) number)) (file-close (procedure file-close (fixnum) undefined)) (file-control (procedure file-control (fixnum fixnum #!optional fixnum) fixnum)) (file-execute-access? (procedure file-execute-access? (string) boolean)) (file-link (procedure file-link (string string) undefined)) -(file-lock (procedure file-lock (string fixnum #!optional *) (struct lock))) -(file-lock/blocking (procedure file-lock/blocking (string fixnum #!optional *) (struct lock))) +(file-lock (procedure file-lock (port fixnum #!optional *) (struct lock))) +(file-lock/blocking (procedure file-lock/blocking (port fixnum #!optional *) (struct lock))) (file-mkstemp (procedure file-mkstemp (string) fixnum string)) -(file-modification-time (procedure file-modification-time (string) number)) +(file-modification-time (procedure file-modification-time ((or string fixnum)) number)) (file-open (procedure file-open (string fixnum #!optional fixnum) fixnum)) -(file-owner (procedure file-owner (string) fixnum)) -(file-permissions (procedure file-permissions (string) fixnum)) +(file-owner (procedure file-owner ((or string fixnum)) fixnum)) +(file-permissions (procedure file-permissions ((or string fixnum)) fixnum)) (file-position (procedure file-position ((or port fixnum)) fixnum)) (file-read (procedure file-read (fixnum fixnum #!optional *) list)) (file-read-access? (procedure file-read-access? (string) boolean)) (file-select (procedure file-select (list list #!optional fixnum) list list)) -(file-size (procedure file-size (string) fixnum)) -(file-stat (procedure file-stat (string #!optional *) vector)) +(file-size (procedure file-size ((or string fixnum)) fixnum)) +(file-stat (procedure file-stat ((or string fixnum) #!optional *) vector)) (file-test-lock (procedure file-test-lock (port fixnum #!optional *) boolean)) -(file-truncate (procedure file-truncate (string fixnum) undefined)) +(file-truncate (procedure file-truncate ((or string fixnum) fixnum) undefined)) (file-unlock (procedure file-unlock ((struct lock)) undefined)) (file-write (procedure file-write (fixnum * #!optional fixnum) fixnum)) (file-write-access? (procedure file-write-access? (string) boolean)) -- 1.6.5.2