[slime-cvs] CVS update: slime/ChangeLog slime/swank-lispworks.lisp

[Martin Simmons]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv23816

Modified Files:
	ChangeLog swank-lispworks.lisp 
Log Message:
(frame-actual-args): Correct syntax for handler-case.

Date: Wed Aug  4 03:56:58 2004
Author: msimmons

Index: slime/ChangeLog
diff -u slime/ChangeLog:1.495 slime/ChangeLog:1.496
--- slime/ChangeLog:1.495	Tue Aug  3 23:23:30 2004
+++ slime/ChangeLog	Wed Aug  4 03:56:58 2004
@@ -1,3 +1,8 @@
+2004-08-04  Martin Simmons <martin at xanalys.com>
+
+	* swank-lispworks.lisp (frame-actual-args): Correct syntax for
+	handler-case.
+
 2004-08-04  Helmut Eller  <e9626484 at stud3.tuwien.ac.at>
 
 	* slime.el: (slime-mode-map, slime-repl-mode-map)


Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.52 slime/swank-lispworks.lisp:1.53
--- slime/swank-lispworks.lisp:1.52	Sat Jul 31 23:26:02 2004
+++ slime/swank-lispworks.lisp	Wed Aug  4 03:56:58 2004
@@ -246,7 +246,7 @@
                 ((&rest &optional &key) arg)
                 (t
                  (handler-case (dbg::dbg-eval arg frame)
-                   (error (format nil "<~A>" arg))))))
+                   (error (e) (format nil "<~A>" arg))))))
             (dbg::call-frame-arglist frame))))
 
 (defimplementation print-frame (frame stream)