[slime-cvs] CVS slime

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv16479

Modified Files:
	swank.lisp ChangeLog 
Log Message:

	* swank.lisp (do-symbols*): Wrap body in TAGBODY.


--- /project/slime/cvsroot/slime/swank.lisp	2009/01/08 10:37:51	1.628
+++ /project/slime/cvsroot/slime/swank.lisp	2009/01/10 10:06:59	1.629
@@ -520,7 +520,7 @@
       (do-symbols (,var ,package ,result-form)
         (unless (gethash ,var ,seen-ht)
           (setf (gethash ,var ,seen-ht) t)
-          , at body)))))
+          (tagbody , at body))))))
 
 (defun use-threads-p ()
   (eq (connection.communication-style *emacs-connection*) :spawn))
--- /project/slime/cvsroot/slime/ChangeLog	2009/01/09 07:12:55	1.1657
+++ /project/slime/cvsroot/slime/ChangeLog	2009/01/10 10:06:59	1.1658
@@ -1,3 +1,7 @@
+2009-01-05  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* swank.lisp (do-symbols*): Wrap body in TAGBODY.
+
 2009-01-09  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-allegro.lisp (swank-compile-string): Don't use the