From 863114ff8ca41bbaf2da16875fc29be2a16aa3ab Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Wed, 16 Apr 2003 04:07:13 +0000 Subject: [PATCH] 0.pre8.60 * Rename :rf command to :focus --- contrib/sb-aclrepl/repl.lisp | 7 +++++-- version.lisp-expr | 2 +- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/contrib/sb-aclrepl/repl.lisp b/contrib/sb-aclrepl/repl.lisp index fe2237554..930d2c4c4 100644 --- a/contrib/sb-aclrepl/repl.lisp +++ b/contrib/sb-aclrepl/repl.lisp @@ -521,12 +521,15 @@ (format *repl-output* "~&Threads are not supported in this version of sbcl") (values)) -(defun release-foreground-cmd () +(defun focus-cmd (&optional process) #+sb-thread + (when process + (format *repl-output* "~&Focusing on next thread waiting waiting for the debugger~%")) (progn (sb-thread:release-foreground) (sleep 1)) #-sb-thread + (declare (ignore process)) #-sb-thread (format *repl-output* "~&Threads are not supported in this version of sbcl") (values)) @@ -565,7 +568,7 @@ ("istep" 1 istep-cmd "navigate within inspection of a lisp object" :parsing :string) #+sb-thread ("kill" 2 kill-cmd "kill (destroy) processes") #+sb-thread ("signal" 2 signal-cmd "send a signal to processes") - #+sb-thread ("rf" 2 release-foreground-cmd "release foreground") + #+sb-thread ("focus" 2 focus-cmd "focus the top level on a process") #+aclrepl-debugger("local" 3 local-cmd "print the value of a local variable") ("pwd" 3 pwd-cmd "print current directory") ("pushd" 2 pushd-cmd "push directory on stack" :parsing :string) diff --git a/version.lisp-expr b/version.lisp-expr index 66bad7199..e2de0688f 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -18,4 +18,4 @@ ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.pre8.60" +"0.pre8.61" -- 2.11.4.GIT