From 9f71619d17025cc309fefaeac51107ffa8ed5ee4 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Sat, 15 Jan 2005 22:52:59 +0000 Subject: [PATCH] 0.8.18.34: * src/compiler/target-disassem.lisp: Don't print spaces when stream is nil (reported by Alexey Dejneka on sbcl-devel). --- src/compiler/target-disassem.lisp | 13 +++++++------ version.lisp-expr | 2 +- 2 files changed, 8 insertions(+), 7 deletions(-) diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp index 69e24fa..cb8c476 100644 --- 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 --- 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" -- 1.7.10.4