Skip to content
Snippets Groups Projects
Commit cb6a502a authored by ram's avatar ram
Browse files

Made string input stream support file-length and file-position setting.

parent 45c5ada9
Branches
Tags
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.4 1990/08/24 18:14:16 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.5 1990/10/11 18:30:21 ram Exp $
;;;
;;; Stream functions for Spice Lisp.
;;; Written by Skef Wholey and Rob MacLachlan.
......@@ -769,8 +769,10 @@
(defun string-in-misc (stream operation &optional arg1 arg2)
(case operation
(:file-position
(if (null arg1)
(string-input-stream-current stream)))
(if arg1
(setf (string-input-stream-current stream) arg1)
(string-input-stream-current stream)))
(:file-length (length (string-input-stream-string stream)))
(:read-line
(let ((string (string-input-stream-string stream))
(current (string-input-stream-current stream))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment