anchor.diff:  
   #-(OR ARMEDBEAR)
   (when (run-benchmark-p 'COMPILER benchmarks-to-run)
  -  (format t "=== running #<benchmark COMPILER for 5 runs>~%")
  -  (force-output)
  -  (bench-gc)
  -  (BENCH-REPORT 'CL-BENCH.MISC:RUN-COMPILER "COMPILER" 5))
  +  (format t "=== running #<benchmark COMPILER for 10 runs>~%")
  +  (force-output)
  +  (bench-gc)
  +  (BENCH-REPORT 'CL-BENCH.MISC:RUN-COMPILER "COMPILER" 10))
   
   #-(OR ARMEDBEAR)
   (when (run-benchmark-p 'LOAD-FASL benchmarks-to-run)
  -  (format t "=== running #<benchmark LOAD-FASL for 136 runs>~%")
  -  (force-output)
  -  (bench-gc)
  -  (BENCH-REPORT 'CL-BENCH.MISC:RUN-FASLOAD "LOAD-FASL" 136))
  +  (format t "=== running #<benchmark LOAD-FASL for 272 runs>~%")
  +  (force-output)
  +  (bench-gc)
  +  (BENCH-REPORT 'CL-BENCH.MISC:RUN-FASLOAD "LOAD-FASL" 272))
   
   #-(OR LISPWORKS-PERSONAL-EDITION)
   (when (run-benchmark-p 'SUM-PERMUTATIONS benchmarks-to-run)
  -  (format t "=== running #<benchmark SUM-PERMUTATIONS for 5 runs>~%")
  -  (force-output)
  -  (bench-gc)
  -  (BENCH-REPORT 'CL-BENCH.MISC:RUN-PERMUTATIONS "SUM-PERMUTATIONS" 5))
  +  (format t "=== running #<benchmark SUM-PERMUTATIONS for 7 runs>~%")
  +  (force-output)
  +  (bench-gc)
  +  (BENCH-REPORT 'CL-BENCH.MISC:RUN-PERMUTATIONS "SUM-PERMUTATIONS" 7))
   
   #-(OR LISPWORKS-PERSONAL-EDITION)
   (when (run-benchmark-p 'WALK-LIST/SEQ benchmarks-to-run)
  -  (format t "=== running #<benchmark WALK-LIST/SEQ for 156 runs>~%")
  +  (format t "=== running #<benchmark WALK-LIST/SEQ for 1560 runs>~%")
     (force-output)
     (bench-gc)
     (funcall 'CL-BENCH.MISC::SETUP-WALK-LIST/SEQ)
  -  (BENCH-REPORT 'CL-BENCH.MISC:WALK-LIST/SEQ "WALK-LIST/SEQ" 156))
  +  (BENCH-REPORT 'CL-BENCH.MISC:WALK-LIST/SEQ "WALK-LIST/SEQ" 1560))
   
   #-(OR LISPWORKS-PERSONAL-EDITION POPLOG)
   (when (run-benchmark-p 'WALK-LIST/MESS benchmarks-to-run)
  -  (format t "=== running #<benchmark WALK-LIST/MESS for 17 runs>~%")
  +  (format t "=== running #<benchmark WALK-LIST/MESS for 170 runs>~%")
     (force-output)
     (bench-gc)
     (funcall 'CL-BENCH.MISC::SETUP-WALK-LIST/MESS)
  -  (BENCH-REPORT 'CL-BENCH.MISC:WALK-LIST/MESS "WALK-LIST/MESS" 17))
  +  (BENCH-REPORT 'CL-BENCH.MISC:WALK-LIST/MESS "WALK-LIST/MESS" 170))
   (when (run-benchmark-p 'BOYER benchmarks-to-run)
  -  (format t "=== running #<benchmark BOYER for 10 runs>~%")
  -  (force-output)
  -  (bench-gc)
  -  (BENCH-REPORT 'CL-BENCH.GABRIEL:BOYER "BOYER" 10))
  +  (format t "=== running #<benchmark BOYER for 8 runs>~%")
  +  (force-output)
  +  (bench-gc)
  +  (BENCH-REPORT 'CL-BENCH.GABRIEL:BOYER "BOYER" 8))
   (when (run-benchmark-p 'BROWSE benchmarks-to-run)
  -  (format t "=== running #<benchmark BROWSE for 63 runs>~%")
  -  (force-output)
  -  (bench-gc)
  -  (BENCH-REPORT 'CL-BENCH.GABRIEL:BROWSE "BROWSE" 63))
  +  (format t "=== running #<benchmark BROWSE for 300 runs>~%")
  +  (force-output)
  +  (bench-gc)
  +  (BENCH-REPORT 'CL-BENCH.GABRIEL:BROWSE "BROWSE" 300))
   (when (run-benchmark-p 'DDERIV benchmarks-to-run)
  -  (format t "=== running #<benchmark DDERIV for 333 runs>~%")
  -  (force-output)
  -  (bench-gc)
  -  (BENCH-REPORT 'CL-BENCH.GABRIEL:DDERIV-RUN "DDERIV" 333))
  +  (format t "=== running #<benchmark DDERIV for 1500 runs>~%")
  +  (force-output)
  +  (bench-gc)
  +  (BENCH-REPORT 'CL-BENCH.GABRIEL:DDERIV-RUN "DDERIV" 1500))
   (when (run-benchmark-p 'DERIV benchmarks-to-run)
  -  (format t "=== running #<benchmark DERIV for 351 runs>~%")
  -  (force-output)
  -  (bench-gc)
  -  (BENCH-REPORT 'CL-BENCH.GABRIEL:DERIV-RUN "DERIV" 351))
  +  (format t "=== running #<benchmark DERIV for 1500 runs>~%")
  +  (force-output)
  +  (bench-gc)
  +  (BENCH-REPORT 'CL-BENCH.GABRIEL:DERIV-RUN "DERIV" 1500))
   (when (run-benchmark-p 'DESTRUCTIVE benchmarks-to-run)
  -  (format t "=== running #<benchmark DESTRUCTIVE for 987 runs>~%")
  -  (force-output)
  -  (bench-gc)
  -  (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-DESTRUCTIVE "DESTRUCTIVE" 987))
  +  (format t "=== running #<benchmark DESTRUCTIVE for 2000 runs>~%")
  +  (force-output)
  +  (bench-gc)
  +  (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-DESTRUCTIVE "DESTRUCTIVE" 2000))
   (when (run-benchmark-p 'DIV2-TEST-1 benchmarks-to-run)
  -  (format t "=== running #<benchmark DIV2-TEST-1 for 785 runs>~%")
  -  (force-output)
  -  (bench-gc)
  -  (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-DIV2-TEST1 "DIV2-TEST-1" 785))
  +  (format t "=== running #<benchmark DIV2-TEST-1 for 3500 runs>~%")
  +  (force-output)
  +  (bench-gc)
  +  (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-DIV2-TEST1 "DIV2-TEST-1" 3500))
   (when (run-benchmark-p 'DIV2-TEST-2 benchmarks-to-run)
  -  (format t "=== running #<benchmark DIV2-TEST-2 for 646 runs>~%")
  -  (force-output)
  -  (bench-gc)
  -  (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-DIV2-TEST2 "DIV2-TEST-2" 646))
  +  (format t "=== running #<benchmark DIV2-TEST-2 for 1950 runs>~%")
  +  (force-output)
  +  (bench-gc)
  +  (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-DIV2-TEST2 "DIV2-TEST-2" 1950))
   (when (run-benchmark-p 'FFT benchmarks-to-run)
  -  (format t "=== running #<benchmark FFT for 2044 runs>~%")
  -  (force-output)
  -  (bench-gc)
  -  (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-FFT "FFT" 2044))
  +  (format t "=== running #<benchmark FFT for 3066 runs>~%")
  +  (force-output)
  +  (bench-gc)
  +  (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-FFT "FFT" 3066))
   (when (run-benchmark-p 'FRPOLY/FIXNUM benchmarks-to-run)
  -  (format t "=== running #<benchmark FRPOLY/FIXNUM for 795 runs>~%")
  -  (force-output)
  -  (bench-gc)
  -  (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-FRPOLY/FIXNUM "FRPOLY/FIXNUM" 795))
  +  (format t "=== running #<benchmark FRPOLY/FIXNUM for 1600 runs>~%")
  +  (force-output)
  +  (bench-gc)
  +  (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-FRPOLY/FIXNUM "FRPOLY/FIXNUM" 1600))
   (when (run-benchmark-p 'FRPOLY/BIGNUM benchmarks-to-run)
  -  (format t "=== running #<benchmark FRPOLY/BIGNUM for 335 runs>~%")
  -  (force-output)
  -  (bench-gc)
  -  (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-FRPOLY/BIGNUM "FRPOLY/BIGNUM" 335))
  +  (format t "=== running #<benchmark FRPOLY/BIGNUM for 420 runs>~%")
  +  (force-output)
  +  (bench-gc)
  +  (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-FRPOLY/BIGNUM "FRPOLY/BIGNUM" 420))
   (when (run-benchmark-p 'FRPOLY/FLOAT benchmarks-to-run)
  -  (format t "=== running #<benchmark FRPOLY/FLOAT for 640 runs>~%")
  -  (force-output)
  -  (bench-gc)
  -  (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-FRPOLY/FLOAT "FRPOLY/FLOAT" 640))
  +  (format t "=== running #<benchmark FRPOLY/FLOAT for 1280 runs>~%")
  +  (force-output)
  +  (bench-gc)
  +  (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-FRPOLY/FLOAT "FRPOLY/FLOAT" 1280))
   (when (run-benchmark-p 'PUZZLE benchmarks-to-run)
     (format t "=== running #<benchmark PUZZLE for 23793 runs>~%")
     (force-output)
  
positive.code:   (bench-gc)
    (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-TAK "TAK" 6159))
  (when (run-benchmark-p 'CTAK benchmarks-to-run)
    (format t "=== running #<benchmark CTAK for 11838 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-CTAK "CTAK" 11838))
  (when (run-benchmark-p 'TRTAK benchmarks-to-run)
    (format t "=== running #<benchmark TRTAK for 6173 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-TRTAK "TRTAK" 6173))
  (when (run-benchmark-p 'TAKL benchmarks-to-run)
    (format t "=== running #<benchmark TAKL for 1357 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-TAKL "TAKL" 1357))
  (when (run-benchmark-p 'STAK benchmarks-to-run)
    (format t "=== running #<benchmark STAK for 1576 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-STAK "STAK" 1576))
  (when (run-benchmark-p 'FPRINT/UGLY benchmarks-to-run)
    (format t "=== running #<benchmark FPRINT/UGLY for 315 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.GABRIEL:FPRINT/UGLY "FPRINT/UGLY" 315))
  (when (run-benchmark-p 'FPRINT/PRETTY benchmarks-to-run)
    (format t "=== running #<benchmark FPRINT/PRETTY for 61 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.GABRIEL:FPRINT/PRETTY "FPRINT/PRETTY" 61))
  (when (run-benchmark-p 'TRAVERSE benchmarks-to-run)
    (format t "=== running #<benchmark TRAVERSE for 20 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-TRAVERSE "TRAVERSE" 20))
  (when (run-benchmark-p 'TRIANGLE benchmarks-to-run)
    (format t "=== running #<benchmark TRIANGLE for 27 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.GABRIEL:RUN-TRIANGLE "TRIANGLE" 27))
  (when (run-benchmark-p 'RICHARDS benchmarks-to-run)
    (format t "=== running #<benchmark RICHARDS for 34 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.RICHARDS:RICHARDS "RICHARDS" 34))
  (when (run-benchmark-p 'FACTORIAL benchmarks-to-run)
    (format t "=== running #<benchmark FACTORIAL for 15853 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.MATH:RUN-FACTORIAL "FACTORIAL" 15853))
  (when (run-benchmark-p 'FIB benchmarks-to-run)
    (format t "=== running #<benchmark FIB for 590 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.MATH:RUN-FIB "FIB" 590))
  (when (run-benchmark-p 'FIB-RATIO benchmarks-to-run)
    (format t "=== running #<benchmark FIB-RATIO for 38806 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.MATH:RUN-FIB-RATIO "FIB-RATIO" 38806))
  (when (run-benchmark-p 'ACKERMANN benchmarks-to-run)
    (format t "=== running #<benchmark ACKERMANN for 1 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.MATH:RUN-ACKERMANN "ACKERMANN" 1))
  (when (run-benchmark-p 'MANDELBROT/COMPLEX benchmarks-to-run)
    (format t "=== running #<benchmark MANDELBROT/COMPLEX for 539 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.MATH:RUN-MANDELBROT/COMPLEX "MANDELBROT/COMPLEX" 539))
  (when (run-benchmark-p 'MANDELBROT/DFLOAT benchmarks-to-run)
    (format t "=== running #<benchmark MANDELBROT/DFLOAT for 993 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.MATH:RUN-MANDELBROT/DFLOAT "MANDELBROT/DFLOAT" 993))
  (when (run-benchmark-p 'MRG32K3A benchmarks-to-run)
    (format t "=== running #<benchmark MRG32K3A for 1000 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.MATH:RUN-MRG32K3A "MRG32K3A" 1000))
  (when (run-benchmark-p 'CRC40 benchmarks-to-run)
    (format t "=== running #<benchmark CRC40 for 10 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.CRC:RUN-CRC40 "CRC40" 10))
  (when (run-benchmark-p 'BIGNUM/ELEM-100-1000 benchmarks-to-run)
    (format t "=== running #<benchmark BIGNUM/ELEM-100-1000 for 36 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.BIGNUM:RUN-ELEM-100-1000 "BIGNUM/ELEM-100-1000" 36))
  (when (run-benchmark-p 'BIGNUM/ELEM-1000-100 benchmarks-to-run)
    (format t "=== running #<benchmark BIGNUM/ELEM-1000-100 for 32 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.BIGNUM:RUN-ELEM-1000-100 "BIGNUM/ELEM-1000-100" 32))
  (when (run-benchmark-p 'BIGNUM/ELEM-10000-1 benchmarks-to-run)
    (format t "=== running #<benchmark BIGNUM/ELEM-10000-1 for 56 runs>~%")
    (force-output)
    (bench-gc)
    (BENCH-REPORT 'CL-BENCH.BIGNUM:RUN-ELEM-10000-1 "BIGNUM/ELEM-10000-1" 56))
  (when (run-benchmark-p 'BIGNUM/PARI-100-10 benchmarks-to-run)
    (format t "=== running #<benchmark BIGNUM/PARI-100-10 for 223 runs>~%")
    (force-output)
  
negative.code: 
  #-(OR LISPWORKS-PERSONAL-EDITION)
  (when (run-benchmark-p 'BENCH-STRINGS benchmarks-to-run)
    (format t "=== running #<benchmark BENCH-STRINGS for 200 runs>~%")
    (force-output)
    (bench-gc)
    (funcall 'CL-BENCH.ARRAYS:BENCH-STRINGS-SETUP)
    (BENCH-REPORT 'CL-BENCH.ARRAYS:BENCH-STRINGS "BENCH-STRINGS" 200))
  
  #-(OR LISPWORKS-PERSONAL-EDITION)
  (when (run-benchmark-p 'FILL-STRINGS/ADJUST benchmarks-to-run)
    (format t "=== running #<benchmark fill-strings/adjustable for 30 runs>~%")
    (force-output)
    (bench-gc)
    (funcall 'CL-BENCH.ARRAYS:BENCH-STRINGS/ADJUSTABLE)
    (BENCH-REPORT 'CL-BENCH.ARRAYS:BENCH-STRINGS/ADJUSTABLE "fill-strings/adjustable" 30))
  
  #-(OR CLISP ALLEGRO LISPWORKS-PERSONAL-EDITION POPLOG)
  (when (run-benchmark-p 'STRING-CONCAT benchmarks-to-run)
  