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