[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (format-values-for-echo-area): Also print the length of an
integer in bits.


--- /project/slime/cvsroot/slime/ChangeLog	2010/04/23 03:00:20	1.2076
+++ /project/slime/cvsroot/slime/ChangeLog	2010/04/24 04:44:38	1.2077
@@ -1,6 +1,11 @@
+2010-04-24  Stas Boukarev  <stassats at gmail.com>
+
+	* swank.lisp (format-values-for-echo-area): Also print the length of an
+	integer in bits.
+
 2010-04-23  Stas Boukarev  <stassats at gmail.com>
 
-	* slime.el (slime-update-threads-buffer): Use slime-eval-async
+	* slime.el (slime-update-threads-buffer): Use slime-eval-async.
 
 2010-04-23  Stas Boukarev  <stassats at gmail.com>
 
--- /project/slime/cvsroot/slime/swank.lisp	2010/04/19 00:42:28	1.712
+++ /project/slime/cvsroot/slime/swank.lisp	2010/04/24 04:44:38	1.713
@@ -2182,8 +2182,9 @@
       (cond ((null values) "; No value")
             ((and (integerp (car values)) (null (cdr values)))
              (let ((i (car values)))
-               (format nil "~A~D (#x~X, #o~O, #b~B)" 
-                       *echo-area-prefix* i i i i)))
+               (format nil "~A~D (~a bit~:p, #x~X, #o~O, #b~B)" 
+                       *echo-area-prefix*
+                       i (integer-length i) i i i)))
             (t (format nil "~a~{~S~^, ~}" *echo-area-prefix* values))))))
 
 (defmacro values-to-string (values)