;;; -*- Mode:Common-Lisp; Package:CHAOS; Base:10; Syntax:COMMON-LISP; Fonts:(MEDFNB HL12B HL12BI) -*-

;;;                           RESTRICTED RIGHTS LEGEND

;;;Use, duplication, or disclosure by the Government is subject to
;;;restrictions as set forth in subdivision (b)(3)(ii) of the Rights in
;;;Technical Data and Computer Software clause at 52.227-7013.
;;;
;;;                     TEXAS INSTRUMENTS INCORPORATED.
;;;                              P.O. BOX 2909
;;;                           AUSTIN, TEXAS 78769
;;;                                 MS 2151
;;;
;;; Copyright (C) 1987, Texas Instruments Incorporated. All rights reserved.

;;; Change history:
;;;
;;;  Date       Author	Description
;;; -------------------------------------------------------------------------------------
;;; 10/10/88    LGO     Created


chaos:
(defmethod (character-stream :status) ()
  ;1; Provide a :status method for compatability with tcp/ip streams*
  (if (member (conn-state connection)
	      '(inactive-state host-down-state cls-received-state loc-received-state)
	      :test #'eq)
      :closed
    :open))