Changeset 12759

Timestamp:

Sep 4, 2009, 3:46:58 PM (15 years ago)

Author:

Gary Byers

Message:

INTERACTIVE-STREAM-P is true of COCOA-LISTENER-INPUT-STREAMs.

File:

• trunk/source/cocoa-ide/cocoa-listener.lisp (modified) (1 diff)

trunk/source/cocoa-ide/cocoa-listener.lisp

@@ -53 +53 @@
    (reading-line :initform nil :accessor hi:input-stream-reading-line)))
 
-
+(defmethod interactive-stream-p ((stream cocoa-listener-input-stream))
+  t)