<html style="direction: ltr;">
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
<style>body p { margin-bottom: 0cm; margin-top: 0pt; } </style>
</head>
<body style="direction: ltr;"
bidimailui-detected-decoding-type="latin-charset" bgcolor="#FFFFFF"
text="#000000">
<p>I got lost where Helmut said "works for me". Is this a bug that
can be fixed?<br>
</p>
<br>
On 2/6/2012 1:24 PM, Teemu Likonen wrote:
<blockquote cite="mid:87bopbyg4y.fsf@mithlond.arda" type="cite">
<pre wrap="">* Mark H. David [2012-02-06 12:52:04 -0500] wrote:
</pre>
<blockquote type="cite">
<pre wrap="">What am I missing?
</pre>
</blockquote>
<pre wrap="">
You probably didn't read my nor Helmut's recent messages too closely.
Anyway, here's the code I'm using.
;; ~/.swank.lisp
(defpackage #:personal
(:use #:cl)
(:export #:debugger #:*use-swank-debugger*))
(in-package #:personal)
;; This variable is used to switch betwee swank and custom debugger
;; function.
(defparameter *use-swank-debugger* nil)
(defvar *swank-debugger-orig* #'swank:swank-debugger-hook)
;; Custom "debugger" (just prints condition, restarts and error message.)
(defun debugger (condition previous)
(declare (ignore previous))
(with-standard-io-syntax
(let ((*print-readably* nil)
(*print-length* 50)
(*print-level* 5))
(format *error-output*
"~%; Condition: ~A~%; Restarts: ~{~A~^ ~}~%; ~A~%"
(type-of condition) (mapcar #'restart-name (compute-restarts))
condition)
(invoke-restart 'abort))))
;; Redefine swank's debugger function.
(defun swank:swank-debugger-hook (condition previous)
(if *use-swank-debugger*
(funcall *swank-debugger-orig* condition previous)
(funcall 'debugger condition previous)))
_______________________________________________
slime-devel site list
<a class="moz-txt-link-abbreviated" href="mailto:slime-devel@common-lisp.net">slime-devel@common-lisp.net</a>
<a class="moz-txt-link-freetext" href="http://common-lisp.net/mailman/listinfo/slime-devel">http://common-lisp.net/mailman/listinfo/slime-devel</a>
</pre>
</blockquote>
</body>
</html>