/[cmucl]/src/code/stream.lisp
ViewVC logotype

Diff of /src/code/stream.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.80 by rtoy, Mon May 23 18:02:12 2005 UTC revision 1.81 by rtoy, Fri Jul 1 14:54:41 2005 UTC
# Line 1483  output to Output-stream" Line 1483  output to Output-stream"
1483    (case operation    (case operation
1484      (:file-position      (:file-position
1485       (if arg1       (if arg1
1486           (setf (string-input-stream-current stream) arg1)           (setf (string-input-stream-current stream)
1487                   (case arg1
1488                     (:start 0)
1489                     (:end (length (string-input-stream-string stream)))
1490                     (t arg1)))
1491           (string-input-stream-current stream)))           (string-input-stream-current stream)))
1492      (:file-length      (:file-length
1493       (error 'type-error :datum stream :expected-type 'file-stream))       (error 'type-error :datum stream :expected-type 'file-stream))

Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81

  ViewVC Help
Powered by ViewVC 1.1.5