From f6491268c5b49bf758a3622e56198baec4a772e3 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 12 May 1990 19:57:07 +0000 Subject: [PATCH] Fixed type of the optional arg to file-position. --- compiler/fndb.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp index 51abe3103..984a8c86d 100644 --- a/compiler/fndb.lisp +++ b/compiler/fndb.lisp @@ -932,7 +932,8 @@ (defknown file-write-date (pathnamelike) (or unsigned-byte null) (flushable)) (defknown file-author (pathnamelike) (or simple-string null) (flushable unsafe)) -(defknown file-position (stream &optional unsigned-byte) +(defknown file-position (stream &optional + (or unsigned-byte (member :start :end))) (or unsigned-byte (member t nil))) (defknown file-length (stream) (or unsigned-byte null) (flushable)) -- GitLab