[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-openmcl.lisp 
Log Message:
* swank-openmcl.lisp (break-in-sldb): Display the argument.

--- /project/slime/cvsroot/slime/ChangeLog	2009/01/16 15:49:25	1.1666
+++ /project/slime/cvsroot/slime/ChangeLog	2009/01/16 15:49:39	1.1667
@@ -6,6 +6,10 @@
 	
 2009-01-16  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-openmcl.lisp (break-in-sldb): Display the argument.
+
+2009-01-16  Helmut Eller  <heller at common-lisp.net>
+
 	* swank-backend.lisp (warn-unimplemented-interfaces): Print the
 	names with pprint-fill.
 
--- /project/slime/cvsroot/slime/swank-openmcl.lisp	2009/01/10 12:40:13	1.156
+++ /project/slime/cvsroot/slime/swank-openmcl.lisp	2009/01/16 15:49:40	1.157
@@ -846,10 +846,10 @@
    :when :around
    :name sldb-break))
 
-(defun break-in-sldb (&optional string &rest args)
+(defun break-in-sldb (x y &rest args)
   (let ((*sldb-stack-top-hint* (or *sldb-stack-top-hint*
                                    (ccl::%get-frame-ptr))))
-    (apply #'cerror "Continue from break" (or string "Break") args)))
+    (apply #'cerror y (if args "Break: ~a" x) args)))
 
 ;;; Utilities