Skip to content
Snippets Groups Projects
Commit 6a4a697c authored by ram's avatar ram
Browse files

Add :interactive-p misc method (always returns T).

parent 0cbb2b7a
No related branches found
No related tags found
No related merge requests found
......@@ -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.10 1991/12/06 05:25:21 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/ts-stream.lisp,v 1.1.1.11 1992/12/10 01:11:42 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -334,6 +334,7 @@
(%ts-stream-listen stream))
(:unread
(%ts-stream-unread stream arg1))
(:interactive-p t)
(:get-command
(wait-for-typescript-input stream)
(system:without-interrupts
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment