anchor.diff:    (bench-gc)
     (BENCH-REPORT 'CL-BENCH.BIGNUM:RUN-PI-DECIMAL/SMALL "PI-DECIMAL/SMALL" 556))
   (when (run-benchmark-p 'PI-DECIMAL/BIG benchmarks-to-run)
  -  (format t "=== running #<benchmark PI-DECIMAL/BIG for 90 runs>~%")
  -  (force-output)
  -  (bench-gc)
  -  (BENCH-REPORT 'CL-BENCH.BIGNUM:RUN-PI-DECIMAL/BIG "PI-DECIMAL/BIG" 90))
  +  (format t "=== running #<benchmark PI-DECIMAL/BIG for 15 runs>~%")
  +  (force-output)
  +  (bench-gc)
  +  (BENCH-REPORT 'CL-BENCH.BIGNUM:RUN-PI-DECIMAL/BIG "PI-DECIMAL/BIG" 15))
   (when (run-benchmark-p 'PI-ATAN benchmarks-to-run)
     (format t "=== running #<benchmark PI-ATAN for 1046 runs>~%")
     (force-output)
  
positive.code: 
  #-(OR LISPWORKS-PERSONAL-EDITION)
  (when (run-benchmark-p 'BENCH-STRINGS benchmarks-to-run)
    (format t "=== running #<benchmark BENCH-STRINGS for 300 runs>~%")
    (force-output)
    (bench-gc)
    (funcall 'CL-BENCH.ARRAYS:BENCH-STRINGS-SETUP)
    (BENCH-REPORT 'CL-BENCH.ARRAYS:BENCH-STRINGS "BENCH-STRINGS" 300))
  
  #-(OR LISPWORKS-PERSONAL-EDITION)
  (when (run-benchmark-p 'FILL-STRINGS/ADJUST benchmarks-to-run)
    (format t "=== running #<benchmark fill-strings/adjustable for 400 runs>~%")
    (force-output)
    (bench-gc)
    (funcall 'CL-BENCH.ARRAYS:BENCH-STRINGS/ADJUSTABLE)
    (BENCH-REPORT 'CL-BENCH.ARRAYS:BENCH-STRINGS/ADJUSTABLE "fill-strings/adjustable" 400))
  
  #-(OR CLISP ALLEGRO LISPWORKS-PERSONAL-EDITION POPLOG)
  (when (run-benchmark-p 'STRING-CONCAT benchmarks-to-run)
  
negative.code: 
  #-(OR LISPWORKS-PERSONAL-EDITION)
  (when (run-benchmark-p 'SEARCH-SEQUENCE benchmarks-to-run)
    (format t "=== running #<benchmark SEARCH-SEQUENCE for 40 runs>~%")
    (force-output)
    (bench-gc)
    (funcall 'CL-BENCH.ARRAYS:BENCH-SEARCH-SEQUENCE-SETUP)
    (BENCH-REPORT 'CL-BENCH.ARRAYS:BENCH-SEARCH-SEQUENCE "SEARCH-SEQUENCE" 40))
  (when (run-benchmark-p 'CLOS-DEFCLASS benchmarks-to-run)
    (format t "=== running #<benchmark CLOS/defclass for 5 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.CLOS:RUN-DEFCLASS "CLOS/defclass" 5))
  (when (run-benchmark-p 'CLOS-DEFMETHOD benchmarks-to-run)
    (format t "=== running #<benchmark CLOS/defmethod for 3 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.CLOS:RUN-DEFMETHOD "CLOS/defmethod" 3))
  (when (run-benchmark-p 'CLOS-INSTANTIATE benchmarks-to-run)
    (format t "=== running #<benchmark CLOS/instantiate for 2 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.CLOS:MAKE-INSTANCES "CLOS/instantiate" 2))
  (when (run-benchmark-p 'CLOS-INSTANTIATE benchmarks-to-run)
    (format t "=== running #<benchmark CLOS/simple-instantiate for 8000 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.CLOS:MAKE-INSTANCES/SIMPLE "CLOS/simple-instantiate" 8000))
  (when (run-benchmark-p 'METHODCALLS benchmarks-to-run)
    (format t "=== running #<benchmark CLOS/methodcalls for 60 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.CLOS:METHODCALLS/SIMPLE "CLOS/methodcalls" 60))
  (when (run-benchmark-p 'METHODCALLS+AFTER benchmarks-to-run)
    (format t "=== running #<benchmark CLOS/method+after for 8 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.CLOS:METHODCALLS/SIMPLE+AFTER "CLOS/method+after" 8))
  
  #-(OR CLISP POPLOG)
  (when (run-benchmark-p 'METHODCALLS/COMPLEX benchmarks-to-run)
    (format t "=== running #<benchmark CLOS/complex-methods for 60 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.CLOS:METHODCALLS/COMPLEX "CLOS/complex-methods" 60))
  (when (run-benchmark-p 'EQL-SPECIALIZED-FIB benchmarks-to-run)
    (format t "=== running #<benchmark EQL-SPECIALIZED-FIB for 50 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.CLOS:RUN-EQL-FIB "EQL-SPECIALIZED-FIB" 50))
  (when (run-benchmark-p 'MAKE-LIST-SEQUENTIAL/PUSH-NREVERSE benchmarks-to-run)
    (format t "=== running #<benchmark MAKE-LIST-SEQUENTIAL/PUSH-NREVERSE for 5 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.MISC:MAKE-LIST-SEQUENTIAL/PUSH-NREVERSE "MAKE-LIST-SEQUENTIAL/PUSH-NREVERSE" 5))
  (when (run-benchmark-p 'MAKE-LIST-SEQUENTIAL/RPLACD benchmarks-to-run)
    (format t "=== running #<benchmark MAKE-LIST-SEQUENTIAL/RPLACD for 5 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.MISC:MAKE-LIST-SEQUENTIAL/RPLACD "MAKE-LIST-SEQUENTIAL/RPLACD" 5))
  (when (run-benchmark-p 'CORE-FILE-SIZE benchmarks-to-run)
    (format t "=== running #<benchmark CORE-FILE-SIZE for 1 runs>~%")
    (force-output)
  