Skip to content
Snippets Groups Projects
Commit 7d63b35a authored by ram's avatar ram
Browse files

Changed (typep Its-tream) to ts-stream-p so that we can declare it to be

defined and squelch warnings when Hemlock isn't loaded.
parent 56f30310
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.41 1994/03/19 23:48:52 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.42 1994/10/02 22:35:02 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1587,7 +1587,7 @@ See the CMU Common Lisp User's Manual for more information. ...@@ -1587,7 +1587,7 @@ See the CMU Common Lisp User's Manual for more information.
;;; ;;;
(def-debug-command "EDIT-SOURCE" () (def-debug-command "EDIT-SOURCE" ()
(unless (typep *terminal-io* 'ed::ts-stream) (unless (ed::ts-stream-p *terminal-io*)
(error "The debugger's EDIT-SOURCE command only works in slave Lisps ~ (error "The debugger's EDIT-SOURCE command only works in slave Lisps ~
connected to a Hemlock editor.")) connected to a Hemlock editor."))
(let* ((wire (ed::ts-stream-wire *terminal-io*)) (let* ((wire (ed::ts-stream-wire *terminal-io*))
......
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