Index: /trunk/source/level-1/l1-streams.lisp
===================================================================
--- /trunk/source/level-1/l1-streams.lisp	(revision 14819)
+++ /trunk/source/level-1/l1-streams.lisp	(revision 14820)
@@ -4718,4 +4718,10 @@
   
   
+(defmethod stream-length ((s string-input-stream) &optional new)
+  (unless new
+    (let ((ioblock (basic-stream-ioblock s)))
+      (%i- (string-input-stream-ioblock-end ioblock)
+	   (string-input-stream-ioblock-start ioblock)))))
+
 (defmethod stream-eofp ((s string-input-stream))
   (let* ((ioblock (basic-stream-ioblock s))
@@ -6593,3 +6599,10 @@
       (the fixnum (- (the fixnum (io-buffer-idx inbuf)) origin)))))
 
+(defmethod stream-length ((s vector-input-stream) &optional new)
+  (unless new
+    (let ((ioblock (basic-stream-ioblock s)))
+      (%i- (io-buffer-limit (ioblock-inbuf ioblock))
+	   (vector-stream-ioblock-displacement ioblock)))))
+
+
 ; end of L1-streams.lisp