Changeset 8577


Ignore:
Timestamp:
02/15/05 00:48:22 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/run-benchmarks.lisp

    r7328 r8577  
    9292        (format *benchmark-output*
    9393                ";; ~25a ~8,2f ~8,2f~%"
     94                name real user)
     95        (format *trace-output*
     96                ";; ~25a ~8,2f ~8,2f~%"
    9497                name real user))
    9598      (force-output *benchmark-output*)))
     
    112115      (bench-gc)
    113116      ;; The benchmarks.
    114       (run-benchmark 'cl-bench.misc:run-compiler)
    115       (run-benchmark 'cl-bench.misc:run-fasload)
    116       #-allegro
    117       (run-benchmark 'cl-bench.misc:run-permutations)
     117      #+nil
     118      (run-benchmark 'cl-bench.misc:run-compiler nil 3)
     119      #+nil
     120      (run-benchmark 'cl-bench.misc:run-fasload nil 20)
     121      #-allegro
     122      (run-benchmark 'cl-bench.misc:run-permutations nil 2)
    118123      #+nil
    119124      (progn
     
    128133        (setf cl-bench.misc::*big-mess-list* nil)
    129134        (bench-gc))
    130       (run-benchmark 'cl-bench.gabriel:boyer)
    131       (run-benchmark 'cl-bench.gabriel:browse)
    132       (run-benchmark 'cl-bench.gabriel:dderiv-run)
    133       (run-benchmark 'cl-bench.gabriel:deriv-run)
    134       (run-benchmark 'cl-bench.gabriel:run-destructive)
    135       (run-benchmark 'cl-bench.gabriel:run-div2-test1)
    136       (run-benchmark 'cl-bench.gabriel:run-div2-test2)
    137       (run-benchmark 'cl-bench.gabriel:run-fft)
    138       (run-benchmark 'cl-bench.gabriel:run-frpoly/fixnum)
    139       (run-benchmark 'cl-bench.gabriel:run-frpoly/bignum)
    140       (run-benchmark 'cl-bench.gabriel:run-frpoly/float)
     135      (run-benchmark 'cl-bench.gabriel:boyer nil 30)
     136      (run-benchmark 'cl-bench.gabriel:browse nil 10)
     137      (run-benchmark 'cl-bench.gabriel:dderiv-run nil 50)
     138      (run-benchmark 'cl-bench.gabriel:deriv-run nil 60)
     139      (run-benchmark 'cl-bench.gabriel:run-destructive nil 100)
     140      (run-benchmark 'cl-bench.gabriel:run-div2-test1 nil 200)
     141      (run-benchmark 'cl-bench.gabriel:run-div2-test2 nil 200)
     142      (run-benchmark 'cl-bench.gabriel:run-fft nil 30)
     143      (run-benchmark 'cl-bench.gabriel:run-frpoly/fixnum nil 100)
     144      (run-benchmark 'cl-bench.gabriel:run-frpoly/bignum nil 30)
     145      (run-benchmark 'cl-bench.gabriel:run-frpoly/float nil 100)
    141146      (run-benchmark 'cl-bench.gabriel:run-puzzle)
    142147      (run-benchmark 'cl-bench.gabriel:run-tak)
     
    171176      (run-benchmark 'cl-bench.ratios:run-pi-ratios)
    172177      #-clisp
    173       (run-benchmark 'cl-bench.hash:run-slurp-lines)
    174       #-allegro
    175       (run-benchmark 'cl-bench.hash:hash-strings)
    176       (run-benchmark 'cl-bench.hash:hash-integers)
     178      (run-benchmark 'cl-bench.hash:run-slurp-lines nil 30)
     179      #-allegro
     180      (run-benchmark 'cl-bench.hash:hash-strings nil 2)
     181      (run-benchmark 'cl-bench.hash:hash-integers nil 10)
    177182      #-allegro
    178183      (run-benchmark 'cl-bench.boehm-gc:gc-benchmark)
    179       (run-benchmark 'cl-bench.deflate:run-deflate-file)
     184      (run-benchmark 'cl-bench.deflate:run-deflate-file nil 100)
    180185      #-allegro
    181186      (run-benchmark 'cl-bench.arrays:bench-1d-arrays)
     
    184189      #-allegro
    185190      (run-benchmark 'cl-bench.arrays:bench-3d-arrays '(100 1))
    186       (run-benchmark 'cl-bench.arrays:bench-bitvectors '(1000000 1))
    187       #-allegro
    188       (run-benchmark 'cl-bench.arrays:bench-strings '(1000000 1))
     191      (run-benchmark 'cl-bench.arrays:bench-bitvectors nil 3)
     192      #-allegro
     193      (run-benchmark 'cl-bench.arrays:bench-strings)
    189194      #-allegro
    190195      (run-benchmark 'cl-bench.arrays:bench-strings/adjustable '(1000000 1))
    191       #-allegro
     196      #-(or allegro clisp)
    192197      (run-benchmark 'cl-bench.arrays:bench-string-concat '(1000000 1))
    193198      #-allegro
    194199      (run-benchmark 'cl-bench.arrays:bench-search-sequence '(1000000 1))
     200      (return-from run-benchmarks)
    195201      (run-benchmark 'cl-bench.clos:run-defclass)
    196202      (run-benchmark 'cl-bench.clos:run-defmethod)
Note: See TracChangeset for help on using the changeset viewer.