X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=contrib%2Fsb-simple-streams%2Fcl.lisp;fp=contrib%2Fsb-simple-streams%2Fcl.lisp;h=0e004088b0e305d003ec0634f80989fcdc79a2e7;hb=2d4a0df3457bcd50916b33d374da592d8776db0a;hp=c9b4603e237115670d39aa551ac9fe79cddf8bcb;hpb=5abc2bce01b292db23f3aca340243a65d9a920d8;p=sbcl.git

diff --git a/contrib/sb-simple-streams/cl.lisp b/contrib/sb-simple-streams/cl.lisp
index c9b4603..0e00408 100644
--- a/contrib/sb-simple-streams/cl.lisp
+++ b/contrib/sb-simple-streams/cl.lisp
@@ -614,7 +614,7 @@
      nil)))
 
 (defun (setf interactive-stream-p) (flag stream)
-  (etypecase stream
+  (typecase stream
     (simple-stream
      (if flag
          (add-stream-instance-flags stream :interactive)
@@ -1058,18 +1058,6 @@
      (progn (sb-impl::stream-must-be-associated-with-file stream)
             (funcall (sb-kernel:ansi-stream-misc stream) stream :file-length)))))
 
-(defun line-length (&optional (stream *standard-output*))
-  "Returns the number of characters that will fit on a line of output on the
-  given Stream, or Nil if that information is not available."
-  (let ((stream (sb-impl::out-synonym-of stream)))
-    (etypecase stream
-      (simple-stream
-       (%simple-stream-line-length stream))
-      (ansi-stream
-       (funcall (sb-kernel:ansi-stream-misc stream) stream :line-length))
-      (fundamental-stream
-       (sb-gray:stream-line-length stream)))))
-
 (defun charpos (&optional (stream *standard-output*))
   "Returns the number of characters on the current line of output of the given
   Stream, or Nil if that information is not availible."