0.8.18.34:

	* src/compiler/target-disassem.lisp: Don't print spaces when
	stream is nil (reported by Alexey Dejneka on sbcl-devel).

diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp
index 69e24fa..cb8c476 100644 (file)
--- a/src/compiler/target-disassem.lisp
+++ b/src/compiler/target-disassem.lisp
@@ -542,15 +542,16 @@
                            
                            ;; print any instruction bytes recognized by the prefilter which calls read-suffix
                            ;; and updates next-offs
-                           (let ((suffix-len (- (dstate-next-offs dstate) orig-next)))
-                             (when (plusp suffix-len)
-                               (print-inst suffix-len stream dstate :offset (inst-length inst) :trailing-space nil))
+                           (when stream
+                             (let ((suffix-len (- (dstate-next-offs dstate) orig-next)))
+                               (when (plusp suffix-len)
+                                 (print-inst suffix-len stream dstate :offset (inst-length inst) :trailing-space nil))
                              (dotimes (i (- *disassem-inst-column-width* (* 2 (+ (inst-length inst) suffix-len))))
                                (write-char #\space stream)))
-                           (write-char #\space stream)
-                           
+                             (write-char #\space stream))
+                             
                            (funcall function chunk inst)
-                           
+                             
                            (setf prefix-p (null (inst-printer inst)))
                            
                            (when control

diff --git a/version.lisp-expr b/version.lisp-expr
index 40f29ad..518eb48 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.18.33"
+"0.8.18.34"