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
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; 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. ;;; Stream functions for Spice Lisp.
;;; Written by Skef Wholey and Rob MacLachlan. ;;; Written by Skef Wholey and Rob MacLachlan.
...@@ -769,8 +769,10 @@ ...@@ -769,8 +769,10 @@
(defun string-in-misc (stream operation &optional arg1 arg2) (defun string-in-misc (stream operation &optional arg1 arg2)
(case operation (case operation
(:file-position (:file-position
(if (null arg1) (if arg1
(string-input-stream-current stream))) (setf (string-input-stream-current stream) arg1)
(string-input-stream-current stream)))
(:file-length (length (string-input-stream-string stream)))
(:read-line (:read-line
(let ((string (string-input-stream-string stream)) (let ((string (string-input-stream-string stream))
(current (string-input-stream-current stream)) (current (string-input-stream-current stream))
......
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