Skip to content
Snippets Groups Projects
Commit ed7be0ce authored by wlott's avatar wlott
Browse files

Fixed type decls in FILE-POSITION to allow :START and :END for positions.

parent ae58e64c
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.18 1993/02/26 08:26:15 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.19 1993/03/12 21:05:38 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -225,10 +225,11 @@
;;;
(defun file-position (stream &optional position)
"With one argument returns the current position within the file
File-Stream is open to. If the second argument is supplied, then
this becomes the new file position. The second argument may also
be :start or :end for the start and end of the file, respectively."
(declare (stream stream) (type (or index null) position))
File-Stream is open to. If the second argument is supplied, then
this becomes the new file position. The second argument may also
be :start or :end for the start and end of the file, respectively."
(declare (stream stream)
(type (or index (member nil :start :end)) position))
(cond
(position
(setf (stream-in-index stream) in-buffer-length)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment