summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
9572928)
Print the newly introduced size information to the provided stream,
not to *standard-output*.
Reported by Jan Moringen.
(type stream stream)
(type disassem-state dstate))
(unless (null segments)
(type stream stream)
(type disassem-state dstate))
(unless (null segments)
- (format t "~&; Size: ~a bytes"
+ (format stream "~&; Size: ~a bytes"
(reduce #'+ segments :key #'seg-length))
(let ((first (car segments))
(last (car (last segments))))
(reduce #'+ segments :key #'seg-length))
(let ((first (car segments))
(last (car (last segments))))