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

[Helmut Eller]

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

Modified Files:
	swank-lispworks.lisp 
Log Message:
(frame-actual-args): Bind *break-on-signals* to nil and special case
&rest, &optional, and &key.
Date: Wed Jun 30 23:33:18 2004
Author: heller

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.49 slime/swank-lispworks.lisp:1.50
--- slime/swank-lispworks.lisp:1.49	Wed Jun 30 14:45:07 2004
+++ slime/swank-lispworks.lisp	Wed Jun 30 23:33:18 2004
@@ -240,10 +240,14 @@
 	(push frame backtrace)))))
 
 (defun frame-actual-args (frame)
-  (mapcar (lambda (arg)
-            (handler-case (dbg::dbg-eval arg frame)
-              (error (format nil "<~A>" arg))))
-          (dbg::call-frame-arglist frame)))
+  (let ((*break-on-signals* nil))
+    (mapcar (lambda (arg)
+              (case arg
+                ((&rest &optional &key) arg)
+                (t
+                 (handler-case (dbg::dbg-eval arg frame)
+                   (error (format nil "<~A>" arg))))))
+            (dbg::call-frame-arglist frame))))
 
 (defimplementation print-frame (frame stream)
   (cond ((dbg::call-frame-p frame)