From b165de7f1ab86d545af3eb66e3e959b2fafd788b Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 15 Dec 1990 14:07:00 +0000 Subject: [PATCH] Added several force-outputs to make sure prompts are output before we try to read. --- code/debug.lisp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/code/debug.lisp b/code/debug.lisp index f616e758c..79fd08daa 100644 --- a/code/debug.lisp +++ b/code/debug.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.12 1990/10/11 18:05:21 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.13 1990/12/15 14:07:00 wlott Exp $ ;;; ;;; CMU Common Lisp Debugger. This is a very basic command-line oriented ;;; debugger. @@ -576,6 +576,7 @@ (princ "Bottom of stack encountered.") prev) (write-string "Restart number: ") + (return prev)))))) (t (invoke-restart-interactively (nth num *debug-restarts*)))) ;;; @@ -603,6 +604,7 @@ (string= (symbol-name sym1) (symbol-name sym2))))) (format t "~%Q for quit: ") + (format t "~S is invalid as a restart name.~%" num) (return-from restart-debug-command nil))))) (if restart (invoke-restart-interactively restart) @@ -759,8 +761,9 @@ (format t "Note: previous breakpoint removed.~%")) (push new-bp-info *breakpoints*)) (print-breakpoint-info (first *breakpoints*)) - (if (not (ext:listen-skip-whitespace in)) - (princ prompt out)) + (format t "~&Added.")))) + +(def-debug-command-alias "BP" "BREAKPOINT") ;;; list all breakpoints set (def-debug-command "LIST-BREAKPOINTS" () -- GitLab