[slime-cvs] CVS slime

[CVS User sboukarev]

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