[slime-cvs] CVS slime
CVS User sboukarev
sboukarev at common-lisp.net
Thu Feb 24 06:38:34 UTC 2011
Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv10205
Modified Files:
ChangeLog swank-allegro.lisp
Log Message:
* swank-allegro.lisp (find-topframe): Fix excl::int-newest-frame
invocation for the latest alpha version of Allegro.
Patch by Gábor Melis.
--- /project/slime/cvsroot/slime/ChangeLog 2011/02/18 20:38:41 1.2181
+++ /project/slime/cvsroot/slime/ChangeLog 2011/02/24 06:38:34 1.2182
@@ -1,3 +1,9 @@
+2011-02-24 Stas Boukarev <stassats at gmail.com>
+
+ * swank-allegro.lisp (find-topframe): Fix excl::int-newest-frame
+ invocation for the latest alpha version of Allegro.
+ Patch by Gábor Melis.
+
2011-02-18 Stas Boukarev <stassats at gmail.com>
* slime.el (slime-init-popup-buffer): Don't use
--- /project/slime/cvsroot/slime/swank-allegro.lisp 2010/08/04 18:41:04 1.142
+++ /project/slime/cvsroot/slime/swank-allegro.lisp 2011/02/24 06:38:34 1.143
@@ -149,7 +149,7 @@
(defun find-topframe ()
(let ((magic-symbol (intern (symbol-name :swank-debugger-hook)
(find-package :swank)))
- (top-frame (excl::int-newest-frame)))
+ (top-frame (excl::int-newest-frame (excl::current-thread))))
(loop for frame = top-frame then (next-frame frame)
for name = (debugger:frame-name frame)
for i from 0
More information about the slime-cvs
mailing list