- (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)))
(dotimes (i (- *disassem-inst-column-width* (* 2 (+ (inst-length inst) suffix-len))))
(write-char #\space stream)))