[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (sldb-bitvector-pprint): Oops, all bits are true.

--- /project/slime/cvsroot/slime/ChangeLog	2009/05/16 17:21:02	1.1756
+++ /project/slime/cvsroot/slime/ChangeLog	2009/05/16 17:21:12	1.1757
@@ -5,6 +5,8 @@
 	disassembler output.
 	(function-source-location): Remove the old pre-1.3 version.
 
+	* swank.lisp (sldb-bitvector-pprint): Oops, all bits are true.
+
 2009-05-16  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime.el (slime-current-parser-state): Do not save
--- /project/slime/cvsroot/slime/swank.lisp	2009/05/16 11:38:47	1.645
+++ /project/slime/cvsroot/slime/swank.lisp	2009/05/16 17:21:12	1.646
@@ -114,7 +114,7 @@
                        (when (= i *sldb-bitvector-length*)
                          (write-string "..." stream)
                          (loop-finish))
-                       (write-char (if bit #\1 #\0) stream))))
+                       (write-char (if (= bit 0) #\0 #\1) stream))))
            (sldb-string-pprint (stream string)
              ;;; Truncate strings according to *SLDB-STRING-LENGTH*.
              (cond ((not *print-escape*)