diff --git a/hemlock/ts-stream.lisp b/hemlock/ts-stream.lisp
index 1104accbd9ab4ff20e761d14d114991a18ad3a93..4c1f34d2def578f65f1809736fddc0b28f24d3d7 100644
--- a/hemlock/ts-stream.lisp
+++ b/hemlock/ts-stream.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/ts-stream.lisp,v 1.1.1.7 1991/05/27 13:49:02 chiles Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/ts-stream.lisp,v 1.1.1.8 1991/06/10 16:59:22 chiles Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -19,53 +19,6 @@
 (in-package "HEMLOCK")
 
 
-
-;;;; Public interface from "EXTENSIONS" package.
-
-(in-package "EXT")
-
-(export '(get-stream-command stream-command stream-command-p stream-command-name
-	  stream-command-args make-stream-command))
-
-(defstruct (stream-command (:print-function print-stream-command)
-			   (:constructor make-stream-command
-					 (name &optional args)))
-  (name nil :type symbol)
-  (args nil :type list))
-
-(defun print-stream-command (obj str n)
-  (declare (ignore n))
-  (format str "#<Stream-Cmd ~S>" (stream-command-name obj)))
-
-
-;;; GET-STREAM-COMMAND -- Public.
-;;;
-;;; We can't simply call the stream's misc method because because nil is an
-;;; ambiguous return value: does it mean text arrived, or does it mean the
-;;; stream's misc method had no :get-command implementation.  We can't return
-;;; nil until there is text input.  We don't need to loop because any stream
-;;; implementing :get-command would wait until it had some input.  If the
-;;; LISTEN fails, then we have some random stream we must wait on.
-;;;
-(defun get-stream-command (stream)
-  "This takes a stream and waits for text or a command to appear on it.  If
-   text appears before a command, this returns nil, and otherwise it returns
-   a command."
-  (let ((cmdp (funcall (lisp::stream-misc stream) stream :get-command)))
-    (cond (cmdp)
-	  ((listen stream)
-	   nil)
-	  (t
-	   ;; This waits for input and returns nil when it arrives.
-	   (unread-char (read-char stream) stream)))))
-
-
-
-;;;; Package for rest of file.
-
-(in-package "HEMLOCK")
-
-
 
 ;;;; Ts-streams.