diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp index 51abe31034c623885ed0a85fabdaffd5ca1288e7..984a8c86d3c29035b25891449f6662cd4613783c 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))