[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-ccl.lisp 
Log Message:
swank-ccl.lisp (map-backtrace): Handle null end-frame-number argument.


--- /project/slime/cvsroot/slime/ChangeLog	2009/09/28 14:56:19	1.1868
+++ /project/slime/cvsroot/slime/ChangeLog	2009/10/06 20:12:03	1.1869
@@ -1,3 +1,7 @@
+2009-10-06  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-ccl.lisp (map-backtrace): Handle null end-frame-number argument.
+
 2009-09-28  Stas Boukarev  <stassats at gmail.com>
 
 	* swank.lisp (set-package): Provide a more meaningful error
--- /project/slime/cvsroot/slime/swank-ccl.lisp	2009/09/23 11:19:55	1.6
+++ /project/slime/cvsroot/slime/swank-ccl.lisp	2009/10/06 20:12:03	1.7
@@ -385,16 +385,17 @@
   )
 
 (defun map-backtrace (function &optional
-                               (start-frame-number 0)
-                               (end-frame-number most-positive-fixnum))
+                      (start-frame-number 0)
+                      end-frame-number)
   "Call FUNCTION passing information about each stack frame
  from frames START-FRAME-NUMBER to END-FRAME-NUMBER."
-  (ccl:map-call-frames function
-                       :origin ccl:*top-error-frame*
-                       :start-frame-number start-frame-number
-                       :count (- end-frame-number start-frame-number)
-                       :test (and (not t) ;(not (symbol-value (swank-sym *sldb-show-internal-frames*)))
-                                  'interesting-frame-p)))
+  (let ((end-frame-number (or end-frame-number most-positive-fixnum)))
+    (ccl:map-call-frames function
+                         :origin ccl:*top-error-frame*
+                         :start-frame-number start-frame-number
+                         :count (- end-frame-number start-frame-number)
+                         :test (and (not t) ;(not (symbol-value (swank-sym *sldb-show-internal-frames*)))
+                                    'interesting-frame-p))))
 
 ;; Exceptions
 (defvar *interesting-internal-frames* ())