- (when compare (cost-summary compare))
- (format t "~2&~30<Vop~> ~13<Count~> ~9<Cost~> ~6:@<Percent~>~%")
- (let ((sorted (sort-result compared sort-by))
- (base-total (if compare compare-total-cost total-cost)))
- (multiple-value-bind (report other)
- (find-cut-off sorted cut-off report)
- (entry-report report cut-off compensated compare base-total)
- (when other
- (cut-off-report other compare base-total))))
-
- (when compare
- (compare-report total-count total-cost compare-total-count
- compare-total-cost compensated compare))
-
- (format t "~30<Total~>: ~13,2E ~9,2E~%" total-count total-cost)
- (when user
- (format t "~%Cycles per instruction = ~,2F~%"
- (find-cpi total-cost user system gc clock))))))
+ (when compare (cost-summary compare))
+ (format t "~2&~30<Vop~> ~13<Count~> ~9<Cost~> ~6:@<Percent~>~%")
+ (let ((sorted (sort-result compared sort-by))
+ (base-total (if compare compare-total-cost total-cost)))
+ (multiple-value-bind (report other)
+ (find-cut-off sorted cut-off report)
+ (entry-report report cut-off compensated compare base-total)
+ (when other
+ (cut-off-report other compare base-total))))
+
+ (when compare
+ (compare-report total-count total-cost compare-total-count
+ compare-total-cost compensated compare))
+
+ (format t "~30<Total~>: ~13,2E ~9,2E~%" total-count total-cost)
+ (when user
+ (format t "~%Cycles per instruction = ~,2F~%"
+ (find-cpi total-cost user system gc clock))))))