<html><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>are we talking about the terminal window version? For the IDE/GUI version I think one would expect a more sophisticated approach using a dialog box (MCL):</div><div><br></div><img height="192" width="293" apple-width="yes" apple-height="yes" src="cid:1A27C3A2-FAD5-4814-92E6-AF78A37616BF@hsd1.co.comcast.net."><br><div><div>On Apr 19, 2009, at 1:44 PM, Leslie P. Polzer wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div><br><blockquote type="cite"><blockquote type="cite">I like the ability of SBCL's debugger interface to select<br></blockquote></blockquote><blockquote type="cite"><blockquote type="cite">restart by simply typing their number (and hitting return).<br></blockquote></blockquote><blockquote type="cite"><br></blockquote><blockquote type="cite">[...]<br></blockquote><blockquote type="cite">Otherwise, see ccl::*default-integer-command*. It's currently only<br></blockquote><blockquote type="cite">used to implement integer shortcuts in the inspector, you might want<br></blockquote><blockquote type="cite">to look at how it does that (in ccl:lib;describe.lisp), and do<br></blockquote><blockquote type="cite">something similar in ccl::break-loop.<br></blockquote><br>Here's the patch (relative to level-1 against latest svn)<br>if you want to include it:<br><br>Index: l1-readloop-lds.lisp<br>===================================================================<br>--- l1-readloop-lds.lisp (revision 11958)<br>+++ l1-readloop-lds.lisp (working copy)<br>@@ -616,6 +616,7 @@<br> (*signal-printing-errors* nil)<br> (*read-suppress* nil)<br> (*print-readably* nil)<br>+ (*default-integer-command* `(:c 0 ,(1- (length (compute-restarts condition)))))<br> (context (new-backtrace-info nil<br> frame-pointer<br> (if *backtrace-contexts*<br><br>I will also implement an option to immediately show the available<br>restarts when the break loop is entered.<br><br> Leslie<br><br>-- <br>LinkedIn Profile: <a href="http://www.linkedin.com/in/polzer">http://www.linkedin.com/in/polzer</a><br>Xing Profile: <a href="https://www.xing.com/profile/LeslieP_Polzer">https://www.xing.com/profile/LeslieP_Polzer</a><br>Blog: <a href="http://blog.viridian-project.de/">http://blog.viridian-project.de/</a><br><br>_______________________________________________<br>Openmcl-devel mailing list<br><a href="mailto:Openmcl-devel@clozure.com">Openmcl-devel@clozure.com</a><br><a href="http://clozure.com/mailman/listinfo/openmcl-devel">http://clozure.com/mailman/listinfo/openmcl-devel</a><br><br></div></blockquote></div><br><div apple-content-edited="true"> <div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><span class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><p style="margin: 0.0px 0.0px 0.0px 0.0px"><font face="Helvetica" size="3" style="font: 12.0px Helvetica">Prof. Alexander Repenning</font></p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><br class="khtml-block-placeholder"></p><p style="margin: 0.0px 0.0px 0.0px 0.0px">University of Colorado</p><p style="margin: 0.0px 0.0px 0.0px 0.0px">Computer Science Department</p><p style="margin: 0.0px 0.0px 0.0px 0.0px">Boulder, CO 80309-430</p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><br class="khtml-block-placeholder"></p><p style="margin: 0.0px 0.0px 0.0px 0.0px"><font face="Helvetica" size="3" style="font: 12.0px Helvetica">vCard: <a href="http://www.cs.colorado.edu/~ralex/AlexanderRepenning.vcf">http://www.cs.colorado.edu/~ralex/AlexanderRepenning.vcf</a></font></p><br class="Apple-interchange-newline"></span></div> </div><br></body></html>