[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el swank.lisp 
Log Message:
* slime.el (sldb-backward-frame): If the point is at the end of the buffer,
there is no property, handle this case.

* swank.lisp (collect-notes): LOAD returns generalized boolean,
not just boolean, but make-compilation-result accepts only booleans
for its second argument.

Both bugs reported by Derrell Piper.


--- /project/slime/cvsroot/slime/ChangeLog	2009/11/02 16:17:48	1.1907
+++ /project/slime/cvsroot/slime/ChangeLog	2009/11/03 14:33:31	1.1908
@@ -1,3 +1,14 @@
+2009-11-03  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (sldb-backward-frame): If the point is at the end of the buffer,
+	there is no property, handle this case.
+
+	* swank.lisp (collect-notes): LOAD returns generalized boolean,
+	not just boolean, but make-compilation-result accepts only booleans
+	for its second argument.
+	
+	Both bugs reported by Derrell Piper.
+
 2009-11-02  Tobias C. Rittweiler <tcr at freebits.de>
 
 	* slime.el (slime-end-of-symbol): Make sure not to move on #'foo.
--- /project/slime/cvsroot/slime/slime.el	2009/11/02 16:17:48	1.1246
+++ /project/slime/cvsroot/slime/slime.el	2009/11/03 14:33:31	1.1247
@@ -5649,7 +5649,9 @@
 (defun sldb-backward-frame ()
   (when (> (point) sldb-backtrace-start-marker)
     (goto-char (previous-single-char-property-change
-                (car (sldb-frame-region))
+                (if (get-text-property (point) 'frame)
+                    (car (sldb-frame-region))
+                    (point))
                 'frame
                 nil sldb-backtrace-start-marker))))
 
--- /project/slime/cvsroot/slime/swank.lisp	2009/11/02 09:20:34	1.671
+++ /project/slime/cvsroot/slime/swank.lisp	2009/11/03 14:33:31	1.672
@@ -2783,8 +2783,7 @@
         (handler-bind ((compiler-condition
                         (lambda (c) (push (make-compiler-note c) notes))))
           (measure-time-interval function))
-      (check-type successp boolean)
-      (make-compilation-result (reverse notes) successp seconds))))
+      (make-compilation-result (reverse notes) (and successp t) seconds))))
 
 (defslimefun compile-file-for-emacs (filename load-p &optional options)
   "Compile FILENAME and, when LOAD-P, load the result.