diff --git a/internal/gabriel/00-README.txt b/internal/gabriel/00-README.txt deleted file mode 100644 index 4e9e80d8..00000000 --- a/internal/gabriel/00-README.txt +++ /dev/null @@ -1,211 +0,0 @@ -Running the Benchmarks -All the files for doing benchmarks were in this folder. -This file would have told you where to find the files you need, and how to run the various benchmarks.dir - -Overall directory layout: - Information Gabriel>, this file. - Procedures Gabriel>Admin> for overall procedure files, rather than specific test plans or scripts - Benchmarks Gabriel>Benchmarks> for lisp source & compiled files containing specific benchmarks - Results Gabriel>Results> for the results of benchmark runs. - Tools Gabriel>Tools> for general-purpose files like gabriel-timers. - Auxiliary Files Gabriel>Aux> for auxiliary files, e.g., the file of FLOATs that gets read in by the floating-point-read benchmark. - Interlisp Gabriel>Interlisp> for the old, Interlisp-only versions of the Gabriel benchmarks that were run before Common Lisp existed. -The directory in detail: -. -The Benchmarks you might want to run -. -Creating a Benchmark -1. Load Tools>GABRIEL-TIMERS.LCOM, which defines all the functions you'll need. -2. Use the function GABRIEL::DEFINE-TIMER (documented below) to create each benchmark. You'll be assigning the benchmark a name, and you may want to define auxiliary functions for the benchmark (e.g. for cleanup) as well. -3. To try out your benchmarks, first compile all the TIMERS definitions and auxiliary functions (I use ^C in SEdit quite nicely), then say to an Exec: - GABRIEL::RUN-BENCHMARKS((>>your b/m names here<<)) - to try them out. -4. Save all the timers and functions on a file, MAKEFILE it, and compile it. After you load the compiled file, you'll be able to run the new benchmarks wherever you loaded it. - -(GABRIEL::DEFINE-TIMER - (name - [(:SETUP single-setup-form)] - [(:AFTER-EVERY single-cleanup-form)] - [(:AFTER single-cleanup-form)] ) - "optional documentation string" - forms-to-run-for-the-benchmark ) - -Defines a benchmark named name, which will run forms-to-run-for-the-benchmark for every iteration of the benchmark. If you specify the :SETUP clause, the single form single-setup-form you supply will be run once before the first iteration of the benchmark. If you specify :AFTER, that single cleanup form will be run after the last iteration of the benchmark has been run; the :AFTER-EVERY cleanup form will be run after each iteration (including the last one). -Running Benchmarks -1. Load Tools>GABRIEL-TIMERS.LCOM, which defines all the functions you'll need. -2. Load the files that contain the benchmarks you want to run. Loading a file of benchmarks adds the names of those benchmarks to the list GABRIEL::*ALL-TIMERS*. -3. Use the function GABRIEL:RUN-BENCHMARKS, described below. - -(GABRIEL::RUN-BENCHMARKS - &OPTIONAL (BENCHMARKS GABRIEL::*ALL-TIMERS*) - (DRIBBLE-FILE (QUOTE {DSK}GABRIEL.BENCHMARKS)) - (NUMBER-OF-ITERATIONS GABRIEL::*MINIMUM-TESTS*)) - -Runs the benchmarks named in BENCHMARKS, defaulting to the list of all the benchmarks that you've loaded. The timing results are printed in the Exec window, and on the file DRIBBLE-FILE. Each test will be run NUMBER-OF-ITERATIONS times, defaulting to 2. -Running the Standard Benchmark Set -1. Load the files : - Tools>GABRIEL-TIMERS.LCOM - {ERIS}Benchmarks>GABRIEL-OTHER.dfasl - {ERIS}Benchmarks>GABRIEL-TAK.dfasl - {ERIS}Benchmarks>ARITH-BENCHMARKS.dfasl - {ERIS}Benchmarks>IO-BENCHMARKS.LCOM -2a. If you are running on an 1186, run the following functions: - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*TAK-TIMERS* - 'Results>Maiko>1186-PAV-TAK.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*IO-BENCHMARKS* - 'Results>Maiko>1186-IO.Results) - (GABRIEL::RUN-BENCHMARKS - IL:*ARITH-BENCHMARKS* - 'Results>Maiko>1186-PAV-ARITH.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*AREFY-BENCHMARKS* - 'Results>Maiko>1186-PAV-AREFY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*CONSY-BENCHMARKS* - 'Results>Maiko>1186-PAV-CONSY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*POLY-BENCHMARKS* - 'Results>Maiko>1186-PAV-POLY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*MISC-BENCHMARKS* - 'Results>Maiko>1186-PAV-MISC.Results) - -2b. If you are running on a Sun, run the following: - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*TAK-TIMERS* - 'Results>Maiko>SUN-PAV-TAK.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*MAIKO-IO-BENCHMARKS* - 'Results>Maiko>SUN-IO.Results) - (GABRIEL::RUN-BENCHMARKS - IL:*ARITH-BENCHMARKS* - 'Results>Maiko>SUN-PAV-ARITH.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*AREFY-BENCHMARKS* - 'Results>Maiko>SUN-PAV-AREFY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*CONSY-BENCHMARKS* - 'Results>Maiko>SUN-PAV-CONSY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*POLY-BENCHMARKS* - 'Results>Maiko>SUN-PAV-POLY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*MISC-BENCHMARKS* - 'Results>Maiko>SUN-PAV-MISC.Results) -2c. If you are running on an 1108, run the following: - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*TAK-TIMERS* - 'Results>Maiko>1108-PAV-TAK.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*MAIKO-IO-BENCHMARKS* - 'Results>Maiko>1108-IO.Results) - (GABRIEL::RUN-BENCHMARKS - IL:*ARITH-BENCHMARKS* - 'Results>Maiko>1108-PAV-ARITH.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*AREFY-BENCHMARKS* - 'Results>Maiko>1108-PAV-AREFY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*CONSY-BENCHMARKS* - 'Results>Maiko>1108-PAV-CONSY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*POLY-BENCHMARKS* - 'Results>Maiko>1108-PAV-POLY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*MISC-BENCHMARKS* - 'Results>Maiko>1108-PAV-MISC.Results) -2d. If you are running on a Dorado, run the following: - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*TAK-TIMERS* - 'Results>Maiko>1132-PAV-TAK.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*MAIKO-IO-BENCHMARKS* - 'Results>Maiko>1132-IO.Results) - (GABRIEL::RUN-BENCHMARKS - IL:*ARITH-BENCHMARKS* - 'Results>Maiko>1132-PAV-ARITH.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*AREFY-BENCHMARKS* - 'Results>Maiko>1132-PAV-AREFY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*CONSY-BENCHMARKS* - 'Results>Maiko>1132-PAV-CONSY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*POLY-BENCHMARKS* - 'Results>Maiko>1132-PAV-POLY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*MISC-BENCHMARKS* - 'Results>Maiko>1132-PAV-MISC.Results) -3. Load the files: - {ERIS}Benchmarks>GABRIEL-OTHER.LCOM - {ERIS}Benchmarks>GABRIEL-TAK.LCOM - {ERIS}Benchmarks>ARITH-BENCHMARKS.LCOM -4a. If you are running on an 1186, run the following functions: - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*TAK-TIMERS* - 'Results>Maiko>1186-BYTE-TAK.Results) - (GABRIEL::RUN-BENCHMARKS - IL:*ARITH-BENCHMARKS* - 'Results>Maiko>1186-BYTE-ARITH.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*AREFY-BENCHMARKS* - 'Results>Maiko>1186-BYTE-AREFY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*CONSY-BENCHMARKS* - 'Results>Maiko>1186-BYTE-CONSY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*POLY-BENCHMARKS* - 'Results>Maiko>1186-BYTE-POLY.Results) - -4b. If you are running on a Sun, run the following: - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*TAK-TIMERS* - 'Results>Maiko>SUN-BYTE-TAK.Results) - (GABRIEL::RUN-BENCHMARKS - IL:*ARITH-BENCHMARKS* - 'Results>Maiko>SUN-BYTE-ARITH.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*AREFY-BENCHMARKS* - 'Results>Maiko>SUN-BYTE-AREFY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*CONSY-BENCHMARKS* - 'Results>Maiko>SUN-BYTE-CONSY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*POLY-BENCHMARKS* - 'Results>Maiko>SUN-BYTE-POLY.Results) -4c. If you are running on an 1108, run the following: - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*TAK-TIMERS* - 'Results>Maiko>1108-BYTE-TAK.Results) - (GABRIEL::RUN-BENCHMARKS - IL:*ARITH-BENCHMARKS* - 'Results>Maiko>1108-BYTE-ARITH.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*AREFY-BENCHMARKS* - 'Results>Maiko>1108-BYTE-AREFY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*CONSY-BENCHMARKS* - 'Results>Maiko>1108-BYTE-CONSY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*POLY-BENCHMARKS* - 'Results>Maiko>1108-BYTE-POLY.Results) -4d. If you are running on a Dorado, run the following: - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*TAK-TIMERS* - 'Results>Maiko>1132-BYTE-TAK.Results) - (GABRIEL::RUN-BENCHMARKS - IL:*ARITH-BENCHMARKS* - 'Results>Maiko>1132-BYTE-ARITH.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*AREFY-BENCHMARKS* - 'Results>Maiko>1132-BYTE-AREFY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*CONSY-BENCHMARKS* - 'Results>Maiko>1132-BYTE-CONSY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*POLY-BENCHMARKS* - -'Results>Maiko>1132-BYTE-POLY.Results) -5. SEE each of the .Results files listed above, average the run times (mentally is probably fine), and enter the results in the benchmark log. diff --git a/internal/gabriel/00-README.txt.~1~ b/internal/gabriel/00-README.txt.~1~ deleted file mode 100644 index 861fbc1f..00000000 --- a/internal/gabriel/00-README.txt.~1~ +++ /dev/null @@ -1,209 +0,0 @@ -Running the Benchmarks -All the files for doing benchmarks are contained on {Eris}Gabriel>. This file will tell you where to find the files you need, and how to run the various benchmarks. - -Overall directory layout: - Information {Eris}Gabriel>, files named .name, e.g. ª.read-me-firstº , this file. - Procedures {Eris}Gabriel>Admin> for overall procedure files, rather than specific test plans or scripts - Benchmarks {Eris}Gabriel>Benchmarks> for lisp source & compiled files containing specific benchmarks - Results {Eris}Gabriel>Results> for the results of benchmark runs. - Tools {Eris}Gabriel>Tools> for general-purpose files like gabriel-timers. - Auxiliary Files {Eris}Gabriel>Aux> for auxiliary files, e.g., the file of FLOATs that gets read in by the floating-point-read benchmark. - Interlisp B/Ms {Eris}Gabriel>Interlisp> for the old, Interlisp-only versions of the Gabriel benchmarks that were run before Common Lisp existed. -The directory in detail: -. -The Benchmarks you might want to run -. -Creating a Benchmark -1. Load {Eris}Gabriel>Tools>GABRIEL-TIMERS.LCOM, which defines all the functions you'll need. -2. Use the function GABRIEL::DEFINE-TIMER (documented below) to create each benchmark. You'll be assigning the benchmark a name, and you may want to define auxiliary functions for the benchmark (e.g. for cleanup) as well. -3. To try out your benchmarks, first compile all the TIMERS definitions and auxiliary functions (I use ^C in SEdit quite nicely), then say to an Exec: - GABRIEL::RUN-BENCHMARKS((>>your b/m names here<<)) - to try them out. -4. Save all the timers and functions on a file, MAKEFILE it, and compile it. After you load the compiled file, you'll be able to run the new benchmarks wherever you loaded it. - -(GABRIEL::DEFINE-TIMER - (name - [(:SETUP single-setup-form)] - [(:AFTER-EVERY single-cleanup-form)] - [(:AFTER single-cleanup-form)] ) - "optional documentation string" - forms-to-run-for-the-benchmark ) - -Defines a benchmark named name, which will run forms-to-run-for-the-benchmark for every iteration of the benchmark. If you specify the :SETUP clause, the single form single-setup-form you supply will be run once before the first iteration of the benchmark. If you specify :AFTER, that single cleanup form will be run after the last iteration of the benchmark has been run; the :AFTER-EVERY cleanup form will be run after each iteration (including the last one). -Running Benchmarks -1. Load {Eris}Gabriel>Tools>GABRIEL-TIMERS.LCOM, which defines all the functions you'll need. -2. Load the files that contain the benchmarks you want to run. Loading a file of benchmarks adds the names of those benchmarks to the list GABRIEL::*ALL-TIMERS*. -3. Use the function GABRIEL:RUN-BENCHMARKS, described below. - -(GABRIEL::RUN-BENCHMARKS - &OPTIONAL (BENCHMARKS GABRIEL::*ALL-TIMERS*) - (DRIBBLE-FILE (QUOTE {DSK}GABRIEL.BENCHMARKS)) - (NUMBER-OF-ITERATIONS GABRIEL::*MINIMUM-TESTS*)) - -Runs the benchmarks named in BENCHMARKS, defaulting to the list of all the benchmarks that you've loaded. The timing results are printed in the Exec window, and on the file DRIBBLE-FILE. Each test will be run NUMBER-OF-ITERATIONS times, defaulting to 2. -Running the Standard Benchmark Set -1. Load the files : - {Eris}Gabriel>Tools>GABRIEL-TIMERS.LCOM - {ERIS}Gabriel>Benchmarks>GABRIEL-OTHER.dfasl - {ERIS}Gabriel>Benchmarks>GABRIEL-TAK.dfasl - {ERIS}Gabriel>Benchmarks>ARITH-BENCHMARKS.dfasl - {ERIS}Gabriel>Benchmarks>IO-BENCHMARKS.LCOM -2a. If you are running on an 1186, run the following functions: - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*TAK-TIMERS* - '{Eris}Gabriel>Results>Maiko>1186-PAV-TAK.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*IO-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1186-IO.Results) - (GABRIEL::RUN-BENCHMARKS - IL:*ARITH-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1186-PAV-ARITH.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*AREFY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1186-PAV-AREFY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*CONSY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1186-PAV-CONSY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*POLY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1186-PAV-POLY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*MISC-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1186-PAV-MISC.Results) - -2b. If you are running on a Sun, run the following: - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*TAK-TIMERS* - '{Eris}Gabriel>Results>Maiko>SUN-PAV-TAK.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*MAIKO-IO-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>SUN-IO.Results) - (GABRIEL::RUN-BENCHMARKS - IL:*ARITH-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>SUN-PAV-ARITH.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*AREFY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>SUN-PAV-AREFY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*CONSY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>SUN-PAV-CONSY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*POLY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>SUN-PAV-POLY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*MISC-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>SUN-PAV-MISC.Results) -2c. If you are running on an 1108, run the following: - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*TAK-TIMERS* - '{Eris}Gabriel>Results>Maiko>1108-PAV-TAK.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*MAIKO-IO-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1108-IO.Results) - (GABRIEL::RUN-BENCHMARKS - IL:*ARITH-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1108-PAV-ARITH.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*AREFY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1108-PAV-AREFY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*CONSY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1108-PAV-CONSY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*POLY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1108-PAV-POLY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*MISC-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1108-PAV-MISC.Results) -2d. If you are running on a Dorado, run the following: - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*TAK-TIMERS* - '{Eris}Gabriel>Results>Maiko>1132-PAV-TAK.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*MAIKO-IO-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1132-IO.Results) - (GABRIEL::RUN-BENCHMARKS - IL:*ARITH-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1132-PAV-ARITH.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*AREFY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1132-PAV-AREFY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*CONSY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1132-PAV-CONSY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*POLY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1132-PAV-POLY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*MISC-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1132-PAV-MISC.Results) -3. Load the files: - {ERIS}Gabriel>Benchmarks>GABRIEL-OTHER.LCOM - {ERIS}Gabriel>Benchmarks>GABRIEL-TAK.LCOM - {ERIS}Gabriel>Benchmarks>ARITH-BENCHMARKS.LCOM -4a. If you are running on an 1186, run the following functions: - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*TAK-TIMERS* - '{Eris}Gabriel>Results>Maiko>1186-BYTE-TAK.Results) - (GABRIEL::RUN-BENCHMARKS - IL:*ARITH-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1186-BYTE-ARITH.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*AREFY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1186-BYTE-AREFY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*CONSY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1186-BYTE-CONSY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*POLY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1186-BYTE-POLY.Results) - -4b. If you are running on a Sun, run the following: - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*TAK-TIMERS* - '{Eris}Gabriel>Results>Maiko>SUN-BYTE-TAK.Results) - (GABRIEL::RUN-BENCHMARKS - IL:*ARITH-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>SUN-BYTE-ARITH.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*AREFY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>SUN-BYTE-AREFY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*CONSY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>SUN-BYTE-CONSY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*POLY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>SUN-BYTE-POLY.Results) -4c. If you are running on an 1108, run the following: - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*TAK-TIMERS* - '{Eris}Gabriel>Results>Maiko>1108-BYTE-TAK.Results) - (GABRIEL::RUN-BENCHMARKS - IL:*ARITH-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1108-BYTE-ARITH.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*AREFY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1108-BYTE-AREFY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*CONSY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1108-BYTE-CONSY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*POLY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1108-BYTE-POLY.Results) -4d. If you are running on a Dorado, run the following: - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*TAK-TIMERS* - '{Eris}Gabriel>Results>Maiko>1132-BYTE-TAK.Results) - (GABRIEL::RUN-BENCHMARKS - IL:*ARITH-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1132-BYTE-ARITH.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*AREFY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1132-BYTE-AREFY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*CONSY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1132-BYTE-CONSY.Results) - (GABRIEL::RUN-BENCHMARKS - GABRIEL::*POLY-BENCHMARKS* - '{Eris}Gabriel>Results>Maiko>1132-BYTE-POLY.Results) -5. SEE each of the .Results files listed above, average the run times (mentally is probably fine), and enter the results in the benchmark log. 222;T $T; $T>  $0<, , ,,MODERN MODERN MODERN MODERN MODERNMODERN MODERN  ° 3%spMU”œ % hß—7±  !  Zh£=      "   #497<8@rptzzxx4qusyyww6rvtzzxx7rvtzzxxJ6;@su{{y4rtzzx6su{{y7su{{yŽ'qùzº \ No newline at end of file diff --git a/internal/gabriel/Results/KOTO-DANDELION.BENCHMARKS b/internal/gabriel/Results/KOTO-DANDELION.BENCHMARKS deleted file mode 100644 index d822d692..00000000 --- a/internal/gabriel/Results/KOTO-DANDELION.BENCHMARKS +++ /dev/null @@ -1 +0,0 @@ - MACHINETYPE = DANDELION MAKESYSNAME = KOTO MAKESYSDATE = 19-Nov-85 10:39:55 DATE = 20-Nov-85 23:12:11 USERNAME = PEDERSEN ************ TAK BENCHMARK ************** Starting the TAK run: (TIMEALL (TAK 18 12 6)) Elapsed Time = 1.73 seconds SWAP time = .031 seconds CPU Time = 1.7 seconds PAGEFAULTS = 1 Value = 7 Repeating the TIMEALL Elapsed Time = 1.71 seconds CPU Time = 1.71 seconds Value = 7 TAK finished ************ STAK BENCHMARK ************** Starting the STAK run: (TIMEALL (STAK)) Elapsed Time = 4.75 seconds SWAP time = .046 seconds CPU Time = 4.71 seconds PAGEFAULTS = 1 Value = 7 Repeating the TIMEALL Elapsed Time = 4.72 seconds CPU Time = 4.72 seconds STAK finished ************ CTAK BENCHMARK ************** Starting the CTAK run: (TIMEALL (CTAK 18 12 6)) Elapsed Time = 59.8 seconds SWAP time = .047 seconds CPU Time = 59.7 seconds PAGEFAULTS = 1 Value = 7 Repeating the TIMEALL Elapsed Time = 59.8 seconds SWAP time = .031 seconds CPU Time = 59.7 seconds Value = 7 CTAK finished ************ TAKL BENCHMARK ************** Starting the TAKL run: (TIMEALL (TAKL 18L 12L 6L)) Elapsed Time = 14.2 seconds SWAP time = .035 seconds CPU Time = 14.2 seconds PAGEFAULTS = 3 Value = (7 6 5 4 3 2 1) Repeating the TIMEALL Elapsed Time = 14.2 seconds CPU Time = 14.2 seconds Value = (7 6 5 4 3 2 1) TAKL finished ************ TAKR BENCHMARK ************** Starting the TAKR run: (TIMEALL (TAK0 18 12 6)) Elapsed Time = 2.03 seconds SWAP time = .228 seconds CPU Time = 1.8 seconds PAGEFAULTS = 17 Value = 7 Repeating the TIMEALL Elapsed Time = 1.8 seconds CPU Time = 1.8 seconds Value = 7 TAKR finished ********* BOYER BENCHMARK *********** Initializing BOYER run: (TIMEALL (SETUP)) Elapsed Time = .735 seconds SWAP time = .69 seconds CPU Time = .045 seconds PAGEFAULTS = 23 starting BOYER run: (TIMEALL (TEST-BOYER)) Elapsed Time = 128.0 seconds SWAP time = 9.03 seconds GC time = 48.2 seconds CPU Time = 70.8 seconds PAGEFAULTS = 507 FIXP LISTP 7 226469 Repeating the TIMEALL Elapsed Time = 117.0 seconds GC time = 46.9 seconds CPU Time = 69.8 seconds PAGEFAULTS = 2 FIXP LISTP 7 226469 BOYER finished ********* BROWSE BENCHMARK *********** starting BROWSE run: (TIMEALL (BROWSE)) Elapsed Time = 421.0 seconds SWAP time = 5.15 seconds GC time = 179.0 seconds CPU Time = 237.0 seconds PAGEFAULTS = 168 LISTP 489970 Repeating the TIMEALL Elapsed Time = 430.0 seconds SWAP time = 2.27 seconds GC time = 183.0 seconds CPU Time = 245.0 seconds PAGEFAULTS = 90 LISTP 488945 BROWSE finished *********** THE DESTRUCTIVE BENCHMARK ************ Starting the DESTRUCTIVE run: (TIMEALL (DESTRUCTIVE 600 50)) Elapsed Time = 23.3 seconds GC time = 8.1 seconds CPU Time = 15.2 seconds LISTP 43105 Value = ((1 1 2) (1 1 1) (1 1 1 2) (1 1 1 1) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 3)) Repeating the TIMEALL Elapsed Time = 22.9 seconds GC time = 7.9 seconds CPU Time = 15.0 seconds LISTP 43105 Value = ((1 1 2) (1 1 1) (1 1 1 2) (1 1 1 1) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 3)) DESTRUCTIVE finished ************* THE TRAVERSE BENCHMAK ************ Starting the TRAVERSE initialization: (TIMEALL (INIT-TRAVERSE)) Elapsed Time = 99.9 seconds SWAP time = .089 seconds GC time = 1.78 seconds CPU Time = 98.0 seconds PAGEFAULTS = 8 LISTP NODE 36796 100 Starting the TRAVERSE run: (TIMEALL (RUN-TRAVERSE)) Elapsed Time = 162.0 seconds SWAP time = .085 seconds CPU Time = 161.0 seconds PAGEFAULTS = 2 Repeating the TIMEALL Elapsed Time = 161.0 seconds CPU Time = 161.0 seconds TRAVERSE finished ******* Derivative Benchmark ********** Starting the DERIV run: (TIMEALL (RUN-DERIV)) Elapsed Time = 85.6 seconds SWAP time = .075 seconds GC time = 53.7 seconds CPU Time = 31.9 seconds PAGEFAULTS = 2 LISTP 245000 Value = NIL Repeating the TIMEALL Elapsed Time = 87.4 seconds GC time = 54.7 seconds CPU Time = 32.8 seconds LISTP 245000 Value = NIL DERIV finished ******* Data-Driven Derivative Benchmark ********** Starting the DDERIV run: (TIMEALL (RUN-DDERIV)) Elapsed Time = 105.0 seconds SWAP time = .009 seconds GC time = 62.5 seconds CPU Time = 42.5 seconds PAGEFAULTS = 1 LISTP 260000 Value = NIL Repeating the TIMEALL Elapsed Time = 106.0 seconds GC time = 63.0 seconds CPU Time = 42.7 seconds LISTP 260000 Value = NIL DDERIV finished ******* DIVIDE BY TWO BENCHMARK ********** Starting the iterative DIV2 run: (TIMEALL (TEST1 L)) Elapsed Time = 41.1 seconds GC time = 26.6 seconds CPU Time = 14.4 seconds LISTP 120000 Repeating the TIMEALL Elapsed Time = 42.4 seconds GC time = 27.7 seconds CPU Time = 14.7 seconds LISTP 120000 Starting the recursive DIV2 run: (TIMEALL (TEST2 L)) Elapsed Time = 42.7 seconds GC time = 27.5 seconds CPU Time = 15.3 seconds LISTP 120000 Repeating the TIMEALL Elapsed Time = 43.5 seconds GC time = 27.7 seconds CPU Time = 15.7 seconds LISTP 120000 DIV2 finished *************** THE FFT BENCHMARK *********** Starting FFT run: (TIMEALL (FFT-BENCH)) Elapsed Time = 324.0 seconds SWAP time = 3.3 seconds GC time = 202.0 seconds CPU Time = 118.0 seconds PAGEFAULTS = 260 FLOATP 1004420 Repeating the TIMEALL Elapsed Time = 312.0 seconds SWAP time = .48 seconds GC time = 194.0 seconds CPU Time = 117.0 seconds PAGEFAULTS = 95 FLOATP 1004420 FFT finished *************** THE PUZZLE BENCHMARK *********** Starting PUZZLE run: (TIMEALL (START)) Success in 2005 trials. Elapsed Time = 62.2 seconds SWAP time = .123 seconds CPU Time = 62.1 seconds PAGEFAULTS = 6 Value = NIL Repeating the TIMEALL Success in 2005 trials. Elapsed Time = 62.1 seconds CPU Time = 62.1 seconds Value = NIL PUZZLE finished *************** THE TRIANGLE BENCHMARK *********** Starting TRIANG run: (TIMEALL (GOGOGO 22)) Elapsed Time = 1060.0 seconds SWAP time = .123 seconds GC time = .578 seconds CPU Time = 1060.0 seconds PAGEFAULTS = 13 LISTP 11626 Value = NIL Repeating the TIMEALL Elapsed Time = 1060.0 seconds GC time = .6 seconds CPU Time = 1060.0 seconds LISTP 11626 Value = NIL TRIANG finished ******************************************************************* DSK file I/O benchmarks: FPRINT and FREAD Terminal printing (to window): TPRINT ******************************************************************* Starting FPRINT: (TIMEALL (FPRINT)) Elapsed Time = 12.2 seconds SWAP time = .435 seconds GC time = .494 seconds CPU Time = 11.3 seconds PAGEFAULTS = 8 FIXP LISTP STRINGP VMEMPAGEP STREAM ETHERPACKET PageGroup FileDescriptor 127 698 45 2 1 3 49 1 \BTREEBUF 1 Repeating the TIMEALL Elapsed Time = 11.4 seconds SWAP time = .263 seconds GC time = .498 seconds CPU Time = 10.6 seconds PAGEFAULTS = 6 SWAPWRITES = 1 FIXP LISTP STRINGP VMEMPAGEP STREAM ETHERPACKET PageGroup FileDescriptor 118 657 45 1 1 3 48 1 FPRINT finished Starting the FREAD run: (TIMEALL (FREAD)) Elapsed Time = 6.18 seconds SWAP time = .19 seconds GC time = .293 seconds CPU Time = 5.69 seconds PAGEFAULTS = 2 FIXP LISTP STRINGP VMEMPAGEP STREAM PageGroup FileDescriptor 33 2514 23 1 1 37 1 Repeating the TIMEALL Elapsed Time = 5.62 seconds CPU Time = 5.62 seconds FIXP LISTP STRINGP VMEMPAGEP STREAM PageGroup FileDescriptor 33 2514 23 1 1 37 1 FREAD finished Starting the TPRINT run: (TPRINT) Elapsed Time = 28.8 seconds CPU Time = 28.8 seconds Repeating the TIMEALL Elapsed Time = 28.8 seconds CPU Time = 28.8 seconds TPRINT finished *************** THE POLYNOMIAL BENCHMARK *********** Starting POLY 2 run: (TIMEALL (BENCH 2)) Elapsed Time = .768 seconds SWAP time = .384 seconds CPU Time = .384 seconds PAGEFAULTS = 14 FIXP FLOATP LISTP BIGNUM 86 32 726 73 Value = (Z 2 1.0 1 (Y 1 2.0 0 (X 1 2.0 0 2.0)) 0 (Y 2 1.0 1 (X 1 2.0 0 2.0) 0 (X 2 1.0 1 2.0 0 1.0))) Repeating the TIMEALL Elapsed Time = .382 seconds CPU Time = .382 seconds FIXP FLOATP LISTP BIGNUM 86 32 726 73 Value = (Z 2 1.0 1 (Y 1 2.0 0 (X 1 2.0 0 2.0)) 0 (Y 2 1.0 1 (X 1 2.0 0 2.0) 0 (X 2 1.0 1 2.0 0 1.0))) Starting POLY 5 run: (TIMEALL (BENCH 5)) Elapsed Time = 14.1 seconds SWAP time = .15 seconds GC time = 4.2 seconds CPU Time = 9.8 seconds PAGEFAULTS = 4 FIXP FLOATP LISTP BIGNUM 1842 411 12782 1153 Value = (Z 5 1.0 4 (Y 1 5.0 0 (X 1 5.0 0 5.0)) 3 (Y 2 10.0 1 (X 1 20.0 0 20.0) 0 (X 2 10.0 1 20.0 0 10.0)) 2 (Y 3 10.0 2 (X 1 30.0 0 30.0) 1 (X 2 30.0 1 60.0 0 30.0) 0 (X 3 10.0 2 30.0 1 30.0 0 10.0)) 1 (Y 4 5.0 3 (X 1 20.0 0 20.0) 2 (X 2 30.0 1 60.0 0 30.0) 1 (X 3 20.0 2 60.0 1 60.0 0 20.0) 0 (X 4 5.0 3 20.0 2 30.0 1 20.0 0 5.0)) 0 (Y 5 1.0 4 (X 1 5.0 0 5.0) 3 (X 2 10.0 1 20.0 0 10.0) 2 (X 3 10.0 2 30.0 1 30.0 0 10.0) 1 (X 4 5.0 3 20.0 2 30.0 1 20.0 0 5.0) 0 (X 5 1.0 4 5.0 3 10.0 2 10.0 1 5.0 0 1.0))) Repeating the TIMEALL Elapsed Time = 14.3 seconds SWAP time = .121 seconds GC time = 4.44 seconds CPU Time = 9.75 seconds PAGEFAULTS = 3 FIXP FLOATP LISTP BIGNUM 1842 411 12782 1153 Value = (Z 5 1.0 4 (Y 1 5.0 0 (X 1 5.0 0 5.0)) 3 (Y 2 10.0 1 (X 1 20.0 0 20.0) 0 (X 2 10.0 1 20.0 0 10.0)) 2 (Y 3 10.0 2 (X 1 30.0 0 30.0) 1 (X 2 30.0 1 60.0 0 30.0) 0 (X 3 10.0 2 30.0 1 30.0 0 10.0)) 1 (Y 4 5.0 3 (X 1 20.0 0 20.0) 2 (X 2 30.0 1 60.0 0 30.0) 1 (X 3 20.0 2 60.0 1 60.0 0 20.0) 0 (X 4 5.0 3 20.0 2 30.0 1 20.0 0 5.0)) 0 (Y 5 1.0 4 (X 1 5.0 0 5.0) 3 (X 2 10.0 1 20.0 0 10.0) 2 (X 3 10.0 2 30.0 1 30.0 0 10.0) 1 (X 4 5.0 3 20.0 2 30.0 1 20.0 0 5.0) 0 (X 5 1.0 4 5.0 3 10.0 2 10.0 1 5.0 0 1.0))) Starting POLY 10 run: (TIMEALL (BENCH 10)) Elapsed Time = 419.0 seconds SWAP time = .1 seconds GC time = 132.0 seconds CPU Time = 287.0 seconds PAGEFAULTS = 52 FIXP FLOATP LISTP BIGNUM 54142 5496 334320 16330 Value = (Z 10 1.0 9 (Y 1 10.0 0 (X 1 10.0 0 10.0)) 8 (Y 2 45.0 1 (X 1 90.0 0 90.0) 0 (X 2 45.0 1 90.0 0 45.0)) 7 (Y 3 120.0 2 (X 1 360.0 0 360.0) 1 (X 2 360.0 1 720.0 0 360.0) 0 (X 3 120.0 2 360.0 1 360.0 0 120.0)) 6 (Y 4 210.0 3 ( X 1 840.0 0 840.0) 2 (X 2 1260.0 1 2520.0 0 1260.0) 1 (X 3 840.0 2 2520.0 1 2520.0 0 840.0) 0 (X 4 210.0 3 840.0 2 1260.0 1 840.0 0 210.0)) 5 (Y 5 252.0 4 (X 1 1260.0 0 1260.0) 3 (X 2 2520.0 1 5040.0 0 2520.0) 2 (X 3 2520.0 2 7560.0 1 7560.0 0 2520.0) 1 (X 4 1260.0 3 5040.0 2 7560.0 1 5040.0 0 1260.0) 0 (X 5 252.0 4 1260.0 3 2520.0 2 2520.0 1 1260.0 0 252.0)) 4 (Y 6 210.0 5 (X 1 1260.0 0 1260.0) 4 (X 2 3150.0 1 6300.0 0 3150.0) 3 (X 3 4200.0 2 12600.0 1 12600.0 0 4200.0) 2 (X 4 3150.0 3 12600.0 2 18900.0 1 12600.0 0 3150.0) 1 (X 5 1260.0 4 6300.0 3 12600.0 2 12600.0 1 6300.0 0 1260.0) 0 (X 6 210.0 5 1260.0 4 3150.0 3 4200.0 2 3150.0 1 1260.0 0 210.0)) 3 (Y 7 120.0 6 (X 1 840.0 0 840.0) 5 (X 2 2520.0 1 5040.0 0 2520.0) 4 (X 3 4200.0 2 12600.0 1 12600.0 0 4200.0) 3 (X 4 4200.0 3 16800.0 2 25200.0 1 16800.0 0 4200.0) 2 (X 5 2520.0 4 12600.0 3 25200.0 2 25200.0 1 12600.0 0 2520.0) 1 (X 6 840.0 5 5040.0 4 12600.0 3 16800.0 2 12600.0 1 5040.0 0 840.0) 0 (X 7 120.0 6 840.0 5 2520.0 4 4200.0 3 4200.0 2 2520.0 1 840.0 0 120.0)) 2 (Y 8 45.0 7 (X 1 360.0 0 360.0) 6 (X 2 1260.0 1 2520.0 0 1260.0) 5 (X 3 2520.0 2 7560.0 1 7560.0 0 2520.0) 4 (X 4 3150.0 3 12600.0 2 18900.0 1 12600.0 0 3150.0) 3 (X 5 2520.0 4 12600.0 3 25200.0 2 25200.0 1 12600.0 0 2520.0) 2 (X 6 1260.0 5 7560.0 4 18900.0 3 25200.0 2 18900.0 1 7560.0 0 1260.0) 1 (X 7 360.0 6 2520.0 5 7560.0 4 12600.0 3 12600.0 2 7560.0 1 2520.0 0 360.0) 0 (X 8 45.0 7 360.0 6 1260.0 5 2520.0 4 3150.0 3 2520.0 2 1260.0 1 360.0 0 45.0)) 1 (Y 9 10.0 8 (X 1 90.0 0 90.0) 7 (X 2 360.0 1 720.0 0 360.0) 6 (X 3 840.0 2 2520.0 1 2520.0 0 840.0) 5 (X 4 1260.0 3 5040.0 2 7560.0 1 5040.0 0 1260.0) 4 (X 5 1260.0 4 6300.0 3 12600.0 2 12600.0 1 6300.0 0 1260.0) 3 (X 6 840.0 5 5040.0 4 12600.0 3 16800.0 2 12600.0 1 5040.0 0 840.0) 2 (X 7 360.0 6 2520.0 5 7560.0 4 12600.0 3 12600.0 2 7560.0 1 2520.0 0 360.0) 1 (X 8 90.0 7 720.0 6 2520.0 5 5040.0 4 6300.0 3 5040.0 2 2520.0 1 720.0 0 90.0) 0 (X 9 10.0 8 90.0 7 360.0 6 840.0 5 1260.0 4 1260.0 3 840.0 2 360.0 1 90.0 0 10.0)) 0 (Y 10 1.0 9 (X 1 10.0 0 10.0) 8 (X 2 45.0 1 90.0 0 45.0) 7 (X 3 120.0 2 360.0 1 360.0 0 120.0) 6 (X 4 210.0 3 840.0 2 1260.0 1 840.0 0 210.0) 5 (X 5 252.0 4 1260.0 3 2520.0 2 2520.0 1 1260.0 0 252.0) 4 (X 6 210.0 5 1260.0 4 3150.0 3 4200.0 2 3150.0 1 1260.0 0 210.0) 3 (X 7 120.0 6 840.0 5 2520.0 4 4200.0 3 4200.0 2 2520.0 1 840.0 0 120.0) 2 (X 8 45.0 7 360.0 6 1260.0 5 2520.0 4 3150.0 3 2520.0 2 1260.0 1 360.0 0 45.0) 1 (X 9 10.0 8 90.0 7 360.0 6 840.0 5 1260.0 4 1260.0 3 840.0 2 360.0 1 90.0 0 10.0 ) 0 (X 10 1.0 9 10.0 8 45.0 7 120.0 6 210.0 5 252.0 4 210.0 3 120.0 2 45.0 1 10.0 0 1.0))) Repeating the TIMEALL Elapsed Time = 421.0 seconds GC time = 133.0 seconds CPU Time = 288.0 seconds PAGEFAULTS = 8 FIXP FLOATP LISTP BIGNUM 54142 5496 334320 16330 Value = (Z 10 1.0 9 (Y 1 10.0 0 (X 1 10.0 0 10.0)) 8 (Y 2 45.0 1 (X 1 90.0 0 90.0) 0 (X 2 45.0 1 90.0 0 45.0)) 7 (Y 3 120.0 2 (X 1 360.0 0 360.0) 1 (X 2 360.0 1 720.0 0 360.0) 0 (X 3 120.0 2 360.0 1 360.0 0 120.0)) 6 (Y 4 210.0 3 ( X 1 840.0 0 840.0) 2 (X 2 1260.0 1 2520.0 0 1260.0) 1 (X 3 840.0 2 2520.0 1 2520.0 0 840.0) 0 (X 4 210.0 3 840.0 2 1260.0 1 840.0 0 210.0)) 5 (Y 5 252.0 4 (X 1 1260.0 0 1260.0) 3 (X 2 2520.0 1 5040.0 0 2520.0) 2 (X 3 2520.0 2 7560.0 1 7560.0 0 2520.0) 1 (X 4 1260.0 3 5040.0 2 7560.0 1 5040.0 0 1260.0) 0 (X 5 252.0 4 1260.0 3 2520.0 2 2520.0 1 1260.0 0 252.0)) 4 (Y 6 210.0 5 (X 1 1260.0 0 1260.0) 4 (X 2 3150.0 1 6300.0 0 3150.0) 3 (X 3 4200.0 2 12600.0 1 12600.0 0 4200.0) 2 (X 4 3150.0 3 12600.0 2 18900.0 1 12600.0 0 3150.0) 1 (X 5 1260.0 4 6300.0 3 12600.0 2 12600.0 1 6300.0 0 1260.0) 0 (X 6 210.0 5 1260.0 4 3150.0 3 4200.0 2 3150.0 1 1260.0 0 210.0)) 3 (Y 7 120.0 6 (X 1 840.0 0 840.0) 5 (X 2 2520.0 1 5040.0 0 2520.0) 4 (X 3 4200.0 2 12600.0 1 12600.0 0 4200.0) 3 (X 4 4200.0 3 16800.0 2 25200.0 1 16800.0 0 4200.0) 2 (X 5 2520.0 4 12600.0 3 25200.0 2 25200.0 1 12600.0 0 2520.0) 1 (X 6 840.0 5 5040.0 4 12600.0 3 16800.0 2 12600.0 1 5040.0 0 840.0) 0 (X 7 120.0 6 840.0 5 2520.0 4 4200.0 3 4200.0 2 2520.0 1 840.0 0 120.0)) 2 (Y 8 45.0 7 (X 1 360.0 0 360.0) 6 (X 2 1260.0 1 2520.0 0 1260.0) 5 (X 3 2520.0 2 7560.0 1 7560.0 0 2520.0) 4 (X 4 3150.0 3 12600.0 2 18900.0 1 12600.0 0 3150.0) 3 (X 5 2520.0 4 12600.0 3 25200.0 2 25200.0 1 12600.0 0 2520.0) 2 (X 6 1260.0 5 7560.0 4 18900.0 3 25200.0 2 18900.0 1 7560.0 0 1260.0) 1 (X 7 360.0 6 2520.0 5 7560.0 4 12600.0 3 12600.0 2 7560.0 1 2520.0 0 360.0) 0 (X 8 45.0 7 360.0 6 1260.0 5 2520.0 4 3150.0 3 2520.0 2 1260.0 1 360.0 0 45.0)) 1 (Y 9 10.0 8 (X 1 90.0 0 90.0) 7 (X 2 360.0 1 720.0 0 360.0) 6 (X 3 840.0 2 2520.0 1 2520.0 0 840.0) 5 (X 4 1260.0 3 5040.0 2 7560.0 1 5040.0 0 1260.0) 4 (X 5 1260.0 4 6300.0 3 12600.0 2 12600.0 1 6300.0 0 1260.0) 3 (X 6 840.0 5 5040.0 4 12600.0 3 16800.0 2 12600.0 1 5040.0 0 840.0) 2 (X 7 360.0 6 2520.0 5 7560.0 4 12600.0 3 12600.0 2 7560.0 1 2520.0 0 360.0) 1 (X 8 90.0 7 720.0 6 2520.0 5 5040.0 4 6300.0 3 5040.0 2 2520.0 1 720.0 0 90.0) 0 (X 9 10.0 8 90.0 7 360.0 6 840.0 5 1260.0 4 1260.0 3 840.0 2 360.0 1 90.0 0 10.0)) 0 (Y 10 1.0 9 (X 1 10.0 0 10.0) 8 (X 2 45.0 1 90.0 0 45.0) 7 (X 3 120.0 2 360.0 1 360.0 0 120.0) 6 (X 4 210.0 3 840.0 2 1260.0 1 840.0 0 210.0) 5 (X 5 252.0 4 1260.0 3 2520.0 2 2520.0 1 1260.0 0 252.0) 4 (X 6 210.0 5 1260.0 4 3150.0 3 4200.0 2 3150.0 1 1260.0 0 210.0) 3 (X 7 120.0 6 840.0 5 2520.0 4 4200.0 3 4200.0 2 2520.0 1 840.0 0 120.0) 2 (X 8 45.0 7 360.0 6 1260.0 5 2520.0 4 3150.0 3 2520.0 2 1260.0 1 360.0 0 45.0) 1 (X 9 10.0 8 90.0 7 360.0 6 840.0 5 1260.0 4 1260.0 3 840.0 2 360.0 1 90.0 0 10.0 ) 0 (X 10 1.0 9 10.0 8 45.0 7 120.0 6 210.0 5 252.0 4 210.0 3 120.0 2 45.0 1 10.0 0 1.0))) Starting POLY 15 run: (TIMEALL (BENCH 15)) Elapsed Time = 7600.0 seconds SWAP time = .127 seconds GC time = 2420.0 seconds CPU Time = 5190.0 seconds PAGEFAULTS = 174 FIXP FLOATP LISTP BIGNUM 1041160 42596 5707723 118947 Value = (Z 15 1.0 14 (Y 1 15.0 0 (X 1 15.0 0 15.0)) 13 (Y 2 105.0 1 (X 1 210.0 0 210.0) 0 (X 2 105.0 1 210.0 0 105.0)) 12 (Y 3 455.0 2 (X 1 1365.0 0 1365.0) 1 (X 2 1365.0 1 2730.0 0 1365.0) 0 (X 3 455.0 2 1365.0 1 1365.0 0 455.0)) 11 (Y 4 1365.0 3 (X 1 5460.0 0 5460.0) 2 (X 2 8190.0 1 16380.0 0 8190.0) 1 (X 3 5460.0 2 16380.0 1 16380.0 0 5460.0) 0 (X 4 1365.0 3 5460.0 2 8190.0 1 5460.0 0 1365.0)) 10 (Y 5 3003.0 4 (X 1 15015.0 0 15015.0) 3 (X 2 30030.0 1 60060.0 0 30030.0) 2 (X 3 30030.0 2 90090.0 1 90090.0 0 30030.0) 1 (X 4 15015.0 3 60060.0 2 90090.0 1 60060.0 0 15015.0) 0 (X 5 3003.0 4 15015.0 3 30030.0 2 30030.0 1 15015.0 0 3003.0)) 9 (Y 6 5005.0 5 (X 1 30030.0 0 30030.0) 4 (X 2 75075.0 1 150150.0 0 75075.0) 3 (X 3 100100.0 2 300300.0 1 300300.0 0 100100.0 ) 2 (X 4 75075.0 3 300300.0 2 450450.0 1 300300.0 0 75075.0) 1 (X 5 30030.0 4 150150.0 3 300300.0 2 300300.0 1 150150.0 0 30030.0) 0 (X 6 5005.0 5 30030.0 4 75075.0 3 100100.0 2 75075.0 1 30030.0 0 5005.0)) 8 (Y 7 6435.0 6 (X 1 45045.0 0 45045.0) 5 (X 2 135135.0 1 270270.0 0 135135.0) 4 (X 3 225225.0 2 675675.0 1 675675.0 0 225225.0) 3 (X 4 225225.0 3 900900.0 2 1351350.0 1 900900.0 0 225225.0) 2 (X 5 135135.0 4 675675.0 3 1351350.0 2 1351350.0 1 675675.0 0 135135.0) 1 (X 6 45045.0 5 270270.0 4 675675.0 3 900900.0 2 675675.0 1 270270.0 0 45045.0) 0 (X 7 6435.0 6 45045.0 5 135135.0 4 225225.0 3 225225.0 2 135135.0 1 45045.0 0 6435.0)) 7 (Y 8 6435.0 7 (X 1 51480.0 0 51480.0) 6 (X 2 180180.0 1 360360.0 0 180180.0) 5 (X 3 360360.0 2 1081080.0 1 1081080.0 0 360360.0) 4 (X 4 450450.0 3 1801800.0 2 2702700.0 1 1801800.0 0 450450.0) 3 (X 5 360360.0 4 1801800.0 3 3603600.0 2 3603600.0 1 1801800.0 0 360360.0) 2 (X 6 180180.0 5 1081080.0 4 2702700.0 3 3603600.0 2 2702700.0 1 1081080.0 0 180180.0) 1 (X 7 51480.0 6 360360.0 5 1081080.0 4 1801800.0 3 1801800.0 2 1081080.0 1 360360.0 0 51480.0) 0 (X 8 6435.0 7 51480.0 6 180180.0 5 360360.0 4 450450.0 3 360360.0 2 180180.0 1 51480.0 0 6435.0)) 6 (Y 9 5005.0 8 (X 1 45045.0 0 45045.0) 7 (X 2 180180.0 1 360360.0 0 180180.0) 6 (X 3 420420.0 2 1261260.0 1 1261260.0 0 420420.0) 5 (X 4 630630.0 3 2522520.0 2 3783780.0 1 2522520.0 0 630630.0) 4 (X 5 630630.0 4 3153150.0 3 6306300.0 2 6306300.0 1 3153150.0 0 630630.0) 3 (X 6 420420.0 5 2522520.0 4 6306300.0 3 8408400.0 2 6306300.0 1 2522520.0 0 420420.0) 2 (X 7 180180.0 6 1261260.0 5 3783780.0 4 6306300.0 3 6306300.0 2 3783780.0 1 1261260.0 0 180180.0) 1 (X 8 45045.0 7 360360.0 6 1261260.0 5 2522520.0 4 3153150.0 3 2522520.0 2 1261260.0 1 360360.0 0 45045.0) 0 (X 9 5005.0 8 45045.0 7 180180.0 6 420420.0 5 630630.0 4 630630.0 3 420420.0 2 180180.0 1 45045.0 0 5005.0)) 5 (Y 10 3003.0 9 (X 1 30030.0 0 30030.0) 8 (X 2 135135.0 1 270270.0 0 135135.0) 7 (X 3 360360.0 2 1081080.0 1 1081080.0 0 360360.0) 6 (X 4 630630.0 3 2522520.0 2 3783780.0 1 2522520.0 0 630630.0) 5 (X 5 756756.0 4 3783780.0 3 7567560.0 2 7567560.0 1 3783780.0 0 756756.0) 4 (X 6 630630.0 5 3783780.0 4 9459450.0 3 12612600.0 2 9459450.0 1 3783780.0 0 630630.0) 3 (X 7 360360.0 6 2522520.0 5 7567560.0 4 12612600.0 3 12612600.0 2 7567560.0 1 2522520.0 0 360360.0) 2 (X 8 135135.0 7 1081080.0 6 3783780.0 5 7567560.0 4 9459450.0 3 7567560.0 2 3783780.0 1 1081080.0 0 135135.0) 1 (X 9 30030.0 8 270270.0 7 1081080.0 6 2522520.0 5 3783780.0 4 3783780.0 3 2522520.0 2 1081080.0 1 270270.0 0 30030.0 ) 0 (X 10 3003.0 9 30030.0 8 135135.0 7 360360.0 6 630630.0 5 756756.0 4 630630.0 3 360360.0 2 135135.0 1 30030.0 0 3003.0)) 4 (Y 11 1365.0 10 (X 1 15015.0 0 15015.0) 9 (X 2 75075.0 1 150150.0 0 75075.0) 8 (X 3 225225.0 2 675675.0 1 675675.0 0 225225.0) 7 (X 4 450450.0 3 1801800.0 2 2702700.0 1 1801800.0 0 450450.0) 6 (X 5 630630.0 4 3153150.0 3 6306300.0 2 6306300.0 1 3153150.0 0 630630.0) 5 (X 6 630630.0 5 3783780.0 4 9459450.0 3 12612600.0 2 9459450.0 1 3783780.0 0 630630.0) 4 (X 7 450450.0 6 3153150.0 5 9459450.0 4 15765750.0 3 15765750.0 2 9459450.0 1 3153150.0 0 450450.0) 3 (X 8 225225.0 7 1801800.0 6 6306300.0 5 12612600.0 4 15765750.0 3 12612600.0 2 6306300.0 1 1801800.0 0 225225.0) 2 (X 9 75075.0 8 675675.0 7 2702700.0 6 6306300.0 5 9459450.0 4 9459450.0 3 6306300.0 2 2702700.0 1 675675.0 0 75075.0) 1 (X 10 15015.0 9 150150.0 8 675675.0 7 1801800.0 6 3153150.0 5 3783780.0 4 3153150.0 3 1801800.0 2 675675.0 1 150150.0 0 15015.0) 0 (X 11 1365.0 10 15015.0 9 75075.0 8 225225.0 7 450450.0 6 630630.0 5 630630.0 4 450450.0 3 225225.0 2 75075.0 1 15015.0 0 1365.0)) 3 (Y 12 455.0 11 (X 1 5460.0 0 5460.0) 10 (X 2 30030.0 1 60060.0 0 30030.0) 9 (X 3 100100.0 2 300300.0 1 300300.0 0 100100.0) 8 (X 4 225225.0 3 900900.0 2 1351350.0 1 900900.0 0 225225.0) 7 (X 5 360360.0 4 1801800.0 3 3603600.0 2 3603600.0 1 1801800.0 0 360360.0) 6 (X 6 420420.0 5 2522520.0 4 6306300.0 3 8408400.0 2 6306300.0 1 2522520.0 0 420420.0) 5 (X 7 360360.0 6 2522520.0 5 7567560.0 4 12612600.0 3 12612600.0 2 7567560.0 1 2522520.0 0 360360.0) 4 (X 8 225225.0 7 1801800.0 6 6306300.0 5 12612600.0 4 15765750.0 3 12612600.0 2 6306300.0 1 1801800.0 0 225225.0) 3 (X 9 100100.0 8 900900.0 7 3603600.0 6 8408400.0 5 12612600.0 4 12612600.0 3 8408400.0 2 3603600.0 1 900900.0 0 100100.0) 2 (X 10 30030.0 9 300300.0 8 1351350.0 7 3603600.0 6 6306300.0 5 7567560.0 4 6306300.0 3 3603600.0 2 1351350.0 1 300300.0 0 30030.0) 1 (X 11 5460.0 10 60060.0 9 300300.0 8 900900.0 7 1801800.0 6 2522520.0 5 2522520.0 4 1801800.0 3 900900.0 2 300300.0 1 60060.0 0 5460.0) 0 (X 12 455.0 11 5460.0 10 30030.0 9 100100.0 8 225225.0 7 360360.0 6 420420.0 5 360360.0 4 225225.0 3 100100.0 2 30030.0 1 5460.0 0 455.0)) 2 (Y 13 105.0 12 (X 1 1365.0 0 1365.0) 11 (X 2 8190.0 1 16380.0 0 8190.0) 10 (X 3 30030.0 2 90090.0 1 90090.0 0 30030.0) 9 (X 4 75075.0 3 300300.0 2 450450.0 1 300300.0 0 75075.0) 8 (X 5 135135.0 4 675675.0 3 1351350.0 2 1351350.0 1 675675.0 0 135135.0) 7 (X 6 180180.0 5 1081080.0 4 2702700.0 3 3603600.0 2 2702700.0 1 1081080.0 0 180180.0) 6 (X 7 180180.0 6 1261260.0 5 3783780.0 4 6306300.0 3 6306300.0 2 3783780.0 1 1261260.0 0 180180.0) 5 (X 8 135135.0 7 1081080.0 6 3783780.0 5 7567560.0 4 9459450.0 3 7567560.0 2 3783780.0 1 1081080.0 0 135135.0) 4 (X 9 75075.0 8 675675.0 7 2702700.0 6 6306300.0 5 9459450.0 4 9459450.0 3 6306300.0 2 2702700.0 1 675675.0 0 75075.0) 3 (X 10 30030.0 9 300300.0 8 1351350.0 7 3603600.0 6 6306300.0 5 7567560.0 4 6306300.0 3 3603600.0 2 1351350.0 1 300300.0 0 30030.0) 2 (X 11 8190.0 10 90090.0 9 450450.0 8 1351350.0 7 2702700.0 6 3783780.0 5 3783780.0 4 2702700.0 3 1351350.0 2 450450.0 1 90090.0 0 8190.0) 1 (X 12 1365.0 11 16380.0 10 90090.0 9 300300.0 8 675675.0 7 1081080.0 6 1261260.0 5 1081080.0 4 675675.0 3 300300.0 2 90090.0 1 16380.0 0 1365.0) 0 (X 13 105.0 12 1365.0 11 8190.0 10 30030.0 9 75075.0 8 135135.0 7 180180.0 6 180180.0 5 135135.0 4 75075.0 3 30030.0 2 8190.0 1 1365.0 0 105.0)) 1 (Y 14 15.0 13 (X 1 210.0 0 210.0) 12 (X 2 1365.0 1 2730.0 0 1365.0) 11 (X 3 5460.0 2 16380.0 1 16380.0 0 5460.0) 10 (X 4 15015.0 3 60060.0 2 90090.0 1 60060.0 0 15015.0) 9 (X 5 30030.0 4 150150.0 3 300300.0 2 300300.0 1 150150.0 0 30030.0) 8 (X 6 45045.0 5 270270.0 4 675675.0 3 900900.0 2 675675.0 1 270270.0 0 45045.0) 7 (X 7 51480.0 6 360360.0 5 1081080.0 4 1801800.0 3 1801800.0 2 1081080.0 1 360360.0 0 51480.0) 6 (X 8 45045.0 7 360360.0 6 1261260.0 5 2522520.0 4 3153150.0 3 2522520.0 2 1261260.0 1 360360.0 0 45045.0) 5 (X 9 30030.0 8 270270.0 7 1081080.0 6 2522520.0 5 3783780.0 4 3783780.0 3 2522520.0 2 1081080.0 1 270270.0 0 30030.0) 4 (X 10 15015.0 9 150150.0 8 675675.0 7 1801800.0 6 3153150.0 5 3783780.0 4 3153150.0 3 1801800.0 2 675675.0 1 150150.0 0 15015.0) 3 (X 11 5460.0 10 60060.0 9 300300.0 8 900900.0 7 1801800.0 6 2522520.0 5 2522520.0 4 1801800.0 3 900900.0 2 300300.0 1 60060.0 0 5460.0) 2 (X 12 1365.0 11 16380.0 10 90090.0 9 300300.0 8 675675.0 7 1081080.0 6 1261260.0 5 1081080.0 4 675675.0 3 300300.0 2 90090.0 1 16380.0 0 1365.0) 1 (X 13 210.0 12 2730.0 11 16380.0 10 60060.0 9 150150.0 8 270270.0 7 360360.0 6 360360.0 5 270270.0 4 150150.0 3 60060.0 2 16380.0 1 2730.0 0 210.0) 0 (X 14 15.0 13 210.0 12 1365.0 11 5460.0 10 15015.0 9 30030.0 8 45045.0 7 51480.0 6 45045.0 5 30030.0 4 15015.0 3 5460.0 2 1365.0 1 210.0 0 15.0)) 0 (Y 15 1.0 14 (X 1 15.0 0 15.0) 13 (X 2 105.0 1 210.0 0 105.0) 12 (X 3 455.0 2 1365.0 1 1365.0 0 455.0) 11 (X 4 1365.0 3 5460.0 2 8190.0 1 5460.0 0 1365.0) 10 (X 5 3003.0 4 15015.0 3 30030.0 2 30030.0 1 15015.0 0 3003.0) 9 (X 6 5005.0 5 30030.0 4 75075.0 3 100100.0 2 75075.0 1 30030.0 0 5005.0) 8 (X 7 6435.0 6 45045.0 5 135135.0 4 225225.0 3 225225.0 2 135135.0 1 45045.0 0 6435.0) 7 (X 8 6435.0 7 51480.0 6 180180.0 5 360360.0 4 450450.0 3 360360.0 2 180180.0 1 51480.0 0 6435.0) 6 (X 9 5005.0 8 45045.0 7 180180.0 6 420420.0 5 630630.0 4 630630.0 3 420420.0 2 180180.0 1 45045.0 0 5005.0) 5 (X 10 3003.0 9 30030.0 8 135135.0 7 360360.0 6 630630.0 5 756756.0 4 630630.0 3 360360.0 2 135135.0 1 30030.0 0 3003.0) 4 (X 11 1365.0 10 15015.0 9 75075.0 8 225225.0 7 450450.0 6 630630.0 5 630630.0 4 450450.0 3 225225.0 2 75075.0 1 15015.0 0 1365.0) 3 (X 12 455.0 11 5460.0 10 30030.0 9 100100.0 8 225225.0 7 360360.0 6 420420.0 5 360360.0 4 225225.0 3 100100.0 2 30030.0 1 5460.0 0 455.0) 2 (X 13 105.0 12 1365.0 11 8190.0 10 30030.0 9 75075.0 8 135135.0 7 180180.0 6 180180.0 5 135135.0 4 75075.0 3 30030.0 2 8190.0 1 1365.0 0 105.0) 1 (X 14 15.0 13 210.0 12 1365.0 11 5460.0 10 15015.0 9 30030.0 8 45045.0 7 51480.0 6 45045.0 5 30030.0 4 15015.0 3 5460.0 2 1365.0 1 210.0 0 15.0) 0 (X 15 1.0 14 15.0 13 105.0 12 455.0 11 1365.0 10 3003.0 9 5005.0 8 6435.0 7 6435.0 6 5005.0 5 3003.0 4 1365.0 3 455.0 2 105.0 1 15.0 0 1.0))) Repeating the TIMEALL Elapsed Time = 7650.0 seconds GC time = 2440.0 seconds CPU Time = 5210.0 seconds PAGEFAULTS = 33 FIXP FLOATP LISTP BIGNUM 1041160 42596 5707723 118947 Value = (Z 15 1.0 14 (Y 1 15.0 0 (X 1 15.0 0 15.0)) 13 (Y 2 105.0 1 (X 1 210.0 0 210.0) 0 (X 2 105.0 1 210.0 0 105.0)) 12 (Y 3 455.0 2 (X 1 1365.0 0 1365.0) 1 (X 2 1365.0 1 2730.0 0 1365.0) 0 (X 3 455.0 2 1365.0 1 1365.0 0 455.0)) 11 (Y 4 1365.0 3 (X 1 5460.0 0 5460.0) 2 (X 2 8190.0 1 16380.0 0 8190.0) 1 (X 3 5460.0 2 16380.0 1 16380.0 0 5460.0) 0 (X 4 1365.0 3 5460.0 2 8190.0 1 5460.0 0 1365.0)) 10 (Y 5 3003.0 4 (X 1 15015.0 0 15015.0) 3 (X 2 30030.0 1 60060.0 0 30030.0) 2 (X 3 30030.0 2 90090.0 1 90090.0 0 30030.0) 1 (X 4 15015.0 3 60060.0 2 90090.0 1 60060.0 0 15015.0) 0 (X 5 3003.0 4 15015.0 3 30030.0 2 30030.0 1 15015.0 0 3003.0)) 9 (Y 6 5005.0 5 (X 1 30030.0 0 30030.0) 4 (X 2 75075.0 1 150150.0 0 75075.0) 3 (X 3 100100.0 2 300300.0 1 300300.0 0 100100.0 ) 2 (X 4 75075.0 3 300300.0 2 450450.0 1 300300.0 0 75075.0) 1 (X 5 30030.0 4 150150.0 3 300300.0 2 300300.0 1 150150.0 0 30030.0) 0 (X 6 5005.0 5 30030.0 4 75075.0 3 100100.0 2 75075.0 1 30030.0 0 5005.0)) 8 (Y 7 6435.0 6 (X 1 45045.0 0 45045.0) 5 (X 2 135135.0 1 270270.0 0 135135.0) 4 (X 3 225225.0 2 675675.0 1 675675.0 0 225225.0) 3 (X 4 225225.0 3 900900.0 2 1351350.0 1 900900.0 0 225225.0) 2 (X 5 135135.0 4 675675.0 3 1351350.0 2 1351350.0 1 675675.0 0 135135.0) 1 (X 6 45045.0 5 270270.0 4 675675.0 3 900900.0 2 675675.0 1 270270.0 0 45045.0) 0 (X 7 6435.0 6 45045.0 5 135135.0 4 225225.0 3 225225.0 2 135135.0 1 45045.0 0 6435.0)) 7 (Y 8 6435.0 7 (X 1 51480.0 0 51480.0) 6 (X 2 180180.0 1 360360.0 0 180180.0) 5 (X 3 360360.0 2 1081080.0 1 1081080.0 0 360360.0) 4 (X 4 450450.0 3 1801800.0 2 2702700.0 1 1801800.0 0 450450.0) 3 (X 5 360360.0 4 1801800.0 3 3603600.0 2 3603600.0 1 1801800.0 0 360360.0) 2 (X 6 180180.0 5 1081080.0 4 2702700.0 3 3603600.0 2 2702700.0 1 1081080.0 0 180180.0) 1 (X 7 51480.0 6 360360.0 5 1081080.0 4 1801800.0 3 1801800.0 2 1081080.0 1 360360.0 0 51480.0) 0 (X 8 6435.0 7 51480.0 6 180180.0 5 360360.0 4 450450.0 3 360360.0 2 180180.0 1 51480.0 0 6435.0)) 6 (Y 9 5005.0 8 (X 1 45045.0 0 45045.0) 7 (X 2 180180.0 1 360360.0 0 180180.0) 6 (X 3 420420.0 2 1261260.0 1 1261260.0 0 420420.0) 5 (X 4 630630.0 3 2522520.0 2 3783780.0 1 2522520.0 0 630630.0) 4 (X 5 630630.0 4 3153150.0 3 6306300.0 2 6306300.0 1 3153150.0 0 630630.0) 3 (X 6 420420.0 5 2522520.0 4 6306300.0 3 8408400.0 2 6306300.0 1 2522520.0 0 420420.0) 2 (X 7 180180.0 6 1261260.0 5 3783780.0 4 6306300.0 3 6306300.0 2 3783780.0 1 1261260.0 0 180180.0) 1 (X 8 45045.0 7 360360.0 6 1261260.0 5 2522520.0 4 3153150.0 3 2522520.0 2 1261260.0 1 360360.0 0 45045.0) 0 (X 9 5005.0 8 45045.0 7 180180.0 6 420420.0 5 630630.0 4 630630.0 3 420420.0 2 180180.0 1 45045.0 0 5005.0)) 5 (Y 10 3003.0 9 (X 1 30030.0 0 30030.0) 8 (X 2 135135.0 1 270270.0 0 135135.0) 7 (X 3 360360.0 2 1081080.0 1 1081080.0 0 360360.0) 6 (X 4 630630.0 3 2522520.0 2 3783780.0 1 2522520.0 0 630630.0) 5 (X 5 756756.0 4 3783780.0 3 7567560.0 2 7567560.0 1 3783780.0 0 756756.0) 4 (X 6 630630.0 5 3783780.0 4 9459450.0 3 12612600.0 2 9459450.0 1 3783780.0 0 630630.0) 3 (X 7 360360.0 6 2522520.0 5 7567560.0 4 12612600.0 3 12612600.0 2 7567560.0 1 2522520.0 0 360360.0) 2 (X 8 135135.0 7 1081080.0 6 3783780.0 5 7567560.0 4 9459450.0 3 7567560.0 2 3783780.0 1 1081080.0 0 135135.0) 1 (X 9 30030.0 8 270270.0 7 1081080.0 6 2522520.0 5 3783780.0 4 3783780.0 3 2522520.0 2 1081080.0 1 270270.0 0 30030.0 ) 0 (X 10 3003.0 9 30030.0 8 135135.0 7 360360.0 6 630630.0 5 756756.0 4 630630.0 3 360360.0 2 135135.0 1 30030.0 0 3003.0)) 4 (Y 11 1365.0 10 (X 1 15015.0 0 15015.0) 9 (X 2 75075.0 1 150150.0 0 75075.0) 8 (X 3 225225.0 2 675675.0 1 675675.0 0 225225.0) 7 (X 4 450450.0 3 1801800.0 2 2702700.0 1 1801800.0 0 450450.0) 6 (X 5 630630.0 4 3153150.0 3 6306300.0 2 6306300.0 1 3153150.0 0 630630.0) 5 (X 6 630630.0 5 3783780.0 4 9459450.0 3 12612600.0 2 9459450.0 1 3783780.0 0 630630.0) 4 (X 7 450450.0 6 3153150.0 5 9459450.0 4 15765750.0 3 15765750.0 2 9459450.0 1 3153150.0 0 450450.0) 3 (X 8 225225.0 7 1801800.0 6 6306300.0 5 12612600.0 4 15765750.0 3 12612600.0 2 6306300.0 1 1801800.0 0 225225.0) 2 (X 9 75075.0 8 675675.0 7 2702700.0 6 6306300.0 5 9459450.0 4 9459450.0 3 6306300.0 2 2702700.0 1 675675.0 0 75075.0) 1 (X 10 15015.0 9 150150.0 8 675675.0 7 1801800.0 6 3153150.0 5 3783780.0 4 3153150.0 3 1801800.0 2 675675.0 1 150150.0 0 15015.0) 0 (X 11 1365.0 10 15015.0 9 75075.0 8 225225.0 7 450450.0 6 630630.0 5 630630.0 4 450450.0 3 225225.0 2 75075.0 1 15015.0 0 1365.0)) 3 (Y 12 455.0 11 (X 1 5460.0 0 5460.0) 10 (X 2 30030.0 1 60060.0 0 30030.0) 9 (X 3 100100.0 2 300300.0 1 300300.0 0 100100.0) 8 (X 4 225225.0 3 900900.0 2 1351350.0 1 900900.0 0 225225.0) 7 (X 5 360360.0 4 1801800.0 3 3603600.0 2 3603600.0 1 1801800.0 0 360360.0) 6 (X 6 420420.0 5 2522520.0 4 6306300.0 3 8408400.0 2 6306300.0 1 2522520.0 0 420420.0) 5 (X 7 360360.0 6 2522520.0 5 7567560.0 4 12612600.0 3 12612600.0 2 7567560.0 1 2522520.0 0 360360.0) 4 (X 8 225225.0 7 1801800.0 6 6306300.0 5 12612600.0 4 15765750.0 3 12612600.0 2 6306300.0 1 1801800.0 0 225225.0) 3 (X 9 100100.0 8 900900.0 7 3603600.0 6 8408400.0 5 12612600.0 4 12612600.0 3 8408400.0 2 3603600.0 1 900900.0 0 100100.0) 2 (X 10 30030.0 9 300300.0 8 1351350.0 7 3603600.0 6 6306300.0 5 7567560.0 4 6306300.0 3 3603600.0 2 1351350.0 1 300300.0 0 30030.0) 1 (X 11 5460.0 10 60060.0 9 300300.0 8 900900.0 7 1801800.0 6 2522520.0 5 2522520.0 4 1801800.0 3 900900.0 2 300300.0 1 60060.0 0 5460.0) 0 (X 12 455.0 11 5460.0 10 30030.0 9 100100.0 8 225225.0 7 360360.0 6 420420.0 5 360360.0 4 225225.0 3 100100.0 2 30030.0 1 5460.0 0 455.0)) 2 (Y 13 105.0 12 (X 1 1365.0 0 1365.0) 11 (X 2 8190.0 1 16380.0 0 8190.0) 10 (X 3 30030.0 2 90090.0 1 90090.0 0 30030.0) 9 (X 4 75075.0 3 300300.0 2 450450.0 1 300300.0 0 75075.0) 8 (X 5 135135.0 4 675675.0 3 1351350.0 2 1351350.0 1 675675.0 0 135135.0) 7 (X 6 180180.0 5 1081080.0 4 2702700.0 3 3603600.0 2 2702700.0 1 1081080.0 0 180180.0) 6 (X 7 180180.0 6 1261260.0 5 3783780.0 4 6306300.0 3 6306300.0 2 3783780.0 1 1261260.0 0 180180.0) 5 (X 8 135135.0 7 1081080.0 6 3783780.0 5 7567560.0 4 9459450.0 3 7567560.0 2 3783780.0 1 1081080.0 0 135135.0) 4 (X 9 75075.0 8 675675.0 7 2702700.0 6 6306300.0 5 9459450.0 4 9459450.0 3 6306300.0 2 2702700.0 1 675675.0 0 75075.0) 3 (X 10 30030.0 9 300300.0 8 1351350.0 7 3603600.0 6 6306300.0 5 7567560.0 4 6306300.0 3 3603600.0 2 1351350.0 1 300300.0 0 30030.0) 2 (X 11 8190.0 10 90090.0 9 450450.0 8 1351350.0 7 2702700.0 6 3783780.0 5 3783780.0 4 2702700.0 3 1351350.0 2 450450.0 1 90090.0 0 8190.0) 1 (X 12 1365.0 11 16380.0 10 90090.0 9 300300.0 8 675675.0 7 1081080.0 6 1261260.0 5 1081080.0 4 675675.0 3 300300.0 2 90090.0 1 16380.0 0 1365.0) 0 (X 13 105.0 12 1365.0 11 8190.0 10 30030.0 9 75075.0 8 135135.0 7 180180.0 6 180180.0 5 135135.0 4 75075.0 3 30030.0 2 8190.0 1 1365.0 0 105.0)) 1 (Y 14 15.0 13 (X 1 210.0 0 210.0) 12 (X 2 1365.0 1 2730.0 0 1365.0) 11 (X 3 5460.0 2 16380.0 1 16380.0 0 5460.0) 10 (X 4 15015.0 3 60060.0 2 90090.0 1 60060.0 0 15015.0) 9 (X 5 30030.0 4 150150.0 3 300300.0 2 300300.0 1 150150.0 0 30030.0) 8 (X 6 45045.0 5 270270.0 4 675675.0 3 900900.0 2 675675.0 1 270270.0 0 45045.0) 7 (X 7 51480.0 6 360360.0 5 1081080.0 4 1801800.0 3 1801800.0 2 1081080.0 1 360360.0 0 51480.0) 6 (X 8 45045.0 7 360360.0 6 1261260.0 5 2522520.0 4 3153150.0 3 2522520.0 2 1261260.0 1 360360.0 0 45045.0) 5 (X 9 30030.0 8 270270.0 7 1081080.0 6 2522520.0 5 3783780.0 4 3783780.0 3 2522520.0 2 1081080.0 1 270270.0 0 30030.0) 4 (X 10 15015.0 9 150150.0 8 675675.0 7 1801800.0 6 3153150.0 5 3783780.0 4 3153150.0 3 1801800.0 2 675675.0 1 150150.0 0 15015.0) 3 (X 11 5460.0 10 60060.0 9 300300.0 8 900900.0 7 1801800.0 6 2522520.0 5 2522520.0 4 1801800.0 3 900900.0 2 300300.0 1 60060.0 0 5460.0) 2 (X 12 1365.0 11 16380.0 10 90090.0 9 300300.0 8 675675.0 7 1081080.0 6 1261260.0 5 1081080.0 4 675675.0 3 300300.0 2 90090.0 1 16380.0 0 1365.0) 1 (X 13 210.0 12 2730.0 11 16380.0 10 60060.0 9 150150.0 8 270270.0 7 360360.0 6 360360.0 5 270270.0 4 150150.0 3 60060.0 2 16380.0 1 2730.0 0 210.0) 0 (X 14 15.0 13 210.0 12 1365.0 11 5460.0 10 15015.0 9 30030.0 8 45045.0 7 51480.0 6 45045.0 5 30030.0 4 15015.0 3 5460.0 2 1365.0 1 210.0 0 15.0)) 0 (Y 15 1.0 14 (X 1 15.0 0 15.0) 13 (X 2 105.0 1 210.0 0 105.0) 12 (X 3 455.0 2 1365.0 1 1365.0 0 455.0) 11 (X 4 1365.0 3 5460.0 2 8190.0 1 5460.0 0 1365.0) 10 (X 5 3003.0 4 15015.0 3 30030.0 2 30030.0 1 15015.0 0 3003.0) 9 (X 6 5005.0 5 30030.0 4 75075.0 3 100100.0 2 75075.0 1 30030.0 0 5005.0) 8 (X 7 6435.0 6 45045.0 5 135135.0 4 225225.0 3 225225.0 2 135135.0 1 45045.0 0 6435.0) 7 (X 8 6435.0 7 51480.0 6 180180.0 5 360360.0 4 450450.0 3 360360.0 2 180180.0 1 51480.0 0 6435.0) 6 (X 9 5005.0 8 45045.0 7 180180.0 6 420420.0 5 630630.0 4 630630.0 3 420420.0 2 180180.0 1 45045.0 0 5005.0) 5 (X 10 3003.0 9 30030.0 8 135135.0 7 360360.0 6 630630.0 5 756756.0 4 630630.0 3 360360.0 2 135135.0 1 30030.0 0 3003.0) 4 (X 11 1365.0 10 15015.0 9 75075.0 8 225225.0 7 450450.0 6 630630.0 5 630630.0 4 450450.0 3 225225.0 2 75075.0 1 15015.0 0 1365.0) 3 (X 12 455.0 11 5460.0 10 30030.0 9 100100.0 8 225225.0 7 360360.0 6 420420.0 5 360360.0 4 225225.0 3 100100.0 2 30030.0 1 5460.0 0 455.0) 2 (X 13 105.0 12 1365.0 11 8190.0 10 30030.0 9 75075.0 8 135135.0 7 180180.0 6 180180.0 5 135135.0 4 75075.0 3 30030.0 2 8190.0 1 1365.0 0 105.0) 1 (X 14 15.0 13 210.0 12 1365.0 11 5460.0 10 15015.0 9 30030.0 8 45045.0 7 51480.0 6 45045.0 5 30030.0 4 15015.0 3 5460.0 2 1365.0 1 210.0 0 15.0) 0 (X 15 1.0 14 15.0 13 105.0 12 455.0 11 1365.0 10 3003.0 9 5005.0 8 6435.0 7 6435.0 6 5005.0 5 3003.0 4 1365.0 3 455.0 2 105.0 1 15.0 0 1.0))) POLYNOMIAL finished Finished benchmarking \ No newline at end of file diff --git a/internal/gabriel/Results/KOTO-DORADO.BENCHMARKS b/internal/gabriel/Results/KOTO-DORADO.BENCHMARKS deleted file mode 100644 index 7cd03ce3..00000000 --- a/internal/gabriel/Results/KOTO-DORADO.BENCHMARKS +++ /dev/null @@ -1 +0,0 @@ - MACHINETYPE = DORADO MAKESYSNAME = KOTO MAKESYSDATE = 19-Nov-85 10:39:55 DATE = 20-Nov-85 23:10:46 USERNAME = PEDERSEN ************ TAK BENCHMARK ************** Starting the TAK run: (TIMEALL (TAK 18 12 6)) Elapsed Time = .525 seconds CPU Time = .525 seconds Value = 7 Repeating the TIMEALL Elapsed Time = .525 seconds CPU Time = .525 seconds Value = 7 TAK finished ************ STAK BENCHMARK ************** Starting the STAK run: (TIMEALL (STAK)) Elapsed Time = 1.9 seconds CPU Time = 1.9 seconds Value = 7 Repeating the TIMEALL Elapsed Time = 1.9 seconds CPU Time = 1.9 seconds STAK finished ************ CTAK BENCHMARK ************** Starting the CTAK run: (TIMEALL (CTAK 18 12 6)) Elapsed Time = 18.2 seconds CPU Time = 18.2 seconds Value = 7 Repeating the TIMEALL Elapsed Time = 18.2 seconds CPU Time = 18.2 seconds Value = 7 CTAK finished ************ TAKL BENCHMARK ************** Starting the TAKL run: (TIMEALL (TAKL 18L 12L 6L)) Elapsed Time = 3.84 seconds CPU Time = 3.84 seconds Value = (7 6 5 4 3 2 1) Repeating the TIMEALL Elapsed Time = 3.84 seconds CPU Time = 3.84 seconds Value = (7 6 5 4 3 2 1) TAKL finished ************ TAKR BENCHMARK ************** Starting the TAKR run: (TIMEALL (TAK0 18 12 6)) Elapsed Time = .692 seconds CPU Time = .692 seconds Value = 7 Repeating the TIMEALL Elapsed Time = .691 seconds CPU Time = .691 seconds Value = 7 TAKR finished ********* BOYER BENCHMARK *********** Initializing BOYER run: (TIMEALL (SETUP)) Elapsed Time = .029 seconds CPU Time = .029 seconds PAGEFAULTS = 2 LISTP 224 starting BOYER run: (TIMEALL (TEST-BOYER)) Elapsed Time = 46.1 seconds GC time = 15.5 seconds CPU Time = 30.6 seconds PAGEFAULTS = 518 FIXP LISTP 4 226469 Repeating the TIMEALL Elapsed Time = 42.2 seconds GC time = 20.1 seconds CPU Time = 22.1 seconds PAGEFAULTS = 6 FIXP LISTP 4 226469 BOYER finished ********* BROWSE BENCHMARK *********** starting BROWSE run: (TIMEALL (BROWSE)) Elapsed Time = 129.0 seconds GC time = 50.1 seconds CPU Time = 78.6 seconds PAGEFAULTS = 50 LISTP 488945 Repeating the TIMEALL Elapsed Time = 130.0 seconds GC time = 51.1 seconds CPU Time = 79.3 seconds PAGEFAULTS = 49 LISTP 488945 BROWSE finished *********** THE DESTRUCTIVE BENCHMARK ************ Starting the DESTRUCTIVE run: (TIMEALL (DESTRUCTIVE 600 50)) Elapsed Time = 7.17 seconds GC time = 3.28 seconds CPU Time = 3.89 seconds LISTP 43105 Value = ((1 1 2) (1 1 1) (1 1 1 2) (1 1 1 1) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 3)) Repeating the TIMEALL Elapsed Time = 7.12 seconds GC time = 3.24 seconds CPU Time = 3.87 seconds LISTP 43105 Value = ((1 1 2) (1 1 1) (1 1 1 2) (1 1 1 1) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 3)) DESTRUCTIVE finished ************* THE TRAVERSE BENCHMAK ************ Starting the TRAVERSE initialization: (TIMEALL (INIT-TRAVERSE)) Elapsed Time = 23.8 seconds GC time = .684 seconds CPU Time = 23.2 seconds PAGEFAULTS = 3 LISTP NODE 36796 100 Starting the TRAVERSE run: (TIMEALL (RUN-TRAVERSE)) Elapsed Time = 59.0 seconds CPU Time = 59.0 seconds Repeating the TIMEALL Elapsed Time = 59.0 seconds CPU Time = 59.0 seconds TRAVERSE finished ******* Derivative Benchmark ********** Starting the DERIV run: (TIMEALL (RUN-DERIV)) Elapsed Time = 28.5 seconds GC time = 18.9 seconds CPU Time = 9.57 seconds LISTP 245000 Value = NIL Repeating the TIMEALL Elapsed Time = 28.9 seconds GC time = 19.2 seconds CPU Time = 9.75 seconds LISTP 245000 Value = NIL DERIV finished ******* Data-Driven Derivative Benchmark ********** Starting the DDERIV run: (TIMEALL (RUN-DDERIV)) Elapsed Time = 33.2 seconds GC time = 21.0 seconds CPU Time = 12.2 seconds LISTP 260000 Value = NIL Repeating the TIMEALL Elapsed Time = 33.3 seconds GC time = 21.1 seconds CPU Time = 12.2 seconds LISTP 260000 Value = NIL DDERIV finished ******* DIVIDE BY TWO BENCHMARK ********** Starting the iterative DIV2 run: (TIMEALL (TEST1 L)) Elapsed Time = 12.4 seconds GC time = 8.83 seconds CPU Time = 3.54 seconds LISTP 120000 Repeating the TIMEALL Elapsed Time = 12.5 seconds GC time = 8.92 seconds CPU Time = 3.54 seconds LISTP 120000 Starting the recursive DIV2 run: (TIMEALL (TEST2 L)) Elapsed Time = 14.4 seconds GC time = 9.06 seconds CPU Time = 5.3 seconds LISTP 120000 Repeating the TIMEALL Elapsed Time = 13.8 seconds GC time = 8.79 seconds CPU Time = 5.04 seconds LISTP 120000 DIV2 finished *************** THE FFT BENCHMARK *********** Starting FFT run: (TIMEALL (FFT-BENCH)) Elapsed Time = 258.0 seconds GC time = 65.0 seconds CPU Time = 193.0 seconds PAGEFAULTS = 28 FLOATP 1010220 Repeating the TIMEALL Elapsed Time = 257.0 seconds GC time = 65.2 seconds CPU Time = 192.0 seconds FLOATP 1010220 FFT finished *************** THE PUZZLE BENCHMARK *********** Starting PUZZLE run: (TIMEALL (START)) Success in 2005 trials. Elapsed Time = 19.8 seconds CPU Time = 19.8 seconds Value = NIL Repeating the TIMEALL Success in 2005 trials. Elapsed Time = 19.6 seconds CPU Time = 19.6 seconds Value = NIL PUZZLE finished *************** THE TRIANGLE BENCHMARK *********** Starting TRIANG run: (TIMEALL (GOGOGO 22)) Elapsed Time = 344.0 seconds GC time = .233 seconds CPU Time = 344.0 seconds PAGEFAULTS = 24 LISTP 11626 Value = NIL Repeating the TIMEALL Elapsed Time = 344.0 seconds GC time = .231 seconds CPU Time = 343.0 seconds LISTP 11626 Value = NIL TRIANG finished ******************************************************************* DSK file I/O benchmarks: FPRINT and FREAD Terminal printing (to window): TPRINT ******************************************************************* Starting FPRINT: (TIMEALL (FPRINT)) Elapsed Time = 4.93 seconds Disk i/o time = 2.62 seconds CPU Time = 2.32 seconds DISKOPS = 228 FIXP LISTP ARRAYP STRINGP VMEMPAGEP STREAM 1 193 2 6 1 1 Repeating the TIMEALL Elapsed Time = 2.75 seconds Disk i/o time = .431 seconds CPU Time = 2.32 seconds DISKOPS = 83 FIXP LISTP ARRAYP STRINGP VMEMPAGEP STREAM 1 195 2 6 1 1 FPRINT finished Starting the FREAD run: (TIMEALL (FREAD)) Elapsed Time = 1.96 seconds Disk i/o time = .423 seconds CPU Time = 1.53 seconds DISKOPS = 37 FIXP LISTP ARRAYP STRINGP VMEMPAGEP STREAM 2 2228 4 3 1 1 Repeating the TIMEALL Elapsed Time = 1.96 seconds Disk i/o time = .42 seconds CPU Time = 1.54 seconds DISKOPS = 37 FIXP LISTP ARRAYP STRINGP VMEMPAGEP STREAM 2 2228 4 3 1 1 FREAD finished Starting the TPRINT run: (TPRINT) Elapsed Time = 6.61 seconds CPU Time = 6.61 seconds Repeating the TIMEALL Elapsed Time = 6.5 seconds CPU Time = 6.5 seconds TPRINT finished *************** THE POLYNOMIAL BENCHMARK *********** Starting POLY 2 run: (TIMEALL (BENCH 2)) Elapsed Time = .121 seconds CPU Time = .121 seconds FIXP FLOATP LISTP BIGNUM 86 32 726 73 Value = (Z 2 1.0 1 (Y 1 2.0 0 (X 1 2.0 0 2.0)) 0 (Y 2 1.0 1 (X 1 2.0 0 2.0) 0 (X 2 1.0 1 2.0 0 1.0))) Repeating the TIMEALL Elapsed Time = .124 seconds CPU Time = .124 seconds FIXP FLOATP LISTP BIGNUM 86 32 726 73 Value = (Z 2 1.0 1 (Y 1 2.0 0 (X 1 2.0 0 2.0)) 0 (Y 2 1.0 1 (X 1 2.0 0 2.0) 0 (X 2 1.0 1 2.0 0 1.0))) Starting POLY 5 run: (TIMEALL (BENCH 5)) Elapsed Time = 4.48 seconds GC time = 1.47 seconds CPU Time = 3.01 seconds PAGEFAULTS = 2 FIXP FLOATP LISTP BIGNUM 1842 411 12782 1153 Value = (Z 5 1.0 4 (Y 1 5.0 0 (X 1 5.0 0 5.0)) 3 (Y 2 10.0 1 (X 1 20.0 0 20.0) 0 (X 2 10.0 1 20.0 0 10.0)) 2 (Y 3 10.0 2 (X 1 30.0 0 30.0) 1 (X 2 30.0 1 60.0 0 30.0) 0 (X 3 10.0 2 30.0 1 30.0 0 10.0)) 1 (Y 4 5.0 3 (X 1 20.0 0 20.0) 2 (X 2 30.0 1 60.0 0 30.0) 1 (X 3 20.0 2 60.0 1 60.0 0 20.0) 0 (X 4 5.0 3 20.0 2 30.0 1 20.0 0 5.0)) 0 (Y 5 1.0 4 (X 1 5.0 0 5.0) 3 (X 2 10.0 1 20.0 0 10.0) 2 (X 3 10.0 2 30.0 1 30.0 0 10.0) 1 (X 4 5.0 3 20.0 2 30.0 1 20.0 0 5.0) 0 (X 5 1.0 4 5.0 3 10.0 2 10.0 1 5.0 0 1.0))) Repeating the TIMEALL Elapsed Time = 4.09 seconds GC time = 1.11 seconds CPU Time = 2.98 seconds FIXP FLOATP LISTP BIGNUM 1842 411 12782 1153 Value = (Z 5 1.0 4 (Y 1 5.0 0 (X 1 5.0 0 5.0)) 3 (Y 2 10.0 1 (X 1 20.0 0 20.0) 0 (X 2 10.0 1 20.0 0 10.0)) 2 (Y 3 10.0 2 (X 1 30.0 0 30.0) 1 (X 2 30.0 1 60.0 0 30.0) 0 (X 3 10.0 2 30.0 1 30.0 0 10.0)) 1 (Y 4 5.0 3 (X 1 20.0 0 20.0) 2 (X 2 30.0 1 60.0 0 30.0) 1 (X 3 20.0 2 60.0 1 60.0 0 20.0) 0 (X 4 5.0 3 20.0 2 30.0 1 20.0 0 5.0)) 0 (Y 5 1.0 4 (X 1 5.0 0 5.0) 3 (X 2 10.0 1 20.0 0 10.0) 2 (X 3 10.0 2 30.0 1 30.0 0 10.0) 1 (X 4 5.0 3 20.0 2 30.0 1 20.0 0 5.0) 0 (X 5 1.0 4 5.0 3 10.0 2 10.0 1 5.0 0 1.0))) Starting POLY 10 run: (TIMEALL (BENCH 10)) Elapsed Time = 126.0 seconds GC time = 40.5 seconds CPU Time = 85.9 seconds PAGEFAULTS = 48 FIXP FLOATP LISTP BIGNUM 54143 5496 334320 16330 Value = (Z 10 1.0 9 (Y 1 10.0 0 (X 1 10.0 0 10.0)) 8 (Y 2 45.0 1 (X 1 90.0 0 90.0) 0 (X 2 45.0 1 90.0 0 45.0)) 7 (Y 3 120.0 2 (X 1 360.0 0 360.0) 1 (X 2 360.0 1 720.0 0 360.0) 0 (X 3 120.0 2 360.0 1 360.0 0 120.0)) 6 (Y 4 210.0 3 ( X 1 840.0 0 840.0) 2 (X 2 1260.0 1 2520.0 0 1260.0) 1 (X 3 840.0 2 2520.0 1 2520.0 0 840.0) 0 (X 4 210.0 3 840.0 2 1260.0 1 840.0 0 210.0)) 5 (Y 5 252.0 4 (X 1 1260.0 0 1260.0) 3 (X 2 2520.0 1 5040.0 0 2520.0) 2 (X 3 2520.0 2 7560.0 1 7560.0 0 2520.0) 1 (X 4 1260.0 3 5040.0 2 7560.0 1 5040.0 0 1260.0) 0 (X 5 252.0 4 1260.0 3 2520.0 2 2520.0 1 1260.0 0 252.0)) 4 (Y 6 210.0 5 (X 1 1260.0 0 1260.0) 4 (X 2 3150.0 1 6300.0 0 3150.0) 3 (X 3 4200.0 2 12600.0 1 12600.0 0 4200.0) 2 (X 4 3150.0 3 12600.0 2 18900.0 1 12600.0 0 3150.0) 1 (X 5 1260.0 4 6300.0 3 12600.0 2 12600.0 1 6300.0 0 1260.0) 0 (X 6 210.0 5 1260.0 4 3150.0 3 4200.0 2 3150.0 1 1260.0 0 210.0)) 3 (Y 7 120.0 6 (X 1 840.0 0 840.0) 5 (X 2 2520.0 1 5040.0 0 2520.0) 4 (X 3 4200.0 2 12600.0 1 12600.0 0 4200.0) 3 (X 4 4200.0 3 16800.0 2 25200.0 1 16800.0 0 4200.0) 2 (X 5 2520.0 4 12600.0 3 25200.0 2 25200.0 1 12600.0 0 2520.0) 1 (X 6 840.0 5 5040.0 4 12600.0 3 16800.0 2 12600.0 1 5040.0 0 840.0) 0 (X 7 120.0 6 840.0 5 2520.0 4 4200.0 3 4200.0 2 2520.0 1 840.0 0 120.0)) 2 (Y 8 45.0 7 (X 1 360.0 0 360.0) 6 (X 2 1260.0 1 2520.0 0 1260.0) 5 (X 3 2520.0 2 7560.0 1 7560.0 0 2520.0) 4 (X 4 3150.0 3 12600.0 2 18900.0 1 12600.0 0 3150.0) 3 (X 5 2520.0 4 12600.0 3 25200.0 2 25200.0 1 12600.0 0 2520.0) 2 (X 6 1260.0 5 7560.0 4 18900.0 3 25200.0 2 18900.0 1 7560.0 0 1260.0) 1 (X 7 360.0 6 2520.0 5 7560.0 4 12600.0 3 12600.0 2 7560.0 1 2520.0 0 360.0) 0 (X 8 45.0 7 360.0 6 1260.0 5 2520.0 4 3150.0 3 2520.0 2 1260.0 1 360.0 0 45.0)) 1 (Y 9 10.0 8 (X 1 90.0 0 90.0) 7 (X 2 360.0 1 720.0 0 360.0) 6 (X 3 840.0 2 2520.0 1 2520.0 0 840.0) 5 (X 4 1260.0 3 5040.0 2 7560.0 1 5040.0 0 1260.0) 4 (X 5 1260.0 4 6300.0 3 12600.0 2 12600.0 1 6300.0 0 1260.0) 3 (X 6 840.0 5 5040.0 4 12600.0 3 16800.0 2 12600.0 1 5040.0 0 840.0) 2 (X 7 360.0 6 2520.0 5 7560.0 4 12600.0 3 12600.0 2 7560.0 1 2520.0 0 360.0) 1 (X 8 90.0 7 720.0 6 2520.0 5 5040.0 4 6300.0 3 5040.0 2 2520.0 1 720.0 0 90.0) 0 (X 9 10.0 8 90.0 7 360.0 6 840.0 5 1260.0 4 1260.0 3 840.0 2 360.0 1 90.0 0 10.0)) 0 (Y 10 1.0 9 (X 1 10.0 0 10.0) 8 (X 2 45.0 1 90.0 0 45.0) 7 (X 3 120.0 2 360.0 1 360.0 0 120.0) 6 (X 4 210.0 3 840.0 2 1260.0 1 840.0 0 210.0) 5 (X 5 252.0 4 1260.0 3 2520.0 2 2520.0 1 1260.0 0 252.0) 4 (X 6 210.0 5 1260.0 4 3150.0 3 4200.0 2 3150.0 1 1260.0 0 210.0) 3 (X 7 120.0 6 840.0 5 2520.0 4 4200.0 3 4200.0 2 2520.0 1 840.0 0 120.0) 2 (X 8 45.0 7 360.0 6 1260.0 5 2520.0 4 3150.0 3 2520.0 2 1260.0 1 360.0 0 45.0) 1 (X 9 10.0 8 90.0 7 360.0 6 840.0 5 1260.0 4 1260.0 3 840.0 2 360.0 1 90.0 0 10.0 ) 0 (X 10 1.0 9 10.0 8 45.0 7 120.0 6 210.0 5 252.0 4 210.0 3 120.0 2 45.0 1 10.0 0 1.0))) Repeating the TIMEALL Elapsed Time = 127.0 seconds GC time = 40.4 seconds CPU Time = 86.3 seconds PAGEFAULTS = 6 FIXP FLOATP LISTP BIGNUM 54142 5496 334320 16330 Value = (Z 10 1.0 9 (Y 1 10.0 0 (X 1 10.0 0 10.0)) 8 (Y 2 45.0 1 (X 1 90.0 0 90.0) 0 (X 2 45.0 1 90.0 0 45.0)) 7 (Y 3 120.0 2 (X 1 360.0 0 360.0) 1 (X 2 360.0 1 720.0 0 360.0) 0 (X 3 120.0 2 360.0 1 360.0 0 120.0)) 6 (Y 4 210.0 3 ( X 1 840.0 0 840.0) 2 (X 2 1260.0 1 2520.0 0 1260.0) 1 (X 3 840.0 2 2520.0 1 2520.0 0 840.0) 0 (X 4 210.0 3 840.0 2 1260.0 1 840.0 0 210.0)) 5 (Y 5 252.0 4 (X 1 1260.0 0 1260.0) 3 (X 2 2520.0 1 5040.0 0 2520.0) 2 (X 3 2520.0 2 7560.0 1 7560.0 0 2520.0) 1 (X 4 1260.0 3 5040.0 2 7560.0 1 5040.0 0 1260.0) 0 (X 5 252.0 4 1260.0 3 2520.0 2 2520.0 1 1260.0 0 252.0)) 4 (Y 6 210.0 5 (X 1 1260.0 0 1260.0) 4 (X 2 3150.0 1 6300.0 0 3150.0) 3 (X 3 4200.0 2 12600.0 1 12600.0 0 4200.0) 2 (X 4 3150.0 3 12600.0 2 18900.0 1 12600.0 0 3150.0) 1 (X 5 1260.0 4 6300.0 3 12600.0 2 12600.0 1 6300.0 0 1260.0) 0 (X 6 210.0 5 1260.0 4 3150.0 3 4200.0 2 3150.0 1 1260.0 0 210.0)) 3 (Y 7 120.0 6 (X 1 840.0 0 840.0) 5 (X 2 2520.0 1 5040.0 0 2520.0) 4 (X 3 4200.0 2 12600.0 1 12600.0 0 4200.0) 3 (X 4 4200.0 3 16800.0 2 25200.0 1 16800.0 0 4200.0) 2 (X 5 2520.0 4 12600.0 3 25200.0 2 25200.0 1 12600.0 0 2520.0) 1 (X 6 840.0 5 5040.0 4 12600.0 3 16800.0 2 12600.0 1 5040.0 0 840.0) 0 (X 7 120.0 6 840.0 5 2520.0 4 4200.0 3 4200.0 2 2520.0 1 840.0 0 120.0)) 2 (Y 8 45.0 7 (X 1 360.0 0 360.0) 6 (X 2 1260.0 1 2520.0 0 1260.0) 5 (X 3 2520.0 2 7560.0 1 7560.0 0 2520.0) 4 (X 4 3150.0 3 12600.0 2 18900.0 1 12600.0 0 3150.0) 3 (X 5 2520.0 4 12600.0 3 25200.0 2 25200.0 1 12600.0 0 2520.0) 2 (X 6 1260.0 5 7560.0 4 18900.0 3 25200.0 2 18900.0 1 7560.0 0 1260.0) 1 (X 7 360.0 6 2520.0 5 7560.0 4 12600.0 3 12600.0 2 7560.0 1 2520.0 0 360.0) 0 (X 8 45.0 7 360.0 6 1260.0 5 2520.0 4 3150.0 3 2520.0 2 1260.0 1 360.0 0 45.0)) 1 (Y 9 10.0 8 (X 1 90.0 0 90.0) 7 (X 2 360.0 1 720.0 0 360.0) 6 (X 3 840.0 2 2520.0 1 2520.0 0 840.0) 5 (X 4 1260.0 3 5040.0 2 7560.0 1 5040.0 0 1260.0) 4 (X 5 1260.0 4 6300.0 3 12600.0 2 12600.0 1 6300.0 0 1260.0) 3 (X 6 840.0 5 5040.0 4 12600.0 3 16800.0 2 12600.0 1 5040.0 0 840.0) 2 (X 7 360.0 6 2520.0 5 7560.0 4 12600.0 3 12600.0 2 7560.0 1 2520.0 0 360.0) 1 (X 8 90.0 7 720.0 6 2520.0 5 5040.0 4 6300.0 3 5040.0 2 2520.0 1 720.0 0 90.0) 0 (X 9 10.0 8 90.0 7 360.0 6 840.0 5 1260.0 4 1260.0 3 840.0 2 360.0 1 90.0 0 10.0)) 0 (Y 10 1.0 9 (X 1 10.0 0 10.0) 8 (X 2 45.0 1 90.0 0 45.0) 7 (X 3 120.0 2 360.0 1 360.0 0 120.0) 6 (X 4 210.0 3 840.0 2 1260.0 1 840.0 0 210.0) 5 (X 5 252.0 4 1260.0 3 2520.0 2 2520.0 1 1260.0 0 252.0) 4 (X 6 210.0 5 1260.0 4 3150.0 3 4200.0 2 3150.0 1 1260.0 0 210.0) 3 (X 7 120.0 6 840.0 5 2520.0 4 4200.0 3 4200.0 2 2520.0 1 840.0 0 120.0) 2 (X 8 45.0 7 360.0 6 1260.0 5 2520.0 4 3150.0 3 2520.0 2 1260.0 1 360.0 0 45.0) 1 (X 9 10.0 8 90.0 7 360.0 6 840.0 5 1260.0 4 1260.0 3 840.0 2 360.0 1 90.0 0 10.0 ) 0 (X 10 1.0 9 10.0 8 45.0 7 120.0 6 210.0 5 252.0 4 210.0 3 120.0 2 45.0 1 10.0 0 1.0))) Starting POLY 15 run: (TIMEALL (BENCH 15)) Elapsed Time = 2240.0 seconds GC time = 713.0 seconds CPU Time = 1530.0 seconds PAGEFAULTS = 184 FIXP FLOATP LISTP BIGNUM 1041160 42596 5707723 118947 Value = (Z 15 1.0 14 (Y 1 15.0 0 (X 1 15.0 0 15.0)) 13 (Y 2 105.0 1 (X 1 210.0 0 210.0) 0 (X 2 105.0 1 210.0 0 105.0)) 12 (Y 3 455.0 2 (X 1 1365.0 0 1365.0) 1 (X 2 1365.0 1 2730.0 0 1365.0) 0 (X 3 455.0 2 1365.0 1 1365.0 0 455.0)) 11 (Y 4 1365.0 3 (X 1 5460.0 0 5460.0) 2 (X 2 8190.0 1 16380.0 0 8190.0) 1 (X 3 5460.0 2 16380.0 1 16380.0 0 5460.0) 0 (X 4 1365.0 3 5460.0 2 8190.0 1 5460.0 0 1365.0)) 10 (Y 5 3003.0 4 (X 1 15015.0 0 15015.0) 3 (X 2 30030.0 1 60060.0 0 30030.0) 2 (X 3 30030.0 2 90090.0 1 90090.0 0 30030.0) 1 (X 4 15015.0 3 60060.0 2 90090.0 1 60060.0 0 15015.0) 0 (X 5 3003.0 4 15015.0 3 30030.0 2 30030.0 1 15015.0 0 3003.0)) 9 (Y 6 5005.0 5 (X 1 30030.0 0 30030.0) 4 (X 2 75075.0 1 150150.0 0 75075.0) 3 (X 3 100100.0 2 300300.0 1 300300.0 0 100100.0 ) 2 (X 4 75075.0 3 300300.0 2 450450.0 1 300300.0 0 75075.0) 1 (X 5 30030.0 4 150150.0 3 300300.0 2 300300.0 1 150150.0 0 30030.0) 0 (X 6 5005.0 5 30030.0 4 75075.0 3 100100.0 2 75075.0 1 30030.0 0 5005.0)) 8 (Y 7 6435.0 6 (X 1 45045.0 0 45045.0) 5 (X 2 135135.0 1 270270.0 0 135135.0) 4 (X 3 225225.0 2 675675.0 1 675675.0 0 225225.0) 3 (X 4 225225.0 3 900900.0 2 1351350.0 1 900900.0 0 225225.0) 2 (X 5 135135.0 4 675675.0 3 1351350.0 2 1351350.0 1 675675.0 0 135135.0) 1 (X 6 45045.0 5 270270.0 4 675675.0 3 900900.0 2 675675.0 1 270270.0 0 45045.0) 0 (X 7 6435.0 6 45045.0 5 135135.0 4 225225.0 3 225225.0 2 135135.0 1 45045.0 0 6435.0)) 7 (Y 8 6435.0 7 (X 1 51480.0 0 51480.0) 6 (X 2 180180.0 1 360360.0 0 180180.0) 5 (X 3 360360.0 2 1081080.0 1 1081080.0 0 360360.0) 4 (X 4 450450.0 3 1801800.0 2 2702700.0 1 1801800.0 0 450450.0) 3 (X 5 360360.0 4 1801800.0 3 3603600.0 2 3603600.0 1 1801800.0 0 360360.0) 2 (X 6 180180.0 5 1081080.0 4 2702700.0 3 3603600.0 2 2702700.0 1 1081080.0 0 180180.0) 1 (X 7 51480.0 6 360360.0 5 1081080.0 4 1801800.0 3 1801800.0 2 1081080.0 1 360360.0 0 51480.0) 0 (X 8 6435.0 7 51480.0 6 180180.0 5 360360.0 4 450450.0 3 360360.0 2 180180.0 1 51480.0 0 6435.0)) 6 (Y 9 5005.0 8 (X 1 45045.0 0 45045.0) 7 (X 2 180180.0 1 360360.0 0 180180.0) 6 (X 3 420420.0 2 1261260.0 1 1261260.0 0 420420.0) 5 (X 4 630630.0 3 2522520.0 2 3783780.0 1 2522520.0 0 630630.0) 4 (X 5 630630.0 4 3153150.0 3 6306300.0 2 6306300.0 1 3153150.0 0 630630.0) 3 (X 6 420420.0 5 2522520.0 4 6306300.0 3 8408400.0 2 6306300.0 1 2522520.0 0 420420.0) 2 (X 7 180180.0 6 1261260.0 5 3783780.0 4 6306300.0 3 6306300.0 2 3783780.0 1 1261260.0 0 180180.0) 1 (X 8 45045.0 7 360360.0 6 1261260.0 5 2522520.0 4 3153150.0 3 2522520.0 2 1261260.0 1 360360.0 0 45045.0) 0 (X 9 5005.0 8 45045.0 7 180180.0 6 420420.0 5 630630.0 4 630630.0 3 420420.0 2 180180.0 1 45045.0 0 5005.0)) 5 (Y 10 3003.0 9 (X 1 30030.0 0 30030.0) 8 (X 2 135135.0 1 270270.0 0 135135.0) 7 (X 3 360360.0 2 1081080.0 1 1081080.0 0 360360.0) 6 (X 4 630630.0 3 2522520.0 2 3783780.0 1 2522520.0 0 630630.0) 5 (X 5 756756.0 4 3783780.0 3 7567560.0 2 7567560.0 1 3783780.0 0 756756.0) 4 (X 6 630630.0 5 3783780.0 4 9459450.0 3 12612600.0 2 9459450.0 1 3783780.0 0 630630.0) 3 (X 7 360360.0 6 2522520.0 5 7567560.0 4 12612600.0 3 12612600.0 2 7567560.0 1 2522520.0 0 360360.0) 2 (X 8 135135.0 7 1081080.0 6 3783780.0 5 7567560.0 4 9459450.0 3 7567560.0 2 3783780.0 1 1081080.0 0 135135.0) 1 (X 9 30030.0 8 270270.0 7 1081080.0 6 2522520.0 5 3783780.0 4 3783780.0 3 2522520.0 2 1081080.0 1 270270.0 0 30030.0 ) 0 (X 10 3003.0 9 30030.0 8 135135.0 7 360360.0 6 630630.0 5 756756.0 4 630630.0 3 360360.0 2 135135.0 1 30030.0 0 3003.0)) 4 (Y 11 1365.0 10 (X 1 15015.0 0 15015.0) 9 (X 2 75075.0 1 150150.0 0 75075.0) 8 (X 3 225225.0 2 675675.0 1 675675.0 0 225225.0) 7 (X 4 450450.0 3 1801800.0 2 2702700.0 1 1801800.0 0 450450.0) 6 (X 5 630630.0 4 3153150.0 3 6306300.0 2 6306300.0 1 3153150.0 0 630630.0) 5 (X 6 630630.0 5 3783780.0 4 9459450.0 3 12612600.0 2 9459450.0 1 3783780.0 0 630630.0) 4 (X 7 450450.0 6 3153150.0 5 9459450.0 4 15765750.0 3 15765750.0 2 9459450.0 1 3153150.0 0 450450.0) 3 (X 8 225225.0 7 1801800.0 6 6306300.0 5 12612600.0 4 15765750.0 3 12612600.0 2 6306300.0 1 1801800.0 0 225225.0) 2 (X 9 75075.0 8 675675.0 7 2702700.0 6 6306300.0 5 9459450.0 4 9459450.0 3 6306300.0 2 2702700.0 1 675675.0 0 75075.0) 1 (X 10 15015.0 9 150150.0 8 675675.0 7 1801800.0 6 3153150.0 5 3783780.0 4 3153150.0 3 1801800.0 2 675675.0 1 150150.0 0 15015.0) 0 (X 11 1365.0 10 15015.0 9 75075.0 8 225225.0 7 450450.0 6 630630.0 5 630630.0 4 450450.0 3 225225.0 2 75075.0 1 15015.0 0 1365.0)) 3 (Y 12 455.0 11 (X 1 5460.0 0 5460.0) 10 (X 2 30030.0 1 60060.0 0 30030.0) 9 (X 3 100100.0 2 300300.0 1 300300.0 0 100100.0) 8 (X 4 225225.0 3 900900.0 2 1351350.0 1 900900.0 0 225225.0) 7 (X 5 360360.0 4 1801800.0 3 3603600.0 2 3603600.0 1 1801800.0 0 360360.0) 6 (X 6 420420.0 5 2522520.0 4 6306300.0 3 8408400.0 2 6306300.0 1 2522520.0 0 420420.0) 5 (X 7 360360.0 6 2522520.0 5 7567560.0 4 12612600.0 3 12612600.0 2 7567560.0 1 2522520.0 0 360360.0) 4 (X 8 225225.0 7 1801800.0 6 6306300.0 5 12612600.0 4 15765750.0 3 12612600.0 2 6306300.0 1 1801800.0 0 225225.0) 3 (X 9 100100.0 8 900900.0 7 3603600.0 6 8408400.0 5 12612600.0 4 12612600.0 3 8408400.0 2 3603600.0 1 900900.0 0 100100.0) 2 (X 10 30030.0 9 300300.0 8 1351350.0 7 3603600.0 6 6306300.0 5 7567560.0 4 6306300.0 3 3603600.0 2 1351350.0 1 300300.0 0 30030.0) 1 (X 11 5460.0 10 60060.0 9 300300.0 8 900900.0 7 1801800.0 6 2522520.0 5 2522520.0 4 1801800.0 3 900900.0 2 300300.0 1 60060.0 0 5460.0) 0 (X 12 455.0 11 5460.0 10 30030.0 9 100100.0 8 225225.0 7 360360.0 6 420420.0 5 360360.0 4 225225.0 3 100100.0 2 30030.0 1 5460.0 0 455.0)) 2 (Y 13 105.0 12 (X 1 1365.0 0 1365.0) 11 (X 2 8190.0 1 16380.0 0 8190.0) 10 (X 3 30030.0 2 90090.0 1 90090.0 0 30030.0) 9 (X 4 75075.0 3 300300.0 2 450450.0 1 300300.0 0 75075.0) 8 (X 5 135135.0 4 675675.0 3 1351350.0 2 1351350.0 1 675675.0 0 135135.0) 7 (X 6 180180.0 5 1081080.0 4 2702700.0 3 3603600.0 2 2702700.0 1 1081080.0 0 180180.0) 6 (X 7 180180.0 6 1261260.0 5 3783780.0 4 6306300.0 3 6306300.0 2 3783780.0 1 1261260.0 0 180180.0) 5 (X 8 135135.0 7 1081080.0 6 3783780.0 5 7567560.0 4 9459450.0 3 7567560.0 2 3783780.0 1 1081080.0 0 135135.0) 4 (X 9 75075.0 8 675675.0 7 2702700.0 6 6306300.0 5 9459450.0 4 9459450.0 3 6306300.0 2 2702700.0 1 675675.0 0 75075.0) 3 (X 10 30030.0 9 300300.0 8 1351350.0 7 3603600.0 6 6306300.0 5 7567560.0 4 6306300.0 3 3603600.0 2 1351350.0 1 300300.0 0 30030.0) 2 (X 11 8190.0 10 90090.0 9 450450.0 8 1351350.0 7 2702700.0 6 3783780.0 5 3783780.0 4 2702700.0 3 1351350.0 2 450450.0 1 90090.0 0 8190.0) 1 (X 12 1365.0 11 16380.0 10 90090.0 9 300300.0 8 675675.0 7 1081080.0 6 1261260.0 5 1081080.0 4 675675.0 3 300300.0 2 90090.0 1 16380.0 0 1365.0) 0 (X 13 105.0 12 1365.0 11 8190.0 10 30030.0 9 75075.0 8 135135.0 7 180180.0 6 180180.0 5 135135.0 4 75075.0 3 30030.0 2 8190.0 1 1365.0 0 105.0)) 1 (Y 14 15.0 13 (X 1 210.0 0 210.0) 12 (X 2 1365.0 1 2730.0 0 1365.0) 11 (X 3 5460.0 2 16380.0 1 16380.0 0 5460.0) 10 (X 4 15015.0 3 60060.0 2 90090.0 1 60060.0 0 15015.0) 9 (X 5 30030.0 4 150150.0 3 300300.0 2 300300.0 1 150150.0 0 30030.0) 8 (X 6 45045.0 5 270270.0 4 675675.0 3 900900.0 2 675675.0 1 270270.0 0 45045.0) 7 (X 7 51480.0 6 360360.0 5 1081080.0 4 1801800.0 3 1801800.0 2 1081080.0 1 360360.0 0 51480.0) 6 (X 8 45045.0 7 360360.0 6 1261260.0 5 2522520.0 4 3153150.0 3 2522520.0 2 1261260.0 1 360360.0 0 45045.0) 5 (X 9 30030.0 8 270270.0 7 1081080.0 6 2522520.0 5 3783780.0 4 3783780.0 3 2522520.0 2 1081080.0 1 270270.0 0 30030.0) 4 (X 10 15015.0 9 150150.0 8 675675.0 7 1801800.0 6 3153150.0 5 3783780.0 4 3153150.0 3 1801800.0 2 675675.0 1 150150.0 0 15015.0) 3 (X 11 5460.0 10 60060.0 9 300300.0 8 900900.0 7 1801800.0 6 2522520.0 5 2522520.0 4 1801800.0 3 900900.0 2 300300.0 1 60060.0 0 5460.0) 2 (X 12 1365.0 11 16380.0 10 90090.0 9 300300.0 8 675675.0 7 1081080.0 6 1261260.0 5 1081080.0 4 675675.0 3 300300.0 2 90090.0 1 16380.0 0 1365.0) 1 (X 13 210.0 12 2730.0 11 16380.0 10 60060.0 9 150150.0 8 270270.0 7 360360.0 6 360360.0 5 270270.0 4 150150.0 3 60060.0 2 16380.0 1 2730.0 0 210.0) 0 (X 14 15.0 13 210.0 12 1365.0 11 5460.0 10 15015.0 9 30030.0 8 45045.0 7 51480.0 6 45045.0 5 30030.0 4 15015.0 3 5460.0 2 1365.0 1 210.0 0 15.0)) 0 (Y 15 1.0 14 (X 1 15.0 0 15.0) 13 (X 2 105.0 1 210.0 0 105.0) 12 (X 3 455.0 2 1365.0 1 1365.0 0 455.0) 11 (X 4 1365.0 3 5460.0 2 8190.0 1 5460.0 0 1365.0) 10 (X 5 3003.0 4 15015.0 3 30030.0 2 30030.0 1 15015.0 0 3003.0) 9 (X 6 5005.0 5 30030.0 4 75075.0 3 100100.0 2 75075.0 1 30030.0 0 5005.0) 8 (X 7 6435.0 6 45045.0 5 135135.0 4 225225.0 3 225225.0 2 135135.0 1 45045.0 0 6435.0) 7 (X 8 6435.0 7 51480.0 6 180180.0 5 360360.0 4 450450.0 3 360360.0 2 180180.0 1 51480.0 0 6435.0) 6 (X 9 5005.0 8 45045.0 7 180180.0 6 420420.0 5 630630.0 4 630630.0 3 420420.0 2 180180.0 1 45045.0 0 5005.0) 5 (X 10 3003.0 9 30030.0 8 135135.0 7 360360.0 6 630630.0 5 756756.0 4 630630.0 3 360360.0 2 135135.0 1 30030.0 0 3003.0) 4 (X 11 1365.0 10 15015.0 9 75075.0 8 225225.0 7 450450.0 6 630630.0 5 630630.0 4 450450.0 3 225225.0 2 75075.0 1 15015.0 0 1365.0) 3 (X 12 455.0 11 5460.0 10 30030.0 9 100100.0 8 225225.0 7 360360.0 6 420420.0 5 360360.0 4 225225.0 3 100100.0 2 30030.0 1 5460.0 0 455.0) 2 (X 13 105.0 12 1365.0 11 8190.0 10 30030.0 9 75075.0 8 135135.0 7 180180.0 6 180180.0 5 135135.0 4 75075.0 3 30030.0 2 8190.0 1 1365.0 0 105.0) 1 (X 14 15.0 13 210.0 12 1365.0 11 5460.0 10 15015.0 9 30030.0 8 45045.0 7 51480.0 6 45045.0 5 30030.0 4 15015.0 3 5460.0 2 1365.0 1 210.0 0 15.0) 0 (X 15 1.0 14 15.0 13 105.0 12 455.0 11 1365.0 10 3003.0 9 5005.0 8 6435.0 7 6435.0 6 5005.0 5 3003.0 4 1365.0 3 455.0 2 105.0 1 15.0 0 1.0))) Repeating the TIMEALL Elapsed Time = 2240.0 seconds GC time = 713.0 seconds CPU Time = 1530.0 seconds PAGEFAULTS = 34 FIXP FLOATP LISTP BIGNUM 1041160 42596 5707723 118947 Value = (Z 15 1.0 14 (Y 1 15.0 0 (X 1 15.0 0 15.0)) 13 (Y 2 105.0 1 (X 1 210.0 0 210.0) 0 (X 2 105.0 1 210.0 0 105.0)) 12 (Y 3 455.0 2 (X 1 1365.0 0 1365.0) 1 (X 2 1365.0 1 2730.0 0 1365.0) 0 (X 3 455.0 2 1365.0 1 1365.0 0 455.0)) 11 (Y 4 1365.0 3 (X 1 5460.0 0 5460.0) 2 (X 2 8190.0 1 16380.0 0 8190.0) 1 (X 3 5460.0 2 16380.0 1 16380.0 0 5460.0) 0 (X 4 1365.0 3 5460.0 2 8190.0 1 5460.0 0 1365.0)) 10 (Y 5 3003.0 4 (X 1 15015.0 0 15015.0) 3 (X 2 30030.0 1 60060.0 0 30030.0) 2 (X 3 30030.0 2 90090.0 1 90090.0 0 30030.0) 1 (X 4 15015.0 3 60060.0 2 90090.0 1 60060.0 0 15015.0) 0 (X 5 3003.0 4 15015.0 3 30030.0 2 30030.0 1 15015.0 0 3003.0)) 9 (Y 6 5005.0 5 (X 1 30030.0 0 30030.0) 4 (X 2 75075.0 1 150150.0 0 75075.0) 3 (X 3 100100.0 2 300300.0 1 300300.0 0 100100.0 ) 2 (X 4 75075.0 3 300300.0 2 450450.0 1 300300.0 0 75075.0) 1 (X 5 30030.0 4 150150.0 3 300300.0 2 300300.0 1 150150.0 0 30030.0) 0 (X 6 5005.0 5 30030.0 4 75075.0 3 100100.0 2 75075.0 1 30030.0 0 5005.0)) 8 (Y 7 6435.0 6 (X 1 45045.0 0 45045.0) 5 (X 2 135135.0 1 270270.0 0 135135.0) 4 (X 3 225225.0 2 675675.0 1 675675.0 0 225225.0) 3 (X 4 225225.0 3 900900.0 2 1351350.0 1 900900.0 0 225225.0) 2 (X 5 135135.0 4 675675.0 3 1351350.0 2 1351350.0 1 675675.0 0 135135.0) 1 (X 6 45045.0 5 270270.0 4 675675.0 3 900900.0 2 675675.0 1 270270.0 0 45045.0) 0 (X 7 6435.0 6 45045.0 5 135135.0 4 225225.0 3 225225.0 2 135135.0 1 45045.0 0 6435.0)) 7 (Y 8 6435.0 7 (X 1 51480.0 0 51480.0) 6 (X 2 180180.0 1 360360.0 0 180180.0) 5 (X 3 360360.0 2 1081080.0 1 1081080.0 0 360360.0) 4 (X 4 450450.0 3 1801800.0 2 2702700.0 1 1801800.0 0 450450.0) 3 (X 5 360360.0 4 1801800.0 3 3603600.0 2 3603600.0 1 1801800.0 0 360360.0) 2 (X 6 180180.0 5 1081080.0 4 2702700.0 3 3603600.0 2 2702700.0 1 1081080.0 0 180180.0) 1 (X 7 51480.0 6 360360.0 5 1081080.0 4 1801800.0 3 1801800.0 2 1081080.0 1 360360.0 0 51480.0) 0 (X 8 6435.0 7 51480.0 6 180180.0 5 360360.0 4 450450.0 3 360360.0 2 180180.0 1 51480.0 0 6435.0)) 6 (Y 9 5005.0 8 (X 1 45045.0 0 45045.0) 7 (X 2 180180.0 1 360360.0 0 180180.0) 6 (X 3 420420.0 2 1261260.0 1 1261260.0 0 420420.0) 5 (X 4 630630.0 3 2522520.0 2 3783780.0 1 2522520.0 0 630630.0) 4 (X 5 630630.0 4 3153150.0 3 6306300.0 2 6306300.0 1 3153150.0 0 630630.0) 3 (X 6 420420.0 5 2522520.0 4 6306300.0 3 8408400.0 2 6306300.0 1 2522520.0 0 420420.0) 2 (X 7 180180.0 6 1261260.0 5 3783780.0 4 6306300.0 3 6306300.0 2 3783780.0 1 1261260.0 0 180180.0) 1 (X 8 45045.0 7 360360.0 6 1261260.0 5 2522520.0 4 3153150.0 3 2522520.0 2 1261260.0 1 360360.0 0 45045.0) 0 (X 9 5005.0 8 45045.0 7 180180.0 6 420420.0 5 630630.0 4 630630.0 3 420420.0 2 180180.0 1 45045.0 0 5005.0)) 5 (Y 10 3003.0 9 (X 1 30030.0 0 30030.0) 8 (X 2 135135.0 1 270270.0 0 135135.0) 7 (X 3 360360.0 2 1081080.0 1 1081080.0 0 360360.0) 6 (X 4 630630.0 3 2522520.0 2 3783780.0 1 2522520.0 0 630630.0) 5 (X 5 756756.0 4 3783780.0 3 7567560.0 2 7567560.0 1 3783780.0 0 756756.0) 4 (X 6 630630.0 5 3783780.0 4 9459450.0 3 12612600.0 2 9459450.0 1 3783780.0 0 630630.0) 3 (X 7 360360.0 6 2522520.0 5 7567560.0 4 12612600.0 3 12612600.0 2 7567560.0 1 2522520.0 0 360360.0) 2 (X 8 135135.0 7 1081080.0 6 3783780.0 5 7567560.0 4 9459450.0 3 7567560.0 2 3783780.0 1 1081080.0 0 135135.0) 1 (X 9 30030.0 8 270270.0 7 1081080.0 6 2522520.0 5 3783780.0 4 3783780.0 3 2522520.0 2 1081080.0 1 270270.0 0 30030.0 ) 0 (X 10 3003.0 9 30030.0 8 135135.0 7 360360.0 6 630630.0 5 756756.0 4 630630.0 3 360360.0 2 135135.0 1 30030.0 0 3003.0)) 4 (Y 11 1365.0 10 (X 1 15015.0 0 15015.0) 9 (X 2 75075.0 1 150150.0 0 75075.0) 8 (X 3 225225.0 2 675675.0 1 675675.0 0 225225.0) 7 (X 4 450450.0 3 1801800.0 2 2702700.0 1 1801800.0 0 450450.0) 6 (X 5 630630.0 4 3153150.0 3 6306300.0 2 6306300.0 1 3153150.0 0 630630.0) 5 (X 6 630630.0 5 3783780.0 4 9459450.0 3 12612600.0 2 9459450.0 1 3783780.0 0 630630.0) 4 (X 7 450450.0 6 3153150.0 5 9459450.0 4 15765750.0 3 15765750.0 2 9459450.0 1 3153150.0 0 450450.0) 3 (X 8 225225.0 7 1801800.0 6 6306300.0 5 12612600.0 4 15765750.0 3 12612600.0 2 6306300.0 1 1801800.0 0 225225.0) 2 (X 9 75075.0 8 675675.0 7 2702700.0 6 6306300.0 5 9459450.0 4 9459450.0 3 6306300.0 2 2702700.0 1 675675.0 0 75075.0) 1 (X 10 15015.0 9 150150.0 8 675675.0 7 1801800.0 6 3153150.0 5 3783780.0 4 3153150.0 3 1801800.0 2 675675.0 1 150150.0 0 15015.0) 0 (X 11 1365.0 10 15015.0 9 75075.0 8 225225.0 7 450450.0 6 630630.0 5 630630.0 4 450450.0 3 225225.0 2 75075.0 1 15015.0 0 1365.0)) 3 (Y 12 455.0 11 (X 1 5460.0 0 5460.0) 10 (X 2 30030.0 1 60060.0 0 30030.0) 9 (X 3 100100.0 2 300300.0 1 300300.0 0 100100.0) 8 (X 4 225225.0 3 900900.0 2 1351350.0 1 900900.0 0 225225.0) 7 (X 5 360360.0 4 1801800.0 3 3603600.0 2 3603600.0 1 1801800.0 0 360360.0) 6 (X 6 420420.0 5 2522520.0 4 6306300.0 3 8408400.0 2 6306300.0 1 2522520.0 0 420420.0) 5 (X 7 360360.0 6 2522520.0 5 7567560.0 4 12612600.0 3 12612600.0 2 7567560.0 1 2522520.0 0 360360.0) 4 (X 8 225225.0 7 1801800.0 6 6306300.0 5 12612600.0 4 15765750.0 3 12612600.0 2 6306300.0 1 1801800.0 0 225225.0) 3 (X 9 100100.0 8 900900.0 7 3603600.0 6 8408400.0 5 12612600.0 4 12612600.0 3 8408400.0 2 3603600.0 1 900900.0 0 100100.0) 2 (X 10 30030.0 9 300300.0 8 1351350.0 7 3603600.0 6 6306300.0 5 7567560.0 4 6306300.0 3 3603600.0 2 1351350.0 1 300300.0 0 30030.0) 1 (X 11 5460.0 10 60060.0 9 300300.0 8 900900.0 7 1801800.0 6 2522520.0 5 2522520.0 4 1801800.0 3 900900.0 2 300300.0 1 60060.0 0 5460.0) 0 (X 12 455.0 11 5460.0 10 30030.0 9 100100.0 8 225225.0 7 360360.0 6 420420.0 5 360360.0 4 225225.0 3 100100.0 2 30030.0 1 5460.0 0 455.0)) 2 (Y 13 105.0 12 (X 1 1365.0 0 1365.0) 11 (X 2 8190.0 1 16380.0 0 8190.0) 10 (X 3 30030.0 2 90090.0 1 90090.0 0 30030.0) 9 (X 4 75075.0 3 300300.0 2 450450.0 1 300300.0 0 75075.0) 8 (X 5 135135.0 4 675675.0 3 1351350.0 2 1351350.0 1 675675.0 0 135135.0) 7 (X 6 180180.0 5 1081080.0 4 2702700.0 3 3603600.0 2 2702700.0 1 1081080.0 0 180180.0) 6 (X 7 180180.0 6 1261260.0 5 3783780.0 4 6306300.0 3 6306300.0 2 3783780.0 1 1261260.0 0 180180.0) 5 (X 8 135135.0 7 1081080.0 6 3783780.0 5 7567560.0 4 9459450.0 3 7567560.0 2 3783780.0 1 1081080.0 0 135135.0) 4 (X 9 75075.0 8 675675.0 7 2702700.0 6 6306300.0 5 9459450.0 4 9459450.0 3 6306300.0 2 2702700.0 1 675675.0 0 75075.0) 3 (X 10 30030.0 9 300300.0 8 1351350.0 7 3603600.0 6 6306300.0 5 7567560.0 4 6306300.0 3 3603600.0 2 1351350.0 1 300300.0 0 30030.0) 2 (X 11 8190.0 10 90090.0 9 450450.0 8 1351350.0 7 2702700.0 6 3783780.0 5 3783780.0 4 2702700.0 3 1351350.0 2 450450.0 1 90090.0 0 8190.0) 1 (X 12 1365.0 11 16380.0 10 90090.0 9 300300.0 8 675675.0 7 1081080.0 6 1261260.0 5 1081080.0 4 675675.0 3 300300.0 2 90090.0 1 16380.0 0 1365.0) 0 (X 13 105.0 12 1365.0 11 8190.0 10 30030.0 9 75075.0 8 135135.0 7 180180.0 6 180180.0 5 135135.0 4 75075.0 3 30030.0 2 8190.0 1 1365.0 0 105.0)) 1 (Y 14 15.0 13 (X 1 210.0 0 210.0) 12 (X 2 1365.0 1 2730.0 0 1365.0) 11 (X 3 5460.0 2 16380.0 1 16380.0 0 5460.0) 10 (X 4 15015.0 3 60060.0 2 90090.0 1 60060.0 0 15015.0) 9 (X 5 30030.0 4 150150.0 3 300300.0 2 300300.0 1 150150.0 0 30030.0) 8 (X 6 45045.0 5 270270.0 4 675675.0 3 900900.0 2 675675.0 1 270270.0 0 45045.0) 7 (X 7 51480.0 6 360360.0 5 1081080.0 4 1801800.0 3 1801800.0 2 1081080.0 1 360360.0 0 51480.0) 6 (X 8 45045.0 7 360360.0 6 1261260.0 5 2522520.0 4 3153150.0 3 2522520.0 2 1261260.0 1 360360.0 0 45045.0) 5 (X 9 30030.0 8 270270.0 7 1081080.0 6 2522520.0 5 3783780.0 4 3783780.0 3 2522520.0 2 1081080.0 1 270270.0 0 30030.0) 4 (X 10 15015.0 9 150150.0 8 675675.0 7 1801800.0 6 3153150.0 5 3783780.0 4 3153150.0 3 1801800.0 2 675675.0 1 150150.0 0 15015.0) 3 (X 11 5460.0 10 60060.0 9 300300.0 8 900900.0 7 1801800.0 6 2522520.0 5 2522520.0 4 1801800.0 3 900900.0 2 300300.0 1 60060.0 0 5460.0) 2 (X 12 1365.0 11 16380.0 10 90090.0 9 300300.0 8 675675.0 7 1081080.0 6 1261260.0 5 1081080.0 4 675675.0 3 300300.0 2 90090.0 1 16380.0 0 1365.0) 1 (X 13 210.0 12 2730.0 11 16380.0 10 60060.0 9 150150.0 8 270270.0 7 360360.0 6 360360.0 5 270270.0 4 150150.0 3 60060.0 2 16380.0 1 2730.0 0 210.0) 0 (X 14 15.0 13 210.0 12 1365.0 11 5460.0 10 15015.0 9 30030.0 8 45045.0 7 51480.0 6 45045.0 5 30030.0 4 15015.0 3 5460.0 2 1365.0 1 210.0 0 15.0)) 0 (Y 15 1.0 14 (X 1 15.0 0 15.0) 13 (X 2 105.0 1 210.0 0 105.0) 12 (X 3 455.0 2 1365.0 1 1365.0 0 455.0) 11 (X 4 1365.0 3 5460.0 2 8190.0 1 5460.0 0 1365.0) 10 (X 5 3003.0 4 15015.0 3 30030.0 2 30030.0 1 15015.0 0 3003.0) 9 (X 6 5005.0 5 30030.0 4 75075.0 3 100100.0 2 75075.0 1 30030.0 0 5005.0) 8 (X 7 6435.0 6 45045.0 5 135135.0 4 225225.0 3 225225.0 2 135135.0 1 45045.0 0 6435.0) 7 (X 8 6435.0 7 51480.0 6 180180.0 5 360360.0 4 450450.0 3 360360.0 2 180180.0 1 51480.0 0 6435.0) 6 (X 9 5005.0 8 45045.0 7 180180.0 6 420420.0 5 630630.0 4 630630.0 3 420420.0 2 180180.0 1 45045.0 0 5005.0) 5 (X 10 3003.0 9 30030.0 8 135135.0 7 360360.0 6 630630.0 5 756756.0 4 630630.0 3 360360.0 2 135135.0 1 30030.0 0 3003.0) 4 (X 11 1365.0 10 15015.0 9 75075.0 8 225225.0 7 450450.0 6 630630.0 5 630630.0 4 450450.0 3 225225.0 2 75075.0 1 15015.0 0 1365.0) 3 (X 12 455.0 11 5460.0 10 30030.0 9 100100.0 8 225225.0 7 360360.0 6 420420.0 5 360360.0 4 225225.0 3 100100.0 2 30030.0 1 5460.0 0 455.0) 2 (X 13 105.0 12 1365.0 11 8190.0 10 30030.0 9 75075.0 8 135135.0 7 180180.0 6 180180.0 5 135135.0 4 75075.0 3 30030.0 2 8190.0 1 1365.0 0 105.0) 1 (X 14 15.0 13 210.0 12 1365.0 11 5460.0 10 15015.0 9 30030.0 8 45045.0 7 51480.0 6 45045.0 5 30030.0 4 15015.0 3 5460.0 2 1365.0 1 210.0 0 15.0) 0 (X 15 1.0 14 15.0 13 105.0 12 455.0 11 1365.0 10 3003.0 9 5005.0 8 6435.0 7 6435.0 6 5005.0 5 3003.0 4 1365.0 3 455.0 2 105.0 1 15.0 0 1.0))) POLYNOMIAL finished Finished benchmarking \ No newline at end of file diff --git a/internal/gabriel/Results/KOTO-DOVE.BENCHMARKS b/internal/gabriel/Results/KOTO-DOVE.BENCHMARKS deleted file mode 100644 index 8accc941..00000000 --- a/internal/gabriel/Results/KOTO-DOVE.BENCHMARKS +++ /dev/null @@ -1 +0,0 @@ - MACHINETYPE = DOVE MAKESYSNAME = KOTO MAKESYSDATE = 12-Nov-85 15:14:37 DATE = 17-Nov-85 15:13:52 USERNAME = PEDERSEN ************ TAK BENCHMARK ************** Starting the TAK run: (TIMEALL (TAK 18 12 6)) Elapsed Time = 1.69 seconds CPU Time = 1.69 seconds Value = 7 Repeating the TIMEALL Elapsed Time = 1.68 seconds CPU Time = 1.68 seconds Value = 7 TAK finished ************ STAK BENCHMARK ************** Starting the STAK run: (TIMEALL (STAK)) Elapsed Time = 4.36 seconds CPU Time = 4.36 seconds Value = 7 Repeating the TIMEALL Elapsed Time = 4.36 seconds CPU Time = 4.36 seconds STAK finished ************ CTAK BENCHMARK ************** Starting the CTAK run: (TIMEALL (CTAK 18 12 6)) Elapsed Time = 55.1 seconds CPU Time = 55.1 seconds Value = 7 Repeating the TIMEALL Elapsed Time = 55.1 seconds CPU Time = 55.1 seconds Value = 7 CTAK finished ************ TAKL BENCHMARK ************** Starting the TAKL run: (TIMEALL (TAKL 18L 12L 6L)) Elapsed Time = 12.6 seconds CPU Time = 12.6 seconds Value = (7 6 5 4 3 2 1) Repeating the TIMEALL Elapsed Time = 12.6 seconds CPU Time = 12.6 seconds Value = (7 6 5 4 3 2 1) TAKL finished ************ TAKR BENCHMARK ************** Starting the TAKR run: (TIMEALL (TAK0 18 12 6)) Elapsed Time = 1.77 seconds CPU Time = 1.77 seconds Value = 7 Repeating the TIMEALL Elapsed Time = 1.77 seconds CPU Time = 1.77 seconds Value = 7 TAKR finished ********* BOYER BENCHMARK *********** Initializing BOYER run: (TIMEALL (SETUP)) Elapsed Time = .203 seconds SWAP time = .111 seconds CPU Time = .092 seconds PAGEFAULTS = 5 LISTP 224 starting BOYER run: (TIMEALL (TEST-BOYER)) Elapsed Time = 106.0 seconds SWAP time = .043 seconds GC time = 37.3 seconds CPU Time = 68.7 seconds PAGEFAULTS = 557 FIXP LISTP 7 226469 Repeating the TIMEALL Elapsed Time = 100.0 seconds GC time = 36.7 seconds CPU Time = 63.4 seconds FIXP LISTP 7 226469 BOYER finished ********* BROWSE BENCHMARK *********** starting BROWSE run: (TIMEALL (BROWSE)) Elapsed Time = 343.0 seconds SWAP time = .864 seconds GC time = 132.0 seconds CPU Time = 210.0 seconds PAGEFAULTS = 80 LISTP 488945 Repeating the TIMEALL Elapsed Time = 358.0 seconds SWAP time = .5 seconds GC time = 138.0 seconds CPU Time = 219.0 seconds PAGEFAULTS = 69 LISTP 488945 BROWSE finished *********** THE DESTRUCTIVE BENCHMARK ************ Starting the DESTRUCTIVE run: (TIMEALL (DESTRUCTIVE 600 50)) Elapsed Time = 18.9 seconds GC time = 6.02 seconds CPU Time = 12.8 seconds LISTP 43105 Value = ((1 1 2) (1 1 1) (1 1 1 2) (1 1 1 1) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 3)) Repeating the TIMEALL Elapsed Time = 19.0 seconds GC time = 6.18 seconds CPU Time = 12.9 seconds LISTP 43105 Value = ((1 1 2) (1 1 1) (1 1 1 2) (1 1 1 1) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 3)) DESTRUCTIVE finished ************* THE TRAVERSE BENCHMAK ************ Starting the TRAVERSE initialization: (TIMEALL (INIT-TRAVERSE)) Elapsed Time = 74.5 seconds SWAP time = .052 seconds GC time = 1.2 seconds CPU Time = 73.2 seconds PAGEFAULTS = 4 LISTP NODE 36796 100 Starting the TRAVERSE run: (TIMEALL (RUN-TRAVERSE)) Elapsed Time = 144.0 seconds CPU Time = 144.0 seconds Repeating the TIMEALL Elapsed Time = 144.0 seconds CPU Time = 144.0 seconds TRAVERSE finished ******* Derivative Benchmark ********** Starting the DERIV run: (TIMEALL (RUN-DERIV)) Elapsed Time = 61.5 seconds GC time = 39.6 seconds CPU Time = 21.9 seconds LISTP 245000 Value = NIL Repeating the TIMEALL Elapsed Time = 64.1 seconds GC time = 40.9 seconds CPU Time = 23.2 seconds LISTP 245000 Value = NIL DERIV finished ******* Data-Driven Derivative Benchmark ********** Starting the DDERIV run: (TIMEALL (RUN-DDERIV)) Elapsed Time = 81.0 seconds GC time = 48.9 seconds CPU Time = 32.1 seconds LISTP 260000 Value = NIL Repeating the TIMEALL Elapsed Time = 80.0 seconds GC time = 48.3 seconds CPU Time = 31.8 seconds LISTP 260000 Value = NIL DDERIV finished ******* DIVIDE BY TWO BENCHMARK ********** Starting the iterative DIV2 run: (TIMEALL (TEST1 L)) Elapsed Time = 30.2 seconds GC time = 20.7 seconds CPU Time = 9.51 seconds LISTP 120000 Repeating the TIMEALL Elapsed Time = 30.1 seconds GC time = 20.6 seconds CPU Time = 9.54 seconds LISTP 120000 Starting the recursive DIV2 run: (TIMEALL (TEST2 L)) Elapsed Time = 33.6 seconds GC time = 20.9 seconds CPU Time = 12.7 seconds LISTP 120000 Repeating the TIMEALL Elapsed Time = 33.7 seconds GC time = 21.1 seconds CPU Time = 12.6 seconds LISTP 120000 DIV2 finished *************** THE FFT BENCHMARK *********** Starting FFT run: (TIMEALL (FFT-BENCH)) Elapsed Time = 835.0 seconds SWAP time = .964 seconds GC time = 172.0 seconds CPU Time = 662.0 seconds PAGEFAULTS = 220 FLOATP 1010220 Repeating the TIMEALL Elapsed Time = 825.0 seconds SWAP time = .307 seconds GC time = 165.0 seconds CPU Time = 660.0 seconds PAGEFAULTS = 87 FLOATP 1010220 FFT finished *************** THE PUZZLE BENCHMARK *********** Starting PUZZLE run: (TIMEALL (START)) Success in 2005 trials. Elapsed Time = 114.0 seconds CPU Time = 114.0 seconds Value = NIL Repeating the TIMEALL Success in 2005 trials. Elapsed Time = 114.0 seconds CPU Time = 114.0 seconds Value = NIL PUZZLE finished *************** THE TRIANGLE BENCHMARK *********** Starting TRIANG run: (TIMEALL (GOGOGO 22)) Elapsed Time = 2160.0 seconds GC time = .417 seconds CPU Time = 2160.0 seconds PAGEFAULTS = 8 LISTP 11626 Value = NIL Repeating the TIMEALL Elapsed Time = 2170.0 seconds GC time = .435 seconds CPU Time = 2170.0 seconds LISTP 11626 Value = NIL TRIANG finished ******************************************************************* DSK file I/O benchmarks: FPRINT and FREAD Terminal printing (to window): TPRINT ******************************************************************* Starting FPRINT: (TIMEALL (FPRINT)) Elapsed Time = 9.88 seconds SWAP time = .263 seconds GC time = .342 seconds CPU Time = 9.27 seconds PAGEFAULTS = 8 FIXP LISTP STRINGP VMEMPAGEP STREAM PageGroup FileDescriptor 158 576 53 1 1 48 1 Repeating the TIMEALL Elapsed Time = 9.46 seconds GC time = .337 seconds CPU Time = 9.12 seconds FIXP LISTP STRINGP VMEMPAGEP STREAM PageGroup FileDescriptor 158 575 53 1 1 48 1 FPRINT finished Starting the FREAD run: (TIMEALL (FREAD)) Elapsed Time = 5.85 seconds GC time = .253 seconds CPU Time = 5.6 seconds FIXP LISTP STRINGP VMEMPAGEP STREAM PageGroup FileDescriptor 108 2511 27 1 1 37 1 Repeating the TIMEALL Elapsed Time = 5.85 seconds GC time = .26 seconds CPU Time = 5.59 seconds PAGEFAULTS = 2 FIXP LISTP STRINGP VMEMPAGEP STREAM PageGroup FileDescriptor 108 2511 27 1 1 37 1 FREAD finished Starting the TPRINT run: (TPRINT) Elapsed Time = 22.8 seconds CPU Time = 22.8 seconds Repeating the TIMEALL Elapsed Time = 22.8 seconds CPU Time = 22.8 seconds TPRINT finished *************** THE POLYNOMIAL BENCHMARK *********** Starting POLY 2 run: (TIMEALL (BENCH 2)) Elapsed Time = .697 seconds SWAP time = .219 seconds CPU Time = .478 seconds PAGEFAULTS = 11 FIXP FLOATP LISTP BIGNUM 86 32 726 73 Value = (Z 2 1.0 1 (Y 1 2.0 0 (X 1 2.0 0 2.0)) 0 (Y 2 1.0 1 (X 1 2.0 0 2.0) 0 (X 2 1.0 1 2.0 0 1.0))) Repeating the TIMEALL Elapsed Time = .463 seconds CPU Time = .463 seconds FIXP FLOATP LISTP BIGNUM 86 32 726 73 Value = (Z 2 1.0 1 (Y 1 2.0 0 (X 1 2.0 0 2.0)) 0 (Y 2 1.0 1 (X 1 2.0 0 2.0) 0 (X 2 1.0 1 2.0 0 1.0))) Starting POLY 5 run: (TIMEALL (BENCH 5)) Elapsed Time = 15.4 seconds SWAP time = .051 seconds GC time = 3.92 seconds CPU Time = 11.5 seconds PAGEFAULTS = 3 FIXP FLOATP LISTP BIGNUM 1842 411 12782 1153 Value = (Z 5 1.0 4 (Y 1 5.0 0 (X 1 5.0 0 5.0)) 3 (Y 2 10.0 1 (X 1 20.0 0 20.0) 0 (X 2 10.0 1 20.0 0 10.0)) 2 (Y 3 10.0 2 (X 1 30.0 0 30.0) 1 (X 2 30.0 1 60.0 0 30.0) 0 (X 3 10.0 2 30.0 1 30.0 0 10.0)) 1 (Y 4 5.0 3 (X 1 20.0 0 20.0) 2 (X 2 30.0 1 60.0 0 30.0) 1 (X 3 20.0 2 60.0 1 60.0 0 20.0) 0 (X 4 5.0 3 20.0 2 30.0 1 20.0 0 5.0)) 0 (Y 5 1.0 4 (X 1 5.0 0 5.0) 3 (X 2 10.0 1 20.0 0 10.0) 2 (X 3 10.0 2 30.0 1 30.0 0 10.0) 1 (X 4 5.0 3 20.0 2 30.0 1 20.0 0 5.0) 0 (X 5 1.0 4 5.0 3 10.0 2 10.0 1 5.0 0 1.0))) Repeating the TIMEALL Elapsed Time = 15.4 seconds SWAP time = .068 seconds GC time = 3.83 seconds CPU Time = 11.5 seconds PAGEFAULTS = 2 FIXP FLOATP LISTP BIGNUM 1842 411 12782 1153 Value = (Z 5 1.0 4 (Y 1 5.0 0 (X 1 5.0 0 5.0)) 3 (Y 2 10.0 1 (X 1 20.0 0 20.0) 0 (X 2 10.0 1 20.0 0 10.0)) 2 (Y 3 10.0 2 (X 1 30.0 0 30.0) 1 (X 2 30.0 1 60.0 0 30.0) 0 (X 3 10.0 2 30.0 1 30.0 0 10.0)) 1 (Y 4 5.0 3 (X 1 20.0 0 20.0) 2 (X 2 30.0 1 60.0 0 30.0) 1 (X 3 20.0 2 60.0 1 60.0 0 20.0) 0 (X 4 5.0 3 20.0 2 30.0 1 20.0 0 5.0)) 0 (Y 5 1.0 4 (X 1 5.0 0 5.0) 3 (X 2 10.0 1 20.0 0 10.0) 2 (X 3 10.0 2 30.0 1 30.0 0 10.0) 1 (X 4 5.0 3 20.0 2 30.0 1 20.0 0 5.0) 0 (X 5 1.0 4 5.0 3 10.0 2 10.0 1 5.0 0 1.0))) Starting POLY 10 run: (TIMEALL (BENCH 10)) Elapsed Time = 465.0 seconds SWAP time = .056 seconds GC time = 116.0 seconds CPU Time = 349.0 seconds PAGEFAULTS = 33 FIXP FLOATP LISTP BIGNUM 54143 5496 334320 16330 Value = (Z 10 1.0 9 (Y 1 10.0 0 (X 1 10.0 0 10.0)) 8 (Y 2 45.0 1 (X 1 90.0 0 90.0) 0 (X 2 45.0 1 90.0 0 45.0)) 7 (Y 3 120.0 2 (X 1 360.0 0 360.0) 1 (X 2 360.0 1 720.0 0 360.0) 0 (X 3 120.0 2 360.0 1 360.0 0 120.0)) 6 (Y 4 210.0 3 ( X 1 840.0 0 840.0) 2 (X 2 1260.0 1 2520.0 0 1260.0) 1 (X 3 840.0 2 2520.0 1 2520.0 0 840.0) 0 (X 4 210.0 3 840.0 2 1260.0 1 840.0 0 210.0)) 5 (Y 5 252.0 4 (X 1 1260.0 0 1260.0) 3 (X 2 2520.0 1 5040.0 0 2520.0) 2 (X 3 2520.0 2 7560.0 1 7560.0 0 2520.0) 1 (X 4 1260.0 3 5040.0 2 7560.0 1 5040.0 0 1260.0) 0 (X 5 252.0 4 1260.0 3 2520.0 2 2520.0 1 1260.0 0 252.0)) 4 (Y 6 210.0 5 (X 1 1260.0 0 1260.0) 4 (X 2 3150.0 1 6300.0 0 3150.0) 3 (X 3 4200.0 2 12600.0 1 12600.0 0 4200.0) 2 (X 4 3150.0 3 12600.0 2 18900.0 1 12600.0 0 3150.0) 1 (X 5 1260.0 4 6300.0 3 12600.0 2 12600.0 1 6300.0 0 1260.0) 0 (X 6 210.0 5 1260.0 4 3150.0 3 4200.0 2 3150.0 1 1260.0 0 210.0)) 3 (Y 7 120.0 6 (X 1 840.0 0 840.0) 5 (X 2 2520.0 1 5040.0 0 2520.0) 4 (X 3 4200.0 2 12600.0 1 12600.0 0 4200.0) 3 (X 4 4200.0 3 16800.0 2 25200.0 1 16800.0 0 4200.0) 2 (X 5 2520.0 4 12600.0 3 25200.0 2 25200.0 1 12600.0 0 2520.0) 1 (X 6 840.0 5 5040.0 4 12600.0 3 16800.0 2 12600.0 1 5040.0 0 840.0) 0 (X 7 120.0 6 840.0 5 2520.0 4 4200.0 3 4200.0 2 2520.0 1 840.0 0 120.0)) 2 (Y 8 45.0 7 (X 1 360.0 0 360.0) 6 (X 2 1260.0 1 2520.0 0 1260.0) 5 (X 3 2520.0 2 7560.0 1 7560.0 0 2520.0) 4 (X 4 3150.0 3 12600.0 2 18900.0 1 12600.0 0 3150.0) 3 (X 5 2520.0 4 12600.0 3 25200.0 2 25200.0 1 12600.0 0 2520.0) 2 (X 6 1260.0 5 7560.0 4 18900.0 3 25200.0 2 18900.0 1 7560.0 0 1260.0) 1 (X 7 360.0 6 2520.0 5 7560.0 4 12600.0 3 12600.0 2 7560.0 1 2520.0 0 360.0) 0 (X 8 45.0 7 360.0 6 1260.0 5 2520.0 4 3150.0 3 2520.0 2 1260.0 1 360.0 0 45.0)) 1 (Y 9 10.0 8 (X 1 90.0 0 90.0) 7 (X 2 360.0 1 720.0 0 360.0) 6 (X 3 840.0 2 2520.0 1 2520.0 0 840.0) 5 (X 4 1260.0 3 5040.0 2 7560.0 1 5040.0 0 1260.0) 4 (X 5 1260.0 4 6300.0 3 12600.0 2 12600.0 1 6300.0 0 1260.0) 3 (X 6 840.0 5 5040.0 4 12600.0 3 16800.0 2 12600.0 1 5040.0 0 840.0) 2 (X 7 360.0 6 2520.0 5 7560.0 4 12600.0 3 12600.0 2 7560.0 1 2520.0 0 360.0) 1 (X 8 90.0 7 720.0 6 2520.0 5 5040.0 4 6300.0 3 5040.0 2 2520.0 1 720.0 0 90.0) 0 (X 9 10.0 8 90.0 7 360.0 6 840.0 5 1260.0 4 1260.0 3 840.0 2 360.0 1 90.0 0 10.0)) 0 (Y 10 1.0 9 (X 1 10.0 0 10.0) 8 (X 2 45.0 1 90.0 0 45.0) 7 (X 3 120.0 2 360.0 1 360.0 0 120.0) 6 (X 4 210.0 3 840.0 2 1260.0 1 840.0 0 210.0) 5 (X 5 252.0 4 1260.0 3 2520.0 2 2520.0 1 1260.0 0 252.0) 4 (X 6 210.0 5 1260.0 4 3150.0 3 4200.0 2 3150.0 1 1260.0 0 210.0) 3 (X 7 120.0 6 840.0 5 2520.0 4 4200.0 3 4200.0 2 2520.0 1 840.0 0 120.0) 2 (X 8 45.0 7 360.0 6 1260.0 5 2520.0 4 3150.0 3 2520.0 2 1260.0 1 360.0 0 45.0) 1 (X 9 10.0 8 90.0 7 360.0 6 840.0 5 1260.0 4 1260.0 3 840.0 2 360.0 1 90.0 0 10.0 ) 0 (X 10 1.0 9 10.0 8 45.0 7 120.0 6 210.0 5 252.0 4 210.0 3 120.0 2 45.0 1 10.0 0 1.0))) Repeating the TIMEALL Elapsed Time = 468.0 seconds GC time = 118.0 seconds CPU Time = 350.0 seconds PAGEFAULTS = 10 FIXP FLOATP LISTP BIGNUM 54142 5496 334320 16330 Value = (Z 10 1.0 9 (Y 1 10.0 0 (X 1 10.0 0 10.0)) 8 (Y 2 45.0 1 (X 1 90.0 0 90.0) 0 (X 2 45.0 1 90.0 0 45.0)) 7 (Y 3 120.0 2 (X 1 360.0 0 360.0) 1 (X 2 360.0 1 720.0 0 360.0) 0 (X 3 120.0 2 360.0 1 360.0 0 120.0)) 6 (Y 4 210.0 3 ( X 1 840.0 0 840.0) 2 (X 2 1260.0 1 2520.0 0 1260.0) 1 (X 3 840.0 2 2520.0 1 2520.0 0 840.0) 0 (X 4 210.0 3 840.0 2 1260.0 1 840.0 0 210.0)) 5 (Y 5 252.0 4 (X 1 1260.0 0 1260.0) 3 (X 2 2520.0 1 5040.0 0 2520.0) 2 (X 3 2520.0 2 7560.0 1 7560.0 0 2520.0) 1 (X 4 1260.0 3 5040.0 2 7560.0 1 5040.0 0 1260.0) 0 (X 5 252.0 4 1260.0 3 2520.0 2 2520.0 1 1260.0 0 252.0)) 4 (Y 6 210.0 5 (X 1 1260.0 0 1260.0) 4 (X 2 3150.0 1 6300.0 0 3150.0) 3 (X 3 4200.0 2 12600.0 1 12600.0 0 4200.0) 2 (X 4 3150.0 3 12600.0 2 18900.0 1 12600.0 0 3150.0) 1 (X 5 1260.0 4 6300.0 3 12600.0 2 12600.0 1 6300.0 0 1260.0) 0 (X 6 210.0 5 1260.0 4 3150.0 3 4200.0 2 3150.0 1 1260.0 0 210.0)) 3 (Y 7 120.0 6 (X 1 840.0 0 840.0) 5 (X 2 2520.0 1 5040.0 0 2520.0) 4 (X 3 4200.0 2 12600.0 1 12600.0 0 4200.0) 3 (X 4 4200.0 3 16800.0 2 25200.0 1 16800.0 0 4200.0) 2 (X 5 2520.0 4 12600.0 3 25200.0 2 25200.0 1 12600.0 0 2520.0) 1 (X 6 840.0 5 5040.0 4 12600.0 3 16800.0 2 12600.0 1 5040.0 0 840.0) 0 (X 7 120.0 6 840.0 5 2520.0 4 4200.0 3 4200.0 2 2520.0 1 840.0 0 120.0)) 2 (Y 8 45.0 7 (X 1 360.0 0 360.0) 6 (X 2 1260.0 1 2520.0 0 1260.0) 5 (X 3 2520.0 2 7560.0 1 7560.0 0 2520.0) 4 (X 4 3150.0 3 12600.0 2 18900.0 1 12600.0 0 3150.0) 3 (X 5 2520.0 4 12600.0 3 25200.0 2 25200.0 1 12600.0 0 2520.0) 2 (X 6 1260.0 5 7560.0 4 18900.0 3 25200.0 2 18900.0 1 7560.0 0 1260.0) 1 (X 7 360.0 6 2520.0 5 7560.0 4 12600.0 3 12600.0 2 7560.0 1 2520.0 0 360.0) 0 (X 8 45.0 7 360.0 6 1260.0 5 2520.0 4 3150.0 3 2520.0 2 1260.0 1 360.0 0 45.0)) 1 (Y 9 10.0 8 (X 1 90.0 0 90.0) 7 (X 2 360.0 1 720.0 0 360.0) 6 (X 3 840.0 2 2520.0 1 2520.0 0 840.0) 5 (X 4 1260.0 3 5040.0 2 7560.0 1 5040.0 0 1260.0) 4 (X 5 1260.0 4 6300.0 3 12600.0 2 12600.0 1 6300.0 0 1260.0) 3 (X 6 840.0 5 5040.0 4 12600.0 3 16800.0 2 12600.0 1 5040.0 0 840.0) 2 (X 7 360.0 6 2520.0 5 7560.0 4 12600.0 3 12600.0 2 7560.0 1 2520.0 0 360.0) 1 (X 8 90.0 7 720.0 6 2520.0 5 5040.0 4 6300.0 3 5040.0 2 2520.0 1 720.0 0 90.0) 0 (X 9 10.0 8 90.0 7 360.0 6 840.0 5 1260.0 4 1260.0 3 840.0 2 360.0 1 90.0 0 10.0)) 0 (Y 10 1.0 9 (X 1 10.0 0 10.0) 8 (X 2 45.0 1 90.0 0 45.0) 7 (X 3 120.0 2 360.0 1 360.0 0 120.0) 6 (X 4 210.0 3 840.0 2 1260.0 1 840.0 0 210.0) 5 (X 5 252.0 4 1260.0 3 2520.0 2 2520.0 1 1260.0 0 252.0) 4 (X 6 210.0 5 1260.0 4 3150.0 3 4200.0 2 3150.0 1 1260.0 0 210.0) 3 (X 7 120.0 6 840.0 5 2520.0 4 4200.0 3 4200.0 2 2520.0 1 840.0 0 120.0) 2 (X 8 45.0 7 360.0 6 1260.0 5 2520.0 4 3150.0 3 2520.0 2 1260.0 1 360.0 0 45.0) 1 (X 9 10.0 8 90.0 7 360.0 6 840.0 5 1260.0 4 1260.0 3 840.0 2 360.0 1 90.0 0 10.0 ) 0 (X 10 1.0 9 10.0 8 45.0 7 120.0 6 210.0 5 252.0 4 210.0 3 120.0 2 45.0 1 10.0 0 1.0))) Starting POLY 15 run: (TIMEALL (BENCH 15)) Elapsed Time = 8480.0 seconds SWAP time = .056 seconds GC time = 2110.0 seconds CPU Time = 6380.0 seconds PAGEFAULTS = 178 FIXP FLOATP LISTP BIGNUM 1041160 42596 5707723 118947 Value = (Z 15 1.0 14 (Y 1 15.0 0 (X 1 15.0 0 15.0)) 13 (Y 2 105.0 1 (X 1 210.0 0 210.0) 0 (X 2 105.0 1 210.0 0 105.0)) 12 (Y 3 455.0 2 (X 1 1365.0 0 1365.0) 1 (X 2 1365.0 1 2730.0 0 1365.0) 0 (X 3 455.0 2 1365.0 1 1365.0 0 455.0)) 11 (Y 4 1365.0 3 (X 1 5460.0 0 5460.0) 2 (X 2 8190.0 1 16380.0 0 8190.0) 1 (X 3 5460.0 2 16380.0 1 16380.0 0 5460.0) 0 (X 4 1365.0 3 5460.0 2 8190.0 1 5460.0 0 1365.0)) 10 (Y 5 3003.0 4 (X 1 15015.0 0 15015.0) 3 (X 2 30030.0 1 60060.0 0 30030.0) 2 (X 3 30030.0 2 90090.0 1 90090.0 0 30030.0) 1 (X 4 15015.0 3 60060.0 2 90090.0 1 60060.0 0 15015.0) 0 (X 5 3003.0 4 15015.0 3 30030.0 2 30030.0 1 15015.0 0 3003.0)) 9 (Y 6 5005.0 5 (X 1 30030.0 0 30030.0) 4 (X 2 75075.0 1 150150.0 0 75075.0) 3 (X 3 100100.0 2 300300.0 1 300300.0 0 100100.0 ) 2 (X 4 75075.0 3 300300.0 2 450450.0 1 300300.0 0 75075.0) 1 (X 5 30030.0 4 150150.0 3 300300.0 2 300300.0 1 150150.0 0 30030.0) 0 (X 6 5005.0 5 30030.0 4 75075.0 3 100100.0 2 75075.0 1 30030.0 0 5005.0)) 8 (Y 7 6435.0 6 (X 1 45045.0 0 45045.0) 5 (X 2 135135.0 1 270270.0 0 135135.0) 4 (X 3 225225.0 2 675675.0 1 675675.0 0 225225.0) 3 (X 4 225225.0 3 900900.0 2 1351350.0 1 900900.0 0 225225.0) 2 (X 5 135135.0 4 675675.0 3 1351350.0 2 1351350.0 1 675675.0 0 135135.0) 1 (X 6 45045.0 5 270270.0 4 675675.0 3 900900.0 2 675675.0 1 270270.0 0 45045.0) 0 (X 7 6435.0 6 45045.0 5 135135.0 4 225225.0 3 225225.0 2 135135.0 1 45045.0 0 6435.0)) 7 (Y 8 6435.0 7 (X 1 51480.0 0 51480.0) 6 (X 2 180180.0 1 360360.0 0 180180.0) 5 (X 3 360360.0 2 1081080.0 1 1081080.0 0 360360.0) 4 (X 4 450450.0 3 1801800.0 2 2702700.0 1 1801800.0 0 450450.0) 3 (X 5 360360.0 4 1801800.0 3 3603600.0 2 3603600.0 1 1801800.0 0 360360.0) 2 (X 6 180180.0 5 1081080.0 4 2702700.0 3 3603600.0 2 2702700.0 1 1081080.0 0 180180.0) 1 (X 7 51480.0 6 360360.0 5 1081080.0 4 1801800.0 3 1801800.0 2 1081080.0 1 360360.0 0 51480.0) 0 (X 8 6435.0 7 51480.0 6 180180.0 5 360360.0 4 450450.0 3 360360.0 2 180180.0 1 51480.0 0 6435.0)) 6 (Y 9 5005.0 8 (X 1 45045.0 0 45045.0) 7 (X 2 180180.0 1 360360.0 0 180180.0) 6 (X 3 420420.0 2 1261260.0 1 1261260.0 0 420420.0) 5 (X 4 630630.0 3 2522520.0 2 3783780.0 1 2522520.0 0 630630.0) 4 (X 5 630630.0 4 3153150.0 3 6306300.0 2 6306300.0 1 3153150.0 0 630630.0) 3 (X 6 420420.0 5 2522520.0 4 6306300.0 3 8408400.0 2 6306300.0 1 2522520.0 0 420420.0) 2 (X 7 180180.0 6 1261260.0 5 3783780.0 4 6306300.0 3 6306300.0 2 3783780.0 1 1261260.0 0 180180.0) 1 (X 8 45045.0 7 360360.0 6 1261260.0 5 2522520.0 4 3153150.0 3 2522520.0 2 1261260.0 1 360360.0 0 45045.0) 0 (X 9 5005.0 8 45045.0 7 180180.0 6 420420.0 5 630630.0 4 630630.0 3 420420.0 2 180180.0 1 45045.0 0 5005.0)) 5 (Y 10 3003.0 9 (X 1 30030.0 0 30030.0) 8 (X 2 135135.0 1 270270.0 0 135135.0) 7 (X 3 360360.0 2 1081080.0 1 1081080.0 0 360360.0) 6 (X 4 630630.0 3 2522520.0 2 3783780.0 1 2522520.0 0 630630.0) 5 (X 5 756756.0 4 3783780.0 3 7567560.0 2 7567560.0 1 3783780.0 0 756756.0) 4 (X 6 630630.0 5 3783780.0 4 9459450.0 3 12612600.0 2 9459450.0 1 3783780.0 0 630630.0) 3 (X 7 360360.0 6 2522520.0 5 7567560.0 4 12612600.0 3 12612600.0 2 7567560.0 1 2522520.0 0 360360.0) 2 (X 8 135135.0 7 1081080.0 6 3783780.0 5 7567560.0 4 9459450.0 3 7567560.0 2 3783780.0 1 1081080.0 0 135135.0) 1 (X 9 30030.0 8 270270.0 7 1081080.0 6 2522520.0 5 3783780.0 4 3783780.0 3 2522520.0 2 1081080.0 1 270270.0 0 30030.0 ) 0 (X 10 3003.0 9 30030.0 8 135135.0 7 360360.0 6 630630.0 5 756756.0 4 630630.0 3 360360.0 2 135135.0 1 30030.0 0 3003.0)) 4 (Y 11 1365.0 10 (X 1 15015.0 0 15015.0) 9 (X 2 75075.0 1 150150.0 0 75075.0) 8 (X 3 225225.0 2 675675.0 1 675675.0 0 225225.0) 7 (X 4 450450.0 3 1801800.0 2 2702700.0 1 1801800.0 0 450450.0) 6 (X 5 630630.0 4 3153150.0 3 6306300.0 2 6306300.0 1 3153150.0 0 630630.0) 5 (X 6 630630.0 5 3783780.0 4 9459450.0 3 12612600.0 2 9459450.0 1 3783780.0 0 630630.0) 4 (X 7 450450.0 6 3153150.0 5 9459450.0 4 15765750.0 3 15765750.0 2 9459450.0 1 3153150.0 0 450450.0) 3 (X 8 225225.0 7 1801800.0 6 6306300.0 5 12612600.0 4 15765750.0 3 12612600.0 2 6306300.0 1 1801800.0 0 225225.0) 2 (X 9 75075.0 8 675675.0 7 2702700.0 6 6306300.0 5 9459450.0 4 9459450.0 3 6306300.0 2 2702700.0 1 675675.0 0 75075.0) 1 (X 10 15015.0 9 150150.0 8 675675.0 7 1801800.0 6 3153150.0 5 3783780.0 4 3153150.0 3 1801800.0 2 675675.0 1 150150.0 0 15015.0) 0 (X 11 1365.0 10 15015.0 9 75075.0 8 225225.0 7 450450.0 6 630630.0 5 630630.0 4 450450.0 3 225225.0 2 75075.0 1 15015.0 0 1365.0)) 3 (Y 12 455.0 11 (X 1 5460.0 0 5460.0) 10 (X 2 30030.0 1 60060.0 0 30030.0) 9 (X 3 100100.0 2 300300.0 1 300300.0 0 100100.0) 8 (X 4 225225.0 3 900900.0 2 1351350.0 1 900900.0 0 225225.0) 7 (X 5 360360.0 4 1801800.0 3 3603600.0 2 3603600.0 1 1801800.0 0 360360.0) 6 (X 6 420420.0 5 2522520.0 4 6306300.0 3 8408400.0 2 6306300.0 1 2522520.0 0 420420.0) 5 (X 7 360360.0 6 2522520.0 5 7567560.0 4 12612600.0 3 12612600.0 2 7567560.0 1 2522520.0 0 360360.0) 4 (X 8 225225.0 7 1801800.0 6 6306300.0 5 12612600.0 4 15765750.0 3 12612600.0 2 6306300.0 1 1801800.0 0 225225.0) 3 (X 9 100100.0 8 900900.0 7 3603600.0 6 8408400.0 5 12612600.0 4 12612600.0 3 8408400.0 2 3603600.0 1 900900.0 0 100100.0) 2 (X 10 30030.0 9 300300.0 8 1351350.0 7 3603600.0 6 6306300.0 5 7567560.0 4 6306300.0 3 3603600.0 2 1351350.0 1 300300.0 0 30030.0) 1 (X 11 5460.0 10 60060.0 9 300300.0 8 900900.0 7 1801800.0 6 2522520.0 5 2522520.0 4 1801800.0 3 900900.0 2 300300.0 1 60060.0 0 5460.0) 0 (X 12 455.0 11 5460.0 10 30030.0 9 100100.0 8 225225.0 7 360360.0 6 420420.0 5 360360.0 4 225225.0 3 100100.0 2 30030.0 1 5460.0 0 455.0)) 2 (Y 13 105.0 12 (X 1 1365.0 0 1365.0) 11 (X 2 8190.0 1 16380.0 0 8190.0) 10 (X 3 30030.0 2 90090.0 1 90090.0 0 30030.0) 9 (X 4 75075.0 3 300300.0 2 450450.0 1 300300.0 0 75075.0) 8 (X 5 135135.0 4 675675.0 3 1351350.0 2 1351350.0 1 675675.0 0 135135.0) 7 (X 6 180180.0 5 1081080.0 4 2702700.0 3 3603600.0 2 2702700.0 1 1081080.0 0 180180.0) 6 (X 7 180180.0 6 1261260.0 5 3783780.0 4 6306300.0 3 6306300.0 2 3783780.0 1 1261260.0 0 180180.0) 5 (X 8 135135.0 7 1081080.0 6 3783780.0 5 7567560.0 4 9459450.0 3 7567560.0 2 3783780.0 1 1081080.0 0 135135.0) 4 (X 9 75075.0 8 675675.0 7 2702700.0 6 6306300.0 5 9459450.0 4 9459450.0 3 6306300.0 2 2702700.0 1 675675.0 0 75075.0) 3 (X 10 30030.0 9 300300.0 8 1351350.0 7 3603600.0 6 6306300.0 5 7567560.0 4 6306300.0 3 3603600.0 2 1351350.0 1 300300.0 0 30030.0) 2 (X 11 8190.0 10 90090.0 9 450450.0 8 1351350.0 7 2702700.0 6 3783780.0 5 3783780.0 4 2702700.0 3 1351350.0 2 450450.0 1 90090.0 0 8190.0) 1 (X 12 1365.0 11 16380.0 10 90090.0 9 300300.0 8 675675.0 7 1081080.0 6 1261260.0 5 1081080.0 4 675675.0 3 300300.0 2 90090.0 1 16380.0 0 1365.0) 0 (X 13 105.0 12 1365.0 11 8190.0 10 30030.0 9 75075.0 8 135135.0 7 180180.0 6 180180.0 5 135135.0 4 75075.0 3 30030.0 2 8190.0 1 1365.0 0 105.0)) 1 (Y 14 15.0 13 (X 1 210.0 0 210.0) 12 (X 2 1365.0 1 2730.0 0 1365.0) 11 (X 3 5460.0 2 16380.0 1 16380.0 0 5460.0) 10 (X 4 15015.0 3 60060.0 2 90090.0 1 60060.0 0 15015.0) 9 (X 5 30030.0 4 150150.0 3 300300.0 2 300300.0 1 150150.0 0 30030.0) 8 (X 6 45045.0 5 270270.0 4 675675.0 3 900900.0 2 675675.0 1 270270.0 0 45045.0) 7 (X 7 51480.0 6 360360.0 5 1081080.0 4 1801800.0 3 1801800.0 2 1081080.0 1 360360.0 0 51480.0) 6 (X 8 45045.0 7 360360.0 6 1261260.0 5 2522520.0 4 3153150.0 3 2522520.0 2 1261260.0 1 360360.0 0 45045.0) 5 (X 9 30030.0 8 270270.0 7 1081080.0 6 2522520.0 5 3783780.0 4 3783780.0 3 2522520.0 2 1081080.0 1 270270.0 0 30030.0) 4 (X 10 15015.0 9 150150.0 8 675675.0 7 1801800.0 6 3153150.0 5 3783780.0 4 3153150.0 3 1801800.0 2 675675.0 1 150150.0 0 15015.0) 3 (X 11 5460.0 10 60060.0 9 300300.0 8 900900.0 7 1801800.0 6 2522520.0 5 2522520.0 4 1801800.0 3 900900.0 2 300300.0 1 60060.0 0 5460.0) 2 (X 12 1365.0 11 16380.0 10 90090.0 9 300300.0 8 675675.0 7 1081080.0 6 1261260.0 5 1081080.0 4 675675.0 3 300300.0 2 90090.0 1 16380.0 0 1365.0) 1 (X 13 210.0 12 2730.0 11 16380.0 10 60060.0 9 150150.0 8 270270.0 7 360360.0 6 360360.0 5 270270.0 4 150150.0 3 60060.0 2 16380.0 1 2730.0 0 210.0) 0 (X 14 15.0 13 210.0 12 1365.0 11 5460.0 10 15015.0 9 30030.0 8 45045.0 7 51480.0 6 45045.0 5 30030.0 4 15015.0 3 5460.0 2 1365.0 1 210.0 0 15.0)) 0 (Y 15 1.0 14 (X 1 15.0 0 15.0) 13 (X 2 105.0 1 210.0 0 105.0) 12 (X 3 455.0 2 1365.0 1 1365.0 0 455.0) 11 (X 4 1365.0 3 5460.0 2 8190.0 1 5460.0 0 1365.0) 10 (X 5 3003.0 4 15015.0 3 30030.0 2 30030.0 1 15015.0 0 3003.0) 9 (X 6 5005.0 5 30030.0 4 75075.0 3 100100.0 2 75075.0 1 30030.0 0 5005.0) 8 (X 7 6435.0 6 45045.0 5 135135.0 4 225225.0 3 225225.0 2 135135.0 1 45045.0 0 6435.0) 7 (X 8 6435.0 7 51480.0 6 180180.0 5 360360.0 4 450450.0 3 360360.0 2 180180.0 1 51480.0 0 6435.0) 6 (X 9 5005.0 8 45045.0 7 180180.0 6 420420.0 5 630630.0 4 630630.0 3 420420.0 2 180180.0 1 45045.0 0 5005.0) 5 (X 10 3003.0 9 30030.0 8 135135.0 7 360360.0 6 630630.0 5 756756.0 4 630630.0 3 360360.0 2 135135.0 1 30030.0 0 3003.0) 4 (X 11 1365.0 10 15015.0 9 75075.0 8 225225.0 7 450450.0 6 630630.0 5 630630.0 4 450450.0 3 225225.0 2 75075.0 1 15015.0 0 1365.0) 3 (X 12 455.0 11 5460.0 10 30030.0 9 100100.0 8 225225.0 7 360360.0 6 420420.0 5 360360.0 4 225225.0 3 100100.0 2 30030.0 1 5460.0 0 455.0) 2 (X 13 105.0 12 1365.0 11 8190.0 10 30030.0 9 75075.0 8 135135.0 7 180180.0 6 180180.0 5 135135.0 4 75075.0 3 30030.0 2 8190.0 1 1365.0 0 105.0) 1 (X 14 15.0 13 210.0 12 1365.0 11 5460.0 10 15015.0 9 30030.0 8 45045.0 7 51480.0 6 45045.0 5 30030.0 4 15015.0 3 5460.0 2 1365.0 1 210.0 0 15.0) 0 (X 15 1.0 14 15.0 13 105.0 12 455.0 11 1365.0 10 3003.0 9 5005.0 8 6435.0 7 6435.0 6 5005.0 5 3003.0 4 1365.0 3 455.0 2 105.0 1 15.0 0 1.0))) Repeating the TIMEALL Elapsed Time = 8490.0 seconds GC time = 2110.0 seconds CPU Time = 6380.0 seconds PAGEFAULTS = 18 FIXP FLOATP LISTP BIGNUM 1041160 42596 5707723 118947 Value = (Z 15 1.0 14 (Y 1 15.0 0 (X 1 15.0 0 15.0)) 13 (Y 2 105.0 1 (X 1 210.0 0 210.0) 0 (X 2 105.0 1 210.0 0 105.0)) 12 (Y 3 455.0 2 (X 1 1365.0 0 1365.0) 1 (X 2 1365.0 1 2730.0 0 1365.0) 0 (X 3 455.0 2 1365.0 1 1365.0 0 455.0)) 11 (Y 4 1365.0 3 (X 1 5460.0 0 5460.0) 2 (X 2 8190.0 1 16380.0 0 8190.0) 1 (X 3 5460.0 2 16380.0 1 16380.0 0 5460.0) 0 (X 4 1365.0 3 5460.0 2 8190.0 1 5460.0 0 1365.0)) 10 (Y 5 3003.0 4 (X 1 15015.0 0 15015.0) 3 (X 2 30030.0 1 60060.0 0 30030.0) 2 (X 3 30030.0 2 90090.0 1 90090.0 0 30030.0) 1 (X 4 15015.0 3 60060.0 2 90090.0 1 60060.0 0 15015.0) 0 (X 5 3003.0 4 15015.0 3 30030.0 2 30030.0 1 15015.0 0 3003.0)) 9 (Y 6 5005.0 5 (X 1 30030.0 0 30030.0) 4 (X 2 75075.0 1 150150.0 0 75075.0) 3 (X 3 100100.0 2 300300.0 1 300300.0 0 100100.0 ) 2 (X 4 75075.0 3 300300.0 2 450450.0 1 300300.0 0 75075.0) 1 (X 5 30030.0 4 150150.0 3 300300.0 2 300300.0 1 150150.0 0 30030.0) 0 (X 6 5005.0 5 30030.0 4 75075.0 3 100100.0 2 75075.0 1 30030.0 0 5005.0)) 8 (Y 7 6435.0 6 (X 1 45045.0 0 45045.0) 5 (X 2 135135.0 1 270270.0 0 135135.0) 4 (X 3 225225.0 2 675675.0 1 675675.0 0 225225.0) 3 (X 4 225225.0 3 900900.0 2 1351350.0 1 900900.0 0 225225.0) 2 (X 5 135135.0 4 675675.0 3 1351350.0 2 1351350.0 1 675675.0 0 135135.0) 1 (X 6 45045.0 5 270270.0 4 675675.0 3 900900.0 2 675675.0 1 270270.0 0 45045.0) 0 (X 7 6435.0 6 45045.0 5 135135.0 4 225225.0 3 225225.0 2 135135.0 1 45045.0 0 6435.0)) 7 (Y 8 6435.0 7 (X 1 51480.0 0 51480.0) 6 (X 2 180180.0 1 360360.0 0 180180.0) 5 (X 3 360360.0 2 1081080.0 1 1081080.0 0 360360.0) 4 (X 4 450450.0 3 1801800.0 2 2702700.0 1 1801800.0 0 450450.0) 3 (X 5 360360.0 4 1801800.0 3 3603600.0 2 3603600.0 1 1801800.0 0 360360.0) 2 (X 6 180180.0 5 1081080.0 4 2702700.0 3 3603600.0 2 2702700.0 1 1081080.0 0 180180.0) 1 (X 7 51480.0 6 360360.0 5 1081080.0 4 1801800.0 3 1801800.0 2 1081080.0 1 360360.0 0 51480.0) 0 (X 8 6435.0 7 51480.0 6 180180.0 5 360360.0 4 450450.0 3 360360.0 2 180180.0 1 51480.0 0 6435.0)) 6 (Y 9 5005.0 8 (X 1 45045.0 0 45045.0) 7 (X 2 180180.0 1 360360.0 0 180180.0) 6 (X 3 420420.0 2 1261260.0 1 1261260.0 0 420420.0) 5 (X 4 630630.0 3 2522520.0 2 3783780.0 1 2522520.0 0 630630.0) 4 (X 5 630630.0 4 3153150.0 3 6306300.0 2 6306300.0 1 3153150.0 0 630630.0) 3 (X 6 420420.0 5 2522520.0 4 6306300.0 3 8408400.0 2 6306300.0 1 2522520.0 0 420420.0) 2 (X 7 180180.0 6 1261260.0 5 3783780.0 4 6306300.0 3 6306300.0 2 3783780.0 1 1261260.0 0 180180.0) 1 (X 8 45045.0 7 360360.0 6 1261260.0 5 2522520.0 4 3153150.0 3 2522520.0 2 1261260.0 1 360360.0 0 45045.0) 0 (X 9 5005.0 8 45045.0 7 180180.0 6 420420.0 5 630630.0 4 630630.0 3 420420.0 2 180180.0 1 45045.0 0 5005.0)) 5 (Y 10 3003.0 9 (X 1 30030.0 0 30030.0) 8 (X 2 135135.0 1 270270.0 0 135135.0) 7 (X 3 360360.0 2 1081080.0 1 1081080.0 0 360360.0) 6 (X 4 630630.0 3 2522520.0 2 3783780.0 1 2522520.0 0 630630.0) 5 (X 5 756756.0 4 3783780.0 3 7567560.0 2 7567560.0 1 3783780.0 0 756756.0) 4 (X 6 630630.0 5 3783780.0 4 9459450.0 3 12612600.0 2 9459450.0 1 3783780.0 0 630630.0) 3 (X 7 360360.0 6 2522520.0 5 7567560.0 4 12612600.0 3 12612600.0 2 7567560.0 1 2522520.0 0 360360.0) 2 (X 8 135135.0 7 1081080.0 6 3783780.0 5 7567560.0 4 9459450.0 3 7567560.0 2 3783780.0 1 1081080.0 0 135135.0) 1 (X 9 30030.0 8 270270.0 7 1081080.0 6 2522520.0 5 3783780.0 4 3783780.0 3 2522520.0 2 1081080.0 1 270270.0 0 30030.0 ) 0 (X 10 3003.0 9 30030.0 8 135135.0 7 360360.0 6 630630.0 5 756756.0 4 630630.0 3 360360.0 2 135135.0 1 30030.0 0 3003.0)) 4 (Y 11 1365.0 10 (X 1 15015.0 0 15015.0) 9 (X 2 75075.0 1 150150.0 0 75075.0) 8 (X 3 225225.0 2 675675.0 1 675675.0 0 225225.0) 7 (X 4 450450.0 3 1801800.0 2 2702700.0 1 1801800.0 0 450450.0) 6 (X 5 630630.0 4 3153150.0 3 6306300.0 2 6306300.0 1 3153150.0 0 630630.0) 5 (X 6 630630.0 5 3783780.0 4 9459450.0 3 12612600.0 2 9459450.0 1 3783780.0 0 630630.0) 4 (X 7 450450.0 6 3153150.0 5 9459450.0 4 15765750.0 3 15765750.0 2 9459450.0 1 3153150.0 0 450450.0) 3 (X 8 225225.0 7 1801800.0 6 6306300.0 5 12612600.0 4 15765750.0 3 12612600.0 2 6306300.0 1 1801800.0 0 225225.0) 2 (X 9 75075.0 8 675675.0 7 2702700.0 6 6306300.0 5 9459450.0 4 9459450.0 3 6306300.0 2 2702700.0 1 675675.0 0 75075.0) 1 (X 10 15015.0 9 150150.0 8 675675.0 7 1801800.0 6 3153150.0 5 3783780.0 4 3153150.0 3 1801800.0 2 675675.0 1 150150.0 0 15015.0) 0 (X 11 1365.0 10 15015.0 9 75075.0 8 225225.0 7 450450.0 6 630630.0 5 630630.0 4 450450.0 3 225225.0 2 75075.0 1 15015.0 0 1365.0)) 3 (Y 12 455.0 11 (X 1 5460.0 0 5460.0) 10 (X 2 30030.0 1 60060.0 0 30030.0) 9 (X 3 100100.0 2 300300.0 1 300300.0 0 100100.0) 8 (X 4 225225.0 3 900900.0 2 1351350.0 1 900900.0 0 225225.0) 7 (X 5 360360.0 4 1801800.0 3 3603600.0 2 3603600.0 1 1801800.0 0 360360.0) 6 (X 6 420420.0 5 2522520.0 4 6306300.0 3 8408400.0 2 6306300.0 1 2522520.0 0 420420.0) 5 (X 7 360360.0 6 2522520.0 5 7567560.0 4 12612600.0 3 12612600.0 2 7567560.0 1 2522520.0 0 360360.0) 4 (X 8 225225.0 7 1801800.0 6 6306300.0 5 12612600.0 4 15765750.0 3 12612600.0 2 6306300.0 1 1801800.0 0 225225.0) 3 (X 9 100100.0 8 900900.0 7 3603600.0 6 8408400.0 5 12612600.0 4 12612600.0 3 8408400.0 2 3603600.0 1 900900.0 0 100100.0) 2 (X 10 30030.0 9 300300.0 8 1351350.0 7 3603600.0 6 6306300.0 5 7567560.0 4 6306300.0 3 3603600.0 2 1351350.0 1 300300.0 0 30030.0) 1 (X 11 5460.0 10 60060.0 9 300300.0 8 900900.0 7 1801800.0 6 2522520.0 5 2522520.0 4 1801800.0 3 900900.0 2 300300.0 1 60060.0 0 5460.0) 0 (X 12 455.0 11 5460.0 10 30030.0 9 100100.0 8 225225.0 7 360360.0 6 420420.0 5 360360.0 4 225225.0 3 100100.0 2 30030.0 1 5460.0 0 455.0)) 2 (Y 13 105.0 12 (X 1 1365.0 0 1365.0) 11 (X 2 8190.0 1 16380.0 0 8190.0) 10 (X 3 30030.0 2 90090.0 1 90090.0 0 30030.0) 9 (X 4 75075.0 3 300300.0 2 450450.0 1 300300.0 0 75075.0) 8 (X 5 135135.0 4 675675.0 3 1351350.0 2 1351350.0 1 675675.0 0 135135.0) 7 (X 6 180180.0 5 1081080.0 4 2702700.0 3 3603600.0 2 2702700.0 1 1081080.0 0 180180.0) 6 (X 7 180180.0 6 1261260.0 5 3783780.0 4 6306300.0 3 6306300.0 2 3783780.0 1 1261260.0 0 180180.0) 5 (X 8 135135.0 7 1081080.0 6 3783780.0 5 7567560.0 4 9459450.0 3 7567560.0 2 3783780.0 1 1081080.0 0 135135.0) 4 (X 9 75075.0 8 675675.0 7 2702700.0 6 6306300.0 5 9459450.0 4 9459450.0 3 6306300.0 2 2702700.0 1 675675.0 0 75075.0) 3 (X 10 30030.0 9 300300.0 8 1351350.0 7 3603600.0 6 6306300.0 5 7567560.0 4 6306300.0 3 3603600.0 2 1351350.0 1 300300.0 0 30030.0) 2 (X 11 8190.0 10 90090.0 9 450450.0 8 1351350.0 7 2702700.0 6 3783780.0 5 3783780.0 4 2702700.0 3 1351350.0 2 450450.0 1 90090.0 0 8190.0) 1 (X 12 1365.0 11 16380.0 10 90090.0 9 300300.0 8 675675.0 7 1081080.0 6 1261260.0 5 1081080.0 4 675675.0 3 300300.0 2 90090.0 1 16380.0 0 1365.0) 0 (X 13 105.0 12 1365.0 11 8190.0 10 30030.0 9 75075.0 8 135135.0 7 180180.0 6 180180.0 5 135135.0 4 75075.0 3 30030.0 2 8190.0 1 1365.0 0 105.0)) 1 (Y 14 15.0 13 (X 1 210.0 0 210.0) 12 (X 2 1365.0 1 2730.0 0 1365.0) 11 (X 3 5460.0 2 16380.0 1 16380.0 0 5460.0) 10 (X 4 15015.0 3 60060.0 2 90090.0 1 60060.0 0 15015.0) 9 (X 5 30030.0 4 150150.0 3 300300.0 2 300300.0 1 150150.0 0 30030.0) 8 (X 6 45045.0 5 270270.0 4 675675.0 3 900900.0 2 675675.0 1 270270.0 0 45045.0) 7 (X 7 51480.0 6 360360.0 5 1081080.0 4 1801800.0 3 1801800.0 2 1081080.0 1 360360.0 0 51480.0) 6 (X 8 45045.0 7 360360.0 6 1261260.0 5 2522520.0 4 3153150.0 3 2522520.0 2 1261260.0 1 360360.0 0 45045.0) 5 (X 9 30030.0 8 270270.0 7 1081080.0 6 2522520.0 5 3783780.0 4 3783780.0 3 2522520.0 2 1081080.0 1 270270.0 0 30030.0) 4 (X 10 15015.0 9 150150.0 8 675675.0 7 1801800.0 6 3153150.0 5 3783780.0 4 3153150.0 3 1801800.0 2 675675.0 1 150150.0 0 15015.0) 3 (X 11 5460.0 10 60060.0 9 300300.0 8 900900.0 7 1801800.0 6 2522520.0 5 2522520.0 4 1801800.0 3 900900.0 2 300300.0 1 60060.0 0 5460.0) 2 (X 12 1365.0 11 16380.0 10 90090.0 9 300300.0 8 675675.0 7 1081080.0 6 1261260.0 5 1081080.0 4 675675.0 3 300300.0 2 90090.0 1 16380.0 0 1365.0) 1 (X 13 210.0 12 2730.0 11 16380.0 10 60060.0 9 150150.0 8 270270.0 7 360360.0 6 360360.0 5 270270.0 4 150150.0 3 60060.0 2 16380.0 1 2730.0 0 210.0) 0 (X 14 15.0 13 210.0 12 1365.0 11 5460.0 10 15015.0 9 30030.0 8 45045.0 7 51480.0 6 45045.0 5 30030.0 4 15015.0 3 5460.0 2 1365.0 1 210.0 0 15.0)) 0 (Y 15 1.0 14 (X 1 15.0 0 15.0) 13 (X 2 105.0 1 210.0 0 105.0) 12 (X 3 455.0 2 1365.0 1 1365.0 0 455.0) 11 (X 4 1365.0 3 5460.0 2 8190.0 1 5460.0 0 1365.0) 10 (X 5 3003.0 4 15015.0 3 30030.0 2 30030.0 1 15015.0 0 3003.0) 9 (X 6 5005.0 5 30030.0 4 75075.0 3 100100.0 2 75075.0 1 30030.0 0 5005.0) 8 (X 7 6435.0 6 45045.0 5 135135.0 4 225225.0 3 225225.0 2 135135.0 1 45045.0 0 6435.0) 7 (X 8 6435.0 7 51480.0 6 180180.0 5 360360.0 4 450450.0 3 360360.0 2 180180.0 1 51480.0 0 6435.0) 6 (X 9 5005.0 8 45045.0 7 180180.0 6 420420.0 5 630630.0 4 630630.0 3 420420.0 2 180180.0 1 45045.0 0 5005.0) 5 (X 10 3003.0 9 30030.0 8 135135.0 7 360360.0 6 630630.0 5 756756.0 4 630630.0 3 360360.0 2 135135.0 1 30030.0 0 3003.0) 4 (X 11 1365.0 10 15015.0 9 75075.0 8 225225.0 7 450450.0 6 630630.0 5 630630.0 4 450450.0 3 225225.0 2 75075.0 1 15015.0 0 1365.0) 3 (X 12 455.0 11 5460.0 10 30030.0 9 100100.0 8 225225.0 7 360360.0 6 420420.0 5 360360.0 4 225225.0 3 100100.0 2 30030.0 1 5460.0 0 455.0) 2 (X 13 105.0 12 1365.0 11 8190.0 10 30030.0 9 75075.0 8 135135.0 7 180180.0 6 180180.0 5 135135.0 4 75075.0 3 30030.0 2 8190.0 1 1365.0 0 105.0) 1 (X 14 15.0 13 210.0 12 1365.0 11 5460.0 10 15015.0 9 30030.0 8 45045.0 7 51480.0 6 45045.0 5 30030.0 4 15015.0 3 5460.0 2 1365.0 1 210.0 0 15.0) 0 (X 15 1.0 14 15.0 13 105.0 12 455.0 11 1365.0 10 3003.0 9 5005.0 8 6435.0 7 6435.0 6 5005.0 5 3003.0 4 1365.0 3 455.0 2 105.0 1 15.0 0 1.0))) POLYNOMIAL finished Finished benchmarking \ No newline at end of file diff --git a/internal/gabriel/Results/Lyric/ALL-PAV.BENCHMARKS b/internal/gabriel/Results/Lyric/ALL-PAV.BENCHMARKS deleted file mode 100644 index a598813d..00000000 --- a/internal/gabriel/Results/Lyric/ALL-PAV.BENCHMARKS +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Version: LISPCORE of 12-Mar-87 12:04:37 Software Type: Xerox Lisp Software Version: 11-Mar-87 23:53:52 Machine Type: Xerox 1186 Machine Version: microcode 87, 7424 pages Machine Instance: 2856394810 Site: unknown Features: (:interlisp :xerox :common) ***** puzzle Benchmark *** Puzzle Iteration 0 of puzzle Success in 2005 trials.Timing for : puzzle Elapsed time = 48.169 seconds net compute time = 48.180 seconds Storage allocated: 10 listp, 4 oned-array Iteration 1 of puzzle Success in 2005 trials.Timing for : puzzle Elapsed time = 48.180 seconds net compute time = 48.180 seconds Storage allocated: 10 listp, 4 oned-array ***** triang Benchmark *** Triang Iteration 0 of triang Timing for : triang Elapsed time = 784.695 seconds reclaim time = 0.468 seconds net compute time = 784.227 seconds Page faults = 83 Storage allocated: 11626 listp Iteration 1 of triang Timing for : triang Elapsed time = 783.741 seconds reclaim time = 0.469 seconds net compute time = 783.272 seconds Storage allocated: 11626 listp ***** fft Benchmark *** FFT Iteration 0 of fft Timing for : fft Elapsed time = 187.429 seconds SWAP time = 0.145 seconds reclaim time = 105.844 seconds net compute time = 81.440 seconds Page faults = 30 Storage allocated: 942640 floatp Iteration 1 of fft Timing for : fft Elapsed time = 186.689 seconds reclaim time = 105.489 seconds net compute time = 81.200 seconds Storage allocated: 942640 floatp ***** div2-2 Benchmark *** Div2, Recursive Iteration 0 of div2-2 Timing for : div2-2 Elapsed time = 38.857 seconds reclaim time = 24.215 seconds net compute time = 14.642 seconds Storage allocated: 120000 listp Iteration 1 of div2-2 Timing for : div2-2 Elapsed time = 39.140 seconds reclaim time = 24.214 seconds net compute time = 14.926 seconds Storage allocated: 120000 listp ***** div2-1 Benchmark *** Div2, Iterative Iteration 0 of div2-1 Timing for : div2-1 Elapsed time = 35.460 seconds reclaim time = 22.848 seconds net compute time = 12.612 seconds Storage allocated: 120000 listp Iteration 1 of div2-1 Timing for : div2-1 Elapsed time = 35.448 seconds reclaim time = 22.830 seconds net compute time = 12.618 seconds Storage allocated: 120000 listp ***** destru Benchmark *** Destruct Iteration 0 of destru Timing for : destru Elapsed time = 21.386 seconds reclaim time = 6.384 seconds net compute time = 15.002 seconds Storage allocated: 43105 listp Iteration 1 of destru Timing for : destru Elapsed time = 21.816 seconds reclaim time = 6.718 seconds net compute time = 15.098 seconds Storage allocated: 43105 listp ***** deriv Benchmark *** Deriv Iteration 0 of deriv Timing for : deriv Elapsed time = 70.923 seconds reclaim time = 45.575 seconds net compute time = 25.348 seconds Storage allocated: 245000 listp Iteration 1 of deriv Timing for : deriv Elapsed time = 70.354 seconds reclaim time = 45.120 seconds net compute time = 25.234 seconds Storage allocated: 245000 listp ***** dderiv Benchmark *** DDeriv Evaluating setup for dderiv Iteration 0 of dderiv Timing for : dderiv Elapsed time = 84.107 seconds reclaim time = 51.881 seconds net compute time = 32.226 seconds Storage allocated: 260000 listp Iteration 1 of dderiv Timing for : dderiv Elapsed time = 83.869 seconds reclaim time = 51.985 seconds net compute time = 31.884 seconds Storage allocated: 260000 listp ***** boyer Benchmark *** Boyer Evaluating setup for boyer Iteration 0 of boyer Timing for : boyer Elapsed time = 145.430 seconds reclaim time = 39.506 seconds net compute time = 105.924 seconds Page faults = 470 Storage allocated: 226464 listp, 272 compiled-closure Iteration 1 of boyer Timing for : boyer Elapsed time = 141.222 seconds reclaim time = 39.463 seconds net compute time = 101.759 seconds Storage allocated: 226464 listp, 272 compiled-closure ***** browse* Benchmark *** Browse Iteration 0 of browse* Timing for : browse* Elapsed time = 310.640 seconds SWAP time = 0.043 seconds reclaim time = 117.671 seconds net compute time = 192.926 seconds Page faults = 76 Storage allocated: 488945 listp, 2202 oned-array Iteration 1 of browse* Timing for : browse* Elapsed time = 312.875 seconds reclaim time = 117.812 seconds net compute time = 195.063 seconds Page faults = 50 Storage allocated: 488945 listp, 2202 oned-array ***** browse Benchmark *** Browse Iteration 0 of browse Timing for : browse Elapsed time = 589.837 seconds reclaim time = 265.880 seconds net compute time = 323.957 seconds Page faults = 58 Storage allocated: 488945 listp, 229002 oned-array Iteration 1 of browse Timing for : browse Elapsed time = 606.759 seconds reclaim time = 274.007 seconds net compute time = 332.752 seconds Page faults = 48 Storage allocated: 488945 listp, 229002 oned-array \ No newline at end of file diff --git a/internal/gabriel/Results/Lyric/AREFY-PAV.BENCHMARKS b/internal/gabriel/Results/Lyric/AREFY-PAV.BENCHMARKS deleted file mode 100644 index 92d3c4fb..00000000 --- a/internal/gabriel/Results/Lyric/AREFY-PAV.BENCHMARKS +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Version: LISPCORE of 12-Mar-87 12:04:37 Software Type: Xerox Lisp Software Version: 11-Mar-87 23:53:52 Machine Type: Xerox 1186 Machine Version: microcode 87, 7424 pages Machine Instance: 2856394810 Site: unknown Features: (:interlisp :xerox :common) ***** puzzle Benchmark *** Puzzle Iteration 0 of puzzle Success in 2005 trials.Timing for : puzzle Elapsed time = 48.911 seconds net compute time = 48.911 seconds Storage allocated: 10 listp, 4 oned-array Iteration 1 of puzzle Success in 2005 trials.Timing for : puzzle Elapsed time = 48.912 seconds net compute time = 48.912 seconds Storage allocated: 10 listp, 4 oned-array ***** triang Benchmark *** Triang Iteration 0 of triang Timing for : triang Elapsed time = 787.551 seconds reclaim time = 0.907 seconds net compute time = 786.644 seconds Storage allocated: 11626 listp Iteration 1 of triang Timing for : triang Elapsed time = 787.524 seconds reclaim time = 0.892 seconds net compute time = 786.632 seconds Storage allocated: 11626 listp ***** fft Benchmark *** FFT Iteration 0 of fft Timing for : fft Elapsed time = 209.847 seconds reclaim time = 123.799 seconds net compute time = 86.048 seconds Storage allocated: 942640 floatp Iteration 1 of fft Timing for : fft Elapsed time = 209.832 seconds reclaim time = 123.799 seconds net compute time = 86.033 seconds Storage allocated: 942640 floatp \ No newline at end of file diff --git a/internal/gabriel/Results/Lyric/CONSY-BYTE.BENCHMARKS b/internal/gabriel/Results/Lyric/CONSY-BYTE.BENCHMARKS deleted file mode 100644 index 36753426..00000000 --- a/internal/gabriel/Results/Lyric/CONSY-BYTE.BENCHMARKS +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Version: LISPCORE of 12-Mar-87 12:04:37 Software Type: Xerox Lisp Software Version: 11-Mar-87 23:53:52 Machine Type: Xerox 1186 Machine Version: microcode 87, 7424 pages Machine Instance: 2856394810 Site: unknown Features: (:interlisp :xerox :common) ***** deriv Benchmark *** Deriv Iteration 0 of deriv Timing for : deriv Elapsed time = 83.669 seconds reclaim time = 54.342 seconds net compute time = 29.327 seconds Page faults = 24 Storage allocated: 245000 listp Iteration 1 of deriv Timing for : deriv Elapsed time = 79.776 seconds reclaim time = 52.129 seconds net compute time = 27.647 seconds Storage allocated: 245000 listp ***** dderiv Benchmark *** DDeriv Evaluating setup for dderiv Iteration 0 of dderiv Timing for : dderiv Elapsed time = 92.738 seconds reclaim time = 58.220 seconds net compute time = 34.518 seconds Page faults = 4 Storage allocated: 260000 listp Iteration 1 of dderiv Timing for : dderiv Elapsed time = 93.343 seconds reclaim time = 58.629 seconds net compute time = 34.714 seconds Storage allocated: 260000 listp ***** div2-1 Benchmark *** Div2, Iterative Iteration 0 of div2-1 Timing for : div2-1 Elapsed time = 37.476 seconds reclaim time = 25.225 seconds net compute time = 12.251 seconds Storage allocated: 120000 listp Iteration 1 of div2-1 Timing for : div2-1 Elapsed time = 38.242 seconds reclaim time = 25.526 seconds net compute time = 12.716 seconds Storage allocated: 120000 listp ***** div2-2 Benchmark *** Div2, Recursive Iteration 0 of div2-2 Timing for : div2-2 Elapsed time = 46.541 seconds reclaim time = 26.068 seconds net compute time = 20.473 seconds Storage allocated: 120000 listp Iteration 1 of div2-2 Timing for : div2-2 Elapsed time = 46.185 seconds reclaim time = 25.843 seconds net compute time = 20.342 seconds Storage allocated: 120000 listp ***** destru Benchmark *** Destruct Iteration 0 of destru Timing for : destru Elapsed time = 23.955 seconds reclaim time = 7.237 seconds net compute time = 16.718 seconds Storage allocated: 43105 listp Iteration 1 of destru Timing for : destru Elapsed time = 23.789 seconds reclaim time = 7.238 seconds net compute time = 16.551 seconds Storage allocated: 43105 listp ***** traverse-init Benchmark *** Traverse, Initialize Iteration 0 of traverse-init Timing for : traverse-init Elapsed time = 80.309 seconds reclaim time = 1.909 seconds net compute time = 78.400 seconds Page faults = 394 Storage allocated: 36796 listp, 100 tnode Iteration 1 of traverse-init Timing for : traverse-init Elapsed time = 122.999 seconds reclaim time = 1.936 seconds net compute time = 121.063 seconds Page faults = 433 Storage allocated: 36853 listp, 100 tnode ***** traverse Benchmark *** Traverse, Traverse Iteration 0 of traverse Timing for : traverse Elapsed time = 154.940 seconds net compute time = 154.940 seconds Iteration 1 of traverse Timing for : traverse Elapsed time = 154.939 seconds net compute time = 154.939 seconds ***** boyer Benchmark *** Boyer Evaluating setup for boyer Iteration 0 of boyer Timing for : boyer Elapsed time = 161.438 seconds SWAP time = 0.105 seconds reclaim time = 46.146 seconds net compute time = 115.187 seconds Page faults = 555 Storage allocated: 226465 listp, 272 compiled-closure Iteration 1 of boyer Timing for : boyer Elapsed time = 156.507 seconds reclaim time = 46.724 seconds net compute time = 109.783 seconds Page faults = 4 Storage allocated: 226464 listp, 272 compiled-closure ***** browse Benchmark *** Browse Iteration 0 of browse Timing for : browse Elapsed time = 1677.630 seconds SWAP time = 0.094 seconds reclaim time = 819.829 seconds net compute time = 857.707 seconds Page faults = 75 Storage allocated: 488945 listp, 229002 oned-array Iteration 1 of browse Timing for : browse Elapsed time = 1717.348 seconds SWAP time = 0.012 seconds reclaim time = 839.550 seconds net compute time = 877.786 seconds Page faults = 69 Storage allocated: 488945 listp, 229002 oned-array \ No newline at end of file diff --git a/internal/gabriel/Results/Lyric/CONSY-PAV.BENCHMARKS b/internal/gabriel/Results/Lyric/CONSY-PAV.BENCHMARKS deleted file mode 100644 index 876ccf81..00000000 --- a/internal/gabriel/Results/Lyric/CONSY-PAV.BENCHMARKS +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Version: LISPCORE of 12-Mar-87 12:04:37 Software Type: Xerox Lisp Software Version: 11-Mar-87 23:53:52 Machine Type: Xerox 1186 Machine Version: microcode 87, 7424 pages Machine Instance: 2856394810 Site: unknown Features: (:interlisp :xerox :common) ***** deriv Benchmark *** Deriv Iteration 0 of deriv Timing for : deriv Elapsed time = 87.944 seconds reclaim time = 58.328 seconds net compute time = 29.616 seconds Storage allocated: 245000 listp Iteration 1 of deriv Timing for : deriv Elapsed time = 86.923 seconds reclaim time = 57.705 seconds net compute time = 29.218 seconds Storage allocated: 245000 listp ***** dderiv Benchmark *** DDeriv Evaluating setup for dderiv Iteration 0 of dderiv Timing for : dderiv Elapsed time = 99.232 seconds reclaim time = 62.584 seconds net compute time = 36.648 seconds Storage allocated: 260000 listp Iteration 1 of dderiv Timing for : dderiv Elapsed time = 98.432 seconds reclaim time = 62.347 seconds net compute time = 36.085 seconds Storage allocated: 260000 listp ***** div2-1 Benchmark *** Div2, Iterative Iteration 0 of div2-1 Timing for : div2-1 Elapsed time = 40.517 seconds reclaim time = 26.548 seconds net compute time = 13.969 seconds Storage allocated: 120000 listp Iteration 1 of div2-1 Timing for : div2-1 Elapsed time = 41.565 seconds reclaim time = 27.281 seconds net compute time = 14.284 seconds Storage allocated: 120000 listp ***** div2-2 Benchmark *** Div2, Recursive Iteration 0 of div2-2 Timing for : div2-2 Elapsed time = 48.682 seconds reclaim time = 27.368 seconds net compute time = 21.314 seconds Storage allocated: 120000 listp Iteration 1 of div2-2 Timing for : div2-2 Elapsed time = 49.145 seconds reclaim time = 27.146 seconds net compute time = 21.999 seconds Storage allocated: 120000 listp ***** destru Benchmark *** Destruct Iteration 0 of destru Timing for : destru Elapsed time = 24.180 seconds reclaim time = 8.483 seconds net compute time = 15.697 seconds Storage allocated: 43105 listp Iteration 1 of destru Timing for : destru Elapsed time = 24.216 seconds reclaim time = 8.448 seconds net compute time = 15.768 seconds Storage allocated: 43105 listp ***** traverse-init Benchmark *** Traverse, Initialize Iteration 0 of traverse-init Timing for : traverse-init Elapsed time = 173.013 seconds reclaim time = 2.247 seconds net compute time = 170.766 seconds Page faults = 9 Storage allocated: 36646 listp, 100 tnode Iteration 1 of traverse-init Timing for : traverse-init Elapsed time = 222.035 seconds reclaim time = 2.290 seconds net compute time = 219.745 seconds Page faults = 368 Storage allocated: 36853 listp, 100 tnode ***** traverse Benchmark *** Traverse, Traverse Iteration 0 of traverse Timing for : traverse Elapsed time = 155.139 seconds net compute time = 155.139 seconds Iteration 1 of traverse Timing for : traverse Elapsed time = 155.139 seconds net compute time = 155.139 seconds ***** boyer Benchmark *** Boyer Evaluating setup for boyer Iteration 0 of boyer Timing for : boyer Elapsed time = 170.367 seconds reclaim time = 54.939 seconds net compute time = 115.428 seconds Page faults = 538 Storage allocated: 226464 listp, 272 compiled-closure Iteration 1 of boyer Timing for : boyer Elapsed time = 165.693 seconds reclaim time = 55.075 seconds net compute time = 110.618 seconds Page faults = 2 Storage allocated: 226464 listp, 272 compiled-closure ***** browse Benchmark *** Browse Iteration 0 of browse Timing for : browse Elapsed time = 2801.953 seconds reclaim time = 1391.371 seconds net compute time = 1410.582 seconds Page faults = 56 Storage allocated: 488945 listp, 229002 oned-array Iteration 1 of browse Timing for : browse Elapsed time = 2831.552 seconds reclaim time = 1403.618 seconds net compute time = 1427.934 seconds Page faults = 48 Storage allocated: 488945 listp, 229002 oned-array \ No newline at end of file diff --git a/internal/gabriel/Results/Lyric/EXTRAS-BYTE.BENCHMARKS b/internal/gabriel/Results/Lyric/EXTRAS-BYTE.BENCHMARKS deleted file mode 100644 index 8f9ff09e..00000000 --- a/internal/gabriel/Results/Lyric/EXTRAS-BYTE.BENCHMARKS +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Version: LISPCORE of 12-Mar-87 12:04:37 Software Type: Xerox Lisp Software Version: 11-Mar-87 23:53:52 Machine Type: Xerox 1186 Machine Version: microcode 87, 7424 pages Machine Instance: 2856394810 Site: unknown Features: (:interlisp :xerox :common) ***** browse* Benchmark *** Browse Iteration 0 of browse* Timing for : browse* Elapsed time = 1016.108 seconds reclaim time = 491.414 seconds net compute time = 524.694 seconds Page faults = 100 Swap writes = 77 Storage allocated: 488945 listp, 2202 oned-array Iteration 1 of browse* Timing for : browse* Elapsed time = 1015.613 seconds reclaim time = 490.510 seconds net compute time = 525.103 seconds Page faults = 77 Swap writes = 70 Storage allocated: 488945 listp, 2202 oned-array ***** traverse-init Benchmark *** Traverse, Initialize Iteration 0 of traverse-init Timing for : traverse-init Elapsed time = 355.094 seconds reclaim time = 3.185 seconds net compute time = 351.909 seconds Page faults = 388 Swap writes = 214 Storage allocated: 36796 listp, 100 tnode Iteration 1 of traverse-init Timing for : traverse-init Elapsed time = 397.276 seconds reclaim time = 3.401 seconds net compute time = 393.875 seconds Page faults = 429 Swap writes = 204 Storage allocated: 36796 listp, 100 tnode ***** traverse Benchmark *** Traverse, Traverse Iteration 0 of traverse Timing for : traverse Elapsed time = 154.792 seconds net compute time = 154.792 seconds Iteration 1 of traverse Timing for : traverse Elapsed time = 154.817 seconds net compute time = 154.817 seconds \ No newline at end of file diff --git a/internal/gabriel/Results/Lyric/EXTRAS-PAV.BENCHMARKS b/internal/gabriel/Results/Lyric/EXTRAS-PAV.BENCHMARKS deleted file mode 100644 index b280f4dc..00000000 --- a/internal/gabriel/Results/Lyric/EXTRAS-PAV.BENCHMARKS +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Version: LISPCORE of 12-Mar-87 12:04:37 Software Type: Xerox Lisp Software Version: 11-Mar-87 23:53:52 Machine Type: Xerox 1186 Machine Version: microcode 87, 7424 pages Machine Instance: 2856394810 Site: unknown Features: (:interlisp :xerox :common) ***** browse* Benchmark *** Browse Iteration 0 of browse* Timing for : browse* Elapsed time = 807.146 seconds reclaim time = 383.271 seconds net compute time = 423.875 seconds Page faults = 56 Storage allocated: 488945 listp, 2202 oned-array Iteration 1 of browse* Timing for : browse* Elapsed time = 818.779 seconds reclaim time = 387.191 seconds net compute time = 431.588 seconds Page faults = 48 Storage allocated: 488945 listp, 2202 oned-array ***** traverse-init Benchmark *** Traverse, Initialize Iteration 0 of traverse-init Timing for : traverse-init Elapsed time = 261.049 seconds reclaim time = 2.479 seconds net compute time = 258.570 seconds Page faults = 10 Storage allocated: 36796 listp, 100 tnode Iteration 1 of traverse-init Timing for : traverse-init Elapsed time = 309.028 seconds reclaim time = 2.655 seconds net compute time = 306.373 seconds Page faults = 411 Storage allocated: 36796 listp, 100 tnode ***** traverse Benchmark *** Traverse, Traverse Iteration 0 of traverse Timing for : traverse Elapsed time = 154.839 seconds net compute time = 154.839 seconds Iteration 1 of traverse Timing for : traverse Elapsed time = 154.837 seconds net compute time = 154.837 seconds \ No newline at end of file diff --git a/internal/gabriel/Results/Lyric/File-Servers.TEdit b/internal/gabriel/Results/Lyric/File-Servers.TEdit deleted file mode 100644 index fe5a05ce..00000000 Binary files a/internal/gabriel/Results/Lyric/File-Servers.TEdit and /dev/null differ diff --git a/internal/gabriel/Results/Lyric/IO-BYTE.BENCHMARKS b/internal/gabriel/Results/Lyric/IO-BYTE.BENCHMARKS deleted file mode 100644 index 7a9d6ab4..00000000 --- a/internal/gabriel/Results/Lyric/IO-BYTE.BENCHMARKS +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Version: LISPCORE of 12-Mar-87 12:04:37 Software Type: Xerox Lisp Software Version: 11-Mar-87 23:53:52 Machine Type: Xerox 1186 Machine Version: microcode 87, 7424 pages Machine Instance: 2856394810 Site: unknown Features: (:interlisp :xerox :common) ***** fprint Benchmark *** FPrint Iteration 0 of fprint Timing for : fprint Elapsed time = 20.009 seconds SWAP time = 0.492 seconds reclaim time = 0.658 seconds net compute time = 18.859 seconds Page faults = 17 Storage allocated: 197 fixp, 2 floatp, 536 listp, 10 vmempagep, 2 stream, 1 bitmap, 48 oned-array, 1 pilotbbt, 1 \displaydata, 1 pathname, 1 window, 50 pagegroup, 1 filedescriptor, 1 fw-ofd Iteration 1 of fprint Timing for : fprint Elapsed time = 19.592 seconds SWAP time = 0.050 seconds reclaim time = 0.473 seconds net compute time = 19.069 seconds Page faults = 1 Storage allocated: 197 fixp, 2 floatp, 595 listp, 10 vmempagep, 2 stream, 1 bitmap, 72 oned-array, 1 pilotbbt, 1 \displaydata, 2 pathname, 1 window, 50 pagegroup, 1 filedescriptor, 1 fw-ofd ***** fread Benchmark *** FRead Iteration 0 of fread Timing for : fread Elapsed time = 11.755 seconds SWAP time = 0.053 seconds reclaim time = 0.708 seconds net compute time = 10.994 seconds Page faults = 1 Storage allocated: 120 fixp, 6249 listp, 4 vmempagep, 1 stream, 82 oned-array, 2 pathname, 37 pagegroup, 1 filedescriptor Iteration 1 of fread Timing for : fread Elapsed time = 11.747 seconds SWAP time = 0.043 seconds reclaim time = 0.712 seconds net compute time = 10.992 seconds Page faults = 1 Storage allocated: 120 fixp, 6249 listp, 4 vmempagep, 1 stream, 82 oned-array, 2 pathname, 37 pagegroup, 1 filedescriptor ***** tprint Benchmark *** TPrint Iteration 0 of tprint ((((((|678E| |567D| |567D| |456D| |456D| |345C|) |234B| (|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3) wxy2 ((|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2) uvw1 ((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0) qrs9 (((|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2) uvw1 ((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9) opq8 (((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7) klm6 ((((|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2) uvw1 ((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9) opq8 (((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6) ijk5 ((((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5) ghi4) efg3 (((((|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2) uvw1 ((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9) opq8 (((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6) ijk5 ((((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5) ghi4 ((((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5 (((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6 ((wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6) ijk5) ghi4) efg3) cde2 (((((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5) ghi4 ((((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5 (((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6 ((wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6) ijk5) ghi4) efg3 ((((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5 (((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6 ((wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6) ijk5) ghi4 (((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6 ((wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6) ijk5 ((uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6 (qrs9 opq8 opq8 mno7 mno7 klm6) ijk5) ghi4) efg3) cde2) abc1) Timing for : tprint Elapsed time = 40.547 seconds reclaim time = 0.200 seconds net compute time = 40.347 seconds Storage allocated: 58 fixp, 1 floatp, 77 listp, 2 etherpacket, 24 pagegroup Iteration 1 of tprint ((((((|678E| |567D| |567D| |456D| |456D| |345C|) |234B| (|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3) wxy2 ((|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2) uvw1 ((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0) qrs9 (((|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2) uvw1 ((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9) opq8 (((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7) klm6 ((((|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2) uvw1 ((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9) opq8 (((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6) ijk5 ((((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5) ghi4) efg3 (((((|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2) uvw1 ((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9) opq8 (((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6) ijk5 ((((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5) ghi4 ((((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5 (((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6 ((wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6) ijk5) ghi4) efg3) cde2 (((((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5) ghi4 ((((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5 (((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6 ((wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6) ijk5) ghi4) efg3 ((((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5 (((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6 ((wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6) ijk5) ghi4 (((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6 ((wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6) ijk5 ((uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6 (qrs9 opq8 opq8 mno7 mno7 klm6) ijk5) ghi4) efg3) cde2) abc1) Timing for : tprint Elapsed time = 40.924 seconds SWAP time = 0.123 seconds reclaim time = 0.381 seconds net compute time = 40.420 seconds Page faults = 4 Storage allocated: 57 fixp, 1 floatp, 80 listp, 3 etherpacket, 24 pagegroup \ No newline at end of file diff --git a/internal/gabriel/Results/Lyric/IO-PAV.BENCHMARKS b/internal/gabriel/Results/Lyric/IO-PAV.BENCHMARKS deleted file mode 100644 index 38aa4957..00000000 --- a/internal/gabriel/Results/Lyric/IO-PAV.BENCHMARKS +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Version: LISPCORE of 12-Mar-87 12:04:37 Software Type: Xerox Lisp Software Version: 11-Mar-87 23:53:52 Machine Type: Xerox 1186 Machine Version: microcode 87, 7424 pages Machine Instance: 2856394810 Site: unknown Features: (:interlisp :xerox :common) ***** fprint Benchmark *** FPrint Iteration 0 of fprint Timing for : fprint Elapsed time = 20.146 seconds SWAP time = 0.060 seconds reclaim time = 0.953 seconds net compute time = 19.133 seconds Page faults = 1 Storage allocated: 211 fixp, 2 floatp, 594 listp, 11 vmempagep, 2 stream, 1 bitmap, 72 oned-array, 1 pilotbbt, 1 \displaydata, 2 pathname, 1 window, 51 pagegroup, 1 filedescriptor, 1 \btreebuf, 1 fw-ofd Iteration 1 of fprint Timing for : fprint Elapsed time = 19.655 seconds reclaim time = 0.534 seconds net compute time = 19.121 seconds Storage allocated: 219 fixp, 3 floatp, 552 listp, 10 vmempagep, 1 stream, 72 oned-array, 2 pathname, 50 pagegroup, 1 filedescriptor ***** fread Benchmark *** FRead Iteration 0 of fread Timing for : fread Elapsed time = 12.444 seconds SWAP time = 0.048 seconds reclaim time = 1.287 seconds net compute time = 11.109 seconds Page faults = 1 Storage allocated: 115 fixp, 6254 listp, 4 vmempagep, 1 stream, 82 oned-array, 2 pathname, 37 pagegroup, 1 filedescriptor Iteration 1 of fread Timing for : fread Elapsed time = 12.146 seconds reclaim time = 1.132 seconds net compute time = 11.014 seconds Storage allocated: 115 fixp, 6254 listp, 4 vmempagep, 1 stream, 82 oned-array, 2 pathname, 37 pagegroup, 1 filedescriptor ***** tprint Benchmark *** TPrint Iteration 0 of tprint ((((((|678E| |567D| |567D| |456D| |456D| |345C|) |234B| (|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3) wxy2 ((|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2) uvw1 ((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0) qrs9 (((|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2) uvw1 ((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9) opq8 (((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7) klm6 ((((|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2) uvw1 ((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9) opq8 (((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6) ijk5 ((((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5) ghi4) efg3 (((((|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2) uvw1 ((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9) opq8 (((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6) ijk5 ((((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5) ghi4 ((((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5 (((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6 ((wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6) ijk5) ghi4) efg3) cde2 (((((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5) ghi4 ((((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5 (((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6 ((wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6) ijk5) ghi4) efg3 ((((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5 (((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6 ((wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6) ijk5) ghi4 (((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6 ((wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6) ijk5 ((uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6 (qrs9 opq8 opq8 mno7 mno7 klm6) ijk5) ghi4) efg3) cde2) abc1) Timing for : tprint Elapsed time = 40.548 seconds reclaim time = 0.226 seconds net compute time = 40.322 seconds Storage allocated: 59 fixp, 1 floatp, 78 listp, 24 pagegroup Iteration 1 of tprint ((((((|678E| |567D| |567D| |456D| |456D| |345C|) |234B| (|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3) wxy2 ((|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2) uvw1 ((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0) qrs9 (((|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2) uvw1 ((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9) opq8 (((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7) klm6 ((((|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2) uvw1 ((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9) opq8 (((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6) ijk5 ((((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5) ghi4) efg3 (((((|567D| |456D| |456D| |345C| |345C| |234B|) |123A| (|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2) uvw1 ((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9) opq8 (((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6) ijk5 ((((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5) ghi4 ((((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5 (((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6 ((wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6) ijk5) ghi4) efg3) cde2 (((((|456D| |345C| |345C| |234B| |234B| |123A|) xyz3 (|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1) stu0 ((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8) mno7 (((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5) ghi4 ((((|345C| |234B| |234B| |123A| |123A| xyz3) wxy2 (|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0) qrs9 ((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7) klm6 (((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5 (((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6 ((wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6) ijk5) ghi4) efg3 ((((|234B| |123A| |123A| xyz3 xyz3 wxy2) uvw1 (|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9) opq8 ((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6) ijk5 (((|123A| xyz3 xyz3 wxy2 wxy2 uvw1) stu0 (xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8) mno7 ((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6 ((wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6) ijk5) ghi4 (((xyz3 wxy2 wxy2 uvw1 uvw1 stu0) qrs9 (wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7) klm6 ((wxy2 uvw1 uvw1 stu0 stu0 qrs9) opq8 (uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6) ijk5 ((uvw1 stu0 stu0 qrs9 qrs9 opq8) mno7 (stu0 qrs9 qrs9 opq8 opq8 mno7) klm6 (qrs9 opq8 opq8 mno7 mno7 klm6) ijk5) ghi4) efg3) cde2) abc1) Timing for : tprint Elapsed time = 40.516 seconds reclaim time = 0.207 seconds net compute time = 40.309 seconds Storage allocated: 57 fixp, 1 floatp, 76 listp, 1 etherpacket, 24 pagegroup \ No newline at end of file diff --git a/internal/gabriel/Results/Lyric/RESULTS.TEDIT b/internal/gabriel/Results/Lyric/RESULTS.TEDIT deleted file mode 100644 index eba29b13..00000000 Binary files a/internal/gabriel/Results/Lyric/RESULTS.TEDIT and /dev/null differ diff --git a/internal/gabriel/Results/Lyric/SUMMARY-5-27.TEDIT b/internal/gabriel/Results/Lyric/SUMMARY-5-27.TEDIT deleted file mode 100644 index b9212f34..00000000 Binary files a/internal/gabriel/Results/Lyric/SUMMARY-5-27.TEDIT and /dev/null differ diff --git a/internal/gabriel/Results/Lyric/TAK-BYTE.BENCHMARKS b/internal/gabriel/Results/Lyric/TAK-BYTE.BENCHMARKS deleted file mode 100644 index a8e14d6f..00000000 --- a/internal/gabriel/Results/Lyric/TAK-BYTE.BENCHMARKS +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Version: LISPCORE of 12-Mar-87 12:04:37 Software Type: Xerox Lisp Software Version: 11-Mar-87 23:53:52 Machine Type: Xerox 1186 Machine Version: microcode 87, 7424 pages Machine Instance: 2856394810 Site: unknown Features: (:interlisp :xerox :common) ***** ctak Benchmark *** CTak Iteration 0 of ctak Timing for : ctak Elapsed time = 96.821 seconds net compute time = 96.821 seconds Iteration 1 of ctak Timing for : ctak Elapsed time = 97.117 seconds net compute time = 97.117 seconds ***** stak Benchmark *** STak Iteration 0 of stak Timing for : stak Elapsed time = 4.589 seconds net compute time = 4.589 seconds Iteration 1 of stak Timing for : stak Elapsed time = 4.589 seconds net compute time = 4.589 seconds ***** tak Benchmark *** Tak Iteration 0 of tak Timing for : tak Elapsed time = 1.630 seconds net compute time = 1.630 seconds Iteration 1 of tak Timing for : tak Elapsed time = 1.630 seconds net compute time = 1.630 seconds ***** takl Benchmark *** TakL Iteration 0 of takl Timing for : takl Elapsed time = 13.366 seconds net compute time = 13.366 seconds Iteration 1 of takl Timing for : takl Elapsed time = 13.365 seconds net compute time = 13.365 seconds ***** takr Benchmark *** TakR Iteration 0 of takr Timing for : takr Elapsed time = 1.737 seconds net compute time = 1.737 seconds Iteration 1 of takr Timing for : takr Elapsed time = 1.736 seconds net compute time = 1.736 seconds \ No newline at end of file diff --git a/internal/gabriel/Results/Lyric/TAK-PAV.BENCHMARKS b/internal/gabriel/Results/Lyric/TAK-PAV.BENCHMARKS deleted file mode 100644 index ae1f20f7..00000000 --- a/internal/gabriel/Results/Lyric/TAK-PAV.BENCHMARKS +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Version: LISPCORE of 12-Mar-87 12:04:37 Software Type: Xerox Lisp Software Version: 11-Mar-87 23:53:52 Machine Type: Xerox 1186 Machine Version: microcode 87, 7424 pages Machine Instance: 2856394810 Site: unknown Features: (:interlisp :xerox :common) ***** ctak Benchmark *** CTak Iteration 0 of ctak Timing for : ctak Elapsed time = 55.938 seconds SWAP time = 0.038 seconds reclaim time = 6.588 seconds net compute time = 49.312 seconds Page faults = 10 Storage allocated: 47707 listp Iteration 1 of ctak Timing for : ctak Elapsed time = 55.667 seconds reclaim time = 6.366 seconds net compute time = 49.301 seconds Storage allocated: 47707 listp ***** stak Benchmark *** STak Iteration 0 of stak Timing for : stak Elapsed time = 12.693 seconds net compute time = 12.693 seconds Iteration 1 of stak Timing for : stak Elapsed time = 12.693 seconds net compute time = 12.693 seconds ***** tak Benchmark *** Tak Iteration 0 of tak Timing for : tak Elapsed time = 1.789 seconds net compute time = 1.789 seconds Iteration 1 of tak Timing for : tak Elapsed time = 1.796 seconds net compute time = 1.796 seconds ***** takl Benchmark *** TakL Iteration 0 of takl Timing for : takl Elapsed time = 15.524 seconds net compute time = 15.524 seconds Iteration 1 of takl Timing for : takl Elapsed time = 15.525 seconds net compute time = 15.525 seconds ***** takr Benchmark *** TakR Iteration 0 of takr Timing for : takr Elapsed time = 1.838 seconds net compute time = 1.838 seconds Iteration 1 of takr Timing for : takr Elapsed time = 1.839 seconds net compute time = 1.839 seconds \ No newline at end of file diff --git a/internal/gabriel/Results/Lyric/all-byte.benchmarks b/internal/gabriel/Results/Lyric/all-byte.benchmarks deleted file mode 100644 index 1e304391..00000000 --- a/internal/gabriel/Results/Lyric/all-byte.benchmarks +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Version: LISPCORE of 12-Mar-87 12:04:37 Software Type: Xerox Lisp Software Version: 11-Mar-87 23:53:52 Machine Type: Xerox 1186 Machine Version: microcode 87, 7424 pages Machine Instance: 2856394810 Site: unknown Features: (:INTERLISP :XEROX :COMMON) ***** PUZZLE Benchmark *** Puzzle Iteration 0 of PUZZLE Success in 2005 trials.Timing for : PUZZLE Elapsed time = 56.590 seconds net compute time = 56.601 seconds Storage allocated: 10 LISTP, 4 ONED-ARRAY Iteration 1 of PUZZLE Success in 2005 trials.Timing for : PUZZLE Elapsed time = 56.596 seconds net compute time = 56.596 seconds Storage allocated: 10 LISTP, 4 ONED-ARRAY ***** TRIANG Benchmark *** Triang Iteration 0 of TRIANG Timing for : TRIANG Elapsed time = 743.318 seconds reclaim time = 0.609 seconds net compute time = 742.709 seconds Page faults = 72 Storage allocated: 11626 LISTP Iteration 1 of TRIANG Timing for : TRIANG Elapsed time = 742.397 seconds reclaim time = 0.607 seconds net compute time = 741.790 seconds Storage allocated: 11626 LISTP ***** FFT Benchmark *** FFT Iteration 0 of FFT Timing for : FFT Elapsed time = 195.709 seconds SWAP time = 0.242 seconds reclaim time = 107.710 seconds net compute time = 87.757 seconds Page faults = 34 Storage allocated: 942640 FLOATP Iteration 1 of FFT Timing for : FFT Elapsed time = 195.582 seconds reclaim time = 108.111 seconds net compute time = 87.471 seconds Storage allocated: 942640 FLOATP ***** DIV2-2 Benchmark *** Div2, Recursive Iteration 0 of DIV2-2 Timing for : DIV2-2 Elapsed time = 34.659 seconds reclaim time = 21.244 seconds net compute time = 13.415 seconds Storage allocated: 120000 LISTP Iteration 1 of DIV2-2 Timing for : DIV2-2 Elapsed time = 34.718 seconds reclaim time = 21.051 seconds net compute time = 13.667 seconds Storage allocated: 120000 LISTP ***** DIV2-1 Benchmark *** Div2, Iterative Iteration 0 of DIV2-1 Timing for : DIV2-1 Elapsed time = 29.626 seconds reclaim time = 20.808 seconds net compute time = 8.818 seconds Storage allocated: 120000 LISTP Iteration 1 of DIV2-1 Timing for : DIV2-1 Elapsed time = 29.138 seconds reclaim time = 20.199 seconds net compute time = 8.939 seconds Storage allocated: 120000 LISTP ***** DESTRU Benchmark *** Destruct Iteration 0 of DESTRU Timing for : DESTRU Elapsed time = 21.310 seconds reclaim time = 5.924 seconds net compute time = 15.386 seconds Storage allocated: 43105 LISTP Iteration 1 of DESTRU Timing for : DESTRU Elapsed time = 21.368 seconds reclaim time = 5.989 seconds net compute time = 15.379 seconds Storage allocated: 43105 LISTP ***** DERIV Benchmark *** Deriv Iteration 0 of DERIV Timing for : DERIV Elapsed time = 65.391 seconds reclaim time = 43.602 seconds net compute time = 21.789 seconds Storage allocated: 245000 LISTP Iteration 1 of DERIV Timing for : DERIV Elapsed time = 64.697 seconds reclaim time = 43.130 seconds net compute time = 21.567 seconds Storage allocated: 245000 LISTP ***** DDERIV Benchmark *** DDeriv Evaluating setup for DDERIV Iteration 0 of DDERIV Timing for : DDERIV Elapsed time = 77.017 seconds reclaim time = 48.874 seconds net compute time = 28.143 seconds Storage allocated: 260000 LISTP Iteration 1 of DDERIV Timing for : DDERIV Elapsed time = 77.273 seconds reclaim time = 49.080 seconds net compute time = 28.193 seconds Storage allocated: 260000 LISTP ***** BOYER Benchmark *** Boyer Evaluating setup for BOYER Iteration 0 of BOYER Timing for : BOYER Elapsed time = 147.026 seconds SWAP time = 0.036 seconds reclaim time = 39.347 seconds net compute time = 107.643 seconds Page faults = 469 Storage allocated: 226464 LISTP, 272 COMPILED-CLOSURE Iteration 1 of BOYER Timing for : BOYER Elapsed time = 143.743 seconds reclaim time = 40.167 seconds net compute time = 103.576 seconds Page faults = 6 Storage allocated: 226464 LISTP, 272 COMPILED-CLOSURE ***** BROWSE* Benchmark *** Browse Iteration 0 of BROWSE* Timing for : BROWSE* Elapsed time = 384.124 seconds SWAP time = 0.050 seconds reclaim time = 114.650 seconds net compute time = 269.424 seconds Page faults = 71 Storage allocated: 488945 LISTP, 2202 ONED-ARRAY Iteration 1 of BROWSE* Timing for : BROWSE* Elapsed time = 409.821 seconds reclaim time = 123.117 seconds net compute time = 286.704 seconds Page faults = 66 Storage allocated: 488945 LISTP, 2202 ONED-ARRAY ***** BROWSE Benchmark *** Browse Iteration 0 of BROWSE Timing for : BROWSE Elapsed time = 912.229 seconds SWAP time = 0.052 seconds reclaim time = 277.775 seconds net compute time = 634.402 seconds Page faults = 59 Storage allocated: 488945 LISTP, 229002 ONED-ARRAY Iteration 1 of BROWSE Timing for : BROWSE Elapsed time = 919.685 seconds reclaim time = 284.812 seconds net compute time = 634.873 seconds Page faults = 48 Storage allocated: 488945 LISTP, 229002 ONED-ARRAY \ No newline at end of file diff --git a/internal/gabriel/Results/Lyric/arefy-byte.benchmarks b/internal/gabriel/Results/Lyric/arefy-byte.benchmarks deleted file mode 100644 index 9300bc8c..00000000 --- a/internal/gabriel/Results/Lyric/arefy-byte.benchmarks +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Version: LISPCORE of 12-Mar-87 12:04:37 Software Type: Xerox Lisp Software Version: 11-Mar-87 23:53:52 Machine Type: Xerox 1186 Machine Version: microcode 87, 7424 pages Machine Instance: 2856394810 Site: unknown Features: (:interlisp :xerox :common) ***** puzzle Benchmark *** Puzzle Iteration 0 of puzzle Success in 2005 trials.Timing for : puzzle Elapsed time = 47.531 seconds SWAP time = 1.478 seconds net compute time = 46.053 seconds Page faults = 59 Storage allocated: 10 listp, 4 oned-array Iteration 1 of puzzle Success in 2005 trials.Timing for : puzzle Elapsed time = 46.034 seconds net compute time = 46.034 seconds Storage allocated: 10 listp, 4 oned-array ***** triang Benchmark *** Triang Iteration 0 of triang Timing for : triang Elapsed time = 745.004 seconds SWAP time = 0.009 seconds reclaim time = 0.799 seconds net compute time = 744.196 seconds Page faults = 1 Storage allocated: 11626 listp Iteration 1 of triang Timing for : triang Elapsed time = 744.929 seconds reclaim time = 0.802 seconds net compute time = 744.127 seconds Storage allocated: 11626 listp ***** fft Benchmark *** FFT Iteration 0 of fft Timing for : fft Elapsed time = 212.251 seconds SWAP time = 0.690 seconds reclaim time = 122.149 seconds net compute time = 89.412 seconds Page faults = 53 Storage allocated: 942640 floatp Iteration 1 of fft Timing for : fft Elapsed time = 210.515 seconds reclaim time = 121.406 seconds net compute time = 89.109 seconds Storage allocated: 942640 floatp \ No newline at end of file diff --git a/internal/gabriel/Results/Lyric/byte-5-24.benchmarks b/internal/gabriel/Results/Lyric/byte-5-24.benchmarks deleted file mode 100644 index 47374591..00000000 --- a/internal/gabriel/Results/Lyric/byte-5-24.benchmarks +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Version: LISPCORE of 19-May-87 16:31:40 Software Type: Xerox Lisp Software Version: 19-May-87 15:27:21 Machine Type: Xerox 1186 Machine Version: microcode 89, 7424 pages Machine Instance: 2856398998 Site: unknown Features: (:interlisp :xerox :common) ***** tak Benchmark *** Tak Iteration 0 of tak Timing for : tak Elapsed time = 1.542 seconds net compute time = 1.542 seconds Iteration 1 of tak Timing for : tak Elapsed time = 1.542 seconds net compute time = 1.542 seconds ***** takr Benchmark *** TakR Iteration 0 of takr Timing for : takr Elapsed time = 1.615 seconds net compute time = 1.615 seconds Iteration 1 of takr Timing for : takr Elapsed time = 1.625 seconds net compute time = 1.625 seconds ***** takl Benchmark *** TakL Iteration 0 of takl Timing for : takl Elapsed time = 12.616 seconds net compute time = 12.616 seconds Iteration 1 of takl Timing for : takl Elapsed time = 12.607 seconds net compute time = 12.607 seconds ***** stak Benchmark *** STak Iteration 0 of stak Timing for : stak Elapsed time = 4.200 seconds net compute time = 4.200 seconds Iteration 1 of stak Timing for : stak Elapsed time = 4.201 seconds net compute time = 4.201 seconds ***** ctak Benchmark *** CTak Iteration 0 of ctak Timing for : ctak Elapsed time = 51.508 seconds net compute time = 51.508 seconds Iteration 1 of ctak Timing for : ctak Elapsed time = 51.516 seconds net compute time = 51.516 seconds ***** div2-2 Benchmark *** Div2, Recursive Iteration 0 of div2-2 Timing for : div2-2 Elapsed time = 37.165 seconds reclaim time = 22.406 seconds net compute time = 14.759 seconds Storage allocated: 120000 listp Iteration 1 of div2-2 Timing for : div2-2 Elapsed time = 38.029 seconds reclaim time = 23.105 seconds net compute time = 14.924 seconds Storage allocated: 120000 listp ***** div2-1 Benchmark *** Div2, Iterative Iteration 0 of div2-1 Timing for : div2-1 Elapsed time = 33.897 seconds reclaim time = 22.271 seconds net compute time = 11.626 seconds Storage allocated: 120000 listp Iteration 1 of div2-1 Timing for : div2-1 Elapsed time = 33.616 seconds reclaim time = 22.146 seconds net compute time = 11.470 seconds Storage allocated: 120000 listp ***** destru Benchmark *** Destruct Iteration 0 of destru Timing for : destru Elapsed time = 21.738 seconds reclaim time = 6.288 seconds net compute time = 15.450 seconds Storage allocated: 43105 listp Iteration 1 of destru Timing for : destru Elapsed time = 21.909 seconds reclaim time = 6.424 seconds net compute time = 15.485 seconds Storage allocated: 43105 listp ***** deriv Benchmark *** Deriv Iteration 0 of deriv Timing for : deriv Elapsed time = 73.590 seconds reclaim time = 45.848 seconds net compute time = 27.742 seconds Storage allocated: 245000 listp Iteration 1 of deriv Timing for : deriv Elapsed time = 71.742 seconds reclaim time = 44.862 seconds net compute time = 26.880 seconds Storage allocated: 245000 listp ***** dderiv Benchmark *** DDeriv Evaluating setup for dderiv Iteration 0 of dderiv Timing for : dderiv Elapsed time = 87.394 seconds reclaim time = 52.176 seconds net compute time = 35.218 seconds Storage allocated: 260000 listp Iteration 1 of dderiv Timing for : dderiv Elapsed time = 86.842 seconds reclaim time = 51.964 seconds net compute time = 34.878 seconds Storage allocated: 260000 listp ***** boyer Benchmark *** Boyer Evaluating setup for boyer Iteration 0 of boyer Timing for : boyer Elapsed time = 132.341 seconds reclaim time = 36.743 seconds net compute time = 95.598 seconds Page faults = 84 Storage allocated: 226464 listp, 272 compiled-closure Iteration 1 of boyer Timing for : boyer Elapsed time = 132.809 seconds reclaim time = 37.172 seconds net compute time = 95.637 seconds Page faults = 2 Storage allocated: 226464 listp, 272 compiled-closure ***** browse Benchmark *** Browse Iteration 0 of browse Timing for : browse Elapsed time = 682.320 seconds reclaim time = 313.476 seconds net compute time = 368.844 seconds Page faults = 64 Storage allocated: 488945 listp, 229002 oned-array Iteration 1 of browse Timing for : browse Elapsed time = 688.178 seconds reclaim time = 316.493 seconds net compute time = 371.685 seconds Page faults = 48 Storage allocated: 488945 listp, 229002 oned-array ***** browse* Benchmark *** Browse Iteration 0 of browse* Timing for : browse* Elapsed time = 330.890 seconds reclaim time = 130.621 seconds net compute time = 200.269 seconds Page faults = 53 Storage allocated: 488945 listp, 2202 oned-array Iteration 1 of browse* Timing for : browse* Elapsed time = 331.777 seconds reclaim time = 131.059 seconds net compute time = 200.718 seconds Page faults = 50 Storage allocated: 488945 listp, 2202 oned-array ***** triang Benchmark *** Triang Iteration 0 of triang Timing for : triang Elapsed time = 705.730 seconds reclaim time = 0.425 seconds net compute time = 705.305 seconds Storage allocated: 11626 listp Iteration 1 of triang Timing for : triang Elapsed time = 705.706 seconds reclaim time = 0.412 seconds net compute time = 705.294 seconds Storage allocated: 11626 listp ***** puzzle Benchmark *** Puzzle Iteration 0 of puzzle Success in 2005 trials.Timing for : puzzle Elapsed time = 43.563 seconds net compute time = 43.563 seconds Storage allocated: 10 listp, 4 oned-array Iteration 1 of puzzle Success in 2005 trials.Timing for : puzzle Elapsed time = 43.570 seconds net compute time = 43.570 seconds Storage allocated: 10 listp, 4 oned-array ***** fft Benchmark *** FFT Iteration 0 of fft Timing for : fft Elapsed time = 170.840 seconds reclaim time = 95.205 seconds net compute time = 75.635 seconds Storage allocated: 942640 floatp Iteration 1 of fft Timing for : fft Elapsed time = 170.828 seconds reclaim time = 95.273 seconds net compute time = 75.555 seconds Storage allocated: 942640 floatp ***** fprint Benchmark *** FPrint Iteration 0 of fprint Timing for : fprint Elapsed time = 12.330 seconds SWAP time = 0.604 seconds reclaim time = 0.329 seconds net compute time = 11.397 seconds Page faults = 4 Storage allocated: 64 fixp, 548 listp, 1 vmempagep, 2 stream, 1 bitmap, 68 oned-array, 2 process, 1 pilotbbt, 1 \displaydata, 1 pathname, 1 window, 49 pagegroup, 1 filedescriptor, 1 fw-ofd Iteration 1 of fprint Timing for : fprint Elapsed time = 12.257 seconds reclaim time = 0.501 seconds net compute time = 11.756 seconds Storage allocated: 64 fixp, 582 listp, 1 vmempagep, 2 stream, 1 bitmap, 89 oned-array, 3 etherpacket, 1 pilotbbt, 1 \displaydata, 2 pathname, 1 window, 48 pagegroup, 1 filedescriptor, 1 fw-ofd ***** fread Benchmark *** FRead Iteration 0 of fread Timing for : fread Elapsed time = 10.613 seconds reclaim time = 0.631 seconds net compute time = 9.982 seconds Storage allocated: 23 fixp, 6240 listp, 1 vmempagep, 1 stream, 79 oned-array, 2 pathname, 37 pagegroup, 1 filedescriptor Iteration 1 of fread Timing for : fread Elapsed time = 10.509 seconds reclaim time = 0.625 seconds net compute time = 9.884 seconds Storage allocated: 23 fixp, 6240 listp, 1 vmempagep, 1 stream, 79 oned-array, 2 pathname, 37 pagegroup, 1 filedescriptor ***** tprint Benchmark *** TPrint Iteration 0 of tprint Timing for : tprint Elapsed time = 28.605 seconds reclaim time = 0.153 seconds net compute time = 28.452 seconds Storage allocated: 11 fixp, 79 listp, 24 pagegroup Iteration 1 of tprint Timing for : tprint Elapsed time = 28.894 seconds reclaim time = 0.277 seconds net compute time = 28.617 seconds Storage allocated: 17 fixp, 148 listp, 1 etherpacket, 27 pagegroup ***** traverse* Benchmark *** Traverse, Traverse Evaluating setup for traverse* Iteration 0 of traverse* Timing for : traverse* Elapsed time = 143.090 seconds net compute time = 143.090 seconds Iteration 1 of traverse* Timing for : traverse* Elapsed time = 143.089 seconds net compute time = 143.089 seconds Evaluating after function for traverse* ***** traverse-init* Benchmark *** Traverse, Initialize Iteration 0 of traverse-init* Timing for : traverse-init* Elapsed time = 115.618 seconds reclaim time = 32.918 seconds net compute time = 82.700 seconds Page faults = 8 Storage allocated: 36796 listp, 100 tnode Evaluating after every function for traverse-init* Iteration 1 of traverse-init* Timing for : traverse-init* Elapsed time = 82.951 seconds reclaim time = 1.367 seconds net compute time = 81.584 seconds Storage allocated: 36796 listp, 100 tnode Evaluating after every function for traverse-init* ***** frpoly5r3 Benchmark *** FRPoly, Power = 5, r3 = r in flonums Evaluating setup for frpoly5r3 Iteration 0 of frpoly5r3 Timing for : frpoly5r3 Elapsed time = 0.212 seconds net compute time = 0.212 seconds Storage allocated: 448 floatp, 966 listp Iteration 1 of frpoly5r3 Timing for : frpoly5r3 Elapsed time = 0.213 seconds net compute time = 0.213 seconds Storage allocated: 448 floatp, 966 listp ***** frpoly5r2 Benchmark *** FRPoly, Power = 5, r2 = 1000r Evaluating setup for frpoly5r2 Iteration 0 of frpoly5r2 Timing for : frpoly5r2 Elapsed time = 12.742 seconds SWAP time = 0.189 seconds reclaim time = 4.119 seconds net compute time = 8.434 seconds Page faults = 6 Storage allocated: 1684 fixp, 15346 listp, 1190 bignum Iteration 1 of frpoly5r2 Timing for : frpoly5r2 Elapsed time = 12.562 seconds reclaim time = 4.171 seconds net compute time = 8.391 seconds Storage allocated: 1684 fixp, 15346 listp, 1190 bignum ***** frpoly5r Benchmark *** FRPoly, Power = 5, r = x + y + z + 1 Evaluating setup for frpoly5r Iteration 0 of frpoly5r Timing for : frpoly5r Elapsed time = 0.164 seconds net compute time = 0.164 seconds Storage allocated: 966 listp Iteration 1 of frpoly5r Timing for : frpoly5r Elapsed time = 0.177 seconds net compute time = 0.177 seconds Storage allocated: 966 listp ***** frpoly2r3 Benchmark *** FRPoly, Power = 2, r3 = r in flonums Evaluating setup for frpoly2r3 Iteration 0 of frpoly2r3 Timing for : frpoly2r3 Elapsed time = 0.019 seconds net compute time = 0.019 seconds Storage allocated: 33 floatp, 102 listp Iteration 1 of frpoly2r3 Timing for : frpoly2r3 Elapsed time = 0.024 seconds net compute time = 0.024 seconds Storage allocated: 33 floatp, 102 listp ***** frpoly2r2 Benchmark *** FRPoly, Power = 2, r2 = 1000r Evaluating setup for frpoly2r2 Iteration 0 of frpoly2r2 Timing for : frpoly2r2 Elapsed time = 0.276 seconds net compute time = 0.276 seconds Storage allocated: 48 fixp, 654 listp, 74 bignum Iteration 1 of frpoly2r2 Timing for : frpoly2r2 Elapsed time = 0.278 seconds net compute time = 0.278 seconds Storage allocated: 48 fixp, 654 listp, 74 bignum ***** frpoly2r Benchmark *** FRPoly, Power = 2, r = x + y + z + 1 Evaluating setup for frpoly2r Iteration 0 of frpoly2r Timing for : frpoly2r Elapsed time = 0.019 seconds net compute time = 0.019 seconds Storage allocated: 102 listp Iteration 1 of frpoly2r Timing for : frpoly2r Elapsed time = 0.013 seconds net compute time = 0.013 seconds Storage allocated: 102 listp ***** frpoly15r3 Benchmark *** FRPoly, Power = 15, r3 = r in flonums Evaluating setup for frpoly15r3 Iteration 0 of frpoly15r3 Timing for : frpoly15r3 Elapsed time = 31.362 seconds reclaim time = 13.763 seconds net compute time = 17.599 seconds Storage allocated: 53297 floatp, 48892 listp Iteration 1 of frpoly15r3 Timing for : frpoly15r3 Elapsed time = 31.065 seconds SWAP time = 0.071 seconds reclaim time = 13.439 seconds net compute time = 17.555 seconds Page faults = 3 Storage allocated: 53297 floatp, 48892 listp ***** frpoly15r2 Benchmark *** FRPoly, Power = 15, r2 = 1000r Evaluating setup for frpoly15r2 Iteration 0 of frpoly15r2 Timing for : frpoly15r2 Elapsed time = 7371.437 seconds SWAP time = 0.136 seconds reclaim time = 2371.725 seconds net compute time = 4999.576 seconds Page faults = 13 Storage allocated: 1049024 fixp, 7404396 listp, 129648 bignum Iteration 1 of frpoly15r2 Timing for : frpoly15r2 Elapsed time = 7436.748 seconds SWAP time = 0.078 seconds reclaim time = 2397.182 seconds net compute time = 5039.488 seconds Page faults = 1 Storage allocated: 1049024 fixp, 7404396 listp, 129648 bignum ***** frpoly15r Benchmark *** FRPoly, Power = 15, r = x + y + z + 1 Evaluating setup for frpoly15r Iteration 0 of frpoly15r Timing for : frpoly15r Elapsed time = 24.774 seconds reclaim time = 11.028 seconds net compute time = 13.746 seconds Page faults = 12 Storage allocated: 31789 fixp, 48892 listp Iteration 1 of frpoly15r Timing for : frpoly15r Elapsed time = 24.171 seconds reclaim time = 10.672 seconds net compute time = 13.499 seconds Storage allocated: 31789 fixp, 48892 listp ***** frpoly10r3 Benchmark *** FRPoly, Power = 10, r3 = r in flonums Evaluating setup for frpoly10r3 Iteration 0 of frpoly10r3 Timing for : frpoly10r3 Elapsed time = 3.844 seconds reclaim time = 1.480 seconds net compute time = 2.364 seconds Storage allocated: 6393 floatp, 9236 listp Iteration 1 of frpoly10r3 Timing for : frpoly10r3 Elapsed time = 3.796 seconds reclaim time = 1.454 seconds net compute time = 2.342 seconds Storage allocated: 6393 floatp, 9236 listp ***** frpoly10r2 Benchmark *** FRPoly, Power = 10, r2 = 1000r Evaluating setup for frpoly10r2 Iteration 0 of frpoly10r2 Timing for : frpoly10r2 Elapsed time = 399.255 seconds reclaim time = 129.259 seconds net compute time = 269.996 seconds Storage allocated: 55634 fixp, 443694 listp, 17227 bignum Iteration 1 of frpoly10r2 Timing for : frpoly10r2 Elapsed time = 402.020 seconds reclaim time = 130.051 seconds net compute time = 271.969 seconds Storage allocated: 55634 fixp, 443694 listp, 17227 bignum ***** frpoly10r Benchmark *** FRPoly, Power = 10, r = x + y + z + 1 Evaluating setup for frpoly10r Iteration 0 of frpoly10r Timing for : frpoly10r Elapsed time = 2.794 seconds reclaim time = 1.140 seconds net compute time = 1.654 seconds Storage allocated: 69 fixp, 9236 listp Iteration 1 of frpoly10r Timing for : frpoly10r Elapsed time = 2.608 seconds reclaim time = 0.962 seconds net compute time = 1.646 seconds Storage allocated: 69 fixp, 9236 listp \ No newline at end of file diff --git a/internal/gabriel/Results/Lyric/byte-5-26.benchmarks b/internal/gabriel/Results/Lyric/byte-5-26.benchmarks deleted file mode 100644 index 2e307b14..00000000 --- a/internal/gabriel/Results/Lyric/byte-5-26.benchmarks +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Version: LISPCORE of 19-May-87 16:31:40 Software Type: Xerox Lisp Software Version: 19-May-87 15:27:21 Machine Type: Xerox 1186 Machine Version: microcode 89, 7424 pages Machine Instance: 2856398998 Site: unknown Features: (:interlisp :xerox :common) ***** tak Benchmark *** Tak Iteration 0 of tak Timing for : tak Elapsed time = 1.515 seconds net compute time = 1.537 seconds Iteration 1 of tak Timing for : tak Elapsed time = 1.539 seconds net compute time = 1.539 seconds ***** takr Benchmark *** TakR Iteration 0 of takr Timing for : takr Elapsed time = 1.621 seconds net compute time = 1.621 seconds Iteration 1 of takr Timing for : takr Elapsed time = 1.621 seconds net compute time = 1.621 seconds ***** takl Benchmark *** TakL Iteration 0 of takl Timing for : takl Elapsed time = 12.629 seconds net compute time = 12.629 seconds Iteration 1 of takl Timing for : takl Elapsed time = 12.630 seconds net compute time = 12.630 seconds ***** stak Benchmark *** STak Iteration 0 of stak Timing for : stak Elapsed time = 4.209 seconds net compute time = 4.209 seconds Iteration 1 of stak Timing for : stak Elapsed time = 4.202 seconds net compute time = 4.202 seconds ***** ctak Benchmark *** CTak Iteration 0 of ctak Timing for : ctak Elapsed time = 51.456 seconds net compute time = 51.456 seconds Iteration 1 of ctak Timing for : ctak Elapsed time = 51.447 seconds net compute time = 51.447 seconds ***** div2-1 Benchmark *** Div2, Iterative Iteration 0 of div2-1 Timing for : div2-1 Elapsed time = 33.479 seconds reclaim time = 22.464 seconds net compute time = 11.015 seconds Page faults = 36 Storage allocated: 120000 listp Iteration 1 of div2-1 Timing for : div2-1 Elapsed time = 33.642 seconds reclaim time = 22.466 seconds net compute time = 11.176 seconds Storage allocated: 120000 listp ***** div2-2 Benchmark *** Div2, Recursive Iteration 0 of div2-2 Timing for : div2-2 Elapsed time = 38.253 seconds reclaim time = 23.845 seconds net compute time = 14.408 seconds Storage allocated: 120000 listp Iteration 1 of div2-2 Timing for : div2-2 Elapsed time = 37.697 seconds reclaim time = 22.986 seconds net compute time = 14.711 seconds Storage allocated: 120000 listp ***** destru Benchmark *** Destruct Iteration 0 of destru Timing for : destru Elapsed time = 21.629 seconds reclaim time = 6.435 seconds net compute time = 15.194 seconds Storage allocated: 43105 listp Iteration 1 of destru Timing for : destru Elapsed time = 21.578 seconds reclaim time = 6.435 seconds net compute time = 15.143 seconds Storage allocated: 43105 listp ***** deriv Benchmark *** Deriv Iteration 0 of deriv Timing for : deriv Elapsed time = 69.356 seconds reclaim time = 44.784 seconds net compute time = 24.572 seconds Storage allocated: 245000 listp Iteration 1 of deriv Timing for : deriv Elapsed time = 68.728 seconds reclaim time = 44.940 seconds net compute time = 23.788 seconds Storage allocated: 245000 listp ***** dderiv Benchmark *** DDeriv Evaluating setup for dderiv Iteration 0 of dderiv Timing for : dderiv Elapsed time = 84.556 seconds reclaim time = 52.331 seconds net compute time = 32.225 seconds Storage allocated: 260000 listp Iteration 1 of dderiv Timing for : dderiv Elapsed time = 84.406 seconds reclaim time = 52.214 seconds net compute time = 32.192 seconds Storage allocated: 260000 listp ***** boyer Benchmark *** Boyer Evaluating setup for boyer Iteration 0 of boyer Timing for : boyer Elapsed time = 137.293 seconds SWAP time = 0.060 seconds reclaim time = 37.971 seconds net compute time = 99.262 seconds Page faults = 516 Storage allocated: 226464 listp, 272 compiled-closure Iteration 1 of boyer Timing for : boyer Elapsed time = 132.925 seconds reclaim time = 38.305 seconds net compute time = 94.620 seconds Storage allocated: 226464 listp, 272 compiled-closure ***** browse Benchmark *** Browse Iteration 0 of browse Timing for : browse Elapsed time = 509.854 seconds SWAP time = 0.135 seconds reclaim time = 230.500 seconds net compute time = 279.219 seconds Page faults = 83 Storage allocated: 488945 listp, 229002 oned-array Iteration 1 of browse Timing for : browse Elapsed time = 568.228 seconds SWAP time = 0.071 seconds reclaim time = 255.835 seconds net compute time = 312.322 seconds Page faults = 52 Storage allocated: 488945 listp, 229002 oned-array ***** browse* Benchmark *** Browse Iteration 0 of browse* Timing for : browse* Elapsed time = 292.516 seconds reclaim time = 114.387 seconds net compute time = 178.129 seconds Page faults = 49 Storage allocated: 488945 listp, 2202 oned-array Iteration 1 of browse* Timing for : browse* Elapsed time = 299.062 seconds reclaim time = 117.020 seconds net compute time = 182.042 seconds Page faults = 50 Storage allocated: 488945 listp, 2202 oned-array ***** triang Benchmark *** Triang Iteration 0 of triang Timing for : triang Elapsed time = 707.005 seconds SWAP time = 0.073 seconds reclaim time = 0.670 seconds net compute time = 706.262 seconds Page faults = 1 Storage allocated: 11626 listp Iteration 1 of triang Timing for : triang Elapsed time = 706.755 seconds reclaim time = 0.504 seconds net compute time = 706.251 seconds Storage allocated: 11626 listp ***** puzzle Benchmark *** Puzzle Iteration 0 of puzzle Success in 2005 trials.Timing for : puzzle Elapsed time = 43.930 seconds net compute time = 43.930 seconds Storage allocated: 10 listp, 4 oned-array Iteration 1 of puzzle Success in 2005 trials.Timing for : puzzle Elapsed time = 43.931 seconds net compute time = 43.931 seconds Storage allocated: 10 listp, 4 oned-array ***** fft Benchmark *** FFT Iteration 0 of fft Timing for : fft Elapsed time = 177.646 seconds SWAP time = 0.154 seconds reclaim time = 103.517 seconds net compute time = 73.975 seconds Page faults = 31 Storage allocated: 942640 floatp Iteration 1 of fft Timing for : fft Elapsed time = 177.378 seconds reclaim time = 103.680 seconds net compute time = 73.698 seconds Storage allocated: 942640 floatp ***** fprint Benchmark *** FPrint Iteration 0 of fprint Timing for : fprint Elapsed time = 11.925 seconds SWAP time = 0.295 seconds reclaim time = 0.371 seconds net compute time = 11.259 seconds Page faults = 6 Storage allocated: 76 fixp, 492 listp, 1 vmempagep, 1 stream, 70 oned-array, 1 process, 1 pathname, 49 pagegroup, 1 filedescriptor Iteration 1 of fprint Timing for : fprint Elapsed time = 11.943 seconds reclaim time = 0.552 seconds net compute time = 11.391 seconds Storage allocated: 75 fixp, 522 listp, 1 vmempagep, 1 stream, 89 oned-array, 7 etherpacket, 2 pathname, 48 pagegroup, 1 filedescriptor ***** fread Benchmark *** FRead Iteration 0 of fread Timing for : fread Elapsed time = 10.563 seconds reclaim time = 0.714 seconds net compute time = 9.849 seconds Storage allocated: 25 fixp, 6236 listp, 1 vmempagep, 1 stream, 79 oned-array, 2 pathname, 37 pagegroup, 1 filedescriptor Iteration 1 of fread Timing for : fread Elapsed time = 10.555 seconds reclaim time = 0.678 seconds net compute time = 9.877 seconds Storage allocated: 25 fixp, 6236 listp, 1 vmempagep, 1 stream, 79 oned-array, 2 pathname, 37 pagegroup, 1 filedescriptor ***** tprint Benchmark *** TPrint Evaluating setup for tprint Iteration 0 of tprint Timing for : tprint Elapsed time = 25.046 seconds net compute time = 25.046 seconds Storage allocated: 4 listp Evaluating after every function for tprint Iteration 1 of tprint Timing for : tprint Elapsed time = 25.043 seconds net compute time = 25.043 seconds Storage allocated: 4 listp Evaluating after every function for tprint Evaluating after function for tprint ***** traverse-init* Benchmark *** Traverse, Initialize Iteration 0 of traverse-init* Timing for : traverse-init* Elapsed time = 71.183 seconds reclaim time = 1.921 seconds net compute time = 69.262 seconds Page faults = 9 Storage allocated: 36796 listp, 100 tnode Evaluating after every function for traverse-init* Iteration 1 of traverse-init* Timing for : traverse-init* Elapsed time = 70.651 seconds reclaim time = 1.787 seconds net compute time = 68.864 seconds Page faults = 2 Storage allocated: 36796 listp, 100 tnode Evaluating after every function for traverse-init* ***** traverse* Benchmark *** Traverse, Traverse Evaluating setup for traverse* Iteration 0 of traverse* Timing for : traverse* Elapsed time = 142.624 seconds net compute time = 142.624 seconds Iteration 1 of traverse* Timing for : traverse* Elapsed time = 142.624 seconds net compute time = 142.624 seconds Evaluating after function for traverse* \ No newline at end of file diff --git a/internal/gabriel/Results/Lyric/lyric-results.tedit b/internal/gabriel/Results/Lyric/lyric-results.tedit deleted file mode 100644 index ddae1c45..00000000 Binary files a/internal/gabriel/Results/Lyric/lyric-results.tedit and /dev/null differ diff --git a/internal/gabriel/Results/Lyric/pav-5-25.benchmarks b/internal/gabriel/Results/Lyric/pav-5-25.benchmarks deleted file mode 100644 index c1c1d4db..00000000 --- a/internal/gabriel/Results/Lyric/pav-5-25.benchmarks +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Version: LISPCORE of 19-May-87 16:31:40 Software Type: Xerox Lisp Software Version: 19-May-87 15:27:21 Machine Type: Xerox 1186 Machine Version: microcode 89, 7424 pages Machine Instance: 2856398998 Site: unknown Features: (:interlisp :xerox :common) ***** tak Benchmark *** Tak Iteration 0 of tak Timing for : tak Elapsed time = 1.652 seconds net compute time = 1.675 seconds Iteration 1 of tak Timing for : tak Elapsed time = 1.676 seconds net compute time = 1.676 seconds ***** takr Benchmark *** TakR Iteration 0 of takr Timing for : takr Elapsed time = 1.703 seconds net compute time = 1.703 seconds Iteration 1 of takr Timing for : takr Elapsed time = 1.710 seconds net compute time = 1.710 seconds ***** takl Benchmark *** TakL Iteration 0 of takl Timing for : takl Elapsed time = 14.585 seconds net compute time = 14.585 seconds Iteration 1 of takl Timing for : takl Elapsed time = 14.577 seconds net compute time = 14.577 seconds ***** stak Benchmark *** STak Iteration 0 of stak Timing for : stak Elapsed time = 5.562 seconds net compute time = 5.562 seconds Iteration 1 of stak Timing for : stak Elapsed time = 5.570 seconds net compute time = 5.570 seconds ***** ctak Benchmark *** CTak Iteration 0 of ctak Timing for : ctak Elapsed time = 48.557 seconds SWAP time = 0.107 seconds reclaim time = 5.766 seconds net compute time = 42.684 seconds Page faults = 16 Storage allocated: 47707 listp Iteration 1 of ctak Timing for : ctak Elapsed time = 48.433 seconds reclaim time = 5.805 seconds net compute time = 42.628 seconds Storage allocated: 47707 listp ***** div2-2 Benchmark *** Div2, Recursive Iteration 0 of div2-2 Timing for : div2-2 Elapsed time = 40.165 seconds reclaim time = 22.908 seconds net compute time = 17.257 seconds Page faults = 8 Storage allocated: 120000 listp Iteration 1 of div2-2 Timing for : div2-2 Elapsed time = 40.716 seconds reclaim time = 24.563 seconds net compute time = 16.153 seconds Page faults = 2 Storage allocated: 120000 listp ***** div2-1 Benchmark *** Div2, Iterative Iteration 0 of div2-1 Timing for : div2-1 Elapsed time = 37.703 seconds reclaim time = 24.057 seconds net compute time = 13.646 seconds Page faults = 2 Storage allocated: 120000 listp Iteration 1 of div2-1 Timing for : div2-1 Elapsed time = 35.975 seconds reclaim time = 22.902 seconds net compute time = 13.073 seconds Storage allocated: 120000 listp ***** destru Benchmark *** Destruct Iteration 0 of destru Timing for : destru Elapsed time = 20.940 seconds reclaim time = 6.424 seconds net compute time = 14.516 seconds Storage allocated: 43105 listp Iteration 1 of destru Timing for : destru Elapsed time = 20.968 seconds reclaim time = 6.454 seconds net compute time = 14.514 seconds Storage allocated: 43105 listp ***** deriv Benchmark *** Deriv Iteration 0 of deriv Timing for : deriv Elapsed time = 69.733 seconds reclaim time = 45.068 seconds net compute time = 24.665 seconds Page faults = 4 Storage allocated: 245000 listp Iteration 1 of deriv Timing for : deriv Elapsed time = 68.561 seconds reclaim time = 44.381 seconds net compute time = 24.180 seconds Storage allocated: 245000 listp ***** dderiv Benchmark *** DDeriv Evaluating setup for dderiv Iteration 0 of dderiv Timing for : dderiv Elapsed time = 84.666 seconds reclaim time = 52.102 seconds net compute time = 32.564 seconds Page faults = 2 Storage allocated: 260000 listp Iteration 1 of dderiv Timing for : dderiv Elapsed time = 83.163 seconds reclaim time = 51.210 seconds net compute time = 31.953 seconds Storage allocated: 260000 listp ***** boyer Benchmark *** Boyer Evaluating setup for boyer Iteration 0 of boyer Timing for : boyer Elapsed time = 140.934 seconds SWAP time = 0.050 seconds reclaim time = 41.294 seconds net compute time = 99.590 seconds Page faults = 522 Storage allocated: 226464 listp, 272 compiled-closure Iteration 1 of boyer Timing for : boyer Elapsed time = 131.996 seconds reclaim time = 37.017 seconds net compute time = 94.979 seconds Page faults = 2 Storage allocated: 226464 listp, 272 compiled-closure ***** browse Benchmark *** Browse Iteration 0 of browse Timing for : browse Elapsed time = 517.850 seconds SWAP time = 0.090 seconds reclaim time = 230.605 seconds net compute time = 287.155 seconds Page faults = 98 Storage allocated: 488945 listp, 229002 oned-array Iteration 1 of browse Timing for : browse Elapsed time = 514.126 seconds reclaim time = 230.334 seconds net compute time = 283.792 seconds Page faults = 48 Storage allocated: 488945 listp, 229002 oned-array ***** browse* Benchmark *** Browse Iteration 0 of browse* Timing for : browse* Elapsed time = 286.296 seconds reclaim time = 109.003 seconds net compute time = 177.293 seconds Page faults = 53 Storage allocated: 488945 listp, 2202 oned-array Iteration 1 of browse* Timing for : browse* Elapsed time = 294.959 seconds reclaim time = 112.913 seconds net compute time = 182.046 seconds Page faults = 48 Storage allocated: 488945 listp, 2202 oned-array ***** triang Benchmark *** Triang Iteration 0 of triang Timing for : triang Elapsed time = 747.275 seconds SWAP time = 0.058 seconds reclaim time = 0.621 seconds net compute time = 746.596 seconds Page faults = 1 Storage allocated: 11626 listp Iteration 1 of triang Timing for : triang Elapsed time = 747.075 seconds reclaim time = 0.474 seconds net compute time = 746.601 seconds Storage allocated: 11626 listp ***** puzzle Benchmark *** Puzzle Iteration 0 of puzzle Success in 2005 trials.Timing for : puzzle Elapsed time = 45.588 seconds net compute time = 45.588 seconds Storage allocated: 10 listp, 4 oned-array Iteration 1 of puzzle Success in 2005 trials.Timing for : puzzle Elapsed time = 45.580 seconds net compute time = 45.580 seconds Storage allocated: 10 listp, 4 oned-array ***** fft Benchmark *** FFT Iteration 0 of fft Timing for : fft Elapsed time = 178.205 seconds SWAP time = 0.371 seconds reclaim time = 101.683 seconds net compute time = 76.151 seconds Page faults = 36 Storage allocated: 942640 floatp Iteration 1 of fft Timing for : fft Elapsed time = 177.319 seconds reclaim time = 101.552 seconds net compute time = 75.767 seconds Storage allocated: 942640 floatp ***** fprint Benchmark *** FPrint Iteration 0 of fprint Timing for : fprint Elapsed time = 12.116 seconds SWAP time = 0.236 seconds reclaim time = 0.360 seconds net compute time = 11.520 seconds Page faults = 5 Storage allocated: 64 fixp, 537 listp, 1 vmempagep, 1 stream, 94 oned-array, 1 process, 2 pathname, 53 pagegroup, 1 filedescriptor Iteration 1 of fprint Timing for : fprint Elapsed time = 11.847 seconds reclaim time = 0.368 seconds net compute time = 11.479 seconds Storage allocated: 50 fixp, 521 listp, 1 vmempagep, 1 stream, 89 oned-array, 2 pathname, 52 pagegroup, 1 filedescriptor ***** fread Benchmark *** FRead Iteration 0 of fread Timing for : fread Elapsed time = 10.562 seconds reclaim time = 0.661 seconds net compute time = 9.901 seconds Storage allocated: 28 fixp, 6238 listp, 1 vmempagep, 1 stream, 79 oned-array, 2 pathname, 37 pagegroup, 1 filedescriptor Iteration 1 of fread Timing for : fread Elapsed time = 10.407 seconds reclaim time = 0.544 seconds net compute time = 9.863 seconds Storage allocated: 28 fixp, 6238 listp, 1 vmempagep, 1 stream, 79 oned-array, 2 pathname, 37 pagegroup, 1 filedescriptor ***** tprint Benchmark *** TPrint Iteration 0 of tprint Timing for : tprint Elapsed time = 28.868 seconds reclaim time = 0.285 seconds net compute time = 28.583 seconds Storage allocated: 11 fixp, 77 listp, 4 etherpacket, 24 pagegroup Iteration 1 of tprint Timing for : tprint Elapsed time = 28.697 seconds reclaim time = 0.175 seconds net compute time = 28.522 seconds Storage allocated: 170 fixp, 93 listp, 2 etherpacket, 24 pagegroup ***** traverse* Benchmark *** Traverse, Traverse Evaluating setup for traverse* Iteration 0 of traverse* Timing for : traverse* Elapsed time = 145.082 seconds net compute time = 145.082 seconds Iteration 1 of traverse* Timing for : traverse* Elapsed time = 145.083 seconds net compute time = 145.083 seconds Evaluating after function for traverse* ***** traverse-init* Benchmark *** Traverse, Initialize Iteration 0 of traverse-init* Timing for : traverse-init* Elapsed time = 102.325 seconds reclaim time = 24.622 seconds net compute time = 77.703 seconds Page faults = 8 Storage allocated: 36796 listp, 100 tnode Evaluating after every function for traverse-init* Iteration 1 of traverse-init* Timing for : traverse-init* Elapsed time = 78.082 seconds reclaim time = 1.561 seconds net compute time = 76.521 seconds Storage allocated: 36796 listp, 100 tnode Evaluating after every function for traverse-init* ***** frpoly5r3 Benchmark *** FRPoly, Power = 5, r3 = r in flonums Evaluating setup for frpoly5r3 Iteration 0 of frpoly5r3 Timing for : frpoly5r3 Elapsed time = 0.230 seconds net compute time = 0.230 seconds Storage allocated: 448 floatp, 966 listp Iteration 1 of frpoly5r3 Timing for : frpoly5r3 Elapsed time = 0.231 seconds net compute time = 0.231 seconds Storage allocated: 448 floatp, 966 listp ***** frpoly5r2 Benchmark *** FRPoly, Power = 5, r2 = 1000r Evaluating setup for frpoly5r2 Iteration 0 of frpoly5r2 Timing for : frpoly5r2 Elapsed time = 12.475 seconds SWAP time = 0.110 seconds reclaim time = 3.832 seconds net compute time = 8.533 seconds Page faults = 4 Storage allocated: 1684 fixp, 15346 listp, 1190 bignum Iteration 1 of frpoly5r2 Timing for : frpoly5r2 Elapsed time = 12.177 seconds SWAP time = 0.067 seconds reclaim time = 3.533 seconds net compute time = 8.577 seconds Page faults = 1 Storage allocated: 1684 fixp, 15346 listp, 1190 bignum ***** frpoly5r Benchmark *** FRPoly, Power = 5, r = x + y + z + 1 Evaluating setup for frpoly5r Iteration 0 of frpoly5r Timing for : frpoly5r Elapsed time = 0.216 seconds net compute time = 0.216 seconds Storage allocated: 966 listp Iteration 1 of frpoly5r Timing for : frpoly5r Elapsed time = 0.225 seconds net compute time = 0.225 seconds Storage allocated: 966 listp ***** frpoly2r3 Benchmark *** FRPoly, Power = 2, r3 = r in flonums Evaluating setup for frpoly2r3 Iteration 0 of frpoly2r3 Timing for : frpoly2r3 Elapsed time = 0.022 seconds net compute time = 0.022 seconds Storage allocated: 33 floatp, 102 listp Iteration 1 of frpoly2r3 Timing for : frpoly2r3 Elapsed time = 0.023 seconds net compute time = 0.023 seconds Storage allocated: 33 floatp, 102 listp ***** frpoly2r2 Benchmark *** FRPoly, Power = 2, r2 = 1000r Evaluating setup for frpoly2r2 Iteration 0 of frpoly2r2 Timing for : frpoly2r2 Elapsed time = 0.290 seconds net compute time = 0.290 seconds Storage allocated: 48 fixp, 654 listp, 74 bignum Iteration 1 of frpoly2r2 Timing for : frpoly2r2 Elapsed time = 0.301 seconds net compute time = 0.301 seconds Storage allocated: 48 fixp, 654 listp, 74 bignum ***** frpoly2r Benchmark *** FRPoly, Power = 2, r = x + y + z + 1 Evaluating setup for frpoly2r Iteration 0 of frpoly2r Timing for : frpoly2r Elapsed time = 0.020 seconds net compute time = 0.020 seconds Storage allocated: 102 listp Iteration 1 of frpoly2r Timing for : frpoly2r Elapsed time = 0.021 seconds net compute time = 0.021 seconds Storage allocated: 102 listp ***** frpoly15r3 Benchmark *** FRPoly, Power = 15, r3 = r in flonums Evaluating setup for frpoly15r3 Iteration 0 of frpoly15r3 Timing for : frpoly15r3 Elapsed time = 32.937 seconds reclaim time = 14.305 seconds net compute time = 18.632 seconds Storage allocated: 53297 floatp, 48892 listp Iteration 1 of frpoly15r3 Timing for : frpoly15r3 Elapsed time = 33.284 seconds reclaim time = 14.450 seconds net compute time = 18.834 seconds Storage allocated: 53297 floatp, 48892 listp ***** frpoly15r2 Benchmark *** FRPoly, Power = 15, r2 = 1000r Evaluating setup for frpoly15r2 Iteration 0 of frpoly15r2 Timing for : frpoly15r2 Elapsed time = 7447.767 seconds SWAP time = 0.102 seconds reclaim time = 2459.026 seconds net compute time = 4988.639 seconds Page faults = 9 Storage allocated: 1049024 fixp, 7404396 listp, 129648 bignum Iteration 1 of frpoly15r2 Timing for : frpoly15r2 Elapsed time = 7479.973 seconds reclaim time = 2474.735 seconds net compute time = 5005.238 seconds Storage allocated: 1049024 fixp, 7404396 listp, 129648 bignum ***** frpoly15r Benchmark *** FRPoly, Power = 15, r = x + y + z + 1 Evaluating setup for frpoly15r Iteration 0 of frpoly15r Timing for : frpoly15r Elapsed time = 26.251 seconds reclaim time = 11.681 seconds net compute time = 14.570 seconds Page faults = 12 Storage allocated: 31789 fixp, 48892 listp Iteration 1 of frpoly15r Timing for : frpoly15r Elapsed time = 25.422 seconds reclaim time = 11.143 seconds net compute time = 14.279 seconds Storage allocated: 31789 fixp, 48892 listp ***** frpoly10r3 Benchmark *** FRPoly, Power = 10, r3 = r in flonums Evaluating setup for frpoly10r3 Iteration 0 of frpoly10r3 Timing for : frpoly10r3 Elapsed time = 4.629 seconds reclaim time = 1.880 seconds net compute time = 2.749 seconds Storage allocated: 6393 floatp, 9236 listp Iteration 1 of frpoly10r3 Timing for : frpoly10r3 Elapsed time = 4.566 seconds reclaim time = 1.766 seconds net compute time = 2.800 seconds Storage allocated: 6393 floatp, 9236 listp ***** frpoly10r2 Benchmark *** FRPoly, Power = 10, r2 = 1000r Evaluating setup for frpoly10r2 Iteration 0 of frpoly10r2 Timing for : frpoly10r2 Elapsed time = 408.080 seconds reclaim time = 136.282 seconds net compute time = 271.798 seconds Storage allocated: 55634 fixp, 443694 listp, 17227 bignum Iteration 1 of frpoly10r2 Timing for : frpoly10r2 Elapsed time = 407.992 seconds reclaim time = 136.387 seconds net compute time = 271.605 seconds Storage allocated: 55634 fixp, 443694 listp, 17227 bignum ***** frpoly10r Benchmark *** FRPoly, Power = 10, r = x + y + z + 1 Evaluating setup for frpoly10r Iteration 0 of frpoly10r Timing for : frpoly10r Elapsed time = 3.060 seconds reclaim time = 1.189 seconds net compute time = 1.871 seconds Storage allocated: 69 fixp, 9236 listp Iteration 1 of frpoly10r Timing for : frpoly10r Elapsed time = 2.985 seconds reclaim time = 1.163 seconds net compute time = 1.822 seconds Storage allocated: 69 fixp, 9236 listp \ No newline at end of file diff --git a/internal/gabriel/Results/Lyric/pav-5-26.benchmarks b/internal/gabriel/Results/Lyric/pav-5-26.benchmarks deleted file mode 100644 index 3826fe87..00000000 --- a/internal/gabriel/Results/Lyric/pav-5-26.benchmarks +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Version: LISPCORE of 19-May-87 16:31:40 Software Type: Xerox Lisp Software Version: 19-May-87 15:27:21 Machine Type: Xerox 1186 Machine Version: microcode 89, 7424 pages Machine Instance: 2856398998 Site: unknown Features: (:interlisp :xerox :common) ***** tak Benchmark *** Tak Iteration 0 of tak Timing for : tak Elapsed time = 1.660 seconds net compute time = 1.684 seconds Iteration 1 of tak Timing for : tak Elapsed time = 1.684 seconds net compute time = 1.684 seconds ***** takr Benchmark *** TakR Iteration 0 of takr Timing for : takr Elapsed time = 1.711 seconds net compute time = 1.711 seconds Iteration 1 of takr Timing for : takr Elapsed time = 1.709 seconds net compute time = 1.709 seconds ***** takl Benchmark *** TakL Iteration 0 of takl Timing for : takl Elapsed time = 14.622 seconds net compute time = 14.622 seconds Iteration 1 of takl Timing for : takl Elapsed time = 14.613 seconds net compute time = 14.613 seconds ***** stak Benchmark *** STak Iteration 0 of stak Timing for : stak Elapsed time = 5.562 seconds net compute time = 5.562 seconds Iteration 1 of stak Timing for : stak Elapsed time = 5.569 seconds net compute time = 5.569 seconds ***** ctak Benchmark *** CTak Iteration 0 of ctak Timing for : ctak Elapsed time = 48.008 seconds SWAP time = 0.055 seconds reclaim time = 5.480 seconds net compute time = 42.473 seconds Page faults = 20 Storage allocated: 47707 listp Iteration 1 of ctak Timing for : ctak Elapsed time = 47.472 seconds reclaim time = 5.552 seconds net compute time = 41.920 seconds Storage allocated: 47707 listp ***** div2-1 Benchmark *** Div2, Iterative Iteration 0 of div2-1 Timing for : div2-1 Elapsed time = 31.535 seconds reclaim time = 20.084 seconds net compute time = 11.451 seconds Page faults = 4 Storage allocated: 120000 listp Iteration 1 of div2-1 Timing for : div2-1 Elapsed time = 32.813 seconds reclaim time = 21.314 seconds net compute time = 11.499 seconds Page faults = 6 Storage allocated: 120000 listp ***** div2-2 Benchmark *** Div2, Recursive Iteration 0 of div2-2 Timing for : div2-2 Elapsed time = 36.547 seconds reclaim time = 22.812 seconds net compute time = 13.735 seconds Storage allocated: 120000 listp Iteration 1 of div2-2 Timing for : div2-2 Elapsed time = 36.461 seconds reclaim time = 22.655 seconds net compute time = 13.806 seconds Page faults = 2 Storage allocated: 120000 listp ***** destru Benchmark *** Destruct Iteration 0 of destru Timing for : destru Elapsed time = 20.272 seconds reclaim time = 6.296 seconds net compute time = 13.976 seconds Storage allocated: 43105 listp Iteration 1 of destru Timing for : destru Elapsed time = 20.096 seconds reclaim time = 6.211 seconds net compute time = 13.885 seconds Storage allocated: 43105 listp ***** deriv Benchmark *** Deriv Iteration 0 of deriv Timing for : deriv Elapsed time = 66.807 seconds reclaim time = 43.665 seconds net compute time = 23.142 seconds Page faults = 2 Storage allocated: 245000 listp Iteration 1 of deriv Timing for : deriv Elapsed time = 66.887 seconds reclaim time = 43.858 seconds net compute time = 23.029 seconds Storage allocated: 245000 listp ***** dderiv Benchmark *** DDeriv Evaluating setup for dderiv Iteration 0 of dderiv Timing for : dderiv Elapsed time = 80.780 seconds reclaim time = 50.822 seconds net compute time = 29.958 seconds Page faults = 6 Storage allocated: 260000 listp Iteration 1 of dderiv Timing for : dderiv Elapsed time = 80.362 seconds reclaim time = 50.231 seconds net compute time = 30.131 seconds Storage allocated: 260000 listp ***** boyer Benchmark *** Boyer Evaluating setup for boyer Iteration 0 of boyer Timing for : boyer Elapsed time = 136.938 seconds SWAP time = 0.053 seconds reclaim time = 37.645 seconds net compute time = 99.240 seconds Page faults = 516 Storage allocated: 226464 listp, 272 compiled-closure Iteration 1 of boyer Timing for : boyer Elapsed time = 132.520 seconds reclaim time = 37.700 seconds net compute time = 94.820 seconds Storage allocated: 226464 listp, 272 compiled-closure ***** browse Benchmark *** Browse Iteration 0 of browse Timing for : browse Elapsed time = 514.966 seconds SWAP time = 0.132 seconds reclaim time = 228.758 seconds net compute time = 286.076 seconds Page faults = 97 Storage allocated: 488945 listp, 229002 oned-array Iteration 1 of browse Timing for : browse Elapsed time = 528.138 seconds reclaim time = 237.366 seconds net compute time = 290.772 seconds Page faults = 50 Storage allocated: 488945 listp, 229002 oned-array ***** browse* Benchmark *** Browse Iteration 0 of browse* Timing for : browse* Elapsed time = 292.764 seconds reclaim time = 112.000 seconds net compute time = 180.764 seconds Page faults = 51 Storage allocated: 488945 listp, 2202 oned-array Iteration 1 of browse* Timing for : browse* Elapsed time = 293.884 seconds reclaim time = 112.679 seconds net compute time = 181.205 seconds Page faults = 50 Storage allocated: 488945 listp, 2202 oned-array ***** triang Benchmark *** Triang Iteration 0 of triang Timing for : triang Elapsed time = 747.135 seconds SWAP time = 0.064 seconds reclaim time = 0.513 seconds net compute time = 746.558 seconds Page faults = 1 Storage allocated: 11626 listp Iteration 1 of triang Timing for : triang Elapsed time = 747.668 seconds reclaim time = 0.486 seconds net compute time = 747.182 seconds Storage allocated: 11626 listp ***** puzzle Benchmark *** Puzzle Iteration 0 of puzzle Success in 2005 trials.Timing for : puzzle Elapsed time = 45.583 seconds net compute time = 45.583 seconds Storage allocated: 10 listp, 4 oned-array Iteration 1 of puzzle Success in 2005 trials.Timing for : puzzle Elapsed time = 45.584 seconds net compute time = 45.584 seconds Storage allocated: 10 listp, 4 oned-array ***** fft Benchmark *** FFT Iteration 0 of fft Timing for : fft Elapsed time = 185.331 seconds SWAP time = 0.365 seconds reclaim time = 106.612 seconds net compute time = 78.354 seconds Page faults = 35 Storage allocated: 942640 floatp Iteration 1 of fft Timing for : fft Elapsed time = 184.159 seconds reclaim time = 106.493 seconds net compute time = 77.666 seconds Storage allocated: 942640 floatp ***** fprint Benchmark *** FPrint Iteration 0 of fprint Timing for : fprint Elapsed time = 12.013 seconds SWAP time = 0.200 seconds reclaim time = 0.352 seconds net compute time = 11.461 seconds Page faults = 4 Storage allocated: 73 fixp, 487 listp, 1 vmempagep, 1 stream, 70 oned-array, 1 process, 1 pathname, 49 pagegroup, 1 filedescriptor Iteration 1 of fprint Timing for : fprint Elapsed time = 12.444 seconds reclaim time = 0.536 seconds net compute time = 11.908 seconds Storage allocated: 262 fixp, 533 listp, 1 vmempagep, 1 stream, 89 oned-array, 2 etherpacket, 2 pathname, 52 pagegroup, 1 filedescriptor ***** fread Benchmark *** FRead Iteration 0 of fread Timing for : fread Elapsed time = 10.548 seconds reclaim time = 0.673 seconds net compute time = 9.875 seconds Storage allocated: 23 fixp, 6236 listp, 1 vmempagep, 1 stream, 79 oned-array, 2 pathname, 37 pagegroup, 1 filedescriptor Iteration 1 of fread Timing for : fread Elapsed time = 10.479 seconds reclaim time = 0.619 seconds net compute time = 9.860 seconds Storage allocated: 23 fixp, 6236 listp, 1 vmempagep, 1 stream, 79 oned-array, 2 pathname, 37 pagegroup, 1 filedescriptor ***** tprint Benchmark *** TPrint Evaluating setup for tprint Iteration 0 of tprint Timing for : tprint Elapsed time = 24.901 seconds net compute time = 24.901 seconds Storage allocated: 4 listp Evaluating after every function for tprint Iteration 1 of tprint Timing for : tprint Elapsed time = 24.912 seconds net compute time = 24.912 seconds Storage allocated: 4 listp Evaluating after every function for tprint Evaluating after function for tprint ***** traverse-init* Benchmark *** Traverse, Initialize Iteration 0 of traverse-init* Timing for : traverse-init* Elapsed time = 78.289 seconds reclaim time = 1.678 seconds net compute time = 76.611 seconds Page faults = 9 Storage allocated: 36796 listp, 100 tnode Evaluating after every function for traverse-init* Iteration 1 of traverse-init* Timing for : traverse-init* Elapsed time = 78.170 seconds reclaim time = 1.581 seconds net compute time = 76.589 seconds Page faults = 2 Storage allocated: 36796 listp, 100 tnode Evaluating after every function for traverse-init* ***** traverse* Benchmark *** Traverse, Traverse Evaluating setup for traverse* Iteration 0 of traverse* Timing for : traverse* Elapsed time = 145.081 seconds net compute time = 145.081 seconds Iteration 1 of traverse* Timing for : traverse* Elapsed time = 145.081 seconds net compute time = 145.081 seconds Evaluating after function for traverse* \ No newline at end of file diff --git a/internal/gabriel/Results/Lyric/summary.tedit b/internal/gabriel/Results/Lyric/summary.tedit deleted file mode 100644 index 1c552d3d..00000000 Binary files a/internal/gabriel/Results/Lyric/summary.tedit and /dev/null differ diff --git a/internal/gabriel/Results/Maiko-Pav-06-14-88.benchmarks b/internal/gabriel/Results/Maiko-Pav-06-14-88.benchmarks deleted file mode 100644 index 64a68184..00000000 --- a/internal/gabriel/Results/Maiko-Pav-06-14-88.benchmarks +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Lispcore sysout of 7-Jun-88 01:23:36 Software Type: Xerox AIE Software Version: Lispcore sysout of 7-Jun-88 01:23:36, Make-init dates: 7-Jun-88 00:26:43, 7-Jun-88 00:36:27 Machine Type: MAIKO Machine Version: Microcode version: 5682, memory size: 16384 Machine Instance: ACobra = 200004000066660# Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** TAKR Benchmark *** TakR Iteration 0 of TAKR Timing for : TAKR Elapsed time = 3.520 seconds net compute time = 3.520 seconds Iteration 1 of TAKR Timing for : TAKR Elapsed time = 3.520 seconds net compute time = 3.520 seconds ***** TAKL Benchmark *** TakL Iteration 0 of TAKL Timing for : TAKL Elapsed time = 29.420 seconds SWAP time = 0.040 seconds net compute time = 29.380 seconds Iteration 1 of TAKL Timing for : TAKL Elapsed time = 29.400 seconds SWAP time = 0.020 seconds net compute time = 29.380 seconds ***** TAK Benchmark *** Tak Iteration 0 of TAK Timing for : TAK Elapsed time = 3.180 seconds net compute time = 3.180 seconds Iteration 1 of TAK Timing for : TAK Elapsed time = 3.200 seconds net compute time = 3.200 seconds ***** STAK Benchmark *** STak Iteration 0 of STAK Timing for : STAK Elapsed time = 17.320 seconds net compute time = 17.320 seconds Iteration 1 of STAK Timing for : STAK Elapsed time = 17.320 seconds net compute time = 17.320 seconds ***** CTAK Benchmark *** CTak Iteration 0 of CTAK Timing for : CTAK Elapsed time = 110.200 seconds SWAP time = 0.120 seconds reclaim time = 28.080 seconds net compute time = 82.000 seconds Iteration 1 of CTAK Timing for : CTAK Elapsed time = 110.160 seconds SWAP time = 0.160 seconds reclaim time = 27.920 seconds net compute time = 82.080 seconds Storage allocated: 47707 LISTP ***** TRAVERSE-INIT Benchmark *** Traverse, Initialize Iteration 0 of TRAVERSE-INIT Timing for : TRAVERSE-INIT Elapsed time = 223.080 seconds SWAP time = 0.220 seconds reclaim time = 3.560 seconds net compute time = 219.300 seconds Storage allocated: 100 TNODE Iteration 1 of TRAVERSE-INIT Timing for : TRAVERSE-INIT Elapsed time = 228.080 seconds SWAP time = 0.180 seconds reclaim time = 3.580 seconds net compute time = 224.320 seconds Storage allocated: 36796 LISTP, 100 TNODE ***** TRAVERSE Benchmark *** Traverse, Traverse Iteration 0 of TRAVERSE Timing for : TRAVERSE Elapsed time = 322.020 seconds SWAP time = 0.120 seconds net compute time = 321.900 seconds Storage allocated: 3 FIXP, 12 LISTP Iteration 1 of TRAVERSE Timing for : TRAVERSE Elapsed time = 321.600 seconds SWAP time = 0.180 seconds net compute time = 321.420 seconds ***** TPRINT Benchmark *** TPrint Evaluating setup for TPRINT Iteration 0 of TPRINT Timing for : TPRINT Elapsed time = 54.820 seconds SWAP time = 0.040 seconds net compute time = 54.780 seconds Storage allocated: 160 FIXP, 4 LISTP Evaluating after every function for TPRINT Iteration 1 of TPRINT Timing for : TPRINT Elapsed time = 54.780 seconds SWAP time = 0.020 seconds net compute time = 54.760 seconds Storage allocated: 160 FIXP, 4 LISTP Evaluating after every function for TPRINT Evaluating after function for TPRINT ***** PUZZLE Benchmark *** Puzzle Iteration 0 of PUZZLE Success in 2005 trials.Timing for : PUZZLE Elapsed time = 474.440 seconds SWAP time = 0.900 seconds net compute time = 473.540 seconds Storage allocated: 1 FIXP, 10 LISTP, 1 ONED-ARRAY Iteration 1 of PUZZLE Success in 2005 trials.Timing for : PUZZLE Elapsed time = 470.440 seconds SWAP time = 0.540 seconds net compute time = 469.900 seconds Storage allocated: 1 FIXP, 10 LISTP, 1 ONED-ARRAY ***** FREAD Benchmark *** FRead Iteration 0 of FREAD In OPEN: File not found: #.(PATHNAME "{dsk}fprint.tst") 15: REVERT T69Breakpoint at T69. 17: return NIL Timing for : FREAD Elapsed time = 617.560 seconds SWAP time = 148.260 seconds reclaim time = 50.380 seconds net compute time = 418.920 seconds Disk operations = 3 Storage allocated: 395 FIXP, 397 FLOATP, 15144 LISTP, 7 ARRAYP, 38 STACKP, 128 STREAM, 47 BITMAP, 23 COMPILED-CLOSURE, 1272 ONED-ARRAY, 1 FDEV, 14 COREFILEINFOBLK, 1 ENVIRONMENT, 4 RESTART, 1 PROCEED-CASE, 12 PROCESS, 15 EVENT, 4 MONITORLOCK, 12 SYSQUEUE, 18 ETHERPACKET, 11 NSADDRESS, 1 PUPSOCKET, 28 PILOTBBT, 28 \DISPLAYDATA, 1 BSPSOC, 1 REVERT, 2 FILE-NOT-FOUND, 1 PATHNAME, 2 CURSOR, 10 MENU, 20 WINDOW, 6 NSOCKET, 3 SPPCON, 8 NSNAME, 5 SELECTION, 1 THISLINE, 103 LINEDESCRIPTOR, 1 LINECACHE, 9 PIECE, 1 TEXTOBJ, 1 TEXTIMAGEDATA, 1 CHARLOOKS, 2 FMTSPEC, 1 TEDITCARET, 89 TABLEITEM, 89 FBFILEDATA Iteration 1 of FREAD In OPEN: File not found: #.(PATHNAME "{dsk}fprint.tst") 18: bt OPEN FREAD T69 CL::%GET-TIMING-INFO CL::TIME-CALL SI::*UNWIND-PROTECT* RUN-BENCHMARKS APPLY 19: revert T69 T69Breakpoint at T69. 20: return NIL Timing for : FREAD Elapsed time = 24.620 seconds SWAP time = 3.240 seconds reclaim time = 2.220 seconds net compute time = 19.160 seconds Storage allocated: 32 FIXP, 688 LISTP, 18 STACKP, 6 STREAM, 4 BITMAP, 8 COMPILED-CLOSURE, 37 ONED-ARRAY, 2 COREFILEINFOBLK, 1 ENVIRONMENT, 2 RESTART, 1 PROCEED-CASE, 2 PILOTBBT, 2 \DISPLAYDATA, 1 REVERT, 1 CONTROL-E-INTERRUPT, 1 FILE-NOT-FOUND, 1 PATHNAME, 2 WINDOW ***** FPRINT Benchmark *** FPrint Iteration 0 of FPRINT In IL:\\OPENFILE: File not found: {dsk}fprint.tst 21: bt IL:OPENSTREAM OPEN FPRINT T68 CL::%GET-TIMING-INFO CL::TIME-CALL SI::*UNWIND-PROTECT* RUN-BENCHMARKS 22: revert t68 T68Breakpoint at T68. 23: return NIL Timing for : FPRINT Elapsed time = 26.480 seconds SWAP time = 3.420 seconds reclaim time = 2.360 seconds net compute time = 20.700 seconds Disk operations = 1 Storage allocated: 43 FIXP, 777 LISTP, 19 STACKP, 7 STREAM, 4 BITMAP, 8 COMPILED-CLOSURE, 70 ONED-ARRAY, 2 COREFILEINFOBLK, 1 ENVIRONMENT, 2 RESTART, 2 PILOTBBT, 2 \DISPLAYDATA, 1 REVERT, 1 CONTROL-E-INTERRUPT, 1 FILE-NOT-FOUND, 1 PATHNAME, 2 WINDOW Iteration 1 of FPRINT In IL:\\OPENFILE: File not found: {dsk}fprint.tst 24: !revert !REVERT is an unbound variable. 25: redo revert T68Breakpoint at T68. 26: return NIL Timing for : FPRINT Elapsed time = 17.180 seconds SWAP time = 2.100 seconds reclaim time = 1.520 seconds net compute time = 13.560 seconds Storage allocated: 33 FIXP, 694 LISTP, 20 STACKP, 6 STREAM, 4 BITMAP, 7 COMPILED-CLOSURE, 61 ONED-ARRAY, 2 COREFILEINFOBLK, 1 ENVIRONMENT, 2 RESTART, 2 PILOTBBT, 2 \DISPLAYDATA, 1 UNBOUND-VARIABLE, 1 REVERT, 1 FILE-NOT-FOUND, 1 PATHNAME, 2 WINDOW ***** FFT Benchmark *** FFT Iteration 0 of FFT Timing for : FFT Elapsed time = 474.440 seconds SWAP time = 1.680 seconds reclaim time = 361.800 seconds net compute time = 110.960 seconds Storage allocated: 942640 FLOATP Iteration 1 of FFT Timing for : FFT Elapsed time = 474.400 seconds SWAP time = 1.580 seconds reclaim time = 361.720 seconds net compute time = 111.100 seconds Storage allocated: 942640 FLOATP ***** DIV2-2 Benchmark *** Div2, Recursive Iteration 0 of DIV2-2 Timing for : DIV2-2 Elapsed time = 75.960 seconds SWAP time = 0.260 seconds reclaim time = 56.260 seconds net compute time = 19.440 seconds Iteration 1 of DIV2-2 Timing for : DIV2-2 Elapsed time = 75.080 seconds SWAP time = 0.220 seconds reclaim time = 55.340 seconds net compute time = 19.520 seconds ***** DIV2-1 Benchmark *** Div2, Iterative Iteration 0 of DIV2-1 Timing for : DIV2-1 Elapsed time = 72.580 seconds SWAP time = 0.300 seconds reclaim time = 55.240 seconds net compute time = 17.040 seconds Iteration 1 of DIV2-1 Timing for : DIV2-1 Elapsed time = 72.660 seconds SWAP time = 0.300 seconds reclaim time = 55.200 seconds net compute time = 17.160 seconds ***** DESTRU Benchmark *** Destruct Iteration 0 of DESTRU Timing for : DESTRU Elapsed time = 62.780 seconds SWAP time = 0.100 seconds reclaim time = 20.780 seconds net compute time = 41.900 seconds Storage allocated: 43105 LISTP Iteration 1 of DESTRU Timing for : DESTRU Elapsed time = 62.660 seconds SWAP time = 0.080 seconds reclaim time = 20.780 seconds net compute time = 41.800 seconds ***** DERIV Benchmark *** Deriv Iteration 0 of DERIV Timing for : DERIV Elapsed time = 149.060 seconds SWAP time = 0.420 seconds reclaim time = 119.300 seconds net compute time = 29.340 seconds Iteration 1 of DERIV Timing for : DERIV Elapsed time = 149.040 seconds SWAP time = 0.300 seconds reclaim time = 119.000 seconds net compute time = 29.740 seconds Storage allocated: 48392 LISTP ***** DDERIV Benchmark *** DDeriv Evaluating setup for DDERIV Iteration 0 of DDERIV Timing for : DDERIV Elapsed time = 195.460 seconds SWAP time = 0.340 seconds reclaim time = 130.520 seconds net compute time = 64.600 seconds Iteration 1 of DDERIV Timing for : DDERIV Elapsed time = 195.480 seconds SWAP time = 0.500 seconds reclaim time = 130.520 seconds net compute time = 64.460 seconds ***** BROWSE Benchmark *** Browse Iteration 0 of BROWSE Timing for : BROWSE Elapsed time = 848.620 seconds SWAP time = 1.420 seconds reclaim time = 455.440 seconds net compute time = 391.760 seconds Storage allocated: 97931 LISTP, 229002 ONED-ARRAY Iteration 1 of BROWSE Timing for : BROWSE Elapsed time = 856.460 seconds SWAP time = 1.540 seconds reclaim time = 460.580 seconds net compute time = 394.340 seconds Storage allocated: 97931 LISTP, 229002 ONED-ARRAY ***** BOYER Benchmark *** Boyer Evaluating setup for BOYER Iteration 0 of BOYER Timing for : BOYER Elapsed time = 240.840 seconds SWAP time = 0.700 seconds reclaim time = 98.400 seconds net compute time = 141.740 seconds Storage allocated: 29856 LISTP Iteration 1 of BOYER Timing for : BOYER Elapsed time = 240.860 seconds SWAP time = 0.520 seconds reclaim time = 98.500 seconds net compute time = 141.840 seconds Storage allocated: 29856 LISTP ***** TRAVERSE-INIT* Benchmark *** Traverse, Initialize Iteration 0 of TRAVERSE-INIT* Timing for : TRAVERSE-INIT* Elapsed time = 230.860 seconds SWAP time = 0.220 seconds reclaim time = 3.680 seconds net compute time = 226.960 seconds Storage allocated: 100 TNODE Evaluating after every function for TRAVERSE-INIT* Iteration 1 of TRAVERSE-INIT* Timing for : TRAVERSE-INIT* Elapsed time = 231.700 seconds SWAP time = 0.360 seconds reclaim time = 3.660 seconds net compute time = 227.680 seconds Storage allocated: 36796 LISTP, 100 TNODE Evaluating after every function for TRAVERSE-INIT* ***** TRAVERSE* Benchmark *** Traverse, Traverse Evaluating setup for TRAVERSE* Iteration 0 of TRAVERSE* Timing for : TRAVERSE* Elapsed time = 322.020 seconds SWAP time = 0.180 seconds net compute time = 321.840 seconds Iteration 1 of TRAVERSE* Timing for : TRAVERSE* Elapsed time = 322.000 seconds SWAP time = 0.300 seconds net compute time = 321.700 seconds Evaluating after function for TRAVERSE* ***** BROWSE* Benchmark *** Browse Iteration 0 of BROWSE* Timing for : BROWSE* Elapsed time = 538.920 seconds SWAP time = 0.820 seconds reclaim time = 304.620 seconds net compute time = 233.480 seconds Storage allocated: 97931 LISTP, 2202 ONED-ARRAY Iteration 1 of BROWSE* Timing for : BROWSE* Elapsed time = 519.960 seconds SWAP time = 0.940 seconds reclaim time = 285.440 seconds net compute time = 233.580 seconds Storage allocated: 32395 LISTP, 2202 ONED-ARRAY \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/1132-BYTE-TAK.Results b/internal/gabriel/Results/Maiko/1132-BYTE-TAK.Results deleted file mode 100644 index e45d2981..00000000 --- a/internal/gabriel/Results/Maiko/1132-BYTE-TAK.Results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Lispcore sysout of 30-May-88 14:50:05 Software Type: Xerox AIE Software Version: Lispcore sysout of 30-May-88 14:50:05, Make-init dates: 30-May-88 13:52:01, 30-May-88 14:02:15 Machine Type: Xerox 1132 Machine Version: Microcode version: 5682, memory size: 16384 Machine Instance: Amontillado = 12542500312# Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** CTAK Benchmark *** CTak Iteration 0 of CTAK Timing for : CTAK Elapsed time = 21.905 seconds net compute time = 21.905 seconds Iteration 1 of CTAK Timing for : CTAK Elapsed time = 21.904 seconds net compute time = 21.904 seconds ***** STAK Benchmark *** STak Iteration 0 of STAK Timing for : STAK Elapsed time = 1.872 seconds net compute time = 1.872 seconds Iteration 1 of STAK Timing for : STAK Elapsed time = 1.872 seconds net compute time = 1.872 seconds ***** TAK Benchmark *** Tak Iteration 0 of TAK Timing for : TAK Elapsed time = 0.514 seconds net compute time = 0.514 seconds Iteration 1 of TAK Timing for : TAK Elapsed time = 0.515 seconds net compute time = 0.515 seconds ***** TAKL Benchmark *** TakL Iteration 0 of TAKL Timing for : TAKL Elapsed time = 3.898 seconds net compute time = 3.898 seconds Iteration 1 of TAKL Timing for : TAKL Elapsed time = 3.898 seconds net compute time = 3.898 seconds ***** TAKR Benchmark *** TakR Iteration 0 of TAKR Timing for : TAKR Elapsed time = 0.703 seconds net compute time = 0.703 seconds Iteration 1 of TAKR Timing for : TAKR Elapsed time = 0.703 seconds net compute time = 0.703 seconds \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/1132-PAV-TAK.Results b/internal/gabriel/Results/Maiko/1132-PAV-TAK.Results deleted file mode 100644 index 01917d49..00000000 --- a/internal/gabriel/Results/Maiko/1132-PAV-TAK.Results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Lispcore sysout of 28-Jun-88 09:39:24 Software Type: Xerox AIE Software Version: Lispcore sysout of 28-Jun-88 09:39:24, Make-init dates: 27-Jun-88 17:23:26, 27-Jun-88 17:33:19 Machine Type: Xerox 1132 Machine Version: Microcode version: 5682, memory size: 16384 Machine Instance: Amontillado = 12542500312# Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** CTAK Benchmark *** CTak Iteration 0 of CTAK Timing for : CTAK Elapsed time = 21.918 seconds SWAP time = 0.089 seconds net compute time = 21.829 seconds Page faults = 4 Disk operations = 4 Iteration 1 of CTAK Timing for : CTAK Elapsed time = 21.826 seconds net compute time = 21.826 seconds ***** STAK Benchmark *** STak Iteration 0 of STAK Timing for : STAK Elapsed time = 1.873 seconds net compute time = 1.873 seconds Iteration 1 of STAK Timing for : STAK Elapsed time = 1.872 seconds net compute time = 1.872 seconds ***** TAK Benchmark *** Tak Iteration 0 of TAK Timing for : TAK Elapsed time = 0.514 seconds net compute time = 0.514 seconds Iteration 1 of TAK Timing for : TAK Elapsed time = 0.513 seconds net compute time = 0.513 seconds ***** TAKL Benchmark *** TakL Iteration 0 of TAKL Timing for : TAKL Elapsed time = 3.815 seconds net compute time = 3.815 seconds Iteration 1 of TAKL Timing for : TAKL Elapsed time = 3.815 seconds net compute time = 3.815 seconds ***** TAKR Benchmark *** TakR Iteration 0 of TAKR Timing for : TAKR Elapsed time = 0.917 seconds SWAP time = 0.229 seconds net compute time = 0.688 seconds Page faults = 17 Disk operations = 17 Iteration 1 of TAKR Timing for : TAKR Elapsed time = 0.679 seconds net compute time = 0.679 seconds \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/1186-BYTE-CONSY.Results b/internal/gabriel/Results/Maiko/1186-BYTE-CONSY.Results deleted file mode 100644 index 34928194..00000000 --- a/internal/gabriel/Results/Maiko/1186-BYTE-CONSY.Results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Medley sysout of 19-Jul-88 19:48:02 Software Type: Xerox AIE Software Version: Medley sysout of 19-Jul-88 19:48:02, Make-init dates: 19-Jul-88 18:28:31, 19-Jul-88 18:39:48 Machine Type: Xerox 1186 Machine Version: Microcode version: 113, memory size: 7424 Machine Instance: Shih1186 = 25220200562# Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** DERIV Benchmark *** Deriv Iteration 0 of DERIV Timing for : DERIV Elapsed time = 70.069 seconds reclaim time = 46.591 seconds net compute time = 23.516 seconds Page faults = 20 Storage allocated: 245000 LISTP Iteration 1 of DERIV Timing for : DERIV Elapsed time = 66.234 seconds reclaim time = 44.768 seconds net compute time = 21.466 seconds Page faults = 2 Storage allocated: 245000 LISTP ***** DDERIV Benchmark *** DDeriv Evaluating setup for DDERIV Iteration 0 of DDERIV Timing for : DDERIV Elapsed time = 83.047 seconds reclaim time = 52.683 seconds net compute time = 30.364 seconds Page faults = 2 Storage allocated: 260000 LISTP Iteration 1 of DDERIV Timing for : DDERIV Elapsed time = 81.864 seconds reclaim time = 52.292 seconds net compute time = 29.572 seconds Storage allocated: 260000 LISTP ***** DIV2-1 Benchmark *** Div2, Iterative Iteration 0 of DIV2-1 Timing for : DIV2-1 Elapsed time = 31.475 seconds reclaim time = 21.810 seconds net compute time = 9.665 seconds Storage allocated: 120000 LISTP Iteration 1 of DIV2-1 Timing for : DIV2-1 Elapsed time = 31.266 seconds reclaim time = 21.388 seconds net compute time = 9.878 seconds Storage allocated: 120000 LISTP ***** DIV2-2 Benchmark *** Div2, Recursive Iteration 0 of DIV2-2 Timing for : DIV2-2 Elapsed time = 33.603 seconds reclaim time = 22.857 seconds net compute time = 10.746 seconds Storage allocated: 120000 LISTP Iteration 1 of DIV2-2 Timing for : DIV2-2 Elapsed time = 33.087 seconds reclaim time = 22.412 seconds net compute time = 10.675 seconds Storage allocated: 120000 LISTP ***** DESTRU Benchmark *** Destruct Iteration 0 of DESTRU Timing for : DESTRU Elapsed time = 22.533 seconds reclaim time = 6.364 seconds net compute time = 16.169 seconds Storage allocated: 43105 LISTP Iteration 1 of DESTRU Timing for : DESTRU Elapsed time = 22.308 seconds reclaim time = 6.277 seconds net compute time = 16.031 seconds Storage allocated: 43105 LISTP ***** BOYER Benchmark *** Boyer Evaluating setup for BOYER Iteration 0 of BOYER Timing for : BOYER Elapsed time = 123.725 seconds reclaim time = 41.036 seconds net compute time = 82.689 seconds Page faults = 522 Storage allocated: 226464 LISTP Iteration 1 of BOYER Timing for : BOYER Elapsed time = 121.814 seconds reclaim time = 41.857 seconds net compute time = 79.957 seconds Storage allocated: 226464 LISTP ***** BROWSE Benchmark *** Browse Iteration 0 of BROWSE Timing for : BROWSE Elapsed time = 558.774 seconds SWAP time = 0.055 seconds reclaim time = 258.202 seconds net compute time = 300.517 seconds Page faults = 92 Storage allocated: 491147 LISTP, 229002 ONED-ARRAY Iteration 1 of BROWSE Timing for : BROWSE Elapsed time = 573.668 seconds reclaim time = 266.281 seconds net compute time = 307.387 seconds Page faults = 50 Storage allocated: 491147 LISTP, 229002 ONED-ARRAY ***** BROWSE* Benchmark *** Browse Iteration 0 of BROWSE* Timing for : BROWSE* Elapsed time = 292.462 seconds reclaim time = 125.844 seconds net compute time = 166.618 seconds Page faults = 51 Storage allocated: 491147 LISTP, 2202 ONED-ARRAY Iteration 1 of BROWSE* Timing for : BROWSE* Elapsed time = 303.437 seconds reclaim time = 131.858 seconds net compute time = 171.579 seconds Page faults = 50 Storage allocated: 491147 LISTP, 2202 ONED-ARRAY ***** TRAVERSE-INIT* Benchmark *** Traverse, Initialize Iteration 0 of TRAVERSE-INIT* Timing for : TRAVERSE-INIT* Elapsed time = 88.822 seconds reclaim time = 1.591 seconds net compute time = 87.231 seconds Page faults = 9 Storage allocated: 36796 LISTP, 100 TNODE Evaluating after every function for TRAVERSE-INIT* Iteration 1 of TRAVERSE-INIT* Timing for : TRAVERSE-INIT* Elapsed time = 81.917 seconds reclaim time = 1.606 seconds net compute time = 80.311 seconds Page faults = 2 Storage allocated: 36796 LISTP, 100 TNODE Evaluating after every function for TRAVERSE-INIT* ***** TRAVERSE* Benchmark *** Traverse, Traverse Evaluating setup for TRAVERSE* Iteration 0 of TRAVERSE* Timing for : TRAVERSE* Elapsed time = 139.586 seconds net compute time = 139.586 seconds Iteration 1 of TRAVERSE* Timing for : TRAVERSE* Elapsed time = 139.588 seconds net compute time = 139.588 seconds Evaluating after function for TRAVERSE* \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/1186-IO.Results b/internal/gabriel/Results/Maiko/1186-IO.Results deleted file mode 100644 index f9c9f62b..00000000 --- a/internal/gabriel/Results/Maiko/1186-IO.Results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Lispcore sysout of 28-Jun-88 09:39:24 Software Type: Xerox AIE Software Version: Lispcore sysout of 28-Jun-88 09:39:24, Make-init dates: 27-Jun-88 17:23:26, 27-Jun-88 17:33:19 Machine Type: Xerox 1186 Machine Version: Microcode version: 113, memory size: 7424 Machine Instance: Wills1186 = 25220220072# Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** FPRINT Benchmark *** FPrint Iteration 0 of FPRINT Timing for : FPRINT Elapsed time = 11.202 seconds SWAP time = 0.126 seconds reclaim time = 0.458 seconds net compute time = 10.618 seconds Page faults = 5 Storage allocated: 201 FIXP, 527 LISTP, 10 VMEMPAGEP, 1 STREAM, 48 ONED-ARRAY, 2 PATHNAME, 52 PageGroup, 1 FileDescriptor Iteration 1 of FPRINT Timing for : FPRINT Elapsed time = 10.880 seconds reclaim time = 0.435 seconds net compute time = 10.445 seconds Storage allocated: 184 FIXP, 522 LISTP, 10 VMEMPAGEP, 1 STREAM, 48 ONED-ARRAY, 4 ETHERPACKET, 2 PATHNAME, 48 PageGroup, 1 FileDescriptor ***** FREAD Benchmark *** FRead Iteration 0 of FREAD Timing for : FREAD Elapsed time = 10.199 seconds SWAP time = 0.061 seconds reclaim time = 0.704 seconds net compute time = 9.434 seconds Page faults = 5 Storage allocated: 119 FIXP, 6247 LISTP, 4 VMEMPAGEP, 1 STREAM, 64 ONED-ARRAY, 2 PATHNAME, 37 PageGroup, 1 FileDescriptor Iteration 1 of FREAD Timing for : FREAD Elapsed time = 10.133 seconds SWAP time = 0.062 seconds reclaim time = 0.664 seconds net compute time = 9.407 seconds Page faults = 1 Storage allocated: 119 FIXP, 6247 LISTP, 4 VMEMPAGEP, 1 STREAM, 64 ONED-ARRAY, 2 PATHNAME, 37 PageGroup, 1 FileDescriptor ***** TPRINT Benchmark *** TPrint Evaluating setup for TPRINT Iteration 0 of TPRINT Timing for : TPRINT Elapsed time = 23.227 seconds net compute time = 23.227 seconds Storage allocated: 4 LISTP Evaluating after every function for TPRINT Iteration 1 of TPRINT Timing for : TPRINT Elapsed time = 23.238 seconds net compute time = 23.238 seconds Storage allocated: 4 LISTP Evaluating after every function for TPRINT Evaluating after function for TPRINT ***** READ-FLOAT Benchmark *** Read 2000 Floats from {CORE} Iteration 0 of READ-FLOAT Timing for : IL:READ-FLOAT Elapsed time = 16.040 seconds reclaim time = 1.706 seconds net compute time = 14.334 seconds Page faults = 15 Storage allocated: 8519 FIXP, 2000 FLOATP, 2006 LISTP, 1 STREAM, 1 ONED-ARRAY, 4 ETHERPACKET Iteration 1 of READ-FLOAT Timing for : IL:READ-FLOAT Elapsed time = 14.792 seconds reclaim time = 1.430 seconds net compute time = 13.362 seconds Storage allocated: 8520 FIXP, 2000 FLOATP, 2006 LISTP, 1 STREAM, 1 ONED-ARRAY ***** PRINT-FLOAT Benchmark *** Print 2000 Floats to {NULL} Iteration 0 of PRINT-FLOAT Timing for : IL:PRINT-FLOAT Elapsed time = 69.916 seconds SWAP time = 0.178 seconds reclaim time = 3.429 seconds net compute time = 66.309 seconds Page faults = 64 Storage allocated: 8065 FIXP, 4004 LISTP, 1 STREAM, 4000 ONED-ARRAY Iteration 1 of PRINT-FLOAT Timing for : IL:PRINT-FLOAT Elapsed time = 69.161 seconds SWAP time = 0.022 seconds reclaim time = 3.115 seconds net compute time = 66.024 seconds Page faults = 1 Storage allocated: 8065 FIXP, 4004 LISTP, 1 STREAM, 4000 ONED-ARRAY ***** TERMINAL-PRINTING Benchmark *** Printing chars to terminal Evaluating setup for TERMINAL-PRINTING Iteration 0 of TERMINAL-PRINTING Timing for : IL:TERMINAL-PRINTING Elapsed time = 111.776 seconds net compute time = 111.776 seconds Storage allocated: 4 FIXP, 12 LISTP, 1 STREAM, 1 COREFILEINFOBLK Iteration 1 of TERMINAL-PRINTING Timing for : IL:TERMINAL-PRINTING Elapsed time = 111.749 seconds net compute time = 111.749 seconds Storage allocated: 4 LISTP Evaluating after function for TERMINAL-PRINTING ***** READ-EXISTING-SYMBOLS Benchmark *** Read 1000 symbols that exist in the sysout already Iteration 0 of READ-EXISTING-SYMBOLS Timing for : IL:READ-EXISTING-SYMBOLS Elapsed time = 9.377 seconds SWAP time = 0.062 seconds reclaim time = 0.707 seconds net compute time = 8.608 seconds Page faults = 51 Storage allocated: 13 FIXP, 2 FLOATP, 3056 LISTP, 1 STREAM, 13 ONED-ARRAY Iteration 1 of READ-EXISTING-SYMBOLS Timing for : IL:READ-EXISTING-SYMBOLS Elapsed time = 5.575 seconds reclaim time = 0.601 seconds net compute time = 4.974 seconds Storage allocated: 2 FIXP, 3005 LISTP, 1 STREAM, 11 ONED-ARRAY, 2 NSADDRESS ***** READ-DSK Benchmark *** Read 50,000 bytes from a file on {DSK} Evaluating setup for READ-DSK Iteration 0 of READ-DSK Timing for : IL:READ-DSK Elapsed time = 3.758 seconds net compute time = 3.758 seconds Page faults = 4 Storage allocated: 259 FIXP, 410 LISTP, 7 VMEMPAGEP, 1 STREAM, 14 ONED-ARRAY, 101 PageGroup, 1 FileDescriptor Iteration 1 of READ-DSK Timing for : IL:READ-DSK Elapsed time = 3.668 seconds net compute time = 3.668 seconds Storage allocated: 259 FIXP, 410 LISTP, 7 VMEMPAGEP, 1 STREAM, 14 ONED-ARRAY, 101 PageGroup, 1 FileDescriptor Evaluating after function for READ-DSK ***** READ-CORE Benchmark *** Read 50,000 bytes from CORE. Evaluating setup for READ-CORE Iteration 0 of READ-CORE Timing for : IL:READ-CORE Elapsed time = 1.934 seconds reclaim time = 0.135 seconds net compute time = 1.799 seconds Storage allocated: 2 FIXP, 5 LISTP, 1 STREAM, 1 ONED-ARRAY Iteration 1 of READ-CORE Timing for : IL:READ-CORE Elapsed time = 1.898 seconds reclaim time = 0.132 seconds net compute time = 1.766 seconds Storage allocated: 2 FIXP, 5 LISTP, 1 STREAM, 1 ONED-ARRAY Evaluating after function for READ-CORE ***** WRITE-DSK Benchmark *** Write 50,000 bytes on on {DSK} Iteration 0 of WRITE-DSK Timing for : IL:WRITE-DSK Elapsed time = 19.100 seconds SWAP time = 1.951 seconds reclaim time = 1.271 seconds net compute time = 15.878 seconds Page faults = 309 Swap writes = 3 Storage allocated: 412 FIXP, 1927 LISTP, 7 VMEMPAGEP, 7 STREAM, 5 BITMAP, 2 COMPILED-CLOSURE, 19 ONED-ARRAY, 2 COREFILEINFOBLK, 2 PROCESS, 4 PILOTBBT, 4 \DISPLAYDATA, 1 CURSOR, 3 WINDOW, 125 PageGroup, 1 FileDescriptor Iteration 1 of WRITE-DSK Timing for : IL:WRITE-DSK Elapsed time = 12.973 seconds reclaim time = 0.438 seconds net compute time = 12.535 seconds Swap writes = 2 Storage allocated: 377 FIXP, 597 LISTP, 7 VMEMPAGEP, 1 STREAM, 17 ONED-ARRAY, 125 PageGroup, 1 FileDescriptor Evaluating after function for WRITE-DSK ***** WRITE-CORE Benchmark *** Write 50,000 bytes to a file on {CORE} Iteration 0 of WRITE-CORE Timing for : IL:WRITE-CORE Elapsed time = 11.399 seconds SWAP time = 0.237 seconds reclaim time = 0.935 seconds net compute time = 10.227 seconds Page faults = 49 Swap writes = 21 Storage allocated: 6 FIXP, 231 LISTP, 1 STREAM, 4 ONED-ARRAY, 1 COREFILEINFOBLK Iteration 1 of WRITE-CORE Timing for : IL:WRITE-CORE Elapsed time = 11.165 seconds reclaim time = 0.720 seconds net compute time = 10.445 seconds Page faults = 98 Swap writes = 31 Storage allocated: 6 FIXP, 227 LISTP, 1 STREAM, 4 ONED-ARRAY, 1 COREFILEINFOBLK Evaluating after function for WRITE-CORE \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/1186-PAV-AREFY.Results b/internal/gabriel/Results/Maiko/1186-PAV-AREFY.Results deleted file mode 100644 index 94329d01..00000000 --- a/internal/gabriel/Results/Maiko/1186-PAV-AREFY.Results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Medley sysout of 6-Jun-88 15:12:28 Software Type: Xerox AIE Software Version: Medley sysout of 6-Jun-88 15:12:28, Make-init dates: 6-Jun-88 13:44:45, 6-Jun-88 13:55:29 Machine Type: Xerox 1186 Machine Version: Microcode version: 111, memory size: 7424 Machine Instance: Shih1186 = 25220200562# Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** PUZZLE Benchmark *** Puzzle Iteration 0 of PUZZLE Success in 2005 trials.Timing for : PUZZLE Elapsed time = 46.210 seconds net compute time = 46.210 seconds Storage allocated: 10 LISTP, 1 ONED-ARRAY Iteration 1 of PUZZLE Success in 2005 trials.Timing for : PUZZLE Elapsed time = 46.207 seconds net compute time = 46.207 seconds Storage allocated: 10 LISTP, 1 ONED-ARRAY ***** TRIANG Benchmark *** Triang Iteration 0 of TRIANG Timing for : TRIANG Elapsed time = 822.291 seconds SWAP time = 0.023 seconds reclaim time = 0.601 seconds net compute time = 821.667 seconds Page faults = 71 Storage allocated: 11626 LISTP Iteration 1 of TRIANG Timing for : TRIANG Elapsed time = 821.879 seconds reclaim time = 0.592 seconds net compute time = 821.287 seconds Storage allocated: 11626 LISTP ***** FFT Benchmark *** FFT Iteration 0 of FFT Timing for : FFT Elapsed time = 248.317 seconds SWAP time = 0.614 seconds reclaim time = 137.099 seconds net compute time = 110.604 seconds Page faults = 43 Storage allocated: 942640 FLOATP Iteration 1 of FFT Timing for : FFT Elapsed time = 247.126 seconds reclaim time = 136.751 seconds net compute time = 110.375 seconds Storage allocated: 942640 FLOATP \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/1186-PAV-CONSY.Results b/internal/gabriel/Results/Maiko/1186-PAV-CONSY.Results deleted file mode 100644 index 57e2cb10..00000000 --- a/internal/gabriel/Results/Maiko/1186-PAV-CONSY.Results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Lispcore sysout of 28-Jun-88 09:39:24 Software Type: Xerox AIE Software Version: Lispcore sysout of 28-Jun-88 09:39:24, Make-init dates: 27-Jun-88 17:23:26, 27-Jun-88 17:33:19 Machine Type: Xerox 1186 Machine Version: Microcode version: 113, memory size: 7424 Machine Instance: Wills1186 = 25220220072# Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** DERIV Benchmark *** Deriv Iteration 0 of DERIV Timing for : DERIV Elapsed time = 82.750 seconds reclaim time = 55.484 seconds net compute time = 27.266 seconds Page faults = 5 Swap writes = 5 Storage allocated: 245000 LISTP Iteration 1 of DERIV Timing for : DERIV Elapsed time = 81.878 seconds reclaim time = 55.356 seconds net compute time = 26.522 seconds Page faults = 2 Swap writes = 2 Storage allocated: 245000 LISTP ***** DDERIV Benchmark *** DDeriv Evaluating setup for DDERIV Iteration 0 of DDERIV Timing for : DDERIV Elapsed time = 97.316 seconds reclaim time = 62.950 seconds net compute time = 34.366 seconds Page faults = 2 Swap writes = 2 Storage allocated: 260000 LISTP Iteration 1 of DDERIV Timing for : DDERIV Elapsed time = 97.426 seconds reclaim time = 62.702 seconds net compute time = 34.724 seconds Storage allocated: 260000 LISTP ***** DIV2-1 Benchmark *** Div2, Iterative Iteration 0 of DIV2-1 Timing for : DIV2-1 Elapsed time = 38.395 seconds reclaim time = 25.727 seconds net compute time = 12.668 seconds Storage allocated: 120000 LISTP Iteration 1 of DIV2-1 Timing for : DIV2-1 Elapsed time = 38.710 seconds reclaim time = 25.939 seconds net compute time = 12.771 seconds Storage allocated: 120000 LISTP ***** DIV2-2 Benchmark *** Div2, Recursive Iteration 0 of DIV2-2 Timing for : DIV2-2 Elapsed time = 43.355 seconds reclaim time = 27.620 seconds net compute time = 15.735 seconds Storage allocated: 120000 LISTP Iteration 1 of DIV2-2 Timing for : DIV2-2 Elapsed time = 42.932 seconds reclaim time = 27.414 seconds net compute time = 15.518 seconds Storage allocated: 120000 LISTP ***** DESTRU Benchmark *** Destruct Iteration 0 of DESTRU Timing for : DESTRU Elapsed time = 23.053 seconds reclaim time = 7.639 seconds net compute time = 15.414 seconds Storage allocated: 43105 LISTP Iteration 1 of DESTRU Timing for : DESTRU Elapsed time = 23.305 seconds reclaim time = 7.990 seconds net compute time = 15.315 seconds Storage allocated: 43105 LISTP ***** TRAVERSE-INIT* Benchmark *** Traverse, Initialize Iteration 0 of TRAVERSE-INIT* Timing for : TRAVERSE-INIT* Elapsed time = 85.646 seconds reclaim time = 1.826 seconds net compute time = 83.820 seconds Page faults = 394 Storage allocated: 36796 LISTP, 100 TNODE Evaluating after every function for TRAVERSE-INIT* Iteration 1 of TRAVERSE-INIT* Timing for : TRAVERSE-INIT* Elapsed time = 81.617 seconds reclaim time = 1.701 seconds net compute time = 79.916 seconds Page faults = 2 Storage allocated: 36796 LISTP, 100 TNODE Evaluating after every function for TRAVERSE-INIT* ***** TRAVERSE* Benchmark *** Traverse, Traverse Evaluating setup for TRAVERSE* Iteration 0 of TRAVERSE* Timing for : TRAVERSE* Elapsed time = 150.143 seconds net compute time = 150.143 seconds Iteration 1 of TRAVERSE* Timing for : TRAVERSE* Elapsed time = 150.145 seconds net compute time = 150.145 seconds Evaluating after function for TRAVERSE* ***** BOYER Benchmark *** Boyer Evaluating setup for BOYER Iteration 0 of BOYER Timing for : BOYER Elapsed time = 151.560 seconds reclaim time = 51.161 seconds net compute time = 100.399 seconds Page faults = 113 Storage allocated: 226464 LISTP Iteration 1 of BOYER Timing for : BOYER Elapsed time = 149.775 seconds reclaim time = 50.858 seconds net compute time = 98.917 seconds Storage allocated: 226464 LISTP ***** BROWSE Benchmark *** Browse Iteration 0 of BROWSE Timing for : BROWSE Elapsed time = 617.725 seconds SWAP time = 0.041 seconds reclaim time = 298.729 seconds net compute time = 318.955 seconds Page faults = 64 Storage allocated: 491147 LISTP, 229002 ONED-ARRAY Iteration 1 of BROWSE Timing for : BROWSE Elapsed time = 640.112 seconds reclaim time = 310.729 seconds net compute time = 329.383 seconds Page faults = 50 Storage allocated: 491147 LISTP, 229002 ONED-ARRAY ***** BROWSE* Benchmark *** Browse Iteration 0 of BROWSE* Timing for : BROWSE* Elapsed time = 330.884 seconds reclaim time = 161.267 seconds net compute time = 169.617 seconds Page faults = 66 Storage allocated: 491147 LISTP, 2202 ONED-ARRAY Iteration 1 of BROWSE* Timing for : BROWSE* Elapsed time = 341.451 seconds reclaim time = 166.544 seconds net compute time = 174.907 seconds Page faults = 48 Storage allocated: 491147 LISTP, 2202 ONED-ARRAY \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/1186-PAV-TAK.Results b/internal/gabriel/Results/Maiko/1186-PAV-TAK.Results deleted file mode 100644 index 7d2b19db..00000000 --- a/internal/gabriel/Results/Maiko/1186-PAV-TAK.Results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Medley sysout of 6-Jun-88 15:12:28 Software Type: Xerox AIE Software Version: Medley sysout of 6-Jun-88 15:12:28, Make-init dates: 6-Jun-88 13:44:45, 6-Jun-88 13:55:29 Machine Type: Xerox 1186 Machine Version: Microcode version: 111, memory size: 7424 Machine Instance: Shih1186 = 25220200562# Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** CTAK Benchmark *** CTak Iteration 0 of CTAK Timing for : CTAK Elapsed time = 56.758 seconds net compute time = 56.758 seconds Iteration 1 of CTAK Timing for : CTAK Elapsed time = 56.757 seconds net compute time = 56.757 seconds ***** STAK Benchmark *** STak Iteration 0 of STAK Timing for : STAK Elapsed time = 4.481 seconds net compute time = 4.481 seconds Iteration 1 of STAK Timing for : STAK Elapsed time = 4.482 seconds net compute time = 4.482 seconds ***** TAK Benchmark *** Tak Iteration 0 of TAK Timing for : TAK Elapsed time = 1.632 seconds net compute time = 1.632 seconds Iteration 1 of TAK Timing for : TAK Elapsed time = 1.632 seconds net compute time = 1.632 seconds ***** TAKL Benchmark *** TakL Iteration 0 of TAKL Timing for : TAKL Elapsed time = 13.413 seconds net compute time = 13.413 seconds Iteration 1 of TAKL Timing for : TAKL Elapsed time = 13.413 seconds net compute time = 13.413 seconds ***** TAKR Benchmark *** TakR Iteration 0 of TAKR Timing for : TAKR Elapsed time = 1.713 seconds net compute time = 1.713 seconds Iteration 1 of TAKR Timing for : TAKR Elapsed time = 1.711 seconds net compute time = 1.711 seconds \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/SUN-BYTE-AREFY.RESULTS b/internal/gabriel/Results/Maiko/SUN-BYTE-AREFY.RESULTS deleted file mode 100644 index 7b876370..00000000 --- a/internal/gabriel/Results/Maiko/SUN-BYTE-AREFY.RESULTS +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Lispcore sysout of 20-Jun-88 19:23:27 Software Type: Xerox AIE Software Version: Lispcore sysout of 20-Jun-88 19:23:27, Make-init dates: 20-Jun-88 18:24:36, 20-Jun-88 18:34:47 Machine Type: MAIKO Machine Version: Microcode version: 266, memory size: 16384 Machine Instance: ACobra = 200004000066660# Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** PUZZLE Benchmark *** Puzzle Iteration 0 of PUZZLE Success in 2005 trials.Timing for : PUZZLE Elapsed time = 71.640 seconds SWAP time = 0.040 seconds net compute time = 71.600 seconds Storage allocated: 10 LISTP, 1 ONED-ARRAY Iteration 1 of PUZZLE Success in 2005 trials.Timing for : PUZZLE Elapsed time = 71.640 seconds SWAP time = 0.080 seconds net compute time = 71.560 seconds Storage allocated: 10 LISTP, 1 ONED-ARRAY ***** TRIANG Benchmark *** Triang Iteration 0 of TRIANG Timing for : TRIANG Elapsed time = 1486.440 seconds SWAP time = 0.960 seconds reclaim time = 1.440 seconds net compute time = 1484.040 seconds Iteration 1 of TRIANG Timing for : TRIANG Elapsed time = 1486.540 seconds SWAP time = 1.080 seconds reclaim time = 1.440 seconds net compute time = 1484.020 seconds Storage allocated: 11626 LISTP ***** FFT Benchmark *** FFT Iteration 0 of FFT Timing for : FFT Elapsed time = 343.640 seconds SWAP time = 1.680 seconds reclaim time = 234.820 seconds net compute time = 107.140 seconds Storage allocated: 942640 FLOATP Iteration 1 of FFT Timing for : FFT Elapsed time = 343.620 seconds SWAP time = 1.800 seconds reclaim time = 234.860 seconds net compute time = 106.960 seconds Storage allocated: 942640 FLOATP \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/SUN-BYTE-ARITH.RESULTS b/internal/gabriel/Results/Maiko/SUN-BYTE-ARITH.RESULTS deleted file mode 100644 index ecdc15fe..00000000 --- a/internal/gabriel/Results/Maiko/SUN-BYTE-ARITH.RESULTS +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Lispcore sysout of 20-Jun-88 19:23:27 Software Type: Xerox AIE Software Version: Lispcore sysout of 20-Jun-88 19:23:27, Make-init dates: 20-Jun-88 18:24:36, 20-Jun-88 18:34:47 Machine Type: MAIKO Machine Version: Microcode version: 266, memory size: 16384 Machine Instance: ACobra = 200004000066660# Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** NULL-LOOP Benchmark *** Null loop, 1000 times thru Iteration 0 of NULL-LOOP Timing for : IL:NULL-LOOP Elapsed time = 101.680 seconds SWAP time = 0.140 seconds reclaim time = 5.600 seconds net compute time = 95.940 seconds Storage allocated: 3 FIXP, 20322 LISTP, 5 ENVIRONMENT Iteration 1 of NULL-LOOP Timing for : IL:NULL-LOOP Elapsed time = 101.320 seconds SWAP time = 0.100 seconds reclaim time = 5.620 seconds net compute time = 95.600 seconds Storage allocated: 2 FIXP, 20218 LISTP, 5 ENVIRONMENT ***** FLOAT-ADD Benchmark *** 1000 Floating-point additions Iteration 0 of FLOAT-ADD Timing for : IL:FLOAT-ADD Elapsed time = 120.920 seconds SWAP time = 0.160 seconds reclaim time = 8.000 seconds net compute time = 112.760 seconds Storage allocated: 3 FIXP, 10000 FLOATP, 5 ENVIRONMENT Iteration 1 of FLOAT-ADD Timing for : IL:FLOAT-ADD Elapsed time = 120.640 seconds SWAP time = 0.060 seconds reclaim time = 8.040 seconds net compute time = 112.540 seconds Storage allocated: 2 FIXP, 10000 FLOATP, 20230 LISTP, 5 ENVIRONMENT ***** FLOAT-SUB Benchmark *** 1000 Floating-point subtractions Iteration 0 of FLOAT-SUB Timing for : IL:FLOAT-SUB Elapsed time = 119.160 seconds SWAP time = 0.160 seconds reclaim time = 7.960 seconds net compute time = 111.040 seconds Storage allocated: 3 FIXP, 10000 FLOATP, 20343 LISTP, 5 ENVIRONMENT Iteration 1 of FLOAT-SUB Timing for : IL:FLOAT-SUB Elapsed time = 119.180 seconds SWAP time = 0.180 seconds reclaim time = 7.900 seconds net compute time = 111.100 seconds Storage allocated: 2 FIXP, 10000 FLOATP, 20230 LISTP, 5 ENVIRONMENT ***** FLOAT-TIMES Benchmark *** 1000 Floating-point multiplications Iteration 0 of FLOAT-TIMES Timing for : IL:FLOAT-TIMES Elapsed time = 120.200 seconds SWAP time = 0.180 seconds reclaim time = 7.960 seconds net compute time = 112.060 seconds Storage allocated: 3 FIXP, 10000 FLOATP, 20343 LISTP, 5 ENVIRONMENT Iteration 1 of FLOAT-TIMES Timing for : IL:FLOAT-TIMES Elapsed time = 119.860 seconds SWAP time = 0.180 seconds reclaim time = 7.900 seconds net compute time = 111.780 seconds Storage allocated: 2 FIXP, 10000 FLOATP, 20230 LISTP, 5 ENVIRONMENT ***** FLOAT-DIV Benchmark *** 1000 Floating-point divisions Iteration 0 of FLOAT-DIV Timing for : IL:FLOAT-DIV Elapsed time = 119.240 seconds SWAP time = 0.160 seconds reclaim time = 7.960 seconds net compute time = 111.120 seconds Storage allocated: 3 FIXP, 10000 FLOATP, 5 ENVIRONMENT Iteration 1 of FLOAT-DIV Timing for : IL:FLOAT-DIV Elapsed time = 119.220 seconds SWAP time = 0.100 seconds reclaim time = 7.960 seconds net compute time = 111.160 seconds Storage allocated: 2 FIXP, 10000 FLOATP, 20230 LISTP, 5 ENVIRONMENT ***** GENERIC-ADD-FLOAT Benchmark *** 10000 Generic + with float args Iteration 0 of GENERIC-ADD-FLOAT Timing for : IL:GENERIC-ADD-FLOAT Elapsed time = 120.640 seconds SWAP time = 0.140 seconds reclaim time = 7.940 seconds net compute time = 112.560 seconds Storage allocated: 3 FIXP, 10000 FLOATP, 20343 LISTP, 5 ENVIRONMENT Iteration 1 of GENERIC-ADD-FLOAT Timing for : IL:GENERIC-ADD-FLOAT Elapsed time = 121.000 seconds SWAP time = 0.140 seconds reclaim time = 7.940 seconds net compute time = 112.920 seconds Storage allocated: 2 FIXP, 10000 FLOATP, 20230 LISTP, 5 ENVIRONMENT ***** GENERIC-SUB-FLOAT Benchmark *** 10000 Generic - with float args Iteration 0 of GENERIC-SUB-FLOAT Timing for : IL:GENERIC-SUB-FLOAT Elapsed time = 120.760 seconds SWAP time = 0.140 seconds reclaim time = 7.940 seconds net compute time = 112.680 seconds Storage allocated: 3 FIXP, 10000 FLOATP, 20343 LISTP, 5 ENVIRONMENT Iteration 1 of GENERIC-SUB-FLOAT Timing for : IL:GENERIC-SUB-FLOAT Elapsed time = 120.780 seconds SWAP time = 0.140 seconds reclaim time = 7.960 seconds net compute time = 112.680 seconds Storage allocated: 2 FIXP, 10000 FLOATP, 20230 LISTP, 5 ENVIRONMENT ***** GENERIC-TIMES-FLOAT Benchmark *** 10000 Generic * with float args Iteration 0 of GENERIC-TIMES-FLOAT Timing for : IL:GENERIC-TIMES-FLOAT Elapsed time = 121.000 seconds SWAP time = 0.160 seconds reclaim time = 7.940 seconds net compute time = 112.900 seconds Storage allocated: 3 FIXP, 10000 FLOATP, 20343 LISTP, 5 ENVIRONMENT Iteration 1 of GENERIC-TIMES-FLOAT Timing for : IL:GENERIC-TIMES-FLOAT Elapsed time = 120.080 seconds SWAP time = 0.140 seconds reclaim time = 8.000 seconds net compute time = 111.940 seconds Storage allocated: 2 FIXP, 10000 FLOATP, 5 ENVIRONMENT ***** GENERIC-DIV-FLOAT Benchmark *** 10000 Generic / with float args Iteration 0 of GENERIC-DIV-FLOAT Timing for : IL:GENERIC-DIV-FLOAT Elapsed time = 122.020 seconds SWAP time = 0.160 seconds reclaim time = 8.000 seconds net compute time = 113.860 seconds Storage allocated: 3 FIXP, 10000 FLOATP, 20343 LISTP, 5 ENVIRONMENT Iteration 1 of GENERIC-DIV-FLOAT Timing for : IL:GENERIC-DIV-FLOAT Elapsed time = 121.100 seconds SWAP time = 0.160 seconds reclaim time = 7.980 seconds net compute time = 112.960 seconds Storage allocated: 2 FIXP, 10000 FLOATP, 20230 LISTP, 5 ENVIRONMENT ***** FLOAT-SINE Benchmark *** 10000 calls to CL:SIN(pi/6) Iteration 0 of FLOAT-SINE Timing for : IL:FLOAT-SINE Elapsed time = 132.060 seconds SWAP time = 0.220 seconds reclaim time = 7.940 seconds net compute time = 123.900 seconds Storage allocated: 3 FIXP, 10000 FLOATP, 20340 LISTP, 5 ENVIRONMENT Iteration 1 of FLOAT-SINE Timing for : IL:FLOAT-SINE Elapsed time = 130.980 seconds SWAP time = 0.160 seconds reclaim time = 7.960 seconds net compute time = 122.860 seconds Storage allocated: 2 FIXP, 10000 FLOATP, 20228 LISTP, 5 ENVIRONMENT \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/SUN-BYTE-CONSY.RESULTS b/internal/gabriel/Results/Maiko/SUN-BYTE-CONSY.RESULTS deleted file mode 100644 index b57c2350..00000000 --- a/internal/gabriel/Results/Maiko/SUN-BYTE-CONSY.RESULTS +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Lispcore sysout of 20-Jun-88 19:23:27 Software Type: Xerox AIE Software Version: Lispcore sysout of 20-Jun-88 19:23:27, Make-init dates: 20-Jun-88 18:24:36, 20-Jun-88 18:34:47 Machine Type: MAIKO Machine Version: Microcode version: 266, memory size: 16384 Machine Instance: ACobra = 200004000066660# Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** DERIV Benchmark *** Deriv Iteration 0 of DERIV Timing for : DERIV Elapsed time = 75.040 seconds SWAP time = 0.360 seconds reclaim time = 48.040 seconds net compute time = 26.640 seconds Storage allocated: 48392 LISTP Iteration 1 of DERIV Timing for : DERIV Elapsed time = 75.040 seconds SWAP time = 0.360 seconds reclaim time = 48.060 seconds net compute time = 26.620 seconds ***** DDERIV Benchmark *** DDeriv Evaluating setup for DDERIV Iteration 0 of DDERIV Timing for : DDERIV Elapsed time = 88.460 seconds SWAP time = 0.320 seconds reclaim time = 52.000 seconds net compute time = 36.140 seconds Iteration 1 of DDERIV Timing for : DDERIV Elapsed time = 88.480 seconds SWAP time = 0.240 seconds reclaim time = 51.960 seconds net compute time = 36.280 seconds Storage allocated: 63392 LISTP ***** DIV2-1 Benchmark *** Div2, Iterative Iteration 0 of DIV2-1 Timing for : DIV2-1 Elapsed time = 38.520 seconds SWAP time = 0.180 seconds reclaim time = 24.200 seconds net compute time = 14.140 seconds Iteration 1 of DIV2-1 Timing for : DIV2-1 Elapsed time = 38.460 seconds SWAP time = 0.140 seconds reclaim time = 24.200 seconds net compute time = 14.120 seconds ***** DIV2-2 Benchmark *** Div2, Recursive Iteration 0 of DIV2-2 Timing for : DIV2-2 Elapsed time = 41.660 seconds SWAP time = 0.180 seconds reclaim time = 25.060 seconds net compute time = 16.420 seconds Iteration 1 of DIV2-2 Timing for : DIV2-2 Elapsed time = 40.840 seconds SWAP time = 0.160 seconds reclaim time = 24.420 seconds net compute time = 16.260 seconds Storage allocated: 54464 LISTP ***** DESTRU Benchmark *** Destruct Iteration 0 of DESTRU Timing for : DESTRU Elapsed time = 32.620 seconds SWAP time = 0.060 seconds reclaim time = 8.820 seconds net compute time = 23.740 seconds Iteration 1 of DESTRU Timing for : DESTRU Elapsed time = 32.640 seconds SWAP time = 0.120 seconds reclaim time = 8.880 seconds net compute time = 23.640 seconds ***** BOYER Benchmark *** Boyer Evaluating setup for BOYER Iteration 0 of BOYER Timing for : BOYER Elapsed time = 163.940 seconds SWAP time = 0.440 seconds reclaim time = 45.500 seconds net compute time = 118.000 seconds Storage allocated: 29856 LISTP Iteration 1 of BOYER Timing for : BOYER Elapsed time = 164.040 seconds SWAP time = 0.340 seconds reclaim time = 45.600 seconds net compute time = 118.100 seconds Storage allocated: 29856 LISTP ***** BROWSE Benchmark *** Browse Iteration 0 of BROWSE Timing for : BROWSE Elapsed time = 494.880 seconds SWAP time = 1.160 seconds reclaim time = 188.980 seconds net compute time = 304.740 seconds Storage allocated: 97931 LISTP, 229002 ONED-ARRAY Iteration 1 of BROWSE Timing for : BROWSE Elapsed time = 494.640 seconds SWAP time = 1.440 seconds reclaim time = 187.900 seconds net compute time = 305.300 seconds Storage allocated: 97931 LISTP, 229002 ONED-ARRAY ***** BROWSE* Benchmark *** Browse Iteration 0 of BROWSE* Timing for : BROWSE* Elapsed time = 297.840 seconds SWAP time = 0.480 seconds reclaim time = 103.340 seconds net compute time = 194.020 seconds Storage allocated: 32395 LISTP, 2202 ONED-ARRAY Iteration 1 of BROWSE* Timing for : BROWSE* Elapsed time = 297.620 seconds SWAP time = 0.500 seconds reclaim time = 103.280 seconds net compute time = 193.840 seconds Storage allocated: 97931 LISTP, 2202 ONED-ARRAY ***** TRAVERSE-INIT* Benchmark *** Traverse, Initialize Iteration 0 of TRAVERSE-INIT* Timing for : TRAVERSE-INIT* Elapsed time = 67.460 seconds SWAP time = 0.160 seconds reclaim time = 3.700 seconds net compute time = 63.600 seconds Storage allocated: 36796 LISTP, 100 TNODE Evaluating after every function for TRAVERSE-INIT* Iteration 1 of TRAVERSE-INIT* Timing for : TRAVERSE-INIT* Elapsed time = 67.980 seconds SWAP time = 0.180 seconds reclaim time = 3.620 seconds net compute time = 64.180 seconds Storage allocated: 36796 LISTP, 100 TNODE Evaluating after every function for TRAVERSE-INIT* ***** TRAVERSE* Benchmark *** Traverse, Traverse Evaluating setup for TRAVERSE* Iteration 0 of TRAVERSE* Timing for : TRAVERSE* Elapsed time = 262.320 seconds SWAP time = 0.200 seconds net compute time = 262.120 seconds Iteration 1 of TRAVERSE* Timing for : TRAVERSE* Elapsed time = 262.360 seconds SWAP time = 0.220 seconds net compute time = 262.140 seconds Evaluating after function for TRAVERSE* \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/SUN-BYTE-TAK.RESULTS b/internal/gabriel/Results/Maiko/SUN-BYTE-TAK.RESULTS deleted file mode 100644 index 45a0a280..00000000 --- a/internal/gabriel/Results/Maiko/SUN-BYTE-TAK.RESULTS +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Lispcore sysout of 20-Jun-88 19:23:27 Software Type: Xerox AIE Software Version: Lispcore sysout of 20-Jun-88 19:23:27, Make-init dates: 20-Jun-88 18:24:36, 20-Jun-88 18:34:47 Machine Type: MAIKO Machine Version: Microcode version: 266, memory size: 16384 Machine Instance: ACobra = 200004000066660# Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** CTAK Benchmark *** CTak Iteration 0 of CTAK Timing for : CTAK Elapsed time = 96.440 seconds SWAP time = 0.260 seconds net compute time = 96.180 seconds Iteration 1 of CTAK Timing for : CTAK Elapsed time = 95.540 seconds SWAP time = 0.060 seconds net compute time = 95.480 seconds ***** STAK Benchmark *** STak Iteration 0 of STAK Timing for : STAK Elapsed time = 11.280 seconds SWAP time = 0.020 seconds net compute time = 11.260 seconds Iteration 1 of STAK Timing for : STAK Elapsed time = 11.180 seconds SWAP time = 0.040 seconds net compute time = 11.140 seconds ***** TAK Benchmark *** Tak Iteration 0 of TAK Timing for : TAK Elapsed time = 3.020 seconds net compute time = 3.020 seconds Iteration 1 of TAK Timing for : TAK Elapsed time = 3.100 seconds SWAP time = 0.020 seconds net compute time = 3.080 seconds ***** TAKL Benchmark *** TakL Iteration 0 of TAKL Timing for : TAKL Elapsed time = 18.980 seconds SWAP time = 0.040 seconds net compute time = 18.940 seconds Iteration 1 of TAKL Timing for : TAKL Elapsed time = 18.960 seconds SWAP time = 0.020 seconds net compute time = 18.940 seconds ***** TAKR Benchmark *** TakR Iteration 0 of TAKR Timing for : TAKR Elapsed time = 3.340 seconds net compute time = 3.340 seconds Iteration 1 of TAKR Timing for : TAKR Elapsed time = 3.340 seconds net compute time = 3.340 seconds \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/SUN-IO.Results b/internal/gabriel/Results/Maiko/SUN-IO.Results deleted file mode 100644 index 94bbd861..00000000 --- a/internal/gabriel/Results/Maiko/SUN-IO.Results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Envos Medley Lisp Version: Lispcore 1.0 sysout of 18-Apr-90 10:37:55 Software Type: Envos Medley Software Version: Lispcore 1.0 sysout of 18-Apr-90 10:37:55, Make-init dates: 17-Apr-90 20:12:20, 17-Apr-90 20:30:18 Machine Type: mc68020fal/lde/lispcore/gabriel/TOOLS/BENCH-1 Machine Version: Emulator created: 9-May-90, memory size: 0 Machine Instance: 31000c9fal/lde/lispcore/gabriel/TOOLS/BENCH-1 pigmyc9fal/lde/lispcore/gabriel/TOOLS/BENCH-1 Site: ENVOS Corporation Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** FPRINT Benchmark *** FPrint Iteration 0 of FPRINT Timing for : FPRINT Elapsed time = 19.740 seconds SWAP time = 2.080 seconds net compute time = 17.660 seconds Page faults = 2 Swap writes = 2 Disk operations = 2 Storage allocated: 76 FIXP, 113 LISTP, 1 STREAM, 52 ONED-ARRAY, 2 PATHNAME, 2 DIRECTORY-COMPONENT Iteration 1 of FPRINT Timing for : FPRINT Elapsed time = 19.040 seconds SWAP time = 1.980 seconds net compute time = 17.060 seconds Page faults = 2 Swap writes = 2 Disk operations = 2 Storage allocated: 76 FIXP, 113 LISTP, 1 STREAM, 52 ONED-ARRAY, 2 PATHNAME, 2 DIRECTORY-COMPONENT ***** FREAD Benchmark *** FRead Iteration 0 of FREAD Timing for : FREAD Elapsed time = 15.232 seconds SWAP time = 0.560 seconds reclaim time = 0.260 seconds net compute time = 14.412 seconds Storage allocated: 41 FIXP, 5928 LISTP, 1 STREAM, 55 ONED-ARRAY, 2 PATHNAME, 2 DIRECTORY-COMPONENT Iteration 1 of FREAD Timing for : FREAD Elapsed time = 15.100 seconds SWAP time = 0.660 seconds reclaim time = 0.280 seconds net compute time = 14.160 seconds Storage allocated: 41 FIXP, 5928 LISTP, 1 STREAM, 55 ONED-ARRAY, 2 PATHNAME, 2 DIRECTORY-COMPONENT ***** TPRINT Benchmark *** TPrint Evaluating setup for TPRINT Iteration 0 of TPRINT Timing for : TPRINT Elapsed time = 189.396 seconds SWAP time = 0.200 seconds net compute time = 189.196 seconds Storage allocated: 4 LISTP Evaluating after every function for TPRINT Iteration 1 of TPRINT Timing for : TPRINT Elapsed time = 189.540 seconds SWAP time = 0.160 seconds net compute time = 189.380 seconds Storage allocated: 4 LISTP Evaluating after every function for TPRINT Evaluating after function for TPRINT ***** READ-FLOAT Benchmark *** Read 2000 Floats from {CORE} Iteration 0 of READ-FLOAT Timing for : IL:READ-FLOAT Elapsed time = 21.260 seconds SWAP time = 0.100 seconds reclaim time = 0.960 seconds net compute time = 20.200 seconds Page faults = 1 Swap writes = 1 Storage allocated: 7811 FIXP, 2000 FLOATP, 2004 LISTP, 1 STREAM, 2 ONED-ARRAY Iteration 1 of READ-FLOAT Timing for : IL:READ-FLOAT Elapsed time = 21.240 seconds SWAP time = 0.020 seconds reclaim time = 0.980 seconds net compute time = 20.240 seconds Storage allocated: 7811 FIXP, 2000 FLOATP, 2004 LISTP, 1 STREAM, 2 ONED-ARRAY ***** PRINT-FLOAT Benchmark *** Print 2000 Floats to {NULL} Iteration 0 of PRINT-FLOAT Timing for : IL:PRINT-FLOAT Elapsed time = 0.040 seconds net compute time = 0.040 seconds Storage allocated: 4 LISTP, 1 STREAM, 3 ONED-ARRAY Iteration 1 of PRINT-FLOAT Timing for : IL:PRINT-FLOAT Elapsed time = 0.020 seconds net compute time = 0.020 seconds Storage allocated: 4 LISTP, 1 STREAM, 3 ONED-ARRAY ***** TERMINAL-PRINTING Benchmark *** Printing chars to terminal Evaluating setup for TERMINAL-PRINTING Iteration 0 of TERMINAL-PRINTING Timing for : IL:TERMINAL-PRINTING Elapsed time = 1976.020 seconds SWAP time = 2.760 seconds reclaim time = 0.140 seconds net compute time = 1973.120 seconds Storage allocated: 2 FIXP, 10 LISTP, 1 STREAM, 1 ONED-ARRAY, 1 COREFILEINFOBLK Iteration 1 of TERMINAL-PRINTING Timing for : IL:TERMINAL-PRINTING Elapsed time = 2053.020 seconds SWAP time = 2.600 seconds net compute time = 2050.420 seconds Storage allocated: 4 LISTP Evaluating after function for TERMINAL-PRINTING ***** READ-EXISTING-SYMBOLS Benchmark *** Read 1000 symbols that exist in the sysout already Iteration 0 of READ-EXISTING-SYMBOLS Timing for : IL:READ-EXISTING-SYMBOLS Elapsed time = 13.860 seconds reclaim time = 0.740 seconds net compute time = 13.120 seconds Storage allocated: 5 FIXP, 4 FLOATP, 3008 LISTP, 1 STREAM, 16 ONED-ARRAY Iteration 1 of READ-EXISTING-SYMBOLS Timing for : IL:READ-EXISTING-SYMBOLS Elapsed time = 8.200 seconds reclaim time = 0.400 seconds net compute time = 7.800 seconds Storage allocated: 1 FIXP, 3004 LISTP, 1 STREAM, 12 ONED-ARRAY ***** READ-DSK Benchmark *** Read 50,000 bytes from a file on {DSK} Evaluating setup for READ-DSK Iteration 0 of READ-DSK Timing for : IL:READ-DSK Elapsed time = 3.560 seconds SWAP time = 0.860 seconds net compute time = 2.700 seconds Storage allocated: 104 FIXP, 34 LISTP, 1 STREAM, 20 ONED-ARRAY Iteration 1 of READ-DSK Timing for : IL:READ-DSK Elapsed time = 3.960 seconds SWAP time = 0.820 seconds net compute time = 3.140 seconds Storage allocated: 104 FIXP, 34 LISTP, 1 STREAM, 20 ONED-ARRAY Evaluating after function for READ-DSK ***** READ-UFS Benchmark *** Read 50,000 bytes from a file on the {UNIX} device Evaluating setup for READ-UFS Please enter my pup host number (in octal): 65 Iteration 0 of READ-UFS Timing for : IL:READ-UFS Elapsed time = 2.540 seconds SWAP time = 0.340 seconds net compute time = 2.200 seconds Page faults = 3 Storage allocated: 103 FIXP, 19 LISTP, 1 STREAM, 12 ONED-ARRAY Iteration 1 of READ-UFS Timing for : IL:READ-UFS Elapsed time = 2.620 seconds SWAP time = 0.380 seconds net compute time = 2.240 seconds Page faults = 3 Storage allocated: 103 FIXP, 19 LISTP, 1 STREAM, 12 ONED-ARRAY Evaluating after function for READ-UFS ***** READ-CORE Benchmark *** Read 50,000 bytes from CORE. Evaluating setup for READ-CORE Iteration 0 of READ-CORE Timing for : IL:READ-CORE Elapsed time = 2.360 seconds SWAP time = 0.020 seconds net compute time = 2.340 seconds Storage allocated: 1 FIXP, 3 LISTP, 1 STREAM, 2 ONED-ARRAY Iteration 1 of READ-CORE Timing for : IL:READ-CORE Elapsed time = 2.560 seconds SWAP time = 0.020 seconds reclaim time = 0.160 seconds net compute time = 2.380 seconds Storage allocated: 1 FIXP, 3 LISTP, 1 STREAM, 2 ONED-ARRAY Evaluating after function for READ-CORE ***** WRITE-DSK Benchmark *** Write 50,000 bytes on on {DSK} Iteration 0 of WRITE-DSK Timing for : IL:WRITE-DSK Elapsed time = 19.440 seconds SWAP time = 2.020 seconds net compute time = 17.420 seconds Page faults = 9 Swap writes = 7 Disk operations = 7 Storage allocated: 203 FIXP, 42 LISTP, 1 STREAM, 20 ONED-ARRAY Iteration 1 of WRITE-DSK Timing for : IL:WRITE-DSK Elapsed time = 20.428 seconds SWAP time = 1.580 seconds net compute time = 18.848 seconds Page faults = 6 Swap writes = 6 Disk operations = 6 Storage allocated: 205 FIXP, 42 LISTP, 1 STREAM, 20 ONED-ARRAY Evaluating after function for WRITE-DSK ***** WRITE-UFS Benchmark *** Write 50,000 bytes to a file on {UNIX} Iteration 0 of WRITE-UFS Timing for : IL:WRITE-UFS Elapsed time = 16.680 seconds SWAP time = 0.440 seconds net compute time = 16.240 seconds Page faults = 11 Swap writes = 6 Disk operations = 6 Storage allocated: 202 FIXP, 27 LISTP, 1 STREAM, 12 ONED-ARRAY Iteration 1 of WRITE-UFS Timing for : IL:WRITE-UFS Elapsed time = 16.480 seconds SWAP time = 0.440 seconds net compute time = 16.040 seconds Page faults = 9 Swap writes = 6 Disk operations = 6 Storage allocated: 202 FIXP, 27 LISTP, 1 STREAM, 12 ONED-ARRAY Evaluating after function for WRITE-UFS ***** WRITE-CORE Benchmark *** Write 50,000 bytes to a file on {CORE} Iteration 0 of WRITE-CORE Timing for : IL:WRITE-CORE Elapsed time = 15.660 seconds reclaim time = 1.060 seconds net compute time = 14.600 seconds Storage allocated: 2 FIXP, 209 LISTP, 1 STREAM, 5 ONED-ARRAY, 1 COREFILEINFOBLK Iteration 1 of WRITE-CORE Timing for : IL:WRITE-CORE Elapsed time = 15.540 seconds SWAP time = 0.040 seconds reclaim time = 1.080 seconds net compute time = 14.420 seconds Storage allocated: 2 FIXP, 205 LISTP, 1 STREAM, 5 ONED-ARRAY, 1 COREFILEINFOBLK Evaluating after function for WRITE-CORE \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/SUN-IO.Results.~14~ b/internal/gabriel/Results/Maiko/SUN-IO.Results.~14~ deleted file mode 100644 index 94bbd861..00000000 --- a/internal/gabriel/Results/Maiko/SUN-IO.Results.~14~ +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Envos Medley Lisp Version: Lispcore 1.0 sysout of 18-Apr-90 10:37:55 Software Type: Envos Medley Software Version: Lispcore 1.0 sysout of 18-Apr-90 10:37:55, Make-init dates: 17-Apr-90 20:12:20, 17-Apr-90 20:30:18 Machine Type: mc68020fal/lde/lispcore/gabriel/TOOLS/BENCH-1 Machine Version: Emulator created: 9-May-90, memory size: 0 Machine Instance: 31000c9fal/lde/lispcore/gabriel/TOOLS/BENCH-1 pigmyc9fal/lde/lispcore/gabriel/TOOLS/BENCH-1 Site: ENVOS Corporation Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** FPRINT Benchmark *** FPrint Iteration 0 of FPRINT Timing for : FPRINT Elapsed time = 19.740 seconds SWAP time = 2.080 seconds net compute time = 17.660 seconds Page faults = 2 Swap writes = 2 Disk operations = 2 Storage allocated: 76 FIXP, 113 LISTP, 1 STREAM, 52 ONED-ARRAY, 2 PATHNAME, 2 DIRECTORY-COMPONENT Iteration 1 of FPRINT Timing for : FPRINT Elapsed time = 19.040 seconds SWAP time = 1.980 seconds net compute time = 17.060 seconds Page faults = 2 Swap writes = 2 Disk operations = 2 Storage allocated: 76 FIXP, 113 LISTP, 1 STREAM, 52 ONED-ARRAY, 2 PATHNAME, 2 DIRECTORY-COMPONENT ***** FREAD Benchmark *** FRead Iteration 0 of FREAD Timing for : FREAD Elapsed time = 15.232 seconds SWAP time = 0.560 seconds reclaim time = 0.260 seconds net compute time = 14.412 seconds Storage allocated: 41 FIXP, 5928 LISTP, 1 STREAM, 55 ONED-ARRAY, 2 PATHNAME, 2 DIRECTORY-COMPONENT Iteration 1 of FREAD Timing for : FREAD Elapsed time = 15.100 seconds SWAP time = 0.660 seconds reclaim time = 0.280 seconds net compute time = 14.160 seconds Storage allocated: 41 FIXP, 5928 LISTP, 1 STREAM, 55 ONED-ARRAY, 2 PATHNAME, 2 DIRECTORY-COMPONENT ***** TPRINT Benchmark *** TPrint Evaluating setup for TPRINT Iteration 0 of TPRINT Timing for : TPRINT Elapsed time = 189.396 seconds SWAP time = 0.200 seconds net compute time = 189.196 seconds Storage allocated: 4 LISTP Evaluating after every function for TPRINT Iteration 1 of TPRINT Timing for : TPRINT Elapsed time = 189.540 seconds SWAP time = 0.160 seconds net compute time = 189.380 seconds Storage allocated: 4 LISTP Evaluating after every function for TPRINT Evaluating after function for TPRINT ***** READ-FLOAT Benchmark *** Read 2000 Floats from {CORE} Iteration 0 of READ-FLOAT Timing for : IL:READ-FLOAT Elapsed time = 21.260 seconds SWAP time = 0.100 seconds reclaim time = 0.960 seconds net compute time = 20.200 seconds Page faults = 1 Swap writes = 1 Storage allocated: 7811 FIXP, 2000 FLOATP, 2004 LISTP, 1 STREAM, 2 ONED-ARRAY Iteration 1 of READ-FLOAT Timing for : IL:READ-FLOAT Elapsed time = 21.240 seconds SWAP time = 0.020 seconds reclaim time = 0.980 seconds net compute time = 20.240 seconds Storage allocated: 7811 FIXP, 2000 FLOATP, 2004 LISTP, 1 STREAM, 2 ONED-ARRAY ***** PRINT-FLOAT Benchmark *** Print 2000 Floats to {NULL} Iteration 0 of PRINT-FLOAT Timing for : IL:PRINT-FLOAT Elapsed time = 0.040 seconds net compute time = 0.040 seconds Storage allocated: 4 LISTP, 1 STREAM, 3 ONED-ARRAY Iteration 1 of PRINT-FLOAT Timing for : IL:PRINT-FLOAT Elapsed time = 0.020 seconds net compute time = 0.020 seconds Storage allocated: 4 LISTP, 1 STREAM, 3 ONED-ARRAY ***** TERMINAL-PRINTING Benchmark *** Printing chars to terminal Evaluating setup for TERMINAL-PRINTING Iteration 0 of TERMINAL-PRINTING Timing for : IL:TERMINAL-PRINTING Elapsed time = 1976.020 seconds SWAP time = 2.760 seconds reclaim time = 0.140 seconds net compute time = 1973.120 seconds Storage allocated: 2 FIXP, 10 LISTP, 1 STREAM, 1 ONED-ARRAY, 1 COREFILEINFOBLK Iteration 1 of TERMINAL-PRINTING Timing for : IL:TERMINAL-PRINTING Elapsed time = 2053.020 seconds SWAP time = 2.600 seconds net compute time = 2050.420 seconds Storage allocated: 4 LISTP Evaluating after function for TERMINAL-PRINTING ***** READ-EXISTING-SYMBOLS Benchmark *** Read 1000 symbols that exist in the sysout already Iteration 0 of READ-EXISTING-SYMBOLS Timing for : IL:READ-EXISTING-SYMBOLS Elapsed time = 13.860 seconds reclaim time = 0.740 seconds net compute time = 13.120 seconds Storage allocated: 5 FIXP, 4 FLOATP, 3008 LISTP, 1 STREAM, 16 ONED-ARRAY Iteration 1 of READ-EXISTING-SYMBOLS Timing for : IL:READ-EXISTING-SYMBOLS Elapsed time = 8.200 seconds reclaim time = 0.400 seconds net compute time = 7.800 seconds Storage allocated: 1 FIXP, 3004 LISTP, 1 STREAM, 12 ONED-ARRAY ***** READ-DSK Benchmark *** Read 50,000 bytes from a file on {DSK} Evaluating setup for READ-DSK Iteration 0 of READ-DSK Timing for : IL:READ-DSK Elapsed time = 3.560 seconds SWAP time = 0.860 seconds net compute time = 2.700 seconds Storage allocated: 104 FIXP, 34 LISTP, 1 STREAM, 20 ONED-ARRAY Iteration 1 of READ-DSK Timing for : IL:READ-DSK Elapsed time = 3.960 seconds SWAP time = 0.820 seconds net compute time = 3.140 seconds Storage allocated: 104 FIXP, 34 LISTP, 1 STREAM, 20 ONED-ARRAY Evaluating after function for READ-DSK ***** READ-UFS Benchmark *** Read 50,000 bytes from a file on the {UNIX} device Evaluating setup for READ-UFS Please enter my pup host number (in octal): 65 Iteration 0 of READ-UFS Timing for : IL:READ-UFS Elapsed time = 2.540 seconds SWAP time = 0.340 seconds net compute time = 2.200 seconds Page faults = 3 Storage allocated: 103 FIXP, 19 LISTP, 1 STREAM, 12 ONED-ARRAY Iteration 1 of READ-UFS Timing for : IL:READ-UFS Elapsed time = 2.620 seconds SWAP time = 0.380 seconds net compute time = 2.240 seconds Page faults = 3 Storage allocated: 103 FIXP, 19 LISTP, 1 STREAM, 12 ONED-ARRAY Evaluating after function for READ-UFS ***** READ-CORE Benchmark *** Read 50,000 bytes from CORE. Evaluating setup for READ-CORE Iteration 0 of READ-CORE Timing for : IL:READ-CORE Elapsed time = 2.360 seconds SWAP time = 0.020 seconds net compute time = 2.340 seconds Storage allocated: 1 FIXP, 3 LISTP, 1 STREAM, 2 ONED-ARRAY Iteration 1 of READ-CORE Timing for : IL:READ-CORE Elapsed time = 2.560 seconds SWAP time = 0.020 seconds reclaim time = 0.160 seconds net compute time = 2.380 seconds Storage allocated: 1 FIXP, 3 LISTP, 1 STREAM, 2 ONED-ARRAY Evaluating after function for READ-CORE ***** WRITE-DSK Benchmark *** Write 50,000 bytes on on {DSK} Iteration 0 of WRITE-DSK Timing for : IL:WRITE-DSK Elapsed time = 19.440 seconds SWAP time = 2.020 seconds net compute time = 17.420 seconds Page faults = 9 Swap writes = 7 Disk operations = 7 Storage allocated: 203 FIXP, 42 LISTP, 1 STREAM, 20 ONED-ARRAY Iteration 1 of WRITE-DSK Timing for : IL:WRITE-DSK Elapsed time = 20.428 seconds SWAP time = 1.580 seconds net compute time = 18.848 seconds Page faults = 6 Swap writes = 6 Disk operations = 6 Storage allocated: 205 FIXP, 42 LISTP, 1 STREAM, 20 ONED-ARRAY Evaluating after function for WRITE-DSK ***** WRITE-UFS Benchmark *** Write 50,000 bytes to a file on {UNIX} Iteration 0 of WRITE-UFS Timing for : IL:WRITE-UFS Elapsed time = 16.680 seconds SWAP time = 0.440 seconds net compute time = 16.240 seconds Page faults = 11 Swap writes = 6 Disk operations = 6 Storage allocated: 202 FIXP, 27 LISTP, 1 STREAM, 12 ONED-ARRAY Iteration 1 of WRITE-UFS Timing for : IL:WRITE-UFS Elapsed time = 16.480 seconds SWAP time = 0.440 seconds net compute time = 16.040 seconds Page faults = 9 Swap writes = 6 Disk operations = 6 Storage allocated: 202 FIXP, 27 LISTP, 1 STREAM, 12 ONED-ARRAY Evaluating after function for WRITE-UFS ***** WRITE-CORE Benchmark *** Write 50,000 bytes to a file on {CORE} Iteration 0 of WRITE-CORE Timing for : IL:WRITE-CORE Elapsed time = 15.660 seconds reclaim time = 1.060 seconds net compute time = 14.600 seconds Storage allocated: 2 FIXP, 209 LISTP, 1 STREAM, 5 ONED-ARRAY, 1 COREFILEINFOBLK Iteration 1 of WRITE-CORE Timing for : IL:WRITE-CORE Elapsed time = 15.540 seconds SWAP time = 0.040 seconds reclaim time = 1.080 seconds net compute time = 14.420 seconds Storage allocated: 2 FIXP, 205 LISTP, 1 STREAM, 5 ONED-ARRAY, 1 COREFILEINFOBLK Evaluating after function for WRITE-CORE \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/SUN-IO.Results.~1~ b/internal/gabriel/Results/Maiko/SUN-IO.Results.~1~ deleted file mode 100644 index 183e2130..00000000 --- a/internal/gabriel/Results/Maiko/SUN-IO.Results.~1~ +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Lispcore sysout of 3-Aug-88 00:55:00 Software Type: Xerox AIE Software Version: Lispcore sysout of 3-Aug-88 00:55:00, Make-init dates: 31-Jul-88 18:16:30, 31-Jul-88 18:26:32 Machine Type: mc68020 Machine Version: Microcode version: 349, memory size: 16384 Machine Instance: 1300283a trouser Site: trouser Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** FPRINT Benchmark *** FPrint Iteration 0 of FPRINT Timing for : FPRINT Elapsed time = 15.840 seconds SWAP time = 0.560 seconds net compute time = 15.280 seconds Page faults = 22 Swap writes = 8 Disk operations = 6 Storage allocated: 22 FIXP, 105 LISTP, 1 STREAM, 31 ONED-ARRAY, 1 PATHNAME Iteration 1 of FPRINT Timing for : FPRINT Elapsed time = 15.020 seconds SWAP time = 0.420 seconds net compute time = 14.600 seconds Page faults = 1 Swap writes = 1 Disk operations = 4 Storage allocated: 19 FIXP, 128 LISTP, 1 STREAM, 44 ONED-ARRAY, 2 PATHNAME ***** FREAD Benchmark *** FRead Iteration 0 of FREAD In IL:\\EOSERROR: End of file IL:|{DSK}/users/hayata/fprint.tst;2| 12: ^ \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/SUN-PAV-AREFY.Results b/internal/gabriel/Results/Maiko/SUN-PAV-AREFY.Results deleted file mode 100644 index 17529685..00000000 --- a/internal/gabriel/Results/Maiko/SUN-PAV-AREFY.Results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Lispcore sysout of 3-Aug-88 00:55:00 Software Type: Xerox AIE Software Version: Lispcore sysout of 3-Aug-88 00:55:00, Make-init dates: 31-Jul-88 18:16:30, 31-Jul-88 18:26:32 Machine Type: mc68020 Machine Version: Microcode version: 349, memory size: 16384 Machine Instance: 1300283a trouser Site: trouser Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** PUZZLE Benchmark *** Puzzle Iteration 0 of PUZZLE Success in 2005 trials.Timing for : PUZZLE Elapsed time = 63.360 seconds SWAP time = 0.140 seconds net compute time = 63.220 seconds Page faults = 6 Swap writes = 4 Storage allocated: 1 FIXP, 10 LISTP, 1 ONED-ARRAY Iteration 1 of PUZZLE Success in 2005 trials.Timing for : PUZZLE Elapsed time = 63.180 seconds SWAP time = 0.040 seconds net compute time = 63.140 seconds Storage allocated: 1 FIXP, 10 LISTP, 1 ONED-ARRAY ***** TRIANG Benchmark *** Triang Iteration 0 of TRIANG Timing for : TRIANG Elapsed time = 1143.400 seconds SWAP time = 1.980 seconds reclaim time = 1.500 seconds net compute time = 1139.920 seconds Page faults = 1 Storage allocated: 11626 LISTP Iteration 1 of TRIANG Timing for : TRIANG Elapsed time = 1142.600 seconds SWAP time = 1.300 seconds reclaim time = 1.520 seconds net compute time = 1139.780 seconds Storage allocated: 11626 LISTP ***** FFT Benchmark *** FFT Iteration 0 of FFT Timing for : FFT Elapsed time = 309.880 seconds SWAP time = 1.400 seconds reclaim time = 220.720 seconds net compute time = 87.760 seconds Page faults = 2 Swap writes = 2 Storage allocated: 942640 FLOATP Iteration 1 of FFT Timing for : FFT Elapsed time = 310.180 seconds SWAP time = 1.560 seconds reclaim time = 220.940 seconds net compute time = 87.680 seconds Storage allocated: 942640 FLOATP \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/SUN-PAV-ARITH.Results b/internal/gabriel/Results/Maiko/SUN-PAV-ARITH.Results deleted file mode 100644 index 0dc0db5a..00000000 --- a/internal/gabriel/Results/Maiko/SUN-PAV-ARITH.Results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Envos Medley Lisp Version: Lispcore 1.0 sysout of 18-Apr-90 10:37:55 Software Type: Envos Medley Software Version: Lispcore 1.0 sysout of 18-Apr-90 10:37:55, Make-init dates: 17-Apr-90 20:12:20, 17-Apr-90 20:30:18 Machine Type: mc68020fal/lde/lispcore/gabriel/TOOLS/BENCH-1 Machine Version: Emulator created: 9-May-90, memory size: 0 Machine Instance: 31000c9fal/lde/lispcore/gabriel/TOOLS/BENCH-1 pigmyc9fal/lde/lispcore/gabriel/TOOLS/BENCH-1 Site: ENVOS Corporation Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** NULL-LOOP Benchmark *** Null loop, 1000 times thru Iteration 0 of NULL-LOOP Timing for : IL:NULL-LOOP Elapsed time = 0.240 seconds net compute time = 0.240 seconds Iteration 1 of NULL-LOOP Timing for : IL:NULL-LOOP Elapsed time = 0.260 seconds net compute time = 0.260 seconds ***** FLOAT-ADD Benchmark *** 1000 Floating-point additions Iteration 0 of FLOAT-ADD Timing for : IL:FLOAT-ADD Elapsed time = 1.780 seconds reclaim time = 0.680 seconds net compute time = 1.100 seconds Storage allocated: 10000 FLOATP Iteration 1 of FLOAT-ADD Timing for : IL:FLOAT-ADD Elapsed time = 1.880 seconds reclaim time = 0.660 seconds net compute time = 1.220 seconds Storage allocated: 10000 FLOATP ***** FLOAT-SUB Benchmark *** 1000 Floating-point subtractions Iteration 0 of FLOAT-SUB Timing for : IL:FLOAT-SUB Elapsed time = 2.100 seconds reclaim time = 0.700 seconds net compute time = 1.400 seconds Storage allocated: 10000 FLOATP Iteration 1 of FLOAT-SUB Timing for : IL:FLOAT-SUB Elapsed time = 2.100 seconds reclaim time = 0.640 seconds net compute time = 1.460 seconds Storage allocated: 10000 FLOATP ***** FLOAT-TIMES Benchmark *** 1000 Floating-point multiplications Iteration 0 of FLOAT-TIMES Timing for : IL:FLOAT-TIMES Elapsed time = 1.640 seconds reclaim time = 0.640 seconds net compute time = 1.000 seconds Storage allocated: 10000 FLOATP Iteration 1 of FLOAT-TIMES Timing for : IL:FLOAT-TIMES Elapsed time = 1.640 seconds reclaim time = 0.680 seconds net compute time = 0.960 seconds Storage allocated: 10000 FLOATP ***** FLOAT-DIV Benchmark *** 1000 Floating-point divisions Iteration 0 of FLOAT-DIV Timing for : IL:FLOAT-DIV Elapsed time = 1.680 seconds reclaim time = 0.640 seconds net compute time = 1.040 seconds Storage allocated: 10000 FLOATP Iteration 1 of FLOAT-DIV Timing for : IL:FLOAT-DIV Elapsed time = 1.680 seconds reclaim time = 0.640 seconds net compute time = 1.040 seconds Storage allocated: 10000 FLOATP ***** GENERIC-ADD-FLOAT Benchmark *** 10000 Generic + with float args Iteration 0 of GENERIC-ADD-FLOAT Timing for : IL:GENERIC-ADD-FLOAT Elapsed time = 1.860 seconds reclaim time = 0.660 seconds net compute time = 1.200 seconds Storage allocated: 10000 FLOATP Iteration 1 of GENERIC-ADD-FLOAT Timing for : IL:GENERIC-ADD-FLOAT Elapsed time = 1.860 seconds SWAP time = 0.020 seconds reclaim time = 0.680 seconds net compute time = 1.160 seconds Storage allocated: 10000 FLOATP ***** GENERIC-SUB-FLOAT Benchmark *** 10000 Generic - with float args Iteration 0 of GENERIC-SUB-FLOAT Timing for : IL:GENERIC-SUB-FLOAT Elapsed time = 1.900 seconds SWAP time = 0.040 seconds reclaim time = 0.680 seconds net compute time = 1.180 seconds Storage allocated: 10000 FLOATP Iteration 1 of GENERIC-SUB-FLOAT Timing for : IL:GENERIC-SUB-FLOAT Elapsed time = 1.800 seconds SWAP time = 0.020 seconds reclaim time = 0.680 seconds net compute time = 1.100 seconds Storage allocated: 10000 FLOATP ***** GENERIC-TIMES-FLOAT Benchmark *** 10000 Generic * with float args Iteration 0 of GENERIC-TIMES-FLOAT Timing for : IL:GENERIC-TIMES-FLOAT Elapsed time = 1.740 seconds reclaim time = 0.680 seconds net compute time = 1.060 seconds Storage allocated: 10000 FLOATP Iteration 1 of GENERIC-TIMES-FLOAT Timing for : IL:GENERIC-TIMES-FLOAT Elapsed time = 1.740 seconds reclaim time = 0.660 seconds net compute time = 1.080 seconds Storage allocated: 10000 FLOATP ***** GENERIC-DIV-FLOAT Benchmark *** 10000 Generic / with float args Iteration 0 of GENERIC-DIV-FLOAT Timing for : IL:GENERIC-DIV-FLOAT Elapsed time = 2.760 seconds reclaim time = 0.640 seconds net compute time = 2.120 seconds Storage allocated: 10000 FLOATP Iteration 1 of GENERIC-DIV-FLOAT Timing for : IL:GENERIC-DIV-FLOAT Elapsed time = 2.760 seconds SWAP time = 0.020 seconds reclaim time = 0.640 seconds net compute time = 2.100 seconds Storage allocated: 10000 FLOATP ***** FLOAT-SINE Benchmark *** 10000 calls to CL:SIN(pi/6) Iteration 0 of FLOAT-SINE Timing for : IL:FLOAT-SINE Elapsed time = 19.320 seconds SWAP time = 0.080 seconds reclaim time = 8.200 seconds net compute time = 11.040 seconds Storage allocated: 110000 FLOATP Iteration 1 of FLOAT-SINE Timing for : IL:FLOAT-SINE Elapsed time = 19.300 seconds SWAP time = 0.060 seconds reclaim time = 8.160 seconds net compute time = 11.080 seconds Storage allocated: 110000 FLOATP \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/SUN-PAV-ARITH.Results.~10~ b/internal/gabriel/Results/Maiko/SUN-PAV-ARITH.Results.~10~ deleted file mode 100644 index 0dc0db5a..00000000 --- a/internal/gabriel/Results/Maiko/SUN-PAV-ARITH.Results.~10~ +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Envos Medley Lisp Version: Lispcore 1.0 sysout of 18-Apr-90 10:37:55 Software Type: Envos Medley Software Version: Lispcore 1.0 sysout of 18-Apr-90 10:37:55, Make-init dates: 17-Apr-90 20:12:20, 17-Apr-90 20:30:18 Machine Type: mc68020fal/lde/lispcore/gabriel/TOOLS/BENCH-1 Machine Version: Emulator created: 9-May-90, memory size: 0 Machine Instance: 31000c9fal/lde/lispcore/gabriel/TOOLS/BENCH-1 pigmyc9fal/lde/lispcore/gabriel/TOOLS/BENCH-1 Site: ENVOS Corporation Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** NULL-LOOP Benchmark *** Null loop, 1000 times thru Iteration 0 of NULL-LOOP Timing for : IL:NULL-LOOP Elapsed time = 0.240 seconds net compute time = 0.240 seconds Iteration 1 of NULL-LOOP Timing for : IL:NULL-LOOP Elapsed time = 0.260 seconds net compute time = 0.260 seconds ***** FLOAT-ADD Benchmark *** 1000 Floating-point additions Iteration 0 of FLOAT-ADD Timing for : IL:FLOAT-ADD Elapsed time = 1.780 seconds reclaim time = 0.680 seconds net compute time = 1.100 seconds Storage allocated: 10000 FLOATP Iteration 1 of FLOAT-ADD Timing for : IL:FLOAT-ADD Elapsed time = 1.880 seconds reclaim time = 0.660 seconds net compute time = 1.220 seconds Storage allocated: 10000 FLOATP ***** FLOAT-SUB Benchmark *** 1000 Floating-point subtractions Iteration 0 of FLOAT-SUB Timing for : IL:FLOAT-SUB Elapsed time = 2.100 seconds reclaim time = 0.700 seconds net compute time = 1.400 seconds Storage allocated: 10000 FLOATP Iteration 1 of FLOAT-SUB Timing for : IL:FLOAT-SUB Elapsed time = 2.100 seconds reclaim time = 0.640 seconds net compute time = 1.460 seconds Storage allocated: 10000 FLOATP ***** FLOAT-TIMES Benchmark *** 1000 Floating-point multiplications Iteration 0 of FLOAT-TIMES Timing for : IL:FLOAT-TIMES Elapsed time = 1.640 seconds reclaim time = 0.640 seconds net compute time = 1.000 seconds Storage allocated: 10000 FLOATP Iteration 1 of FLOAT-TIMES Timing for : IL:FLOAT-TIMES Elapsed time = 1.640 seconds reclaim time = 0.680 seconds net compute time = 0.960 seconds Storage allocated: 10000 FLOATP ***** FLOAT-DIV Benchmark *** 1000 Floating-point divisions Iteration 0 of FLOAT-DIV Timing for : IL:FLOAT-DIV Elapsed time = 1.680 seconds reclaim time = 0.640 seconds net compute time = 1.040 seconds Storage allocated: 10000 FLOATP Iteration 1 of FLOAT-DIV Timing for : IL:FLOAT-DIV Elapsed time = 1.680 seconds reclaim time = 0.640 seconds net compute time = 1.040 seconds Storage allocated: 10000 FLOATP ***** GENERIC-ADD-FLOAT Benchmark *** 10000 Generic + with float args Iteration 0 of GENERIC-ADD-FLOAT Timing for : IL:GENERIC-ADD-FLOAT Elapsed time = 1.860 seconds reclaim time = 0.660 seconds net compute time = 1.200 seconds Storage allocated: 10000 FLOATP Iteration 1 of GENERIC-ADD-FLOAT Timing for : IL:GENERIC-ADD-FLOAT Elapsed time = 1.860 seconds SWAP time = 0.020 seconds reclaim time = 0.680 seconds net compute time = 1.160 seconds Storage allocated: 10000 FLOATP ***** GENERIC-SUB-FLOAT Benchmark *** 10000 Generic - with float args Iteration 0 of GENERIC-SUB-FLOAT Timing for : IL:GENERIC-SUB-FLOAT Elapsed time = 1.900 seconds SWAP time = 0.040 seconds reclaim time = 0.680 seconds net compute time = 1.180 seconds Storage allocated: 10000 FLOATP Iteration 1 of GENERIC-SUB-FLOAT Timing for : IL:GENERIC-SUB-FLOAT Elapsed time = 1.800 seconds SWAP time = 0.020 seconds reclaim time = 0.680 seconds net compute time = 1.100 seconds Storage allocated: 10000 FLOATP ***** GENERIC-TIMES-FLOAT Benchmark *** 10000 Generic * with float args Iteration 0 of GENERIC-TIMES-FLOAT Timing for : IL:GENERIC-TIMES-FLOAT Elapsed time = 1.740 seconds reclaim time = 0.680 seconds net compute time = 1.060 seconds Storage allocated: 10000 FLOATP Iteration 1 of GENERIC-TIMES-FLOAT Timing for : IL:GENERIC-TIMES-FLOAT Elapsed time = 1.740 seconds reclaim time = 0.660 seconds net compute time = 1.080 seconds Storage allocated: 10000 FLOATP ***** GENERIC-DIV-FLOAT Benchmark *** 10000 Generic / with float args Iteration 0 of GENERIC-DIV-FLOAT Timing for : IL:GENERIC-DIV-FLOAT Elapsed time = 2.760 seconds reclaim time = 0.640 seconds net compute time = 2.120 seconds Storage allocated: 10000 FLOATP Iteration 1 of GENERIC-DIV-FLOAT Timing for : IL:GENERIC-DIV-FLOAT Elapsed time = 2.760 seconds SWAP time = 0.020 seconds reclaim time = 0.640 seconds net compute time = 2.100 seconds Storage allocated: 10000 FLOATP ***** FLOAT-SINE Benchmark *** 10000 calls to CL:SIN(pi/6) Iteration 0 of FLOAT-SINE Timing for : IL:FLOAT-SINE Elapsed time = 19.320 seconds SWAP time = 0.080 seconds reclaim time = 8.200 seconds net compute time = 11.040 seconds Storage allocated: 110000 FLOATP Iteration 1 of FLOAT-SINE Timing for : IL:FLOAT-SINE Elapsed time = 19.300 seconds SWAP time = 0.060 seconds reclaim time = 8.160 seconds net compute time = 11.080 seconds Storage allocated: 110000 FLOATP \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/SUN-PAV-ARITH.Results.~1~ b/internal/gabriel/Results/Maiko/SUN-PAV-ARITH.Results.~1~ deleted file mode 100644 index 5a507e9c..00000000 --- a/internal/gabriel/Results/Maiko/SUN-PAV-ARITH.Results.~1~ +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Lispcore sysout of 20-Jun-88 19:23:27 Software Type: Xerox AIE Software Version: Lispcore sysout of 20-Jun-88 19:23:27, Make-init dates: 20-Jun-88 18:24:36, 20-Jun-88 18:34:47 Machine Type: MAIKO Machine Version: Microcode version: 266, memory size: 16384 Machine Instance: ACobra = 200004000066660# Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** NULL-LOOP Benchmark *** Null loop, 1000 times thru Iteration 0 of NULL-LOOP Timing for : IL:NULL-LOOP Elapsed time = 0.280 seconds net compute time = 0.280 seconds Iteration 1 of NULL-LOOP Timing for : IL:NULL-LOOP Elapsed time = 0.260 seconds net compute time = 0.260 seconds ***** FLOAT-ADD Benchmark *** 1000 Floating-point additions Iteration 0 of FLOAT-ADD Timing for : IL:FLOAT-ADD Elapsed time = 3.520 seconds SWAP time = 0.020 seconds reclaim time = 2.040 seconds net compute time = 1.460 seconds Storage allocated: 10000 FLOATP Iteration 1 of FLOAT-ADD Timing for : IL:FLOAT-ADD Elapsed time = 3.520 seconds reclaim time = 2.040 seconds net compute time = 1.480 seconds Storage allocated: 10000 FLOATP ***** FLOAT-SUB Benchmark *** 1000 Floating-point subtractions Iteration 0 of FLOAT-SUB Timing for : IL:FLOAT-SUB Elapsed time = 3.860 seconds reclaim time = 2.040 seconds net compute time = 1.820 seconds Storage allocated: 10000 FLOATP Iteration 1 of FLOAT-SUB Timing for : IL:FLOAT-SUB Elapsed time = 3.860 seconds reclaim time = 2.060 seconds net compute time = 1.800 seconds Storage allocated: 10000 FLOATP ***** FLOAT-TIMES Benchmark *** 1000 Floating-point multiplications Iteration 0 of FLOAT-TIMES Timing for : IL:FLOAT-TIMES Elapsed time = 3.560 seconds SWAP time = 0.020 seconds reclaim time = 2.040 seconds net compute time = 1.500 seconds Storage allocated: 10000 FLOATP Iteration 1 of FLOAT-TIMES Timing for : IL:FLOAT-TIMES Elapsed time = 3.560 seconds SWAP time = 0.020 seconds reclaim time = 2.060 seconds net compute time = 1.480 seconds Storage allocated: 10000 FLOATP ***** FLOAT-DIV Benchmark *** 1000 Floating-point divisions Iteration 0 of FLOAT-DIV Timing for : IL:FLOAT-DIV Elapsed time = 3.520 seconds reclaim time = 2.060 seconds net compute time = 1.460 seconds Storage allocated: 10000 FLOATP Iteration 1 of FLOAT-DIV Timing for : IL:FLOAT-DIV Elapsed time = 3.520 seconds SWAP time = 0.020 seconds reclaim time = 2.040 seconds net compute time = 1.460 seconds Storage allocated: 10000 FLOATP ***** GENERIC-ADD-FLOAT Benchmark *** 10000 Generic + with float args Iteration 0 of GENERIC-ADD-FLOAT Timing for : IL:GENERIC-ADD-FLOAT Elapsed time = 3.580 seconds SWAP time = 0.040 seconds reclaim time = 2.020 seconds net compute time = 1.520 seconds Storage allocated: 10000 FLOATP Iteration 1 of GENERIC-ADD-FLOAT Timing for : IL:GENERIC-ADD-FLOAT Elapsed time = 3.580 seconds SWAP time = 0.040 seconds reclaim time = 2.000 seconds net compute time = 1.540 seconds Storage allocated: 10000 FLOATP ***** GENERIC-SUB-FLOAT Benchmark *** 10000 Generic - with float args Iteration 0 of GENERIC-SUB-FLOAT Timing for : IL:GENERIC-SUB-FLOAT Elapsed time = 3.640 seconds reclaim time = 2.040 seconds net compute time = 1.600 seconds Storage allocated: 10000 FLOATP Iteration 1 of GENERIC-SUB-FLOAT Timing for : IL:GENERIC-SUB-FLOAT Elapsed time = 3.760 seconds SWAP time = 0.040 seconds reclaim time = 2.120 seconds net compute time = 1.600 seconds Storage allocated: 10000 FLOATP ***** GENERIC-TIMES-FLOAT Benchmark *** 10000 Generic * with float args Iteration 0 of GENERIC-TIMES-FLOAT Timing for : IL:GENERIC-TIMES-FLOAT Elapsed time = 3.780 seconds reclaim time = 2.160 seconds net compute time = 1.620 seconds Storage allocated: 10000 FLOATP Iteration 1 of GENERIC-TIMES-FLOAT Timing for : IL:GENERIC-TIMES-FLOAT Elapsed time = 3.620 seconds SWAP time = 0.020 seconds reclaim time = 2.040 seconds net compute time = 1.560 seconds Storage allocated: 10000 FLOATP ***** GENERIC-DIV-FLOAT Benchmark *** 10000 Generic / with float args Iteration 0 of GENERIC-DIV-FLOAT Timing for : IL:GENERIC-DIV-FLOAT Elapsed time = 4.600 seconds SWAP time = 0.020 seconds reclaim time = 2.040 seconds net compute time = 2.540 seconds Storage allocated: 10000 FLOATP Iteration 1 of GENERIC-DIV-FLOAT Timing for : IL:GENERIC-DIV-FLOAT Elapsed time = 4.580 seconds SWAP time = 0.020 seconds reclaim time = 2.020 seconds net compute time = 2.540 seconds Storage allocated: 10000 FLOATP ***** FLOAT-SINE Benchmark *** 10000 calls to CL:SIN(pi/6) Iteration 0 of FLOAT-SINE Timing for : IL:FLOAT-SINE Elapsed time = 11.580 seconds reclaim time = 2.040 seconds net compute time = 9.540 seconds Storage allocated: 10000 FLOATP Iteration 1 of FLOAT-SINE Timing for : IL:FLOAT-SINE Elapsed time = 11.620 seconds SWAP time = 0.020 seconds reclaim time = 2.040 seconds net compute time = 9.560 seconds Storage allocated: 10000 FLOATP \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/SUN-PAV-CONSY.Results b/internal/gabriel/Results/Maiko/SUN-PAV-CONSY.Results deleted file mode 100644 index e7011a74..00000000 --- a/internal/gabriel/Results/Maiko/SUN-PAV-CONSY.Results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Lispcore sysout of 3-Aug-88 00:55:00 Software Type: Xerox AIE Software Version: Lispcore sysout of 3-Aug-88 00:55:00, Make-init dates: 31-Jul-88 18:16:30, 31-Jul-88 18:26:32 Machine Type: mc68020 Machine Version: Microcode version: 349, memory size: 16384 Machine Instance: 1300283a trouser Site: trouser Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** DERIV Benchmark *** Deriv Iteration 0 of DERIV Timing for : DERIV Elapsed time = 65.300 seconds SWAP time = 0.300 seconds reclaim time = 43.060 seconds net compute time = 21.940 seconds Iteration 1 of DERIV Timing for : DERIV Elapsed time = 65.280 seconds SWAP time = 0.320 seconds reclaim time = 43.020 seconds net compute time = 21.940 seconds Storage allocated: 48392 LISTP ***** DDERIV Benchmark *** DDeriv Evaluating setup for DDERIV Iteration 0 of DDERIV Timing for : DDERIV Elapsed time = 76.960 seconds SWAP time = 0.340 seconds reclaim time = 46.260 seconds net compute time = 30.360 seconds Iteration 1 of DDERIV Timing for : DDERIV Elapsed time = 76.980 seconds SWAP time = 0.440 seconds reclaim time = 46.200 seconds net compute time = 30.340 seconds ***** DIV2-1 Benchmark *** Div2, Iterative Iteration 0 of DIV2-1 Timing for : DIV2-1 Elapsed time = 33.140 seconds SWAP time = 0.200 seconds reclaim time = 22.020 seconds net compute time = 10.920 seconds Storage allocated: 54464 LISTP Iteration 1 of DIV2-1 Timing for : DIV2-1 Elapsed time = 33.100 seconds SWAP time = 0.140 seconds reclaim time = 21.980 seconds net compute time = 10.980 seconds ***** DIV2-2 Benchmark *** Div2, Recursive Iteration 0 of DIV2-2 Timing for : DIV2-2 Elapsed time = 35.960 seconds SWAP time = 0.220 seconds reclaim time = 22.960 seconds net compute time = 12.780 seconds Iteration 1 of DIV2-2 Timing for : DIV2-2 Elapsed time = 35.740 seconds SWAP time = 0.040 seconds reclaim time = 22.580 seconds net compute time = 13.120 seconds ***** DESTRU Benchmark *** Destruct Iteration 0 of DESTRU Timing for : DESTRU Elapsed time = 26.940 seconds SWAP time = 0.040 seconds reclaim time = 8.260 seconds net compute time = 18.640 seconds Storage allocated: 43105 LISTP Iteration 1 of DESTRU Timing for : DESTRU Elapsed time = 27.000 seconds SWAP time = 0.060 seconds reclaim time = 8.220 seconds net compute time = 18.720 seconds Storage allocated: 43105 LISTP ***** BOYER Benchmark *** Boyer Evaluating setup for BOYER Iteration 0 of BOYER Timing for : BOYER Elapsed time = 143.960 seconds SWAP time = 0.380 seconds reclaim time = 44.400 seconds net compute time = 99.180 seconds Storage allocated: 29856 LISTP Iteration 1 of BOYER Timing for : BOYER Elapsed time = 143.940 seconds SWAP time = 0.260 seconds reclaim time = 44.460 seconds net compute time = 99.220 seconds Storage allocated: 29856 LISTP ***** BROWSE Benchmark *** Browse Iteration 0 of BROWSE Timing for : BROWSE Elapsed time = 404.020 seconds SWAP time = 0.400 seconds reclaim time = 160.760 seconds net compute time = 242.860 seconds Page faults = 2 Swap writes = 1 Storage allocated: 32395 LISTP, 229002 ONED-ARRAY Iteration 1 of BROWSE Timing for : BROWSE Elapsed time = 406.800 seconds SWAP time = 0.540 seconds reclaim time = 161.480 seconds net compute time = 244.780 seconds Storage allocated: 97931 LISTP, 229002 ONED-ARRAY ***** BROWSE* Benchmark *** Browse Iteration 0 of BROWSE* Timing for : BROWSE* Elapsed time = 256.240 seconds SWAP time = 0.380 seconds reclaim time = 90.020 seconds net compute time = 165.840 seconds Page faults = 1 Storage allocated: 97931 LISTP, 2202 ONED-ARRAY Iteration 1 of BROWSE* Timing for : BROWSE* Elapsed time = 256.140 seconds SWAP time = 0.220 seconds reclaim time = 90.280 seconds net compute time = 165.640 seconds Storage allocated: 97931 LISTP, 2202 ONED-ARRAY ***** TRAVERSE-INIT* Benchmark *** Traverse, Initialize Iteration 0 of TRAVERSE-INIT* Timing for : TRAVERSE-INIT* Elapsed time = 62.600 seconds SWAP time = 0.120 seconds reclaim time = 4.060 seconds net compute time = 58.420 seconds Page faults = 1 Swap writes = 1 Storage allocated: 36796 LISTP, 100 TNODE Evaluating after every function for TRAVERSE-INIT* Iteration 1 of TRAVERSE-INIT* Timing for : TRAVERSE-INIT* Elapsed time = 61.720 seconds SWAP time = 0.080 seconds reclaim time = 4.060 seconds net compute time = 57.580 seconds Storage allocated: 100 TNODE Evaluating after every function for TRAVERSE-INIT* ***** TRAVERSE* Benchmark *** Traverse, Traverse Evaluating setup for TRAVERSE* Iteration 0 of TRAVERSE* Timing for : TRAVERSE* Elapsed time = 240.560 seconds SWAP time = 0.280 seconds net compute time = 240.280 seconds Iteration 1 of TRAVERSE* Timing for : TRAVERSE* Elapsed time = 244.200 seconds SWAP time = 0.940 seconds net compute time = 243.260 seconds Evaluating after function for TRAVERSE* \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/SUN-PAV-MISC.Results b/internal/gabriel/Results/Maiko/SUN-PAV-MISC.Results deleted file mode 100644 index ab97a4c9..00000000 --- a/internal/gabriel/Results/Maiko/SUN-PAV-MISC.Results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Lispcore sysout of 29-Jun-88 20:57:46 Software Type: Xerox AIE Software Version: Lispcore sysout of 29-Jun-88 20:57:46, Make-init dates: 29-Jun-88 19:12:47, 29-Jun-88 19:22:47 Machine Type: MAIKO Machine Version: Microcode version: 260, memory size: 16384 Machine Instance: ACobra = 200004000066660# Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** FLEGALS-SORT-TEST Benchmark *** Bob Flegal's SORT benchmark; runs on a 3/160 in 10.21s Lucid, 11.04s Franz. Iteration 0 of FLEGALS-SORT-TEST Timing for : IL:FLEGALS-SORT-TEST Elapsed time = 181.100 seconds SWAP time = 0.220 seconds reclaim time = 19.360 seconds net compute time = 161.520 seconds Storage allocated: 1 COMPILED-CLOSURE Iteration 1 of FLEGALS-SORT-TEST Timing for : IL:FLEGALS-SORT-TEST Elapsed time = 173.200 seconds SWAP time = 0.080 seconds reclaim time = 12.080 seconds net compute time = 161.040 seconds Storage allocated: 40000 LISTP \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/SUN-PAV-POLY.Results b/internal/gabriel/Results/Maiko/SUN-PAV-POLY.Results deleted file mode 100644 index 5ebd5f0e..00000000 --- a/internal/gabriel/Results/Maiko/SUN-PAV-POLY.Results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Lispcore sysout of 3-Aug-88 00:55:00 Software Type: Xerox AIE Software Version: Lispcore sysout of 3-Aug-88 00:55:00, Make-init dates: 31-Jul-88 18:16:30, 31-Jul-88 18:26:32 Machine Type: mc68020 Machine Version: Microcode version: 349, memory size: 16384 Machine Instance: 1300283a trouser Site: trouser Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** FRPOLY10R Benchmark *** FRPoly, Power = 10, r = x + y + z + 1 Evaluating setup for FRPOLY10R Iteration 0 of FRPOLY10R Timing for : FRPOLY10R Elapsed time = 4.220 seconds reclaim time = 1.620 seconds net compute time = 2.600 seconds Storage allocated: 69 FIXP, 9236 LISTP Iteration 1 of FRPOLY10R Timing for : FRPOLY10R Elapsed time = 4.240 seconds SWAP time = 0.020 seconds reclaim time = 1.620 seconds net compute time = 2.600 seconds Storage allocated: 69 FIXP, 9236 LISTP ***** FRPOLY10R2 Benchmark *** FRPoly, Power = 10, r2 = 1000r Evaluating setup for FRPOLY10R2 Iteration 0 of FRPOLY10R2 Timing for : FRPOLY10R2 Elapsed time = 230.920 seconds SWAP time = 0.540 seconds reclaim time = 127.400 seconds net compute time = 102.980 seconds Storage allocated: 55634 FIXP, 181550 LISTP, 17227 BIGNUM Iteration 1 of FRPOLY10R2 Timing for : FRPOLY10R2 Elapsed time = 231.220 seconds SWAP time = 0.360 seconds reclaim time = 127.700 seconds net compute time = 103.160 seconds Storage allocated: 55634 FIXP, 247086 LISTP, 17227 BIGNUM ***** FRPOLY10R3 Benchmark *** FRPoly, Power = 10, r3 = r in flonums Evaluating setup for FRPOLY10R3 Iteration 0 of FRPOLY10R3 Timing for : FRPOLY10R3 Elapsed time = 6.700 seconds reclaim time = 2.800 seconds net compute time = 3.900 seconds Storage allocated: 6393 FLOATP, 9236 LISTP Iteration 1 of FRPOLY10R3 Timing for : FRPOLY10R3 Elapsed time = 6.680 seconds SWAP time = 0.020 seconds reclaim time = 2.760 seconds net compute time = 3.900 seconds Storage allocated: 6393 FLOATP, 9236 LISTP ***** FRPOLY15R Benchmark *** FRPoly, Power = 15, r = x + y + z + 1 Evaluating setup for FRPOLY15R Iteration 0 of FRPOLY15R Timing for : FRPOLY15R Elapsed time = 36.440 seconds SWAP time = 0.180 seconds reclaim time = 16.440 seconds net compute time = 19.820 seconds Storage allocated: 31789 FIXP Iteration 1 of FRPOLY15R Timing for : FRPOLY15R Elapsed time = 36.540 seconds SWAP time = 0.060 seconds reclaim time = 16.620 seconds net compute time = 19.860 seconds Storage allocated: 31789 FIXP ***** FRPOLY15R2 Benchmark *** FRPoly, Power = 15, r2 = 1000r Evaluating setup for FRPOLY15R2 Iteration 0 of FRPOLY15R2 Timing for : FRPOLY15R2 Elapsed time = 3825.320 seconds SWAP time = 6.140 seconds reclaim time = 2228.760 seconds net compute time = 1590.420 seconds Storage allocated: 1049024 FIXP, 4717420 LISTP, 129648 BIGNUM Iteration 1 of FRPOLY15R2 Timing for : FRPOLY15R2 Elapsed time = 3834.320 seconds SWAP time = 5.040 seconds reclaim time = 2237.680 seconds net compute time = 1591.600 seconds Storage allocated: 1049024 FIXP, 4782956 LISTP, 129648 BIGNUM ***** FRPOLY15R3 Benchmark *** FRPoly, Power = 15, r3 = r in flonums Evaluating setup for FRPOLY15R3 Iteration 0 of FRPOLY15R3 Timing for : FRPOLY15R3 Elapsed time = 48.640 seconds SWAP time = 0.080 seconds reclaim time = 20.560 seconds net compute time = 28.000 seconds Storage allocated: 53297 FLOATP Iteration 1 of FRPOLY15R3 Timing for : FRPOLY15R3 Elapsed time = 48.600 seconds SWAP time = 0.060 seconds reclaim time = 20.700 seconds net compute time = 27.840 seconds Storage allocated: 53297 FLOATP ***** FRPOLY2R Benchmark *** FRPoly, Power = 2, r = x + y + z + 1 Evaluating setup for FRPOLY2R Iteration 0 of FRPOLY2R Timing for : FRPOLY2R Elapsed time = 0.040 seconds net compute time = 0.040 seconds Storage allocated: 102 LISTP Iteration 1 of FRPOLY2R Timing for : FRPOLY2R Elapsed time = 0.040 seconds net compute time = 0.040 seconds Storage allocated: 102 LISTP ***** FRPOLY2R2 Benchmark *** FRPoly, Power = 2, r2 = 1000r Evaluating setup for FRPOLY2R2 Iteration 0 of FRPOLY2R2 Timing for : FRPOLY2R2 Elapsed time = 0.220 seconds net compute time = 0.220 seconds Storage allocated: 48 FIXP, 654 LISTP, 74 BIGNUM Iteration 1 of FRPOLY2R2 Timing for : FRPOLY2R2 Elapsed time = 0.220 seconds net compute time = 0.220 seconds Storage allocated: 48 FIXP, 654 LISTP, 74 BIGNUM ***** FRPOLY2R3 Benchmark *** FRPoly, Power = 2, r3 = r in flonums Evaluating setup for FRPOLY2R3 Iteration 0 of FRPOLY2R3 Timing for : FRPOLY2R3 Elapsed time = 0.040 seconds net compute time = 0.040 seconds Storage allocated: 33 FLOATP, 102 LISTP Iteration 1 of FRPOLY2R3 Timing for : FRPOLY2R3 Elapsed time = 0.020 seconds net compute time = 0.020 seconds Storage allocated: 33 FLOATP, 102 LISTP ***** FRPOLY5R Benchmark *** FRPoly, Power = 5, r = x + y + z + 1 Evaluating setup for FRPOLY5R Iteration 0 of FRPOLY5R Timing for : FRPOLY5R Elapsed time = 0.240 seconds net compute time = 0.240 seconds Storage allocated: 966 LISTP Iteration 1 of FRPOLY5R Timing for : FRPOLY5R Elapsed time = 0.240 seconds net compute time = 0.240 seconds Storage allocated: 966 LISTP ***** FRPOLY5R2 Benchmark *** FRPoly, Power = 5, r2 = 1000r Evaluating setup for FRPOLY5R2 Iteration 0 of FRPOLY5R2 Timing for : FRPOLY5R2 Elapsed time = 8.520 seconds reclaim time = 4.200 seconds net compute time = 4.320 seconds Storage allocated: 1684 FIXP, 15346 LISTP, 1190 BIGNUM Iteration 1 of FRPOLY5R2 Timing for : FRPOLY5R2 Elapsed time = 8.520 seconds SWAP time = 0.020 seconds reclaim time = 4.200 seconds net compute time = 4.300 seconds Storage allocated: 1684 FIXP, 15346 LISTP, 1190 BIGNUM ***** FRPOLY5R3 Benchmark *** FRPoly, Power = 5, r3 = r in flonums Evaluating setup for FRPOLY5R3 Iteration 0 of FRPOLY5R3 Timing for : FRPOLY5R3 Elapsed time = 0.340 seconds net compute time = 0.340 seconds Storage allocated: 448 FLOATP, 966 LISTP Iteration 1 of FRPOLY5R3 Timing for : FRPOLY5R3 Elapsed time = 0.340 seconds net compute time = 0.340 seconds Storage allocated: 448 FLOATP, 966 LISTP \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/SUN-PAV-TAK.Results b/internal/gabriel/Results/Maiko/SUN-PAV-TAK.Results deleted file mode 100644 index 079c2424..00000000 --- a/internal/gabriel/Results/Maiko/SUN-PAV-TAK.Results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Envos Medley Lisp Version: Lispcore 1.0 sysout of 18-Apr-90 10:37:55 Software Type: Envos Medley Software Version: Lispcore 1.0 sysout of 18-Apr-90 10:37:55, Make-init dates: 17-Apr-90 20:12:20, 17-Apr-90 20:30:18 Machine Type: mc68020cal/lde/lispcore/gabriel/TOOLS/BENCH-1 Machine Version: Emulator created: 9-May-90, memory size: 0 Machine Instance: 31000c9fal/lde/lispcore/gabriel/TOOLS/BENCH-1 pigmyc9fal/lde/lispcore/gabriel/TOOLS/BENCH-1 Site: ENVOS Corporation Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** CTAK Benchmark *** CTak Iteration 0 of CTAK Timing for : CTAK Elapsed time = 82.806 seconds SWAP time = 0.080 seconds reclaim time = 5.420 seconds net compute time = 77.306 seconds Iteration 1 of CTAK Timing for : CTAK Elapsed time = 82.000 seconds SWAP time = 0.060 seconds reclaim time = 5.360 seconds net compute time = 76.580 seconds ***** STAK Benchmark *** STak Iteration 0 of STAK Timing for : STAK Elapsed time = 15.420 seconds net compute time = 15.420 seconds Iteration 1 of STAK Timing for : STAK Elapsed time = 15.420 seconds net compute time = 15.420 seconds ***** TAK Benchmark *** Tak Iteration 0 of TAK Timing for : TAK Elapsed time = 2.760 seconds net compute time = 2.760 seconds Iteration 1 of TAK Timing for : TAK Elapsed time = 2.740 seconds net compute time = 2.740 seconds ***** TAKL Benchmark *** TakL Iteration 0 of TAKL Timing for : TAKL Elapsed time = 21.400 seconds SWAP time = 0.020 seconds net compute time = 21.380 seconds Iteration 1 of TAKL Timing for : TAKL Elapsed time = 21.400 seconds net compute time = 21.400 seconds ***** TAKR Benchmark *** TakR Iteration 0 of TAKR Timing for : TAKR Elapsed time = 3.220 seconds net compute time = 3.220 seconds Iteration 1 of TAKR Timing for : TAKR Elapsed time = 3.200 seconds net compute time = 3.200 seconds \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/SUN-PAV-TAK.Results.~16~ b/internal/gabriel/Results/Maiko/SUN-PAV-TAK.Results.~16~ deleted file mode 100644 index 079c2424..00000000 --- a/internal/gabriel/Results/Maiko/SUN-PAV-TAK.Results.~16~ +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Envos Medley Lisp Version: Lispcore 1.0 sysout of 18-Apr-90 10:37:55 Software Type: Envos Medley Software Version: Lispcore 1.0 sysout of 18-Apr-90 10:37:55, Make-init dates: 17-Apr-90 20:12:20, 17-Apr-90 20:30:18 Machine Type: mc68020cal/lde/lispcore/gabriel/TOOLS/BENCH-1 Machine Version: Emulator created: 9-May-90, memory size: 0 Machine Instance: 31000c9fal/lde/lispcore/gabriel/TOOLS/BENCH-1 pigmyc9fal/lde/lispcore/gabriel/TOOLS/BENCH-1 Site: ENVOS Corporation Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** CTAK Benchmark *** CTak Iteration 0 of CTAK Timing for : CTAK Elapsed time = 82.806 seconds SWAP time = 0.080 seconds reclaim time = 5.420 seconds net compute time = 77.306 seconds Iteration 1 of CTAK Timing for : CTAK Elapsed time = 82.000 seconds SWAP time = 0.060 seconds reclaim time = 5.360 seconds net compute time = 76.580 seconds ***** STAK Benchmark *** STak Iteration 0 of STAK Timing for : STAK Elapsed time = 15.420 seconds net compute time = 15.420 seconds Iteration 1 of STAK Timing for : STAK Elapsed time = 15.420 seconds net compute time = 15.420 seconds ***** TAK Benchmark *** Tak Iteration 0 of TAK Timing for : TAK Elapsed time = 2.760 seconds net compute time = 2.760 seconds Iteration 1 of TAK Timing for : TAK Elapsed time = 2.740 seconds net compute time = 2.740 seconds ***** TAKL Benchmark *** TakL Iteration 0 of TAKL Timing for : TAKL Elapsed time = 21.400 seconds SWAP time = 0.020 seconds net compute time = 21.380 seconds Iteration 1 of TAKL Timing for : TAKL Elapsed time = 21.400 seconds net compute time = 21.400 seconds ***** TAKR Benchmark *** TakR Iteration 0 of TAKR Timing for : TAKR Elapsed time = 3.220 seconds net compute time = 3.220 seconds Iteration 1 of TAKR Timing for : TAKR Elapsed time = 3.200 seconds net compute time = 3.200 seconds \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/SUN-PAV-TAK.Results.~1~ b/internal/gabriel/Results/Maiko/SUN-PAV-TAK.Results.~1~ deleted file mode 100644 index 5a58341b..00000000 --- a/internal/gabriel/Results/Maiko/SUN-PAV-TAK.Results.~1~ +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Lispcore sysout of 3-Aug-88 00:55:00 Software Type: Xerox AIE Software Version: Lispcore sysout of 3-Aug-88 00:55:00, Make-init dates: 31-Jul-88 18:16:30, 31-Jul-88 18:26:32 Machine Type: mc68020 Machine Version: Microcode version: 349, memory size: 16384 Machine Instance: 1300283a trouser Site: trouser Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** CTAK Benchmark *** CTak Iteration 0 of CTAK Timing for : CTAK Elapsed time = 79.160 seconds SWAP time = 0.080 seconds reclaim time = 12.960 seconds net compute time = 66.120 seconds Page faults = 1 Iteration 1 of CTAK Timing for : CTAK Elapsed time = 79.220 seconds SWAP time = 0.120 seconds reclaim time = 13.040 seconds net compute time = 66.060 seconds ***** STAK Benchmark *** STak Iteration 0 of STAK Timing for : STAK Elapsed time = 10.040 seconds SWAP time = 0.020 seconds net compute time = 10.020 seconds Iteration 1 of STAK Timing for : STAK Elapsed time = 10.040 seconds net compute time = 10.040 seconds ***** TAK Benchmark *** Tak Iteration 0 of TAK Timing for : TAK Elapsed time = 2.640 seconds net compute time = 2.640 seconds Iteration 1 of TAK Timing for : TAK Elapsed time = 2.640 seconds net compute time = 2.640 seconds ***** TAKL Benchmark *** TakL Iteration 0 of TAKL Timing for : TAKL Elapsed time = 20.320 seconds net compute time = 20.320 seconds Iteration 1 of TAKL Timing for : TAKL Elapsed time = 20.320 seconds net compute time = 20.320 seconds ***** TAKR Benchmark *** TakR Iteration 0 of TAKR Timing for : TAKR Elapsed time = 2.860 seconds net compute time = 2.860 seconds Page faults = 1 Iteration 1 of TAKR Timing for : TAKR Elapsed time = 2.840 seconds net compute time = 2.840 seconds \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/win-tak.results b/internal/gabriel/Results/Maiko/win-tak.results deleted file mode 100644 index f8b201cb..00000000 --- a/internal/gabriel/Results/Maiko/win-tak.results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Venue Medley Lisp Version: Medley3.5 2.0 sysout of 13-Aug-2020 12:39:12 Software Type: Envos Medley Software Version: Medley3.5 2.0 sysout of 13-Aug-2020 12:39:12, Make-init dates: 10-Apr-2000 01:42:43, 10-Apr-2000 01:46:59 Machine Type: mc68020 Machine Version: Emulator created: 10-Oct-20, memory size: 0 Machine Instance: 7f0101 TV-PC Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT :MEDLEY) ***** CTAK Benchmark *** CTak Iteration 0 of CTAK Breakpoint at CL::TIME-FORMAT. 2/357: ?= Arg 0 = # Arg 1 = "Timing for ~[~;~:;~:* ~D x~]:~20T ~S~&" Arg 2 = 1 Arg 3 = CTAK 2/358: eval Timing for : CTAK NIL 2/359: ok Breakpoint at CL::TIME-FORMAT. 2/360: eval Elapsed time = 0.079 seconds NIL 2/361: ?= Arg 0 = # Arg 1 = "~&~A ~20,5T= ~9,3F seconds~&" Arg 2 = "Elapsed time" Arg 3 = 0.079 2/362: editf(cl:run-benchmarks) External symbol RUN-BENCHMARKS not found in package LISP EDITF -> IL:EDITF ? ...yes Could not find fns definition for NIL. Could not find fns definition for NIL 2/363: eval Elapsed time = 0.079 seconds NIL 2/364: evl EVL is an unbound variable. 2/365: ?= Arg 0 = # Arg 1 = "~&~A ~20,5T= ~9,3F seconds~&" Arg 2 = "Elapsed time" Arg 3 = 0.079 2/366: ub (CL::TIME-FORMAT) 2/367: undo No undo info saved for UB. 2/368: redo il:break (CL::TIME-FORMAT) 2/369: ok Breakpoint at CL::TIME-FORMAT. 2/370: ?= Arg 0 = # Arg 1 = "~&~A ~20,5T= ~9,3F seconds~&" Arg 2 = "reclaim time" Arg 3 = 0.017 2/371: ib IB is an unbound variable. 2/372: ub (CL::TIME-FORMAT) 2/373: ok reclaim time = 0.017 seconds net compute time = 0.062 seconds Storage allocated: 238535 FIXP Iteration 1 of CTAK Timing for : CTAK Elapsed time = 0.091 seconds reclaim time = 0.007 seconds net compute time = 0.084 seconds Storage allocated: 238535 FIXP ***** STAK Benchmark *** STak Iteration 0 of STAK Timing for : STAK Elapsed time = 0.009 seconds net compute time = 0.009 seconds Iteration 1 of STAK Timing for : STAK Elapsed time = 0.008 seconds SWAP time = 0.006 seconds net compute time = 0.002 seconds ***** TAK Benchmark *** Tak Iteration 0 of TAK Timing for : TAK Elapsed time = 0.001 seconds net compute time = 0.001 seconds Iteration 1 of TAK Timing for : TAK Elapsed time = 0.002 seconds SWAP time = 0.002 seconds net compute time = 0.0 seconds ***** TAKL Benchmark *** TakL Iteration 0 of TAKL Timing for : TAKL Elapsed time = 0.013 seconds net compute time = 0.013 seconds Iteration 1 of TAKL Timing for : TAKL Elapsed time = 0.014 seconds net compute time = 0.014 seconds ***** TAKR Benchmark *** TakR Iteration 0 of TAKR Timing for : TAKR Elapsed time = 0.002 seconds net compute time = 0.002 seconds Iteration 1 of TAKR Timing for : TAKR Elapsed time = 0.002 seconds net compute time = 0.002 seconds \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/win-tak.results.~1~ b/internal/gabriel/Results/Maiko/win-tak.results.~1~ deleted file mode 100644 index 606af608..00000000 --- a/internal/gabriel/Results/Maiko/win-tak.results.~1~ +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Venue Medley Lisp Version: Medley3.5 2.0 sysout of 13-Aug-2020 12:39:12 Software Type: Envos Medley Software Version: Medley3.5 2.0 sysout of 13-Aug-2020 12:39:12, Make-init dates: 10-Apr-2000 01:42:43, 10-Apr-2000 01:46:59 Machine Type: mc68020 Machine Version: Emulator created: 10-Oct-20, memory size: 0 Machine Instance: 7f0101 TV-PC Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT :MEDLEY) ***** CTAK Benchmark *** CTak Iteration 0 of CTAK Timing for : CTAK Elapsed time = 0.075 seconds reclaim time = 0.011 seconds net compute time = 0.064 seconds Storage allocated: 238535 FIXP Iteration 1 of CTAK Timing for : CTAK Elapsed time = 0.099 seconds reclaim time = 0.014 seconds net compute time = 0.085 seconds Storage allocated: 238535 FIXP ***** STAK Benchmark *** STak Iteration 0 of STAK Timing for : STAK Elapsed time = 0.009 seconds net compute time = 0.009 seconds Iteration 1 of STAK Timing for : STAK Elapsed time = 0.008 seconds net compute time = 0.008 seconds ***** TAK Benchmark *** Tak Iteration 0 of TAK Timing for : TAK Elapsed time = 0.002 seconds net compute time = 0.002 seconds Iteration 1 of TAK Timing for : TAK Elapsed time = 0.002 seconds net compute time = 0.002 seconds ***** TAKL Benchmark *** TakL Iteration 0 of TAKL Timing for : TAKL Elapsed time = 0.012 seconds net compute time = 0.012 seconds Iteration 1 of TAKL Timing for : TAKL Elapsed time = 0.012 seconds net compute time = 0.012 seconds ***** TAKR Benchmark *** TakR Iteration 0 of TAKR Timing for : TAKR Elapsed time = 0.002 seconds net compute time = 0.002 seconds Iteration 1 of TAKR Timing for : TAKR Elapsed time = 0.003 seconds net compute time = 0.003 seconds \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/win-tak.results.~2~ b/internal/gabriel/Results/Maiko/win-tak.results.~2~ deleted file mode 100644 index f8b201cb..00000000 --- a/internal/gabriel/Results/Maiko/win-tak.results.~2~ +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Venue Medley Lisp Version: Medley3.5 2.0 sysout of 13-Aug-2020 12:39:12 Software Type: Envos Medley Software Version: Medley3.5 2.0 sysout of 13-Aug-2020 12:39:12, Make-init dates: 10-Apr-2000 01:42:43, 10-Apr-2000 01:46:59 Machine Type: mc68020 Machine Version: Emulator created: 10-Oct-20, memory size: 0 Machine Instance: 7f0101 TV-PC Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT :MEDLEY) ***** CTAK Benchmark *** CTak Iteration 0 of CTAK Breakpoint at CL::TIME-FORMAT. 2/357: ?= Arg 0 = # Arg 1 = "Timing for ~[~;~:;~:* ~D x~]:~20T ~S~&" Arg 2 = 1 Arg 3 = CTAK 2/358: eval Timing for : CTAK NIL 2/359: ok Breakpoint at CL::TIME-FORMAT. 2/360: eval Elapsed time = 0.079 seconds NIL 2/361: ?= Arg 0 = # Arg 1 = "~&~A ~20,5T= ~9,3F seconds~&" Arg 2 = "Elapsed time" Arg 3 = 0.079 2/362: editf(cl:run-benchmarks) External symbol RUN-BENCHMARKS not found in package LISP EDITF -> IL:EDITF ? ...yes Could not find fns definition for NIL. Could not find fns definition for NIL 2/363: eval Elapsed time = 0.079 seconds NIL 2/364: evl EVL is an unbound variable. 2/365: ?= Arg 0 = # Arg 1 = "~&~A ~20,5T= ~9,3F seconds~&" Arg 2 = "Elapsed time" Arg 3 = 0.079 2/366: ub (CL::TIME-FORMAT) 2/367: undo No undo info saved for UB. 2/368: redo il:break (CL::TIME-FORMAT) 2/369: ok Breakpoint at CL::TIME-FORMAT. 2/370: ?= Arg 0 = # Arg 1 = "~&~A ~20,5T= ~9,3F seconds~&" Arg 2 = "reclaim time" Arg 3 = 0.017 2/371: ib IB is an unbound variable. 2/372: ub (CL::TIME-FORMAT) 2/373: ok reclaim time = 0.017 seconds net compute time = 0.062 seconds Storage allocated: 238535 FIXP Iteration 1 of CTAK Timing for : CTAK Elapsed time = 0.091 seconds reclaim time = 0.007 seconds net compute time = 0.084 seconds Storage allocated: 238535 FIXP ***** STAK Benchmark *** STak Iteration 0 of STAK Timing for : STAK Elapsed time = 0.009 seconds net compute time = 0.009 seconds Iteration 1 of STAK Timing for : STAK Elapsed time = 0.008 seconds SWAP time = 0.006 seconds net compute time = 0.002 seconds ***** TAK Benchmark *** Tak Iteration 0 of TAK Timing for : TAK Elapsed time = 0.001 seconds net compute time = 0.001 seconds Iteration 1 of TAK Timing for : TAK Elapsed time = 0.002 seconds SWAP time = 0.002 seconds net compute time = 0.0 seconds ***** TAKL Benchmark *** TakL Iteration 0 of TAKL Timing for : TAKL Elapsed time = 0.013 seconds net compute time = 0.013 seconds Iteration 1 of TAKL Timing for : TAKL Elapsed time = 0.014 seconds net compute time = 0.014 seconds ***** TAKR Benchmark *** TakR Iteration 0 of TAKR Timing for : TAKR Elapsed time = 0.002 seconds net compute time = 0.002 seconds Iteration 1 of TAKR Timing for : TAKR Elapsed time = 0.002 seconds net compute time = 0.002 seconds \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/x86-arefy.results b/internal/gabriel/Results/Maiko/x86-arefy.results deleted file mode 100644 index 5799a114..00000000 --- a/internal/gabriel/Results/Maiko/x86-arefy.results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Venue Medley Lisp Version: Medley3.5 2.0 sysout of 13-Aug-2020 12:39:12 Software Type: Envos Medley Software Version: Medley3.5 2.0 sysout of 13-Aug-2020 12:39:12, Make-init dates: 10-Apr-2000 01:42:43, 10-Apr-2000 01:46:59 Machine Type: mc68020 Machine Version: Emulator created: 10-Oct-20, memory size: 0 Machine Instance: 7f0101 TV-PC Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT :MEDLEY) ***** PUZZLE Benchmark *** Puzzle Iteration 0 of PUZZLE Success in 2005 trials.Timing for : PUZZLE Elapsed time = 0.039 seconds net compute time = 0.039 seconds Storage allocated: 1 FIXP, 10 LISTP, 1 ONED-ARRAY Iteration 1 of PUZZLE Success in 2005 trials.Timing for : PUZZLE Elapsed time = 0.041 seconds net compute time = 0.041 seconds Storage allocated: 1 FIXP, 10 LISTP, 1 ONED-ARRAY ***** TRIANG Benchmark *** Triang Iteration 0 of TRIANG Timing for : TRIANG Elapsed time = 0.571 seconds net compute time = 0.571 seconds Storage allocated: 11626 LISTP Iteration 1 of TRIANG Timing for : TRIANG Elapsed time = 0.572 seconds net compute time = 0.572 seconds ***** FFT Benchmark *** FFT Iteration 0 of FFT Timing for : FFT Elapsed time = 0.074 seconds SWAP time = 0.010 seconds reclaim time = 0.038 seconds net compute time = 0.026 seconds Storage allocated: 944500 FLOATP Iteration 1 of FFT Timing for : FFT Elapsed time = 0.097 seconds reclaim time = 0.059 seconds net compute time = 0.038 seconds Storage allocated: 944500 FLOATP \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/x86-arith.results b/internal/gabriel/Results/Maiko/x86-arith.results deleted file mode 100644 index 747a6ae2..00000000 --- a/internal/gabriel/Results/Maiko/x86-arith.results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Venue Medley Lisp Version: Medley3.5 2.0 sysout of 13-Aug-2020 12:39:12 Software Type: Envos Medley Software Version: Medley3.5 2.0 sysout of 13-Aug-2020 12:39:12, Make-init dates: 10-Apr-2000 01:42:43, 10-Apr-2000 01:46:59 Machine Type: mc68020 Machine Version: Emulator created: 10-Oct-20, memory size: 0 Machine Instance: 7f0101 TV-PC Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT :MEDLEY) ***** NULL-LOOP Benchmark *** Null loop, 1000 times thru Iteration 0 of NULL-LOOP Timing for : IL:NULL-LOOP Elapsed time = 0.0 seconds net compute time = 0.0 seconds Iteration 1 of NULL-LOOP Timing for : IL:NULL-LOOP Elapsed time = 0.0 seconds net compute time = 0.0 seconds ***** FLOAT-ADD Benchmark *** 1000 Floating-point additions Iteration 0 of FLOAT-ADD Timing for : IL:FLOAT-ADD Elapsed time = 0.001 seconds reclaim time = 0.001 seconds net compute time = 0.0 seconds Storage allocated: 10000 FLOATP Iteration 1 of FLOAT-ADD Timing for : IL:FLOAT-ADD Elapsed time = 0.001 seconds net compute time = 0.001 seconds Storage allocated: 10000 FLOATP ***** FLOAT-SUB Benchmark *** 1000 Floating-point subtractions Iteration 0 of FLOAT-SUB Timing for : IL:FLOAT-SUB Elapsed time = 0.001 seconds net compute time = 0.001 seconds Storage allocated: 10000 FLOATP Iteration 1 of FLOAT-SUB Timing for : IL:FLOAT-SUB Elapsed time = 0.001 seconds reclaim time = 0.001 seconds net compute time = 0.0 seconds Storage allocated: 10000 FLOATP ***** FLOAT-TIMES Benchmark *** 1000 Floating-point multiplications Iteration 0 of FLOAT-TIMES Timing for : IL:FLOAT-TIMES Elapsed time = 0.001 seconds net compute time = 0.001 seconds Storage allocated: 10000 FLOATP Iteration 1 of FLOAT-TIMES Timing for : IL:FLOAT-TIMES Elapsed time = 0.001 seconds net compute time = 0.001 seconds Storage allocated: 10000 FLOATP ***** FLOAT-DIV Benchmark *** 1000 Floating-point divisions Iteration 0 of FLOAT-DIV Timing for : IL:FLOAT-DIV Elapsed time = 0.001 seconds net compute time = 0.001 seconds Storage allocated: 10000 FLOATP Iteration 1 of FLOAT-DIV Timing for : IL:FLOAT-DIV Elapsed time = 0.001 seconds reclaim time = 0.001 seconds net compute time = 0.0 seconds Storage allocated: 10000 FLOATP ***** GENERIC-ADD-FLOAT Benchmark *** 10000 Generic + with float args Iteration 0 of GENERIC-ADD-FLOAT Timing for : IL:GENERIC-ADD-FLOAT Elapsed time = 0.001 seconds net compute time = 0.001 seconds Storage allocated: 10000 FLOATP Iteration 1 of GENERIC-ADD-FLOAT Timing for : IL:GENERIC-ADD-FLOAT Elapsed time = 0.001 seconds net compute time = 0.001 seconds Storage allocated: 10000 FLOATP ***** GENERIC-SUB-FLOAT Benchmark *** 10000 Generic - with float args Iteration 0 of GENERIC-SUB-FLOAT Timing for : IL:GENERIC-SUB-FLOAT Elapsed time = 0.002 seconds reclaim time = 0.001 seconds net compute time = 0.001 seconds Storage allocated: 10000 FLOATP Iteration 1 of GENERIC-SUB-FLOAT Timing for : IL:GENERIC-SUB-FLOAT Elapsed time = 0.002 seconds net compute time = 0.002 seconds Storage allocated: 10000 FLOATP ***** GENERIC-TIMES-FLOAT Benchmark *** 10000 Generic * with float args Iteration 0 of GENERIC-TIMES-FLOAT Timing for : IL:GENERIC-TIMES-FLOAT Elapsed time = 0.001 seconds reclaim time = 0.001 seconds net compute time = 0.0 seconds Storage allocated: 10000 FLOATP Iteration 1 of GENERIC-TIMES-FLOAT Timing for : IL:GENERIC-TIMES-FLOAT Elapsed time = 0.0 seconds net compute time = 0.0 seconds Storage allocated: 10000 FLOATP ***** GENERIC-DIV-FLOAT Benchmark *** 10000 Generic / with float args Iteration 0 of GENERIC-DIV-FLOAT Timing for : IL:GENERIC-DIV-FLOAT Elapsed time = 0.002 seconds net compute time = 0.002 seconds Storage allocated: 10000 FLOATP Iteration 1 of GENERIC-DIV-FLOAT Timing for : IL:GENERIC-DIV-FLOAT Elapsed time = 0.002 seconds reclaim time = 0.001 seconds net compute time = 0.001 seconds Storage allocated: 10000 FLOATP ***** FLOAT-SINE Benchmark *** 10000 calls to CL:SIN(pi/6) Iteration 0 of FLOAT-SINE Timing for : IL:FLOAT-SINE Elapsed time = 0.012 seconds reclaim time = 0.007 seconds net compute time = 0.005 seconds Storage allocated: 110000 FLOATP Iteration 1 of FLOAT-SINE Timing for : IL:FLOAT-SINE Elapsed time = 0.012 seconds reclaim time = 0.006 seconds net compute time = 0.006 seconds Storage allocated: 110000 FLOATP \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/x86-byte-tak.results b/internal/gabriel/Results/Maiko/x86-byte-tak.results deleted file mode 100644 index 6d09682b..00000000 --- a/internal/gabriel/Results/Maiko/x86-byte-tak.results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Venue Medley Lisp Version: Medley3.5 2.0 sysout of 13-Aug-2020 12:39:12 Software Type: Envos Medley Software Version: Medley3.5 2.0 sysout of 13-Aug-2020 12:39:12, Make-init dates: 10-Apr-2000 01:42:43, 10-Apr-2000 01:46:59 Machine Type: mc68020 Machine Version: Emulator created: 10-Oct-20, memory size: 0 Machine Instance: 7f0101 TV-PC Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT :MEDLEY) ***** CTAK Benchmark *** CTak Iteration 0 of CTAK Timing for : CTAK Elapsed time = 0.076 seconds reclaim time = 0.012 seconds net compute time = 0.064 seconds Storage allocated: 238535 FIXP Iteration 1 of CTAK Timing for : CTAK Elapsed time = 0.086 seconds reclaim time = 0.017 seconds net compute time = 0.069 seconds Storage allocated: 238535 FIXP ***** STAK Benchmark *** STak Iteration 0 of STAK Timing for : STAK Elapsed time = 0.008 seconds net compute time = 0.008 seconds Iteration 1 of STAK Timing for : STAK Elapsed time = 0.008 seconds net compute time = 0.008 seconds ***** TAK Benchmark *** Tak Iteration 0 of TAK Timing for : TAK Elapsed time = 0.002 seconds net compute time = 0.002 seconds Iteration 1 of TAK Timing for : TAK Elapsed time = 0.002 seconds net compute time = 0.002 seconds ***** TAKL Benchmark *** TakL Iteration 0 of TAKL Timing for : TAKL Elapsed time = 0.013 seconds net compute time = 0.013 seconds Iteration 1 of TAKL Timing for : TAKL Elapsed time = 0.012 seconds SWAP time = 0.006 seconds net compute time = 0.006 seconds ***** TAKR Benchmark *** TakR Iteration 0 of TAKR Timing for : TAKR Elapsed time = 0.001 seconds net compute time = 0.001 seconds Iteration 1 of TAKR Timing for : TAKR Elapsed time = 0.002 seconds net compute time = 0.002 seconds \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/x86-consy.results b/internal/gabriel/Results/Maiko/x86-consy.results deleted file mode 100644 index 9324dda3..00000000 --- a/internal/gabriel/Results/Maiko/x86-consy.results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Venue Medley Lisp Version: Medley3.5 2.0 sysout of 13-Aug-2020 12:39:12 Software Type: Envos Medley Software Version: Medley3.5 2.0 sysout of 13-Aug-2020 12:39:12, Make-init dates: 10-Apr-2000 01:42:43, 10-Apr-2000 01:46:59 Machine Type: mc68020 Machine Version: Emulator created: 10-Oct-20, memory size: 0 Machine Instance: 7f0101 TV-PC Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT :MEDLEY) ***** DERIV Benchmark *** Deriv Iteration 0 of DERIV Timing for : DERIV Elapsed time = 0.033 seconds reclaim time = 0.014 seconds net compute time = 0.019 seconds Iteration 1 of DERIV Timing for : DERIV Elapsed time = 0.038 seconds reclaim time = 0.018 seconds net compute time = 0.020 seconds Storage allocated: 48392 LISTP ***** DDERIV Benchmark *** DDeriv Evaluating setup for DDERIV Iteration 0 of DDERIV Timing for : DDERIV Elapsed time = 0.046 seconds reclaim time = 0.020 seconds net compute time = 0.026 seconds Iteration 1 of DDERIV Timing for : DDERIV Elapsed time = 0.047 seconds reclaim time = 0.021 seconds net compute time = 0.026 seconds Storage allocated: 63392 LISTP ***** DIV2-1 Benchmark *** Div2, Iterative Iteration 0 of DIV2-1 Timing for : DIV2-1 Elapsed time = 0.008 seconds net compute time = 0.008 seconds Iteration 1 of DIV2-1 Timing for : DIV2-1 Elapsed time = 0.008 seconds net compute time = 0.008 seconds ***** DIV2-2 Benchmark *** Div2, Recursive Iteration 0 of DIV2-2 Timing for : DIV2-2 Elapsed time = 0.009 seconds net compute time = 0.009 seconds Storage allocated: 54464 LISTP Iteration 1 of DIV2-2 Timing for : DIV2-2 Elapsed time = 0.010 seconds net compute time = 0.010 seconds ***** DESTRU Benchmark *** Destruct Iteration 0 of DESTRU Timing for : DESTRU Elapsed time = 0.016 seconds reclaim time = 0.003 seconds net compute time = 0.013 seconds Iteration 1 of DESTRU Timing for : DESTRU Elapsed time = 0.016 seconds reclaim time = 0.004 seconds net compute time = 0.012 seconds Storage allocated: 43105 LISTP ***** BOYER Benchmark *** Boyer Evaluating setup for BOYER Iteration 0 of BOYER Timing for : BOYER Elapsed time = 0.071 seconds reclaim time = 0.020 seconds net compute time = 0.051 seconds Storage allocated: 29856 LISTP Iteration 1 of BOYER Timing for : BOYER Elapsed time = 0.072 seconds reclaim time = 0.018 seconds net compute time = 0.054 seconds Storage allocated: 29856 LISTP ***** BROWSE Benchmark *** Browse Iteration 0 of BROWSE Timing for : BROWSE Elapsed time = 0.340 seconds reclaim time = 0.124 seconds net compute time = 0.216 seconds Storage allocated: 97931 LISTP, 229002 ONED-ARRAY, 1101 NEW-ATOM Iteration 1 of BROWSE Timing for : BROWSE Elapsed time = 0.377 seconds reclaim time = 0.129 seconds net compute time = 0.248 seconds Storage allocated: 163467 LISTP, 229002 ONED-ARRAY, 1101 NEW-ATOM ***** BROWSE* Benchmark *** Browse Iteration 0 of BROWSE* Timing for : BROWSE* Elapsed time = 0.271 seconds reclaim time = 0.113 seconds net compute time = 0.158 seconds Storage allocated: 97931 LISTP, 2202 ONED-ARRAY, 1101 NEW-ATOM Iteration 1 of BROWSE* Timing for : BROWSE* Elapsed time = 0.248 seconds reclaim time = 0.101 seconds net compute time = 0.147 seconds Storage allocated: 163467 LISTP, 2202 ONED-ARRAY, 1101 NEW-ATOM ***** TRAVERSE-INIT* Benchmark *** Traverse, Initialize Iteration 0 of TRAVERSE-INIT* Timing for : TRAVERSE-INIT* Elapsed time = 0.063 seconds net compute time = 0.063 seconds Storage allocated: 36796 LISTP, 100 TNODE Evaluating after every function for TRAVERSE-INIT* Iteration 1 of TRAVERSE-INIT* Timing for : TRAVERSE-INIT* Elapsed time = 0.053 seconds net compute time = 0.053 seconds Storage allocated: 100 TNODE Evaluating after every function for TRAVERSE-INIT* ***** TRAVERSE* Benchmark *** Traverse, Traverse Evaluating setup for TRAVERSE* Iteration 0 of TRAVERSE* Timing for : TRAVERSE* Elapsed time = 0.114 seconds net compute time = 0.114 seconds Iteration 1 of TRAVERSE* Timing for : TRAVERSE* Elapsed time = 0.113 seconds net compute time = 0.113 seconds Evaluating after function for TRAVERSE* \ No newline at end of file diff --git a/internal/gabriel/Results/Maiko/x86-poly.results b/internal/gabriel/Results/Maiko/x86-poly.results deleted file mode 100644 index a10d8ac8..00000000 --- a/internal/gabriel/Results/Maiko/x86-poly.results +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Venue Medley Lisp Version: Medley3.5 2.0 sysout of 13-Aug-2020 12:39:12 Software Type: Envos Medley Software Version: Medley3.5 2.0 sysout of 13-Aug-2020 12:39:12, Make-init dates: 10-Apr-2000 01:42:43, 10-Apr-2000 01:46:59 Machine Type: mc68020 Machine Version: Emulator created: 10-Oct-20, memory size: 0 Machine Instance: 7f0101 TV-PC Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT :MEDLEY) ***** FRPOLY10R Benchmark *** FRPoly, Power = 10, r = x + y + z + 1 Evaluating setup for FRPOLY10R Iteration 0 of FRPOLY10R Timing for : FRPOLY10R Elapsed time = 0.001 seconds net compute time = 0.001 seconds Storage allocated: 69 FIXP, 9236 LISTP Iteration 1 of FRPOLY10R Timing for : FRPOLY10R Elapsed time = 0.002 seconds net compute time = 0.002 seconds Storage allocated: 69 FIXP, 9236 LISTP ***** FRPOLY10R2 Benchmark *** FRPoly, Power = 10, r2 = 1000r Evaluating setup for FRPOLY10R2 Iteration 0 of FRPOLY10R2 Timing for : FRPOLY10R2 Elapsed time = 0.124 seconds reclaim time = 0.052 seconds net compute time = 0.072 seconds Storage allocated: 44753 FIXP, 257817 LISTP, 15719 BIGNUM Iteration 1 of FRPOLY10R2 Timing for : FRPOLY10R2 Elapsed time = 0.141 seconds reclaim time = 0.058 seconds net compute time = 0.083 seconds Storage allocated: 44753 FIXP, 192281 LISTP, 15719 BIGNUM ***** FRPOLY10R3 Benchmark *** FRPoly, Power = 10, r3 = r in flonums Evaluating setup for FRPOLY10R3 Iteration 0 of FRPOLY10R3 Timing for : FRPOLY10R3 Elapsed time = 0.004 seconds reclaim time = 0.001 seconds net compute time = 0.003 seconds Storage allocated: 6393 FLOATP, 9236 LISTP Iteration 1 of FRPOLY10R3 Timing for : FRPOLY10R3 Elapsed time = 0.004 seconds reclaim time = 0.001 seconds net compute time = 0.003 seconds Storage allocated: 6393 FLOATP, 9236 LISTP ***** FRPOLY15R Benchmark *** FRPoly, Power = 15, r = x + y + z + 1 Evaluating setup for FRPOLY15R Iteration 0 of FRPOLY15R Timing for : FRPOLY15R Elapsed time = 0.024 seconds reclaim time = 0.006 seconds net compute time = 0.018 seconds Storage allocated: 31789 FIXP Iteration 1 of FRPOLY15R Timing for : FRPOLY15R Elapsed time = 0.025 seconds reclaim time = 0.007 seconds net compute time = 0.018 seconds Storage allocated: 31789 FIXP ***** FRPOLY15R2 Benchmark *** FRPoly, Power = 15, r2 = 1000r Evaluating setup for FRPOLY15R2 Iteration 0 of FRPOLY15R2 Timing for : FRPOLY15R2 Elapsed time = 2.313 seconds reclaim time = 0.937 seconds net compute time = 1.376 seconds Storage allocated: 774749 FIXP, 4105318 LISTP, 122293 BIGNUM Iteration 1 of FRPOLY15R2 Timing for : FRPOLY15R2 Elapsed time = 2.441 seconds reclaim time = 0.976 seconds net compute time = 1.465 seconds Storage allocated: 774749 FIXP, 4039782 LISTP, 122293 BIGNUM ***** FRPOLY15R3 Benchmark *** FRPoly, Power = 15, r3 = r in flonums Evaluating setup for FRPOLY15R3 Iteration 0 of FRPOLY15R3 Timing for : FRPOLY15R3 Elapsed time = 0.026 seconds reclaim time = 0.008 seconds net compute time = 0.018 seconds Storage allocated: 53297 FLOATP Iteration 1 of FRPOLY15R3 Timing for : FRPOLY15R3 Elapsed time = 0.026 seconds reclaim time = 0.008 seconds net compute time = 0.018 seconds Storage allocated: 53297 FLOATP, 48892 LISTP ***** FRPOLY2R Benchmark *** FRPoly, Power = 2, r = x + y + z + 1 Evaluating setup for FRPOLY2R Iteration 0 of FRPOLY2R Timing for : FRPOLY2R Elapsed time = 0.0 seconds net compute time = 0.0 seconds Storage allocated: 102 LISTP Iteration 1 of FRPOLY2R Timing for : FRPOLY2R Elapsed time = 0.0 seconds net compute time = 0.0 seconds Storage allocated: 102 LISTP ***** FRPOLY2R2 Benchmark *** FRPoly, Power = 2, r2 = 1000r Evaluating setup for FRPOLY2R2 Iteration 0 of FRPOLY2R2 Timing for : FRPOLY2R2 Elapsed time = 0.0 seconds net compute time = 0.0 seconds Storage allocated: 59 FIXP, 31 BIGNUM Iteration 1 of FRPOLY2R2 Timing for : FRPOLY2R2 Elapsed time = 0.0 seconds net compute time = 0.0 seconds Storage allocated: 59 FIXP, 324 LISTP, 31 BIGNUM ***** FRPOLY2R3 Benchmark *** FRPoly, Power = 2, r3 = r in flonums Evaluating setup for FRPOLY2R3 Iteration 0 of FRPOLY2R3 Timing for : FRPOLY2R3 Elapsed time = 0.0 seconds net compute time = 0.0 seconds Storage allocated: 33 FLOATP, 102 LISTP Iteration 1 of FRPOLY2R3 Timing for : FRPOLY2R3 Elapsed time = 0.0 seconds net compute time = 0.0 seconds Storage allocated: 33 FLOATP, 102 LISTP ***** FRPOLY5R Benchmark *** FRPoly, Power = 5, r = x + y + z + 1 Evaluating setup for FRPOLY5R Iteration 0 of FRPOLY5R Timing for : FRPOLY5R Elapsed time = 0.0 seconds net compute time = 0.0 seconds Storage allocated: 966 LISTP Iteration 1 of FRPOLY5R Timing for : FRPOLY5R Elapsed time = 0.0 seconds net compute time = 0.0 seconds Storage allocated: 966 LISTP ***** FRPOLY5R2 Benchmark *** FRPoly, Power = 5, r2 = 1000r Evaluating setup for FRPOLY5R2 Iteration 0 of FRPOLY5R2 Timing for : FRPOLY5R2 Elapsed time = 0.006 seconds reclaim time = 0.002 seconds net compute time = 0.004 seconds Storage allocated: 1481 FIXP, 12984 LISTP, 982 BIGNUM Iteration 1 of FRPOLY5R2 Timing for : FRPOLY5R2 Elapsed time = 0.005 seconds reclaim time = 0.001 seconds net compute time = 0.004 seconds Storage allocated: 1481 FIXP, 12984 LISTP, 982 BIGNUM ***** FRPOLY5R3 Benchmark *** FRPoly, Power = 5, r3 = r in flonums Evaluating setup for FRPOLY5R3 Iteration 0 of FRPOLY5R3 Timing for : FRPOLY5R3 Elapsed time = 0.0 seconds SWAP time = 0.001 seconds net compute time = 0.0 seconds Storage allocated: 448 FLOATP, 966 LISTP Iteration 1 of FRPOLY5R3 Timing for : FRPOLY5R3 Elapsed time = 0.001 seconds SWAP time = 0.001 seconds net compute time = 0.0 seconds Storage allocated: 448 FLOATP, 966 LISTP \ No newline at end of file diff --git a/internal/gabriel/Results/Medley/BYTE-AREFY-1186.RESULTS b/internal/gabriel/Results/Medley/BYTE-AREFY-1186.RESULTS deleted file mode 100644 index 9197eb47..00000000 --- a/internal/gabriel/Results/Medley/BYTE-AREFY-1186.RESULTS +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Medley sysout of 15-Mar-88 18:32:37 Software Type: Xerox AIE Software Version: Medley sysout of 15-Mar-88 18:32:37, Make-init dates: 15-Mar-88 16:19:01, 15-Mar-88 16:38:25 Machine Type: Xerox 1186 Machine Version: Microcode version: 107, memory size: 7424 Machine Instance: Wills1186 = 25220220072# Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** PUZZLE Benchmark *** Puzzle Iteration 0 of PUZZLE Success in 2005 trials.Timing for : PUZZLE Elapsed time = 46.241 seconds net compute time = 46.270 seconds Storage allocated: 10 LISTP, 1 ONED-ARRAY Iteration 1 of PUZZLE Success in 2005 trials.Timing for : PUZZLE Elapsed time = 46.279 seconds net compute time = 46.279 seconds Storage allocated: 10 LISTP, 1 ONED-ARRAY ***** TRIANG Benchmark *** Triang Iteration 0 of TRIANG Timing for : TRIANG Elapsed time = 829.979 seconds reclaim time = 0.565 seconds net compute time = 829.414 seconds Page faults = 79 Storage allocated: 11626 LISTP Iteration 1 of TRIANG Timing for : TRIANG Elapsed time = 828.981 seconds reclaim time = 0.550 seconds net compute time = 828.431 seconds Storage allocated: 11626 LISTP ***** FFT Benchmark *** FFT Iteration 0 of FFT Timing for : FFT Elapsed time = 206.390 seconds SWAP time = 0.213 seconds reclaim time = 115.504 seconds net compute time = 90.673 seconds Page faults = 31 Storage allocated: 942640 FLOATP Iteration 1 of FFT Timing for : FFT Elapsed time = 205.926 seconds reclaim time = 115.455 seconds net compute time = 90.471 seconds Storage allocated: 942640 FLOATP \ No newline at end of file diff --git a/internal/gabriel/Results/Medley/BYTE-CONSY-1186.RESULTS b/internal/gabriel/Results/Medley/BYTE-CONSY-1186.RESULTS deleted file mode 100644 index bdb7da60..00000000 --- a/internal/gabriel/Results/Medley/BYTE-CONSY-1186.RESULTS +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Medley sysout of 15-Mar-88 18:32:37 Software Type: Xerox AIE Software Version: Medley sysout of 15-Mar-88 18:32:37, Make-init dates: 15-Mar-88 16:19:01, 15-Mar-88 16:38:25 Machine Type: Xerox 1186 Machine Version: Microcode version: 107, memory size: 7424 Machine Instance: Wills1186 = 25220220072# Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** DERIV Benchmark *** Deriv Iteration 0 of DERIV Timing for : DERIV Elapsed time = 69.577 seconds reclaim time = 46.420 seconds net compute time = 23.157 seconds Storage allocated: 245000 LISTP Iteration 1 of DERIV Timing for : DERIV Elapsed time = 69.236 seconds reclaim time = 46.056 seconds net compute time = 23.180 seconds Storage allocated: 245000 LISTP ***** DDERIV Benchmark *** DDeriv Evaluating setup for DDERIV Iteration 0 of DDERIV Timing for : DDERIV Elapsed time = 82.165 seconds reclaim time = 51.815 seconds net compute time = 30.350 seconds Storage allocated: 260000 LISTP Iteration 1 of DDERIV Timing for : DDERIV Elapsed time = 80.605 seconds reclaim time = 50.652 seconds net compute time = 29.953 seconds Storage allocated: 260000 LISTP ***** DIV2-1 Benchmark *** Div2, Iterative Iteration 0 of DIV2-1 Timing for : DIV2-1 Elapsed time = 30.382 seconds reclaim time = 20.370 seconds net compute time = 10.012 seconds Storage allocated: 120000 LISTP Iteration 1 of DIV2-1 Timing for : DIV2-1 Elapsed time = 30.130 seconds reclaim time = 20.251 seconds net compute time = 9.879 seconds Storage allocated: 120000 LISTP ***** DIV2-2 Benchmark *** Div2, Recursive Iteration 0 of DIV2-2 Timing for : DIV2-2 Elapsed time = 34.071 seconds reclaim time = 20.934 seconds net compute time = 13.137 seconds Storage allocated: 120000 LISTP Iteration 1 of DIV2-2 Timing for : DIV2-2 Elapsed time = 34.371 seconds reclaim time = 21.338 seconds net compute time = 13.033 seconds Storage allocated: 120000 LISTP ***** DESTRU Benchmark *** Destruct Iteration 0 of DESTRU Timing for : DESTRU Elapsed time = 21.845 seconds reclaim time = 5.860 seconds net compute time = 15.985 seconds Storage allocated: 43105 LISTP Iteration 1 of DESTRU Timing for : DESTRU Elapsed time = 22.247 seconds reclaim time = 6.057 seconds net compute time = 16.190 seconds Storage allocated: 43105 LISTP ***** TRAVERSE-INIT Benchmark *** Traverse, Initialize Iteration 0 of TRAVERSE-INIT Timing for : TRAVERSE-INIT Elapsed time = 77.801 seconds reclaim time = 1.174 seconds net compute time = 76.627 seconds Page faults = 342 Storage allocated: 36796 LISTP, 100 TNODE Iteration 1 of TRAVERSE-INIT Timing for : TRAVERSE-INIT Elapsed time = 120.992 seconds reclaim time = 1.321 seconds net compute time = 119.671 seconds Page faults = 433 Storage allocated: 36796 LISTP, 100 TNODE ***** TRAVERSE Benchmark *** Traverse, Traverse Iteration 0 of TRAVERSE Timing for : TRAVERSE Elapsed time = 142.926 seconds net compute time = 142.926 seconds Iteration 1 of TRAVERSE Timing for : TRAVERSE Elapsed time = 142.926 seconds net compute time = 142.926 seconds ***** BOYER Benchmark *** Boyer Evaluating setup for BOYER Iteration 0 of BOYER Timing for : BOYER Elapsed time = 139.292 seconds reclaim time = 40.000 seconds net compute time = 99.292 seconds Page faults = 557 Storage allocated: 226464 LISTP Iteration 1 of BOYER Timing for : BOYER Elapsed time = 133.852 seconds reclaim time = 40.084 seconds net compute time = 93.768 seconds Storage allocated: 226464 LISTP ***** BROWSE Benchmark *** Browse Iteration 0 of BROWSE Timing for : BROWSE Elapsed time = 1649.867 seconds SWAP time = 0.120 seconds reclaim time = 795.324 seconds net compute time = 854.423 seconds Page faults = 99 Storage allocated: 491147 LISTP, 229002 ONED-ARRAY Iteration 1 of BROWSE Timing for : BROWSE Elapsed time = 1677.013 seconds reclaim time = 809.323 seconds net compute time = 867.690 seconds Page faults = 50 Storage allocated: 491147 LISTP, 229002 ONED-ARRAY \ No newline at end of file diff --git a/internal/gabriel/Results/Medley/BYTE-IO-1186.RESULTS b/internal/gabriel/Results/Medley/BYTE-IO-1186.RESULTS deleted file mode 100644 index 203b492e..00000000 --- a/internal/gabriel/Results/Medley/BYTE-IO-1186.RESULTS +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Medley sysout of 15-Mar-88 18:32:37 Software Type: Xerox AIE Software Version: Medley sysout of 15-Mar-88 18:32:37, Make-init dates: 15-Mar-88 16:19:01, 15-Mar-88 16:38:25 Machine Type: Xerox 1186 Machine Version: Microcode version: 107, memory size: 7424 Machine Instance: Wills1186 = 25220220072# Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** FPRINT Benchmark *** FPrint Iteration 0 of FPRINT Timing for : FPRINT Elapsed time = 12.856 seconds SWAP time = 0.078 seconds reclaim time = 0.336 seconds net compute time = 12.442 seconds Page faults = 3 Storage allocated: 182 FIXP, 456 LISTP, 2 VMEMPAGEP, 1 STREAM, 72 ONED-ARRAY, 1 PATHNAME, 49 PageGroup, 1 FileDescriptor, 1 \BTREEBUF Iteration 1 of FPRINT Timing for : FPRINT Elapsed time = 12.819 seconds reclaim time = 0.334 seconds net compute time = 12.485 seconds Storage allocated: 170 FIXP, 502 LISTP, 1 VMEMPAGEP, 1 STREAM, 96 ONED-ARRAY, 2 PATHNAME, 50 PageGroup, 1 FileDescriptor ***** FREAD Benchmark *** FRead Iteration 0 of FREAD Timing for : FREAD Elapsed time = 11.733 seconds reclaim time = 0.600 seconds net compute time = 11.133 seconds Storage allocated: 107 FIXP, 6241 LISTP, 1 VMEMPAGEP, 1 STREAM, 87 ONED-ARRAY, 2 PATHNAME, 37 PageGroup, 1 FileDescriptor Iteration 1 of FREAD Timing for : FREAD Elapsed time = 11.773 seconds reclaim time = 0.643 seconds net compute time = 11.130 seconds Storage allocated: 107 FIXP, 6241 LISTP, 1 VMEMPAGEP, 1 STREAM, 87 ONED-ARRAY, 2 PATHNAME, 37 PageGroup, 1 FileDescriptor ***** TPRINT Benchmark *** TPrint Evaluating setup for TPRINT Iteration 0 of TPRINT Timing for : TPRINT Elapsed time = 27.110 seconds net compute time = 27.110 seconds Storage allocated: 4 LISTP Evaluating after every function for TPRINT Iteration 1 of TPRINT Timing for : TPRINT Elapsed time = 27.120 seconds net compute time = 27.120 seconds Storage allocated: 4 LISTP Evaluating after every function for TPRINT Evaluating after function for TPRINT \ No newline at end of file diff --git a/internal/gabriel/Results/Medley/BYTE-TAK-1186.RESULTS b/internal/gabriel/Results/Medley/BYTE-TAK-1186.RESULTS deleted file mode 100644 index 6e4395f7..00000000 --- a/internal/gabriel/Results/Medley/BYTE-TAK-1186.RESULTS +++ /dev/null @@ -1 +0,0 @@ -Lisp Type: Xerox Lisp Lisp Version: Medley sysout of 15-Mar-88 18:32:37 Software Type: Xerox AIE Software Version: Medley sysout of 15-Mar-88 18:32:37, Make-init dates: 15-Mar-88 16:19:01, 15-Mar-88 16:38:25 Machine Type: Xerox 1186 Machine Version: Microcode version: 107, memory size: 7424 Machine Instance: Wills1186 = 25220220072# Site: Unknown Features: (:INTERLISP :XEROX :COMMON :IEEE-FLOATING-POINT) ***** TAK Benchmark *** Tak Iteration 0 of TAK Timing for : TAK Elapsed time = 1.631 seconds net compute time = 1.631 seconds Iteration 1 of TAK Timing for : TAK Elapsed time = 1.641 seconds net compute time = 1.641 seconds ***** TAKR Benchmark *** TakR Iteration 0 of TAKR Timing for : TAKR Elapsed time = 1.721 seconds net compute time = 1.721 seconds Iteration 1 of TAKR Timing for : TAKR Elapsed time = 1.719 seconds net compute time = 1.719 seconds ***** STAK Benchmark *** STak Iteration 0 of STAK Timing for : STAK Elapsed time = 4.591 seconds net compute time = 4.591 seconds Iteration 1 of STAK Timing for : STAK Elapsed time = 4.599 seconds net compute time = 4.599 seconds ***** TAKL Benchmark *** TakL Iteration 0 of TAKL Timing for : TAKL Elapsed time = 13.350 seconds net compute time = 13.350 seconds Iteration 1 of TAKL Timing for : TAKL Elapsed time = 13.358 seconds net compute time = 13.358 seconds ***** CTAK Benchmark *** CTak Iteration 0 of CTAK Timing for : CTAK Elapsed time = 82.491 seconds net compute time = 82.491 seconds Iteration 1 of CTAK Timing for : CTAK Elapsed time = 82.498 seconds net compute time = 82.498 seconds \ No newline at end of file diff --git a/internal/gabriel/Results/SUMMARY-TIME-SERIES2.tedit b/internal/gabriel/Results/SUMMARY-TIME-SERIES2.tedit deleted file mode 100644 index 7eb773cc..00000000 Binary files a/internal/gabriel/Results/SUMMARY-TIME-SERIES2.tedit and /dev/null differ diff --git a/internal/gabriel/Results/SUMMARY-TIME-SERIES3.tedit b/internal/gabriel/Results/SUMMARY-TIME-SERIES3.tedit deleted file mode 100644 index 742859f9..00000000 Binary files a/internal/gabriel/Results/SUMMARY-TIME-SERIES3.tedit and /dev/null differ diff --git a/internal/gabriel/Results/SUMMARY-TIME-SERIES4.Tedit b/internal/gabriel/Results/SUMMARY-TIME-SERIES4.Tedit deleted file mode 100644 index 7e030b23..00000000 Binary files a/internal/gabriel/Results/SUMMARY-TIME-SERIES4.Tedit and /dev/null differ diff --git a/internal/gabriel/Results/Summary-Time-Series.TEdit b/internal/gabriel/Results/Summary-Time-Series.TEdit deleted file mode 100644 index d7b98d6c..00000000 Binary files a/internal/gabriel/Results/Summary-Time-Series.TEdit and /dev/null differ diff --git a/internal/gabriel/Results/koto-1108.benchmarks b/internal/gabriel/Results/koto-1108.benchmarks deleted file mode 100644 index faddb97f..00000000 --- a/internal/gabriel/Results/koto-1108.benchmarks +++ /dev/null @@ -1 +0,0 @@ - MACHINETYPE = DANDELION MAKESYSNAME = KOTO MAKESYSDATE = 17-Oct-85 19:19:58 DATE = 17-Nov-85 15:40:40 USERNAME = PEDERSEN ************ TAK BENCHMARK ************** Starting the TAK run: (TIMEALL (TAK 18 12 6)) Elapsed Time = 1.99 seconds SWAP time = .138 seconds CPU Time = 1.85 seconds PAGEFAULTS = 2 SWAPWRITES = 1 Value = 7 Repeating the TIMEALL Elapsed Time = 1.9 seconds CPU Time = 1.9 seconds Value = 7 TAK finished ************ STAK BENCHMARK ************** Starting the STAK run: (TIMEALL (STAK)) Elapsed Time = 4.91 seconds SWAP time = .013 seconds CPU Time = 4.9 seconds PAGEFAULTS = 1 SWAPWRITES = 1 Value = 7 Repeating the TIMEALL Elapsed Time = 4.92 seconds CPU Time = 4.92 seconds STAK finished ************ CTAK BENCHMARK ************** Starting the CTAK run: (TIMEALL (CTAK 18 12 6)) Elapsed Time = 59.9 seconds SWAP time = .196 seconds CPU Time = 59.7 seconds PAGEFAULTS = 6 SWAPWRITES = 1 Value = 7 Repeating the TIMEALL Elapsed Time = 59.7 seconds CPU Time = 59.7 seconds Value = 7 CTAK finished ************ TAKL BENCHMARK ************** Starting the TAKL run: (TIMEALL (TAKL 18L 12L 6L)) Elapsed Time = 14.1 seconds SWAP time = .06 seconds CPU Time = 14.1 seconds PAGEFAULTS = 3 Value = (7 6 5 4 3 2 1) Repeating the TIMEALL Elapsed Time = 14.1 seconds CPU Time = 14.1 seconds Value = (7 6 5 4 3 2 1) TAKL finished ************ TAKR BENCHMARK ************** Starting the TAKR run: (TIMEALL (TAK0 18 12 6)) Elapsed Time = 2.38 seconds SWAP time = .38 seconds CPU Time = 2.0 seconds PAGEFAULTS = 18 SWAPWRITES = 1 Value = 7 Repeating the TIMEALL Elapsed Time = 1.99 seconds CPU Time = 1.99 seconds Value = 7 TAKR finished ********* BOYER BENCHMARK *********** Initializing BOYER run: (TIMEALL (SETUP)) Elapsed Time = 2.98 seconds SWAP time = 2.74 seconds CPU Time = .237 seconds PAGEFAULTS = 61 SWAPWRITES = 4 LISTP 224 starting BOYER run: (TIMEALL (TEST-BOYER)) Elapsed Time = 150.0 seconds SWAP time = .585 seconds GC time = 42.1 seconds CPU Time = 107.0 seconds PAGEFAULTS = 552 SWAPWRITES = 44 FIXP LISTP 7 226469 Repeating the TIMEALL Elapsed Time = 140.0 seconds GC time = 41.6 seconds CPU Time = 98.8 seconds PAGEFAULTS = 4 FIXP LISTP 7 226469 BOYER finished ********* BROWSE BENCHMARK *********** starting BROWSE run: (TIMEALL (BROWSE)) Elapsed Time = 453.0 seconds SWAP time = 51.5 seconds GC time = 156.0 seconds CPU Time = 246.0 seconds PAGEFAULTS = 934 SWAPWRITES = 274 LISTP 488945 Repeating the TIMEALL Elapsed Time = 442.0 seconds SWAP time = 30.4 seconds GC time = 158.0 seconds CPU Time = 254.0 seconds PAGEFAULTS = 320 SWAPWRITES = 298 LISTP 488945 BROWSE finished *********** THE DESTRUCTIVE BENCHMARK ************ Starting the DESTRUCTIVE run: (TIMEALL (DESTRUCTIVE 600 50)) Elapsed Time = 27.6 seconds SWAP time = .1 seconds GC time = 6.84 seconds CPU Time = 20.7 seconds PAGEFAULTS = 1 SWAPWRITES = 1 LISTP 43105 Value = ((1 1 2) (1 1 1) (1 1 1 2) (1 1 1 1) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 3)) Repeating the TIMEALL Elapsed Time = 27.3 seconds GC time = 6.63 seconds CPU Time = 20.7 seconds LISTP 43105 Value = ((1 1 2) (1 1 1) (1 1 1 2) (1 1 1 1) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 2) (1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 3)) DESTRUCTIVE finished ************* THE TRAVERSE BENCHMAK ************ Starting the TRAVERSE initialization: (TIMEALL (INIT-TRAVERSE)) Elapsed Time = 107.0 seconds SWAP time = 21.3 seconds GC time = 1.35 seconds CPU Time = 84.7 seconds PAGEFAULTS = 404 SWAPWRITES = 173 LISTP NODE 36796 100 Starting the TRAVERSE run: (TIMEALL (RUN-TRAVERSE)) Elapsed Time = 163.0 seconds SWAP time = .509 seconds CPU Time = 163.0 seconds PAGEFAULTS = 4 SWAPWRITES = 4 Repeating the TIMEALL Elapsed Time = 163.0 seconds CPU Time = 163.0 seconds TRAVERSE finished ******* Derivative Benchmark ********** Starting the DERIV run: (TIMEALL (RUN-DERIV)) Elapsed Time = 81.4 seconds SWAP time = 3.46 seconds GC time = 44.3 seconds CPU Time = 33.7 seconds PAGEFAULTS = 52 SWAPWRITES = 23 LISTP 245000 Value = NIL Repeating the TIMEALL Elapsed Time = 79.4 seconds GC time = 45.1 seconds CPU Time = 34.3 seconds LISTP 245000 Value = NIL DERIV finished ******* Data-Driven Derivative Benchmark ********** Starting the DDERIV run: (TIMEALL (RUN-DDERIV)) Elapsed Time = 98.7 seconds SWAP time = .463 seconds GC time = 54.3 seconds CPU Time = 44.0 seconds PAGEFAULTS = 11 SWAPWRITES = 1 LISTP 260000 Value = NIL Repeating the TIMEALL Elapsed Time = 98.9 seconds GC time = 55.0 seconds CPU Time = 43.9 seconds LISTP 260000 Value = NIL DDERIV finished ******* DIVIDE BY TWO BENCHMARK ********** Starting the iterative DIV2 run: (TIMEALL (TEST1 L)) Elapsed Time = 34.0 seconds SWAP time = .263 seconds GC time = 23.2 seconds CPU Time = 10.6 seconds PAGEFAULTS = 6 SWAPWRITES = 1 LISTP 120000 Repeating the TIMEALL Elapsed Time = 33.6 seconds GC time = 22.8 seconds CPU Time = 10.8 seconds LISTP 120000 Starting the recursive DIV2 run: (TIMEALL (TEST2 L)) Elapsed Time = 39.1 seconds GC time = 23.7 seconds CPU Time = 15.4 seconds LISTP 120000 Repeating the TIMEALL Elapsed Time = 38.7 seconds GC time = 23.4 seconds CPU Time = 15.2 seconds LISTP 120000 DIV2 finished *************** THE FFT BENCHMARK *********** Starting FFT run: (TIMEALL (FFT-BENCH)) Elapsed Time = 1110.0 seconds SWAP time = 1.34 seconds GC time = 220.0 seconds CPU Time = 890.0 seconds PAGEFAULTS = 61 SWAPWRITES = 12 FLOATP 1010220 Repeating the TIMEALL Elapsed Time = 1110.0 seconds GC time = 220.0 seconds CPU Time = 888.0 seconds FLOATP 1010220 FFT finished *************** THE PUZZLE BENCHMARK *********** Starting PUZZLE run: (TIMEALL (START)) Success in 2005 trials. Elapsed Time = 129.0 seconds SWAP time = .72 seconds CPU Time = 128.0 seconds PAGEFAULTS = 11 SWAPWRITES = 4 Value = NIL Repeating the TIMEALL Success in 2005 trials. Elapsed Time = 128.0 seconds CPU Time = 128.0 seconds Value = NIL PUZZLE finished *************** THE TRIANGLE BENCHMARK *********** Starting TRIANG run: (TIMEALL (GOGOGO 22)) Elapsed Time = 2410.0 seconds SWAP time = 1.35 seconds GC time = .479 seconds CPU Time = 2400.0 seconds PAGEFAULTS = 51 SWAPWRITES = 2 LISTP 11626 Value = NIL Repeating the TIMEALL Elapsed Time = 2410.0 seconds GC time = .493 seconds CPU Time = 2410.0 seconds LISTP 11626 Value = NIL TRIANG finished ******************************************************************* DSK file I/O benchmarks: FPRINT and FREAD Terminal printing (to window): TPRINT ******************************************************************* Starting FPRINT: (TIMEALL (FPRINT)) Elapsed Time = 32.6 seconds SWAP time = 21.3 seconds GC time = .422 seconds CPU Time = 10.9 seconds PAGEFAULTS = 285 SWAPWRITES = 115 FIXP LISTP STRINGP VMEMPAGEP STREAM PROCESS PageGroup FileDescriptor 50 711 38 1 1 2 50 1 Repeating the TIMEALL Elapsed Time = 12.4 seconds SWAP time = 2.4 seconds GC time = .39 seconds CPU Time = 9.6 seconds PAGEFAULTS = 20 SWAPWRITES = 20 FIXP LISTP STRINGP VMEMPAGEP STREAM ETHERPACKET PageGroup FileDescriptor 43 578 37 1 1 1 48 1 FPRINT finished Starting the FREAD run: (TIMEALL (FREAD)) Elapsed Time = 14.3 seconds SWAP time = 5.66 seconds GC time = .265 seconds CPU Time = 8.41 seconds PAGEFAULTS = 43 SWAPWRITES = 43 FIXP LISTP STRINGP VMEMPAGEP STREAM PageGroup FileDescriptor 44 2510 19 1 1 37 1 Repeating the TIMEALL Elapsed Time = 8.2 seconds GC time = .262 seconds CPU Time = 7.94 seconds FIXP LISTP STRINGP VMEMPAGEP STREAM PageGroup FileDescriptor 44 2510 19 1 1 37 1 FREAD finished Starting the TPRINT run: (TPRINT) Elapsed Time = 27.9 seconds CPU Time = 27.9 seconds Repeating the TIMEALL Elapsed Time = 27.9 seconds CPU Time = 27.9 seconds TPRINT finished *************** THE POLYNOMIAL BENCHMARK *********** Starting POLY 2 run: (TIMEALL (BENCH 2)) Elapsed Time = 1.23 seconds SWAP time = .69 seconds CPU Time = .537 seconds PAGEFAULTS = 13 SWAPWRITES = 5 FIXP FLOATP LISTP BIGNUM 86 32 726 73 Value = (Z 2 1.0 1 (Y 1 2.0 0 (X 1 2.0 0 2.0)) 0 (Y 2 1.0 1 (X 1 2.0 0 2.0) 0 (X 2 1.0 1 2.0 0 1.0))) Repeating the TIMEALL Elapsed Time = .523 seconds CPU Time = .523 seconds FIXP FLOATP LISTP BIGNUM 86 32 726 73 Value = (Z 2 1.0 1 (Y 1 2.0 0 (X 1 2.0 0 2.0)) 0 (Y 2 1.0 1 (X 1 2.0 0 2.0) 0 (X 2 1.0 1 2.0 0 1.0))) Starting POLY 5 run: (TIMEALL (BENCH 5)) Elapsed Time = 19.4 seconds SWAP time = 1.32 seconds GC time = 4.45 seconds CPU Time = 13.7 seconds PAGEFAULTS = 13 SWAPWRITES = 13 FIXP FLOATP LISTP BIGNUM 1842 411 12782 1153 Value = (Z 5 1.0 4 (Y 1 5.0 0 (X 1 5.0 0 5.0)) 3 (Y 2 10.0 1 (X 1 20.0 0 20.0) 0 (X 2 10.0 1 20.0 0 10.0)) 2 (Y 3 10.0 2 (X 1 30.0 0 30.0) 1 (X 2 30.0 1 60.0 0 30.0) 0 (X 3 10.0 2 30.0 1 30.0 0 10.0)) 1 (Y 4 5.0 3 (X 1 20.0 0 20.0) 2 (X 2 30.0 1 60.0 0 30.0) 1 (X 3 20.0 2 60.0 1 60.0 0 20.0) 0 (X 4 5.0 3 20.0 2 30.0 1 20.0 0 5.0)) 0 (Y 5 1.0 4 (X 1 5.0 0 5.0) 3 (X 2 10.0 1 20.0 0 10.0) 2 (X 3 10.0 2 30.0 1 30.0 0 10.0) 1 (X 4 5.0 3 20.0 2 30.0 1 20.0 0 5.0) 0 (X 5 1.0 4 5.0 3 10.0 2 10.0 1 5.0 0 1.0))) Repeating the TIMEALL Elapsed Time = 17.4 seconds GC time = 3.74 seconds CPU Time = 13.6 seconds FIXP FLOATP LISTP BIGNUM 1842 411 12782 1153 Value = (Z 5 1.0 4 (Y 1 5.0 0 (X 1 5.0 0 5.0)) 3 (Y 2 10.0 1 (X 1 20.0 0 20.0) 0 (X 2 10.0 1 20.0 0 10.0)) 2 (Y 3 10.0 2 (X 1 30.0 0 30.0) 1 (X 2 30.0 1 60.0 0 30.0) 0 (X 3 10.0 2 30.0 1 30.0 0 10.0)) 1 (Y 4 5.0 3 (X 1 20.0 0 20.0) 2 (X 2 30.0 1 60.0 0 30.0) 1 (X 3 20.0 2 60.0 1 60.0 0 20.0) 0 (X 4 5.0 3 20.0 2 30.0 1 20.0 0 5.0)) 0 (Y 5 1.0 4 (X 1 5.0 0 5.0) 3 (X 2 10.0 1 20.0 0 10.0) 2 (X 3 10.0 2 30.0 1 30.0 0 10.0) 1 (X 4 5.0 3 20.0 2 30.0 1 20.0 0 5.0) 0 (X 5 1.0 4 5.0 3 10.0 2 10.0 1 5.0 0 1.0))) Starting POLY 10 run: (TIMEALL (BENCH 10)) Elapsed Time = 546.0 seconds SWAP time = .747 seconds GC time = 135.0 seconds CPU Time = 410.0 seconds PAGEFAULTS = 55 SWAPWRITES = 41 FIXP FLOATP LISTP BIGNUM 54142 5496 334320 16330 Value = (Z 10 1.0 9 (Y 1 10.0 0 (X 1 10.0 0 10.0)) 8 (Y 2 45.0 1 (X 1 90.0 0 90.0) 0 (X 2 45.0 1 90.0 0 45.0)) 7 (Y 3 120.0 2 (X 1 360.0 0 360.0) 1 (X 2 360.0 1 720.0 0 360.0) 0 (X 3 120.0 2 360.0 1 360.0 0 120.0)) 6 (Y 4 210.0 3 ( X 1 840.0 0 840.0) 2 (X 2 1260.0 1 2520.0 0 1260.0) 1 (X 3 840.0 2 2520.0 1 2520.0 0 840.0) 0 (X 4 210.0 3 840.0 2 1260.0 1 840.0 0 210.0)) 5 (Y 5 252.0 4 (X 1 1260.0 0 1260.0) 3 (X 2 2520.0 1 5040.0 0 2520.0) 2 (X 3 2520.0 2 7560.0 1 7560.0 0 2520.0) 1 (X 4 1260.0 3 5040.0 2 7560.0 1 5040.0 0 1260.0) 0 (X 5 252.0 4 1260.0 3 2520.0 2 2520.0 1 1260.0 0 252.0)) 4 (Y 6 210.0 5 (X 1 1260.0 0 1260.0) 4 (X 2 3150.0 1 6300.0 0 3150.0) 3 (X 3 4200.0 2 12600.0 1 12600.0 0 4200.0) 2 (X 4 3150.0 3 12600.0 2 18900.0 1 12600.0 0 3150.0) 1 (X 5 1260.0 4 6300.0 3 12600.0 2 12600.0 1 6300.0 0 1260.0) 0 (X 6 210.0 5 1260.0 4 3150.0 3 4200.0 2 3150.0 1 1260.0 0 210.0)) 3 (Y 7 120.0 6 (X 1 840.0 0 840.0) 5 (X 2 2520.0 1 5040.0 0 2520.0) 4 (X 3 4200.0 2 12600.0 1 12600.0 0 4200.0) 3 (X 4 4200.0 3 16800.0 2 25200.0 1 16800.0 0 4200.0) 2 (X 5 2520.0 4 12600.0 3 25200.0 2 25200.0 1 12600.0 0 2520.0) 1 (X 6 840.0 5 5040.0 4 12600.0 3 16800.0 2 12600.0 1 5040.0 0 840.0) 0 (X 7 120.0 6 840.0 5 2520.0 4 4200.0 3 4200.0 2 2520.0 1 840.0 0 120.0)) 2 (Y 8 45.0 7 (X 1 360.0 0 360.0) 6 (X 2 1260.0 1 2520.0 0 1260.0) 5 (X 3 2520.0 2 7560.0 1 7560.0 0 2520.0) 4 (X 4 3150.0 3 12600.0 2 18900.0 1 12600.0 0 3150.0) 3 (X 5 2520.0 4 12600.0 3 25200.0 2 25200.0 1 12600.0 0 2520.0) 2 (X 6 1260.0 5 7560.0 4 18900.0 3 25200.0 2 18900.0 1 7560.0 0 1260.0) 1 (X 7 360.0 6 2520.0 5 7560.0 4 12600.0 3 12600.0 2 7560.0 1 2520.0 0 360.0) 0 (X 8 45.0 7 360.0 6 1260.0 5 2520.0 4 3150.0 3 2520.0 2 1260.0 1 360.0 0 45.0)) 1 (Y 9 10.0 8 (X 1 90.0 0 90.0) 7 (X 2 360.0 1 720.0 0 360.0) 6 (X 3 840.0 2 2520.0 1 2520.0 0 840.0) 5 (X 4 1260.0 3 5040.0 2 7560.0 1 5040.0 0 1260.0) 4 (X 5 1260.0 4 6300.0 3 12600.0 2 12600.0 1 6300.0 0 1260.0) 3 (X 6 840.0 5 5040.0 4 12600.0 3 16800.0 2 12600.0 1 5040.0 0 840.0) 2 (X 7 360.0 6 2520.0 5 7560.0 4 12600.0 3 12600.0 2 7560.0 1 2520.0 0 360.0) 1 (X 8 90.0 7 720.0 6 2520.0 5 5040.0 4 6300.0 3 5040.0 2 2520.0 1 720.0 0 90.0) 0 (X 9 10.0 8 90.0 7 360.0 6 840.0 5 1260.0 4 1260.0 3 840.0 2 360.0 1 90.0 0 10.0)) 0 (Y 10 1.0 9 (X 1 10.0 0 10.0) 8 (X 2 45.0 1 90.0 0 45.0) 7 (X 3 120.0 2 360.0 1 360.0 0 120.0) 6 (X 4 210.0 3 840.0 2 1260.0 1 840.0 0 210.0) 5 (X 5 252.0 4 1260.0 3 2520.0 2 2520.0 1 1260.0 0 252.0) 4 (X 6 210.0 5 1260.0 4 3150.0 3 4200.0 2 3150.0 1 1260.0 0 210.0) 3 (X 7 120.0 6 840.0 5 2520.0 4 4200.0 3 4200.0 2 2520.0 1 840.0 0 120.0) 2 (X 8 45.0 7 360.0 6 1260.0 5 2520.0 4 3150.0 3 2520.0 2 1260.0 1 360.0 0 45.0) 1 (X 9 10.0 8 90.0 7 360.0 6 840.0 5 1260.0 4 1260.0 3 840.0 2 360.0 1 90.0 0 10.0 ) 0 (X 10 1.0 9 10.0 8 45.0 7 120.0 6 210.0 5 252.0 4 210.0 3 120.0 2 45.0 1 10.0 0 1.0))) Repeating the TIMEALL Elapsed Time = 548.0 seconds SWAP time = .349 seconds GC time = 136.0 seconds CPU Time = 412.0 seconds PAGEFAULTS = 14 SWAPWRITES = 14 FIXP FLOATP LISTP BIGNUM 54142 5496 334320 16330 Value = (Z 10 1.0 9 (Y 1 10.0 0 (X 1 10.0 0 10.0)) 8 (Y 2 45.0 1 (X 1 90.0 0 90.0) 0 (X 2 45.0 1 90.0 0 45.0)) 7 (Y 3 120.0 2 (X 1 360.0 0 360.0) 1 (X 2 360.0 1 720.0 0 360.0) 0 (X 3 120.0 2 360.0 1 360.0 0 120.0)) 6 (Y 4 210.0 3 ( X 1 840.0 0 840.0) 2 (X 2 1260.0 1 2520.0 0 1260.0) 1 (X 3 840.0 2 2520.0 1 2520.0 0 840.0) 0 (X 4 210.0 3 840.0 2 1260.0 1 840.0 0 210.0)) 5 (Y 5 252.0 4 (X 1 1260.0 0 1260.0) 3 (X 2 2520.0 1 5040.0 0 2520.0) 2 (X 3 2520.0 2 7560.0 1 7560.0 0 2520.0) 1 (X 4 1260.0 3 5040.0 2 7560.0 1 5040.0 0 1260.0) 0 (X 5 252.0 4 1260.0 3 2520.0 2 2520.0 1 1260.0 0 252.0)) 4 (Y 6 210.0 5 (X 1 1260.0 0 1260.0) 4 (X 2 3150.0 1 6300.0 0 3150.0) 3 (X 3 4200.0 2 12600.0 1 12600.0 0 4200.0) 2 (X 4 3150.0 3 12600.0 2 18900.0 1 12600.0 0 3150.0) 1 (X 5 1260.0 4 6300.0 3 12600.0 2 12600.0 1 6300.0 0 1260.0) 0 (X 6 210.0 5 1260.0 4 3150.0 3 4200.0 2 3150.0 1 1260.0 0 210.0)) 3 (Y 7 120.0 6 (X 1 840.0 0 840.0) 5 (X 2 2520.0 1 5040.0 0 2520.0) 4 (X 3 4200.0 2 12600.0 1 12600.0 0 4200.0) 3 (X 4 4200.0 3 16800.0 2 25200.0 1 16800.0 0 4200.0) 2 (X 5 2520.0 4 12600.0 3 25200.0 2 25200.0 1 12600.0 0 2520.0) 1 (X 6 840.0 5 5040.0 4 12600.0 3 16800.0 2 12600.0 1 5040.0 0 840.0) 0 (X 7 120.0 6 840.0 5 2520.0 4 4200.0 3 4200.0 2 2520.0 1 840.0 0 120.0)) 2 (Y 8 45.0 7 (X 1 360.0 0 360.0) 6 (X 2 1260.0 1 2520.0 0 1260.0) 5 (X 3 2520.0 2 7560.0 1 7560.0 0 2520.0) 4 (X 4 3150.0 3 12600.0 2 18900.0 1 12600.0 0 3150.0) 3 (X 5 2520.0 4 12600.0 3 25200.0 2 25200.0 1 12600.0 0 2520.0) 2 (X 6 1260.0 5 7560.0 4 18900.0 3 25200.0 2 18900.0 1 7560.0 0 1260.0) 1 (X 7 360.0 6 2520.0 5 7560.0 4 12600.0 3 12600.0 2 7560.0 1 2520.0 0 360.0) 0 (X 8 45.0 7 360.0 6 1260.0 5 2520.0 4 3150.0 3 2520.0 2 1260.0 1 360.0 0 45.0)) 1 (Y 9 10.0 8 (X 1 90.0 0 90.0) 7 (X 2 360.0 1 720.0 0 360.0) 6 (X 3 840.0 2 2520.0 1 2520.0 0 840.0) 5 (X 4 1260.0 3 5040.0 2 7560.0 1 5040.0 0 1260.0) 4 (X 5 1260.0 4 6300.0 3 12600.0 2 12600.0 1 6300.0 0 1260.0) 3 (X 6 840.0 5 5040.0 4 12600.0 3 16800.0 2 12600.0 1 5040.0 0 840.0) 2 (X 7 360.0 6 2520.0 5 7560.0 4 12600.0 3 12600.0 2 7560.0 1 2520.0 0 360.0) 1 (X 8 90.0 7 720.0 6 2520.0 5 5040.0 4 6300.0 3 5040.0 2 2520.0 1 720.0 0 90.0) 0 (X 9 10.0 8 90.0 7 360.0 6 840.0 5 1260.0 4 1260.0 3 840.0 2 360.0 1 90.0 0 10.0)) 0 (Y 10 1.0 9 (X 1 10.0 0 10.0) 8 (X 2 45.0 1 90.0 0 45.0) 7 (X 3 120.0 2 360.0 1 360.0 0 120.0) 6 (X 4 210.0 3 840.0 2 1260.0 1 840.0 0 210.0) 5 (X 5 252.0 4 1260.0 3 2520.0 2 2520.0 1 1260.0 0 252.0) 4 (X 6 210.0 5 1260.0 4 3150.0 3 4200.0 2 3150.0 1 1260.0 0 210.0) 3 (X 7 120.0 6 840.0 5 2520.0 4 4200.0 3 4200.0 2 2520.0 1 840.0 0 120.0) 2 (X 8 45.0 7 360.0 6 1260.0 5 2520.0 4 3150.0 3 2520.0 2 1260.0 1 360.0 0 45.0) 1 (X 9 10.0 8 90.0 7 360.0 6 840.0 5 1260.0 4 1260.0 3 840.0 2 360.0 1 90.0 0 10.0 ) 0 (X 10 1.0 9 10.0 8 45.0 7 120.0 6 210.0 5 252.0 4 210.0 3 120.0 2 45.0 1 10.0 0 1.0))) Starting POLY 15 run: (TIMEALL (BENCH 15)) Elapsed Time = 10000.0 seconds SWAP time = 1.44 seconds GC time = 2470.0 seconds CPU Time = 7530.0 seconds PAGEFAULTS = 187 SWAPWRITES = 45 FIXP FLOATP LISTP BIGNUM 1041160 42596 5707723 118947 Value = (Z 15 1.0 14 (Y 1 15.0 0 (X 1 15.0 0 15.0)) 13 (Y 2 105.0 1 (X 1 210.0 0 210.0) 0 (X 2 105.0 1 210.0 0 105.0)) 12 (Y 3 455.0 2 (X 1 1365.0 0 1365.0) 1 (X 2 1365.0 1 2730.0 0 1365.0) 0 (X 3 455.0 2 1365.0 1 1365.0 0 455.0)) 11 (Y 4 1365.0 3 (X 1 5460.0 0 5460.0) 2 (X 2 8190.0 1 16380.0 0 8190.0) 1 (X 3 5460.0 2 16380.0 1 16380.0 0 5460.0) 0 (X 4 1365.0 3 5460.0 2 8190.0 1 5460.0 0 1365.0)) 10 (Y 5 3003.0 4 (X 1 15015.0 0 15015.0) 3 (X 2 30030.0 1 60060.0 0 30030.0) 2 (X 3 30030.0 2 90090.0 1 90090.0 0 30030.0) 1 (X 4 15015.0 3 60060.0 2 90090.0 1 60060.0 0 15015.0) 0 (X 5 3003.0 4 15015.0 3 30030.0 2 30030.0 1 15015.0 0 3003.0)) 9 (Y 6 5005.0 5 (X 1 30030.0 0 30030.0) 4 (X 2 75075.0 1 150150.0 0 75075.0) 3 (X 3 100100.0 2 300300.0 1 300300.0 0 100100.0 ) 2 (X 4 75075.0 3 300300.0 2 450450.0 1 300300.0 0 75075.0) 1 (X 5 30030.0 4 150150.0 3 300300.0 2 300300.0 1 150150.0 0 30030.0) 0 (X 6 5005.0 5 30030.0 4 75075.0 3 100100.0 2 75075.0 1 30030.0 0 5005.0)) 8 (Y 7 6435.0 6 (X 1 45045.0 0 45045.0) 5 (X 2 135135.0 1 270270.0 0 135135.0) 4 (X 3 225225.0 2 675675.0 1 675675.0 0 225225.0) 3 (X 4 225225.0 3 900900.0 2 1351350.0 1 900900.0 0 225225.0) 2 (X 5 135135.0 4 675675.0 3 1351350.0 2 1351350.0 1 675675.0 0 135135.0) 1 (X 6 45045.0 5 270270.0 4 675675.0 3 900900.0 2 675675.0 1 270270.0 0 45045.0) 0 (X 7 6435.0 6 45045.0 5 135135.0 4 225225.0 3 225225.0 2 135135.0 1 45045.0 0 6435.0)) 7 (Y 8 6435.0 7 (X 1 51480.0 0 51480.0) 6 (X 2 180180.0 1 360360.0 0 180180.0) 5 (X 3 360360.0 2 1081080.0 1 1081080.0 0 360360.0) 4 (X 4 450450.0 3 1801800.0 2 2702700.0 1 1801800.0 0 450450.0) 3 (X 5 360360.0 4 1801800.0 3 3603600.0 2 3603600.0 1 1801800.0 0 360360.0) 2 (X 6 180180.0 5 1081080.0 4 2702700.0 3 3603600.0 2 2702700.0 1 1081080.0 0 180180.0) 1 (X 7 51480.0 6 360360.0 5 1081080.0 4 1801800.0 3 1801800.0 2 1081080.0 1 360360.0 0 51480.0) 0 (X 8 6435.0 7 51480.0 6 180180.0 5 360360.0 4 450450.0 3 360360.0 2 180180.0 1 51480.0 0 6435.0)) 6 (Y 9 5005.0 8 (X 1 45045.0 0 45045.0) 7 (X 2 180180.0 1 360360.0 0 180180.0) 6 (X 3 420420.0 2 1261260.0 1 1261260.0 0 420420.0) 5 (X 4 630630.0 3 2522520.0 2 3783780.0 1 2522520.0 0 630630.0) 4 (X 5 630630.0 4 3153150.0 3 6306300.0 2 6306300.0 1 3153150.0 0 630630.0) 3 (X 6 420420.0 5 2522520.0 4 6306300.0 3 8408400.0 2 6306300.0 1 2522520.0 0 420420.0) 2 (X 7 180180.0 6 1261260.0 5 3783780.0 4 6306300.0 3 6306300.0 2 3783780.0 1 1261260.0 0 180180.0) 1 (X 8 45045.0 7 360360.0 6 1261260.0 5 2522520.0 4 3153150.0 3 2522520.0 2 1261260.0 1 360360.0 0 45045.0) 0 (X 9 5005.0 8 45045.0 7 180180.0 6 420420.0 5 630630.0 4 630630.0 3 420420.0 2 180180.0 1 45045.0 0 5005.0)) 5 (Y 10 3003.0 9 (X 1 30030.0 0 30030.0) 8 (X 2 135135.0 1 270270.0 0 135135.0) 7 (X 3 360360.0 2 1081080.0 1 1081080.0 0 360360.0) 6 (X 4 630630.0 3 2522520.0 2 3783780.0 1 2522520.0 0 630630.0) 5 (X 5 756756.0 4 3783780.0 3 7567560.0 2 7567560.0 1 3783780.0 0 756756.0) 4 (X 6 630630.0 5 3783780.0 4 9459450.0 3 12612600.0 2 9459450.0 1 3783780.0 0 630630.0) 3 (X 7 360360.0 6 2522520.0 5 7567560.0 4 12612600.0 3 12612600.0 2 7567560.0 1 2522520.0 0 360360.0) 2 (X 8 135135.0 7 1081080.0 6 3783780.0 5 7567560.0 4 9459450.0 3 7567560.0 2 3783780.0 1 1081080.0 0 135135.0) 1 (X 9 30030.0 8 270270.0 7 1081080.0 6 2522520.0 5 3783780.0 4 3783780.0 3 2522520.0 2 1081080.0 1 270270.0 0 30030.0 ) 0 (X 10 3003.0 9 30030.0 8 135135.0 7 360360.0 6 630630.0 5 756756.0 4 630630.0 3 360360.0 2 135135.0 1 30030.0 0 3003.0)) 4 (Y 11 1365.0 10 (X 1 15015.0 0 15015.0) 9 (X 2 75075.0 1 150150.0 0 75075.0) 8 (X 3 225225.0 2 675675.0 1 675675.0 0 225225.0) 7 (X 4 450450.0 3 1801800.0 2 2702700.0 1 1801800.0 0 450450.0) 6 (X 5 630630.0 4 3153150.0 3 6306300.0 2 6306300.0 1 3153150.0 0 630630.0) 5 (X 6 630630.0 5 3783780.0 4 9459450.0 3 12612600.0 2 9459450.0 1 3783780.0 0 630630.0) 4 (X 7 450450.0 6 3153150.0 5 9459450.0 4 15765750.0 3 15765750.0 2 9459450.0 1 3153150.0 0 450450.0) 3 (X 8 225225.0 7 1801800.0 6 6306300.0 5 12612600.0 4 15765750.0 3 12612600.0 2 6306300.0 1 1801800.0 0 225225.0) 2 (X 9 75075.0 8 675675.0 7 2702700.0 6 6306300.0 5 9459450.0 4 9459450.0 3 6306300.0 2 2702700.0 1 675675.0 0 75075.0) 1 (X 10 15015.0 9 150150.0 8 675675.0 7 1801800.0 6 3153150.0 5 3783780.0 4 3153150.0 3 1801800.0 2 675675.0 1 150150.0 0 15015.0) 0 (X 11 1365.0 10 15015.0 9 75075.0 8 225225.0 7 450450.0 6 630630.0 5 630630.0 4 450450.0 3 225225.0 2 75075.0 1 15015.0 0 1365.0)) 3 (Y 12 455.0 11 (X 1 5460.0 0 5460.0) 10 (X 2 30030.0 1 60060.0 0 30030.0) 9 (X 3 100100.0 2 300300.0 1 300300.0 0 100100.0) 8 (X 4 225225.0 3 900900.0 2 1351350.0 1 900900.0 0 225225.0) 7 (X 5 360360.0 4 1801800.0 3 3603600.0 2 3603600.0 1 1801800.0 0 360360.0) 6 (X 6 420420.0 5 2522520.0 4 6306300.0 3 8408400.0 2 6306300.0 1 2522520.0 0 420420.0) 5 (X 7 360360.0 6 2522520.0 5 7567560.0 4 12612600.0 3 12612600.0 2 7567560.0 1 2522520.0 0 360360.0) 4 (X 8 225225.0 7 1801800.0 6 6306300.0 5 12612600.0 4 15765750.0 3 12612600.0 2 6306300.0 1 1801800.0 0 225225.0) 3 (X 9 100100.0 8 900900.0 7 3603600.0 6 8408400.0 5 12612600.0 4 12612600.0 3 8408400.0 2 3603600.0 1 900900.0 0 100100.0) 2 (X 10 30030.0 9 300300.0 8 1351350.0 7 3603600.0 6 6306300.0 5 7567560.0 4 6306300.0 3 3603600.0 2 1351350.0 1 300300.0 0 30030.0) 1 (X 11 5460.0 10 60060.0 9 300300.0 8 900900.0 7 1801800.0 6 2522520.0 5 2522520.0 4 1801800.0 3 900900.0 2 300300.0 1 60060.0 0 5460.0) 0 (X 12 455.0 11 5460.0 10 30030.0 9 100100.0 8 225225.0 7 360360.0 6 420420.0 5 360360.0 4 225225.0 3 100100.0 2 30030.0 1 5460.0 0 455.0)) 2 (Y 13 105.0 12 (X 1 1365.0 0 1365.0) 11 (X 2 8190.0 1 16380.0 0 8190.0) 10 (X 3 30030.0 2 90090.0 1 90090.0 0 30030.0) 9 (X 4 75075.0 3 300300.0 2 450450.0 1 300300.0 0 75075.0) 8 (X 5 135135.0 4 675675.0 3 1351350.0 2 1351350.0 1 675675.0 0 135135.0) 7 (X 6 180180.0 5 1081080.0 4 2702700.0 3 3603600.0 2 2702700.0 1 1081080.0 0 180180.0) 6 (X 7 180180.0 6 1261260.0 5 3783780.0 4 6306300.0 3 6306300.0 2 3783780.0 1 1261260.0 0 180180.0) 5 (X 8 135135.0 7 1081080.0 6 3783780.0 5 7567560.0 4 9459450.0 3 7567560.0 2 3783780.0 1 1081080.0 0 135135.0) 4 (X 9 75075.0 8 675675.0 7 2702700.0 6 6306300.0 5 9459450.0 4 9459450.0 3 6306300.0 2 2702700.0 1 675675.0 0 75075.0) 3 (X 10 30030.0 9 300300.0 8 1351350.0 7 3603600.0 6 6306300.0 5 7567560.0 4 6306300.0 3 3603600.0 2 1351350.0 1 300300.0 0 30030.0) 2 (X 11 8190.0 10 90090.0 9 450450.0 8 1351350.0 7 2702700.0 6 3783780.0 5 3783780.0 4 2702700.0 3 1351350.0 2 450450.0 1 90090.0 0 8190.0) 1 (X 12 1365.0 11 16380.0 10 90090.0 9 300300.0 8 675675.0 7 1081080.0 6 1261260.0 5 1081080.0 4 675675.0 3 300300.0 2 90090.0 1 16380.0 0 1365.0) 0 (X 13 105.0 12 1365.0 11 8190.0 10 30030.0 9 75075.0 8 135135.0 7 180180.0 6 180180.0 5 135135.0 4 75075.0 3 30030.0 2 8190.0 1 1365.0 0 105.0)) 1 (Y 14 15.0 13 (X 1 210.0 0 210.0) 12 (X 2 1365.0 1 2730.0 0 1365.0) 11 (X 3 5460.0 2 16380.0 1 16380.0 0 5460.0) 10 (X 4 15015.0 3 60060.0 2 90090.0 1 60060.0 0 15015.0) 9 (X 5 30030.0 4 150150.0 3 300300.0 2 300300.0 1 150150.0 0 30030.0) 8 (X 6 45045.0 5 270270.0 4 675675.0 3 900900.0 2 675675.0 1 270270.0 0 45045.0) 7 (X 7 51480.0 6 360360.0 5 1081080.0 4 1801800.0 3 1801800.0 2 1081080.0 1 360360.0 0 51480.0) 6 (X 8 45045.0 7 360360.0 6 1261260.0 5 2522520.0 4 3153150.0 3 2522520.0 2 1261260.0 1 360360.0 0 45045.0) 5 (X 9 30030.0 8 270270.0 7 1081080.0 6 2522520.0 5 3783780.0 4 3783780.0 3 2522520.0 2 1081080.0 1 270270.0 0 30030.0) 4 (X 10 15015.0 9 150150.0 8 675675.0 7 1801800.0 6 3153150.0 5 3783780.0 4 3153150.0 3 1801800.0 2 675675.0 1 150150.0 0 15015.0) 3 (X 11 5460.0 10 60060.0 9 300300.0 8 900900.0 7 1801800.0 6 2522520.0 5 2522520.0 4 1801800.0 3 900900.0 2 300300.0 1 60060.0 0 5460.0) 2 (X 12 1365.0 11 16380.0 10 90090.0 9 300300.0 8 675675.0 7 1081080.0 6 1261260.0 5 1081080.0 4 675675.0 3 300300.0 2 90090.0 1 16380.0 0 1365.0) 1 (X 13 210.0 12 2730.0 11 16380.0 10 60060.0 9 150150.0 8 270270.0 7 360360.0 6 360360.0 5 270270.0 4 150150.0 3 60060.0 2 16380.0 1 2730.0 0 210.0) 0 (X 14 15.0 13 210.0 12 1365.0 11 5460.0 10 15015.0 9 30030.0 8 45045.0 7 51480.0 6 45045.0 5 30030.0 4 15015.0 3 5460.0 2 1365.0 1 210.0 0 15.0)) 0 (Y 15 1.0 14 (X 1 15.0 0 15.0) 13 (X 2 105.0 1 210.0 0 105.0) 12 (X 3 455.0 2 1365.0 1 1365.0 0 455.0) 11 (X 4 1365.0 3 5460.0 2 8190.0 1 5460.0 0 1365.0) 10 (X 5 3003.0 4 15015.0 3 30030.0 2 30030.0 1 15015.0 0 3003.0) 9 (X 6 5005.0 5 30030.0 4 75075.0 3 100100.0 2 75075.0 1 30030.0 0 5005.0) 8 (X 7 6435.0 6 45045.0 5 135135.0 4 225225.0 3 225225.0 2 135135.0 1 45045.0 0 6435.0) 7 (X 8 6435.0 7 51480.0 6 180180.0 5 360360.0 4 450450.0 3 360360.0 2 180180.0 1 51480.0 0 6435.0) 6 (X 9 5005.0 8 45045.0 7 180180.0 6 420420.0 5 630630.0 4 630630.0 3 420420.0 2 180180.0 1 45045.0 0 5005.0) 5 (X 10 3003.0 9 30030.0 8 135135.0 7 360360.0 6 630630.0 5 756756.0 4 630630.0 3 360360.0 2 135135.0 1 30030.0 0 3003.0) 4 (X 11 1365.0 10 15015.0 9 75075.0 8 225225.0 7 450450.0 6 630630.0 5 630630.0 4 450450.0 3 225225.0 2 75075.0 1 15015.0 0 1365.0) 3 (X 12 455.0 11 5460.0 10 30030.0 9 100100.0 8 225225.0 7 360360.0 6 420420.0 5 360360.0 4 225225.0 3 100100.0 2 30030.0 1 5460.0 0 455.0) 2 (X 13 105.0 12 1365.0 11 8190.0 10 30030.0 9 75075.0 8 135135.0 7 180180.0 6 180180.0 5 135135.0 4 75075.0 3 30030.0 2 8190.0 1 1365.0 0 105.0) 1 (X 14 15.0 13 210.0 12 1365.0 11 5460.0 10 15015.0 9 30030.0 8 45045.0 7 51480.0 6 45045.0 5 30030.0 4 15015.0 3 5460.0 2 1365.0 1 210.0 0 15.0) 0 (X 15 1.0 14 15.0 13 105.0 12 455.0 11 1365.0 10 3003.0 9 5005.0 8 6435.0 7 6435.0 6 5005.0 5 3003.0 4 1365.0 3 455.0 2 105.0 1 15.0 0 1.0))) Repeating the TIMEALL Elapsed Time = 9990.0 seconds GC time = 2470.0 seconds CPU Time = 7520.0 seconds PAGEFAULTS = 14 FIXP FLOATP LISTP BIGNUM 1041160 42596 5707723 118947 Value = (Z 15 1.0 14 (Y 1 15.0 0 (X 1 15.0 0 15.0)) 13 (Y 2 105.0 1 (X 1 210.0 0 210.0) 0 (X 2 105.0 1 210.0 0 105.0)) 12 (Y 3 455.0 2 (X 1 1365.0 0 1365.0) 1 (X 2 1365.0 1 2730.0 0 1365.0) 0 (X 3 455.0 2 1365.0 1 1365.0 0 455.0)) 11 (Y 4 1365.0 3 (X 1 5460.0 0 5460.0) 2 (X 2 8190.0 1 16380.0 0 8190.0) 1 (X 3 5460.0 2 16380.0 1 16380.0 0 5460.0) 0 (X 4 1365.0 3 5460.0 2 8190.0 1 5460.0 0 1365.0)) 10 (Y 5 3003.0 4 (X 1 15015.0 0 15015.0) 3 (X 2 30030.0 1 60060.0 0 30030.0) 2 (X 3 30030.0 2 90090.0 1 90090.0 0 30030.0) 1 (X 4 15015.0 3 60060.0 2 90090.0 1 60060.0 0 15015.0) 0 (X 5 3003.0 4 15015.0 3 30030.0 2 30030.0 1 15015.0 0 3003.0)) 9 (Y 6 5005.0 5 (X 1 30030.0 0 30030.0) 4 (X 2 75075.0 1 150150.0 0 75075.0) 3 (X 3 100100.0 2 300300.0 1 300300.0 0 100100.0 ) 2 (X 4 75075.0 3 300300.0 2 450450.0 1 300300.0 0 75075.0) 1 (X 5 30030.0 4 150150.0 3 300300.0 2 300300.0 1 150150.0 0 30030.0) 0 (X 6 5005.0 5 30030.0 4 75075.0 3 100100.0 2 75075.0 1 30030.0 0 5005.0)) 8 (Y 7 6435.0 6 (X 1 45045.0 0 45045.0) 5 (X 2 135135.0 1 270270.0 0 135135.0) 4 (X 3 225225.0 2 675675.0 1 675675.0 0 225225.0) 3 (X 4 225225.0 3 900900.0 2 1351350.0 1 900900.0 0 225225.0) 2 (X 5 135135.0 4 675675.0 3 1351350.0 2 1351350.0 1 675675.0 0 135135.0) 1 (X 6 45045.0 5 270270.0 4 675675.0 3 900900.0 2 675675.0 1 270270.0 0 45045.0) 0 (X 7 6435.0 6 45045.0 5 135135.0 4 225225.0 3 225225.0 2 135135.0 1 45045.0 0 6435.0)) 7 (Y 8 6435.0 7 (X 1 51480.0 0 51480.0) 6 (X 2 180180.0 1 360360.0 0 180180.0) 5 (X 3 360360.0 2 1081080.0 1 1081080.0 0 360360.0) 4 (X 4 450450.0 3 1801800.0 2 2702700.0 1 1801800.0 0 450450.0) 3 (X 5 360360.0 4 1801800.0 3 3603600.0 2 3603600.0 1 1801800.0 0 360360.0) 2 (X 6 180180.0 5 1081080.0 4 2702700.0 3 3603600.0 2 2702700.0 1 1081080.0 0 180180.0) 1 (X 7 51480.0 6 360360.0 5 1081080.0 4 1801800.0 3 1801800.0 2 1081080.0 1 360360.0 0 51480.0) 0 (X 8 6435.0 7 51480.0 6 180180.0 5 360360.0 4 450450.0 3 360360.0 2 180180.0 1 51480.0 0 6435.0)) 6 (Y 9 5005.0 8 (X 1 45045.0 0 45045.0) 7 (X 2 180180.0 1 360360.0 0 180180.0) 6 (X 3 420420.0 2 1261260.0 1 1261260.0 0 420420.0) 5 (X 4 630630.0 3 2522520.0 2 3783780.0 1 2522520.0 0 630630.0) 4 (X 5 630630.0 4 3153150.0 3 6306300.0 2 6306300.0 1 3153150.0 0 630630.0) 3 (X 6 420420.0 5 2522520.0 4 6306300.0 3 8408400.0 2 6306300.0 1 2522520.0 0 420420.0) 2 (X 7 180180.0 6 1261260.0 5 3783780.0 4 6306300.0 3 6306300.0 2 3783780.0 1 1261260.0 0 180180.0) 1 (X 8 45045.0 7 360360.0 6 1261260.0 5 2522520.0 4 3153150.0 3 2522520.0 2 1261260.0 1 360360.0 0 45045.0) 0 (X 9 5005.0 8 45045.0 7 180180.0 6 420420.0 5 630630.0 4 630630.0 3 420420.0 2 180180.0 1 45045.0 0 5005.0)) 5 (Y 10 3003.0 9 (X 1 30030.0 0 30030.0) 8 (X 2 135135.0 1 270270.0 0 135135.0) 7 (X 3 360360.0 2 1081080.0 1 1081080.0 0 360360.0) 6 (X 4 630630.0 3 2522520.0 2 3783780.0 1 2522520.0 0 630630.0) 5 (X 5 756756.0 4 3783780.0 3 7567560.0 2 7567560.0 1 3783780.0 0 756756.0) 4 (X 6 630630.0 5 3783780.0 4 9459450.0 3 12612600.0 2 9459450.0 1 3783780.0 0 630630.0) 3 (X 7 360360.0 6 2522520.0 5 7567560.0 4 12612600.0 3 12612600.0 2 7567560.0 1 2522520.0 0 360360.0) 2 (X 8 135135.0 7 1081080.0 6 3783780.0 5 7567560.0 4 9459450.0 3 7567560.0 2 3783780.0 1 1081080.0 0 135135.0) 1 (X 9 30030.0 8 270270.0 7 1081080.0 6 2522520.0 5 3783780.0 4 3783780.0 3 2522520.0 2 1081080.0 1 270270.0 0 30030.0 ) 0 (X 10 3003.0 9 30030.0 8 135135.0 7 360360.0 6 630630.0 5 756756.0 4 630630.0 3 360360.0 2 135135.0 1 30030.0 0 3003.0)) 4 (Y 11 1365.0 10 (X 1 15015.0 0 15015.0) 9 (X 2 75075.0 1 150150.0 0 75075.0) 8 (X 3 225225.0 2 675675.0 1 675675.0 0 225225.0) 7 (X 4 450450.0 3 1801800.0 2 2702700.0 1 1801800.0 0 450450.0) 6 (X 5 630630.0 4 3153150.0 3 6306300.0 2 6306300.0 1 3153150.0 0 630630.0) 5 (X 6 630630.0 5 3783780.0 4 9459450.0 3 12612600.0 2 9459450.0 1 3783780.0 0 630630.0) 4 (X 7 450450.0 6 3153150.0 5 9459450.0 4 15765750.0 3 15765750.0 2 9459450.0 1 3153150.0 0 450450.0) 3 (X 8 225225.0 7 1801800.0 6 6306300.0 5 12612600.0 4 15765750.0 3 12612600.0 2 6306300.0 1 1801800.0 0 225225.0) 2 (X 9 75075.0 8 675675.0 7 2702700.0 6 6306300.0 5 9459450.0 4 9459450.0 3 6306300.0 2 2702700.0 1 675675.0 0 75075.0) 1 (X 10 15015.0 9 150150.0 8 675675.0 7 1801800.0 6 3153150.0 5 3783780.0 4 3153150.0 3 1801800.0 2 675675.0 1 150150.0 0 15015.0) 0 (X 11 1365.0 10 15015.0 9 75075.0 8 225225.0 7 450450.0 6 630630.0 5 630630.0 4 450450.0 3 225225.0 2 75075.0 1 15015.0 0 1365.0)) 3 (Y 12 455.0 11 (X 1 5460.0 0 5460.0) 10 (X 2 30030.0 1 60060.0 0 30030.0) 9 (X 3 100100.0 2 300300.0 1 300300.0 0 100100.0) 8 (X 4 225225.0 3 900900.0 2 1351350.0 1 900900.0 0 225225.0) 7 (X 5 360360.0 4 1801800.0 3 3603600.0 2 3603600.0 1 1801800.0 0 360360.0) 6 (X 6 420420.0 5 2522520.0 4 6306300.0 3 8408400.0 2 6306300.0 1 2522520.0 0 420420.0) 5 (X 7 360360.0 6 2522520.0 5 7567560.0 4 12612600.0 3 12612600.0 2 7567560.0 1 2522520.0 0 360360.0) 4 (X 8 225225.0 7 1801800.0 6 6306300.0 5 12612600.0 4 15765750.0 3 12612600.0 2 6306300.0 1 1801800.0 0 225225.0) 3 (X 9 100100.0 8 900900.0 7 3603600.0 6 8408400.0 5 12612600.0 4 12612600.0 3 8408400.0 2 3603600.0 1 900900.0 0 100100.0) 2 (X 10 30030.0 9 300300.0 8 1351350.0 7 3603600.0 6 6306300.0 5 7567560.0 4 6306300.0 3 3603600.0 2 1351350.0 1 300300.0 0 30030.0) 1 (X 11 5460.0 10 60060.0 9 300300.0 8 900900.0 7 1801800.0 6 2522520.0 5 2522520.0 4 1801800.0 3 900900.0 2 300300.0 1 60060.0 0 5460.0) 0 (X 12 455.0 11 5460.0 10 30030.0 9 100100.0 8 225225.0 7 360360.0 6 420420.0 5 360360.0 4 225225.0 3 100100.0 2 30030.0 1 5460.0 0 455.0)) 2 (Y 13 105.0 12 (X 1 1365.0 0 1365.0) 11 (X 2 8190.0 1 16380.0 0 8190.0) 10 (X 3 30030.0 2 90090.0 1 90090.0 0 30030.0) 9 (X 4 75075.0 3 300300.0 2 450450.0 1 300300.0 0 75075.0) 8 (X 5 135135.0 4 675675.0 3 1351350.0 2 1351350.0 1 675675.0 0 135135.0) 7 (X 6 180180.0 5 1081080.0 4 2702700.0 3 3603600.0 2 2702700.0 1 1081080.0 0 180180.0) 6 (X 7 180180.0 6 1261260.0 5 3783780.0 4 6306300.0 3 6306300.0 2 3783780.0 1 1261260.0 0 180180.0) 5 (X 8 135135.0 7 1081080.0 6 3783780.0 5 7567560.0 4 9459450.0 3 7567560.0 2 3783780.0 1 1081080.0 0 135135.0) 4 (X 9 75075.0 8 675675.0 7 2702700.0 6 6306300.0 5 9459450.0 4 9459450.0 3 6306300.0 2 2702700.0 1 675675.0 0 75075.0) 3 (X 10 30030.0 9 300300.0 8 1351350.0 7 3603600.0 6 6306300.0 5 7567560.0 4 6306300.0 3 3603600.0 2 1351350.0 1 300300.0 0 30030.0) 2 (X 11 8190.0 10 90090.0 9 450450.0 8 1351350.0 7 2702700.0 6 3783780.0 5 3783780.0 4 2702700.0 3 1351350.0 2 450450.0 1 90090.0 0 8190.0) 1 (X 12 1365.0 11 16380.0 10 90090.0 9 300300.0 8 675675.0 7 1081080.0 6 1261260.0 5 1081080.0 4 675675.0 3 300300.0 2 90090.0 1 16380.0 0 1365.0) 0 (X 13 105.0 12 1365.0 11 8190.0 10 30030.0 9 75075.0 8 135135.0 7 180180.0 6 180180.0 5 135135.0 4 75075.0 3 30030.0 2 8190.0 1 1365.0 0 105.0)) 1 (Y 14 15.0 13 (X 1 210.0 0 210.0) 12 (X 2 1365.0 1 2730.0 0 1365.0) 11 (X 3 5460.0 2 16380.0 1 16380.0 0 5460.0) 10 (X 4 15015.0 3 60060.0 2 90090.0 1 60060.0 0 15015.0) 9 (X 5 30030.0 4 150150.0 3 300300.0 2 300300.0 1 150150.0 0 30030.0) 8 (X 6 45045.0 5 270270.0 4 675675.0 3 900900.0 2 675675.0 1 270270.0 0 45045.0) 7 (X 7 51480.0 6 360360.0 5 1081080.0 4 1801800.0 3 1801800.0 2 1081080.0 1 360360.0 0 51480.0) 6 (X 8 45045.0 7 360360.0 6 1261260.0 5 2522520.0 4 3153150.0 3 2522520.0 2 1261260.0 1 360360.0 0 45045.0) 5 (X 9 30030.0 8 270270.0 7 1081080.0 6 2522520.0 5 3783780.0 4 3783780.0 3 2522520.0 2 1081080.0 1 270270.0 0 30030.0) 4 (X 10 15015.0 9 150150.0 8 675675.0 7 1801800.0 6 3153150.0 5 3783780.0 4 3153150.0 3 1801800.0 2 675675.0 1 150150.0 0 15015.0) 3 (X 11 5460.0 10 60060.0 9 300300.0 8 900900.0 7 1801800.0 6 2522520.0 5 2522520.0 4 1801800.0 3 900900.0 2 300300.0 1 60060.0 0 5460.0) 2 (X 12 1365.0 11 16380.0 10 90090.0 9 300300.0 8 675675.0 7 1081080.0 6 1261260.0 5 1081080.0 4 675675.0 3 300300.0 2 90090.0 1 16380.0 0 1365.0) 1 (X 13 210.0 12 2730.0 11 16380.0 10 60060.0 9 150150.0 8 270270.0 7 360360.0 6 360360.0 5 270270.0 4 150150.0 3 60060.0 2 16380.0 1 2730.0 0 210.0) 0 (X 14 15.0 13 210.0 12 1365.0 11 5460.0 10 15015.0 9 30030.0 8 45045.0 7 51480.0 6 45045.0 5 30030.0 4 15015.0 3 5460.0 2 1365.0 1 210.0 0 15.0)) 0 (Y 15 1.0 14 (X 1 15.0 0 15.0) 13 (X 2 105.0 1 210.0 0 105.0) 12 (X 3 455.0 2 1365.0 1 1365.0 0 455.0) 11 (X 4 1365.0 3 5460.0 2 8190.0 1 5460.0 0 1365.0) 10 (X 5 3003.0 4 15015.0 3 30030.0 2 30030.0 1 15015.0 0 3003.0) 9 (X 6 5005.0 5 30030.0 4 75075.0 3 100100.0 2 75075.0 1 30030.0 0 5005.0) 8 (X 7 6435.0 6 45045.0 5 135135.0 4 225225.0 3 225225.0 2 135135.0 1 45045.0 0 6435.0) 7 (X 8 6435.0 7 51480.0 6 180180.0 5 360360.0 4 450450.0 3 360360.0 2 180180.0 1 51480.0 0 6435.0) 6 (X 9 5005.0 8 45045.0 7 180180.0 6 420420.0 5 630630.0 4 630630.0 3 420420.0 2 180180.0 1 45045.0 0 5005.0) 5 (X 10 3003.0 9 30030.0 8 135135.0 7 360360.0 6 630630.0 5 756756.0 4 630630.0 3 360360.0 2 135135.0 1 30030.0 0 3003.0) 4 (X 11 1365.0 10 15015.0 9 75075.0 8 225225.0 7 450450.0 6 630630.0 5 630630.0 4 450450.0 3 225225.0 2 75075.0 1 15015.0 0 1365.0) 3 (X 12 455.0 11 5460.0 10 30030.0 9 100100.0 8 225225.0 7 360360.0 6 420420.0 5 360360.0 4 225225.0 3 100100.0 2 30030.0 1 5460.0 0 455.0) 2 (X 13 105.0 12 1365.0 11 8190.0 10 30030.0 9 75075.0 8 135135.0 7 180180.0 6 180180.0 5 135135.0 4 75075.0 3 30030.0 2 8190.0 1 1365.0 0 105.0) 1 (X 14 15.0 13 210.0 12 1365.0 11 5460.0 10 15015.0 9 30030.0 8 45045.0 7 51480.0 6 45045.0 5 30030.0 4 15015.0 3 5460.0 2 1365.0 1 210.0 0 15.0) 0 (X 15 1.0 14 15.0 13 105.0 12 455.0 11 1365.0 10 3003.0 9 5005.0 8 6435.0 7 6435.0 6 5005.0 5 3003.0 4 1365.0 3 455.0 2 105.0 1 15.0 0 1.0))) POLYNOMIAL finished Finished benchmarking \ No newline at end of file diff --git a/internal/gabriel/admin/Result-Log-Form.TEdit b/internal/gabriel/admin/Result-Log-Form.TEdit deleted file mode 100644 index e27396e6..00000000 Binary files a/internal/gabriel/admin/Result-Log-Form.TEdit and /dev/null differ diff --git a/internal/gabriel/aux/1000-SYMBOLS b/internal/gabriel/aux/1000-SYMBOLS deleted file mode 100644 index 53ea3c23..00000000 --- a/internal/gabriel/aux/1000-SYMBOLS +++ /dev/null @@ -1 +0,0 @@ -(\INTERPRETER SMALLP FIXP FLOATP LITATOM LISTP ARRAYP STRINGP STACKP \RECLAIMSTACKP CHARACTER VMEMPAGEP RELEASINGVMEMPAGE STREAM BITMAP COMPILED-CLOSURE ONED-ARRAY TWOD-ARRAY GENERAL-ARRAY \PTRHUNK2 \PTRHUNK4 \PTRHUNK5 \PTRHUNK6 \PTRHUNK7 \PTRHUNK8 \PTRHUNK10 \PTRHUNK12 \PTRHUNK16 \PTRHUNK24 \PTRHUNK32 \PTRHUNK42 \PTRHUNK64 \UNBOXEDHUNK1 \UNBOXEDHUNK2 \UNBOXEDHUNK3 \UNBOXEDHUNK4 \UNBOXEDHUNK5 \UNBOXEDHUNK6 \UNBOXEDHUNK7 \UNBOXEDHUNK8 \UNBOXEDHUNK9 \UNBOXEDHUNK10 \UNBOXEDHUNK12 \UNBOXEDHUNK14 \UNBOXEDHUNK16 \UNBOXEDHUNK20 \UNBOXEDHUNK24 \UNBOXEDHUNK28 \UNBOXEDHUNK32 \UNBOXEDHUNK40 \UNBOXEDHUNK48 \UNBOXEDHUNK64 \CODEHUNK12 \RECLAIMCODEBLOCK \CODEHUNK16 \CODEHUNK20 \CODEHUNK24 \CODEHUNK28 \CODEHUNK32 \CODEHUNK36 \CODEHUNK42 \CODEHUNK50 \CODEHUNK64 \RECLAIMARRAYBLOCK \UNKNOWN.UFN \CAR.UFN \CDR.UFN NTYPX \TYPEP.UFN \UNWIND.UFN \CHECKAPPLY* \HARDRETURN \RPLPTR.UFN \HTFIND ASSOC \SETGLOBALVAL.UFN \RPLACA.UFN \RPLACD.UFN \CONS.UFN FMEMB \FINDKEY.UFN \CREATECELL \BIN \POPDISP.UFN \RESTLIST.UFN \RPLCONS LISTGET \EVAL \TYPECHECK.UFN \STKSCAN \BUSBLT.UFN \MISC8.UFN \UNBOXFLOAT3 \TYPEMASK.UFN RAID \MISC7.UFN EQL \DRAWLINE.UFN \STORE.N.UFN \COPY.N.UFN \RETURN \ARG0 \MYARGCOUNT \READFLAGS \READRP \WRITEMAP \READPRINTERPORT.UFN \WRITEPRINTERPORT.UFN \PILOTBITBLT \RCLKSUBR \MISC1.UFN \MISC2.UFN \GCRECLAIMCELL \GCSCAN1 \GCSCAN2 \CONTEXTSWITCH \RETCALL %%AREF1 %%ASET1 \POP.N.UFN \ATOMCELL \GETBASEBYTE \INSTANCEP.UFN \BLT \MISC10.UFN \PUTBASEBYTE \PUTBASE.UFN \PUTBASEPTR.UFN \PUTBITS.UFN \ADDBASE \VAG2 \SLOWPLUS2 \SLOWDIFFERENCE \SLOWTIMES2 \SLOWQUOTIENT \SLOWIPLUS2 \SLOWIDIFFERENCE \SLOWITIMES2 \SLOWIQUOTIENT IREMAINDER \SLOWLLSH1 \SLOWLLSH8 \SLOWLRSH1 \SLOWLRSH8 \SLOWLOGOR2 \SLOWLOGAND2 \SLOWLOGXOR2 LSH \SLOWFPLUS2 \SLOWFDIFFERENCE \SLOWFTIMES2 \SLOWFQUOTIENT \UNBOXFLOAT2 \UNBOXFLOAT1 %%AREF2 %%ASET2 \SLOWIGREATERP \SLOWFGREATERP GREATERP EQUAL \BOXIPLUS \BOXIDIFFERENCE \FLOATBLT \FFTSTEP \MISC3.UFN \MISC4.UFN NILL %%= CDRCODING \SMALLP \FIXP \FLOATP \LITATOM \LISTP \ARRAYP \STRINGP \STACKP \CHARACTERP \VMEMPAGEP \STREAM \TT.TYPEMASK \TT.NOREF \TT.LISPREF \TT.FIXP \TT.NUMBERP \TT.ATOM \PMblockSize \STATSsize \NumPMTpages \EmptyPMTEntry \FirstVmemBlock \MAXVMPAGE \MAXVMSEGMENT \IFPValidKey \FirstMDSPage \MaxMDSPage \DefaultSecondMDSPage \MDSIncrement \PagesPerMDSUnit \ARRAYSPACE \FirstArraySegment \FirstArrayPage \ARRAYSPACE2 \DefaultSecondArrayPage \StackMask \FxtnBlock \GuardBlock \BFBlock \FreeStackBlock \NotStackBlock \MinExtraStackWords ERASECHARCODE \HT1CNT \HTSTKBIT \HTCNTMASK \HTMAINSIZE \HTCOLLSIZE \HTENDFREE \HTFREEPTR \ATOMSPACE \AtomHI \CHARHI \AtomHashTable \AtomHTpages \LastAtomPage \MaxAtomFrLst \SMALLPOSPSPACE \SmallPosHi \SMALLNEGSPACE \SmallNegHi \NumSmallPages \PNPSPACE \PNAME.HI \DEFSPACE \DEF.HI \VALSPACE \VAL.HI \PLISTSPACE \PLIST.HI \PAGEMAP \NumPageMapPages \PageMapTBL \InterfacePage \IOPAGE \DoveIORegion \IOCBPAGE \FPTOVP \MDSTypeTable \MDSTTsize \MISCSTATS \UFNTable \UFNTableSize \DTDSpaceBase \DTDSize \LISTPDTD \EndTypeNumber \LOCKEDPAGETABLE \NumLPTPages \STACKSPACE \GuardStackAddr \LastStackAddr \STACKHI \HTMAIN \HTMAINnpages \HTOVERFLOW \HTBIGCOUNT \HTCOLL \DISPLAYREGION \D1BCPLspace \D0BCPLspace \CurrentFXP \ResetFXP \SubovFXP \KbdFXP \HardReturnFXP \GCFXP \FAULTFXP \MiscFXP \TeleRaidFXP DCB.EM DISPINTERRUPT.EM CURSORBITMAP.EM KBDAD0.EM KBDAD1.EM KBDAD2.EM KBDAD3.EM UTILIN.EM CURSORX.EM CURSORY.EM MOUSEX.EM MOUSEY.EM \LispKeyMask \BcplKeyMask \DOLPHIN \DORADO \DANDELION \DAYBREAK \VP.DISPLAY \NP.DISPLAY \NP.WIDEDOVEDISPLAY \WIDEDOVEDISPLAYWIDTH \RP.AFTERDISPLAY \RP.AFTERDOVEDISPLAY \RP.DISPLAY \RP.TEMPDISPLAY \RP.MISCLOCKED \RP.STACK \VP.STACK \RP.MAP \NP.MAP \RP.IOPAGE \RP.DOVEIOCBPAGE \RP.DOVEIORGN \VP.DOVEIORGN \DOVEIORGNSIZE \VP.IOPAGE \VP.IFPAGE \VP.FPTOVP \NP.FPTOVP \RP.FPTOVP \RP.STARTBUFFERS \VP.TYPETABLE \NP.TYPETABLE \RP.TYPETABLE \VP.GCTABLE \NP.GCTABLE \RP.GCTABLE \VP.GCOVERFLOW \NP.GCOVERFLOW \RP.GCOVERFLOW \FP.IFPAGE \VP.IOCBS \VP.PRIMARYMAP \VP.SECONDARYMAP \VP.LPT \VP.INITSCRATCH \VP.RPT \VP.BUFFERS \DL.PROCESSORBUSY \DL.SETTOD \DL.READTOD \DL.READPID \DL.BOOTBUTTON \FAULTINIT \MAKEFRAME \SET.VMEM.FULL.STATE \SETIOPOINTERS \D01.FAULTINIT \DOVE.FAULTINIT \DL.FAULTINIT \MP.ERROR \MISCSTACKBASE \DOMISCAPPLY \KBDSTACKBASE \DUMMYKEYHANDLER \KEYHANDLER \DOFAULTINIT \GUARDVMEMFULL \LASTVMEMFILEPAGE \MACHINETYPE \LASTDIRTYSCANPTR \D01.ASSIGNBUFFERS \CHAIN.UP.RPT \RCLKSECOND \RCLKMILLISECOND \RPTSIZE \RPOFFSET \REALPAGETABLE \VMEMACCESSFN \M44ACTONVMEMFILE NPAGES EXTRALEN EMLEN EMBUF \INITBFS \EMUBUFFERS \EMUSWAPBUFFERS \EMUDISKBUFEND \#DISKBUFFERS \EMUDISKBUFFERS \#SWAPBUFFERS \#EMUBUFFERS \MAXSWAPBUFFERS \TELERAIDBUFFER \EMBUFRP \EMBUFVP \EMBUFBASE \DoveDisplay.TurnOn SETMAINTPANEL \DoveDisk.Init \DoveMisc.ReadHostID \DoveMisc.ReadGMT \DL.NEWFAULTINIT \VMEM.FULL.STATE \DOVE.ACTONVMEMFILE \DL.DISKINIT \DL.ACTONVMEMFILE NBUFFERS LASTREALPAGE RPTBASE FPBASE FIRSTVP RPSIZE NEXTBANK0 NDISPLAYPAGES FIRSTRP RPTPAGES VP IOCBRP IFPAGERP FIRSTUSEFULRP SCRATCHBASE SCRATCHVP FIRSTBUFFERRP NREALPAGES \DL.ASSIGNBUFFERS \DL.MARK.PAGES.UNAVAILABLE \CLEARWORDS \DL.UNMAPPAGES \DoveDisplay.ScreenWidth \DoveIO.InitializeIORegionPtrs \LOCKEDPAGEP \MaxScreenPage FP LASTFP FIRSTFP LASTRP BASE FIRSTUSED LASTUSED LASTEMPTY \RPTLAST \FAULTHANDLER \PAGEFAULT FILEPAGE FLAGS PTR \CLOCK0 \ASSURE.FPTOVP.PAGE \LOADVMEMPAGE \INVALIDADDR \LOOKUPPAGEMAP \NEWVMEMPAGEADDED ADDR \INVALIDVP IFVP NEWFP RPTR FROMFLUSHVM RPTINDEX \FLUSHPAGE \TRANSFERPAGE \DIRTYPAGEHINT \VMEM.PURE.LIMIT SRPTR SRINDEX SPECIALRP DONTMOVETOPFLG LOCK? NEWPAGEFLG VPAGE \MOVEREALPAGE \SPECIALRP \SELECTREALPAGE \UPDATECHAIN \PAGEFAULTCOUNTER \UPDATECHAINFREQ SOURCEFLAGS SOURCEVP DESTRPT DESTINDEX SOURCERPT SOURCEINDEX \VALIDADDRESSP TEMP LLSH PREVINDEX PREVRPT DISTANCE CNTR TRIES REMOVE \VMEM.INHIBIT.WRITE \MAXSHORTSEEK NEW \MINSHORTSEEK \MAXCLEANPROBES NEWFLAGS NEWPAGE? WRITE? FLIPCURSORBAR \LASTACCESSEDVMEMPAGE HEAD1 CHAIN1 CHAIN0 \DIRTYPAGECOUNTER \INTERRUPTABLE NOERROR \NEWPAGE \LOCKPAGES \DONEWPAGE ERRCODE NEXTPM LOCKBASE MAPBASE INTERNALFLG \MAKESPACEFORLOCKEDPAGE OLDVP DESIREDFP \MOVEVMEMFILEPAGE RP OLDFP \NEWEPHEMERALPAGE \DONEWEPHEMERALPAGE PREVRP \DOLOCKPAGES NEWRPT NEWINDEX MASK RPINDEX \TEMPLOCKPAGES \DOTEMPLOCKPAGES \TEMPUNLOCKPAGES HELP \UNLOCKPAGES VAR \FLUSHVM SET \FLUSHVMOK? \SYSTEMCACHEVARS \DOFLUSHVM FAST \LOGOUT0 \LISPFINISH \DoveMisc.BootButton IFPRPT SCRATCHBUF IFPVP \DOCOMPRESSVMEM VMEM.COMPRESS.FLG \RELEASEWORKINGSET CNT NUMDIRTY MINDIRTY \WRITEDIRTYPAGE \DIRTYSEEKMAX \WRITEDIRTYPAGE1 \LASTDIRTYCNT \LASTDIRTYFOUND RESULT FLAGBITS TYPE \COUNTREALPAGES \ILLEGAL.ARG OCCUPIED LOCKED DIRTY REF OLDVIW EMPTYFP FLG VMEM.PURE.STATE 32MBADDRESSABLE \PENDINGINTERRUPT \INTERRUPTSTATE \SET.LASTVMEMFILEPAGE HELPFLAG SI::*CLEANUP-FORMS* SI::*UNWIND-PROTECT* CL:CERROR CONCAT \M44EXTENDVMEMFILE BREAK! \EXTENDINGVMEMFILE \DOVMEMFULLINTERRUPTA0001 SI::*RESETFORMS* \DOVMEMFULLINTERRUPT CL:VALUES-LIST SI::RESETUNWIND \MVLIST MSG ERROR LOGOUT ARG2 ARG1 STRING CODE WRITEFLAG BUFFER \ACTONVMEMFILE LASTONE FIRSTONE STATE OUTSTREAM *PRINT-BASE* FILE MODE \SHOWPAGETABLE TERPRI PRIN1 SPACES PRINTNUM TAB \PRINTVP GETSTREAM CHAIN OUTPUT FIX CHAINLOCKED CHAINOCCUPIED NUMLOCKED NUMOCCUPIED CHECKPAGEMAP CHECKFPTOVP1 CHECKFPTOVP FP2 NEXTTYPE NEXTLOCKED LOCKEDP NEXTVP NEXTFP LASTVP VPRAWFLG TYPEFLG NWORDS FIRSTPAGE \PRINTFPTOVP TYPENAME FN \LOCKFN \LOCKCODE \LOCKCELL CODEBLOCK \LOCKWORDS \#BLOCKDATACELLS \LOCKVAR NPGS DUMMY \uCodeCheck was\StackOverflow \NWWInterrupt was\PageFault \StatsOverflow NOOPSUBR \BACKGROUNDSUBR CL:VECTOR PASS \CHECKBCPLPASSWORD DISKPARTITION \DFSCurrentVolume MACHINETYPE DOVE DANDELION DOLPHIN DORADO CHARCODE DSPBOUT AC2 AC1 AC0 \DSPRATE FID \GATHERSTATS \GETPACKETBUFFER \MOREVMEMFILE MESS2 MESS1 \READRAWPBI PBI \WRITERAWPBI SETSCREENCOLOR RASTERWIDTH SHOWDISPLAY \PUPLEVEL1STATE X10 X9 X8 X7 X6 X5 X4 X3 X2 X1 \WRITESTATS \COPYSYS0SUBR DD CB CBSTART DSK AFTER \M44DOEXTENDVMEMFILE \SWAPREQUESTBLOCK \ISFMAP \ISFCHUNKSIZE \ISFSCRATCHCAS \ISFSCRATCHDAS \MAXDISKDAs \EMUSCRATCH \SYSDISK \SPAREDISKWRITEBUFFER \MAINDISK HERE NUM \TESTPARTITION BUF CA FIXEDBUF REQUEST LASTNC EMFIXEDCA EMFID EMDAs EMCAs EMBUFS EMBLOCK CAs HINTLASTPAGE ReturnOnCheckError LASTACTION LASTNUMCHARSCONS ACTION LASTPAGE DAorigin DAs BUFFERS \ACTONDISKPAGES \DISKERROR \CLEARBYTES \DOACTONDISKPAGES \DISKREQUESTBLOCK LASTNUMCHARS \WRITEDISKPAGES \OPENDISKDESCRIPTOR \DOWRITEDISKPAGES M44.SIGNAL.DISK.ERROR EC FILENAME \LISPERROR OK \ACTONVMEMPAGES \WRITEVMEMPAGES PAGENO THISACTION NEXTCB CURRENTPAGE RETURNONCHECKERROR DAS CAS CLEANUPFN \DODISKCOMMAND \GETDISKCB \CLEANUPDISKQUEUE LAB LASTVDA NEXTNEWPAGE FIRSTNEWPAGE \REALDISKDA \M44MARKPAGEFREE \ASSIGNDISKPAGE \CHECKFREEPAGE STATUS LASTCB NEXT LA SHORTCB VDA \CLEARCB LVDA LABEL FREE \VIRTUALDISKDA \DISKDEBUG REALDA CHUNK PAGE WRITEFLG \LOOKUPFMAP OLDLASTPAGE ADD.PROCESS \M44FLUSHDISKDESCRIPTOR \M44.READY \M44VMEMEXTENDED P1 LASTPAGEOFFSET LASTPAGEADDR LASTPAGEWRITTEN LASTPAGEREAD NP FIRSTDA LASTFULLPAGE LASTNEEDEDPAGE \EXTENDISFMAP DA NPIECES FLASHWINDOW CREATEW \M44VMEMFRAGMENTS \FRAGMENTATIONWARNED CL:ERROR \FIXP.FROM.FLOATP :MESSAGE :VALUE :NAME :EXPECTED-TYPE XCL:TYPE-MISMATCH RATIO COMPLEX NOT CL:NUMBER AND \GETBASE \PUTBASE N.FD BYTE DISP EVENP \GETBASEPTR \PUTBASEPTR \HILOC \LOLOC EQ FEQP VAL OFFSET OBJ \RPLPTR LOC VAG \LONUM \HINUM \NEW4PAGE CONS \NEXTCONSPAGE \DORECLAIM \RECLAIM.COUNTDOWN CAR CDR CAR/CDRERR RPLACA RPLACD LST ITEM DOCOLLECT ENDCOLLECT LINK \INITCONSPAGE \ALLOCMDSPAGE FIRSTN LASTN TAIL ARGN KEY CHECKCONSPAGES \MAPMDS \CHECKCONSPAGE PN NXT WORDSPERCELL of CDRCODE fetch SETQ NEQ NEXTCELL CONSPAGE STREAMPROP GETSTREAMPROP PUTSTREAMPROP PROP OLDVALUE VALUE LISTPUT STREAMP *READTABLE* \STREAM.DEFPRINT \GETACCESS OCTALSTRING BOTH INPUT READTABLEP SHOULDNT APPEND ACCESS \SETACCESS FDEV \STREAM.NOT.OPEN DEV NAME \DEFINEDEVICE U-CASE DREMOVE \DEVICENAMETODEVICE \FILEDEVICENAMES \FILEDEVICES DONTCREATE \GETDEVICEFROMNAME \GETDEVICEFROMHOSTNAME FILENAMEFIELD HOST HOSTN \REMOVEDEVICE NAMES \REMOVEDEVICE.NAMES \CLOSEFILE IMAGEOPS \DELETEFILE \ADD.CONNECTED.DIR INTERLISP-NAMESTRING PATHNAME \DEVICEEVENTA0001 EVENT \DEVICEEVENT REVERSE \MAP-OPEN-STREAMS BEFORESAVEVM BEFORESYSOUT BEFOREMAKESYS BEFORELOGOUT OPTIONS DESIREDPROPS PATTERN \GENERATEFILES NAMEONLY GENOBJ \GENERATENEXTFILE ATTRIBUTE \GENERATEFILEINFO RECOG \GETFILENAME \GETFILENAME.OR.STREAM \GENERIC.OUTFILEP PACKFILENAME BODY VERSION OLD PARAMETERS \OPENFILE \DO.PARAMS.AT.OPEN \IOMODEP CHARSET SETFILEINFO ENDOFSTREAMOP NEWFILE OLDFILE \RENAMEFILE \REVALIDATEFILE CHANGED DELETED DEVICE \PAGED.REVALIDATEFILELST \PRINT-REVALIDATION-RESULT FORGETPAGES RESTOREMAP \PAGED.REVALIDATEFILE AFTERCLOSE LIST \PAGED.REVALIDATEFILES COPY \BUFFERED.REVALIDATEFILE \BUFFERED.REVALIDATEFILELST LASTOFFSET \TRUNCATEFILE \FILE-CONFLICT \GENERATENOFILES \NULLFILEGENERATOR STRPOS NTHCHARCODE STAR NOSTAR \NOFILESINFOFN \NOFILESNEXTFILEFN ESC CONSTANT GENFILESTATE INFILEP PACKFILENAME.STRING FULLNAME OLDEST DONE GENSTATE GETFILEINFO \FILE.NOT.OPEN \FILE.WONT.OPEN \ILLEGAL.DEVICEOP \IS.NOT.RANDACCESSP \FDEVINSTANCEA0002 ATTRIB \FDEVINSTANCEA0005 OTHERINFO CDNAME \FDEVINSTANCEA0008 BUFFERLIST \FDEVINSTANCEA0011 \FDEVINSTANCEA0014 \FDEVINSTANCEA0017 \FDEVINSTANCEA0020 OLDSTREAM \FDEVINSTANCEA0023 \FDEVINSTANCEA0026) \ No newline at end of file diff --git a/internal/gabriel/aux/2000-FLOATS-TO-READ b/internal/gabriel/aux/2000-FLOATS-TO-READ deleted file mode 100644 index 23848d43..00000000 --- a/internal/gabriel/aux/2000-FLOATS-TO-READ +++ /dev/null @@ -1 +0,0 @@ -(89955.03 48956.06 68030.08 41964.414 13708.356 54283.04 52747.215 21308.031 73458.164 98603.19 55239.08 17591.092 33091.242 68570.25 41383.46 52817.05 30803.367 4514.145 29520.025 37694.04 57228.336 43578.047 62744.406 72768.07 7180.015 50824.145 82025.234 24087.127 52167.043 47802.28 18962.111 91771.234 38398.09 49776.484 10382.261 92014.164 36335.066 76775.39 58134.15 937.1107 51552.15 40650.086 10354.196 77993.49 67213.11 22800.055 70197.05 82508.24 16435.021 20218.28 29090.11 94286.484 968.00507 93461.0 22278.393 68819.04 37932.06 62935.035 98236.195 24356.043 7494.19 1926.0354 72596.26 10403.017 60833.426 5143.2476 59728.367 95272.49 42229.305 78528.0 3228.0398 58648.453 108.05118 22057.236 37148.45 92174.12 65194.05 51352.137 49961.082 93120.34 40886.387 14310.119 90661.27 94418.414 62080.266 46392.04 77651.48 87168.016 82727.11 61850.13 38977.19 7492.1235 70110.03 54631.297 24791.33 58332.113 23434.422 25782.174 69115.34 31302.127 65521.445 97074.03 78551.016 45590.07 91673.43 59690.0 54676.023 25433.443 93303.45 2956.3086 98637.15 22634.285 39768.453 36848.49 11910.428 62125.15 44567.06 50120.02 65113.15 64921.07 12774.242 30195.053 80922.125 22509.484 75553.09 51619.414 41609.027 4324.1846 92077.086 70657.12 73910.39 4885.1353 67637.18 40726.098 5305.146 81671.16 90077.22 13329.377 93037.21 11386.096 67358.1 93607.13 70069.01 32313.426 8961.004 97908.44 28336.13 34630.42 14882.027 11273.309 43749.035 44122.03 81642.11 18566.11 78139.39 49646.04 68243.05 21601.309 45973.22 67137.27 57001.33 49898.29 42455.074 72392.35 63238.023 72875.43 98559.21 1188.0908 9355.398 45094.008 43284.46 38786.08 90666.086 74197.13 65584.4 17529.463 59700.15 11558.136 13814.019 20801.139 56432.402 22639.117 95907.48 49077.11 85407.23 10749.004 22458.006 65179.063 83354.055 45997.05 18354.172 391.01755 16770.248 6448.044 203.47803 35697.137 61443.117 72950.13 80100.12 5807.011 66971.24 19311.201 2467.0674 73796.49 46788.06 78779.086 35180.23 75172.41 14468.424 38893.26 49481.12 78665.055 81103.35 5280.0063 57620.027 40297.227 55237.32 1644.0497 51212.36 11721.066 36897.258 73535.09 82326.43 91302.11 45624.06 19827.35 13181.263 62776.188 56939.18 10260.01 25135.205 35286.19 94379.05 80922.35 59288.098 58866.063 19607.09 20992.213 35347.227 55759.043 75917.25 28955.08 27424.322 11321.074 29678.002 97695.266 69102.15 73100.02 44467.457 33577.016 32216.088 58484.426 14709.119 50825.098 42017.47 52701.145 44124.406 93558.32 52294.133 23822.025 63851.13 32065.443 21395.418 32748.094 3404.3384 41161.33 40069.11 17440.3 68260.06 66778.01 12068.083 19302.092 51523.33 99372.11 16605.385 16917.033 33993.184 96240.12 12621.094 470.09772 20695.492 64931.164 32556.02 86591.48 99074.34 69251.46 29148.33 69575.07 24736.188 71192.06 25477.06 18362.002 9014.275 1957.4098 55345.113 58237.355 49892.016 16179.008 71641.414 64175.18 76793.04 38965.105 16431.46 57128.363 17121.438 36125.074 33159.023 12385.04 90779.29 31882.451 97816.28 10321.053 66811.39 12752.105 2992.1255 55494.434 23630.076 62278.453 9463.316 33462.066 58008.355 1288.1459 34043.08 42373.188 57153.004 81431.35 24318.191 53152.15 62445.098 40037.047 91971.336 54775.01 66250.266 99486.22 97317.164 2037.0662 99816.336 32544.238 45944.402 90559.1 71160.47 40384.043 98991.26 61133.43 46065.406 86889.08 94522.1 59476.117 52656.02 4151.027 85226.14 94757.26 1245.0309 18699.3 22574.29 57776.008 46480.12 82473.48 72152.1 13049.122 12029.087 20280.07 25537.434 51977.32 8135.3926 30461.047 91952.21 83845.01 14531.345 34519.28 99631.34 8602.15 54790.043 28684.06 8516.109 39159.363 96415.38 11389.13 69185.336 74264.39 3611.0771 65684.23 78833.1 2213.4924 60957.01 30223.426 51548.04 48489.465 70498.49 72803.16 37701.49 43443.035 13898.498 88613.15 4276.307 55239.145 45909.11 13182.008 21167.441 94019.27 91872.42 40258.184 44138.035 93541.375 27680.135 93451.125 884.0607 2271.4587 67504.1 80029.4 88739.4 56477.016 86918.195 85282.13 68820.06 47066.348 12083.152 82193.33 33291.453 63885.066 44013.035 6493.366 15015.122 21154.455 6624.0283 72245.07 11300.256 1950.3064 5576.1016 56127.082 88279.17 10413.373 85865.09 93929.14 86929.17 47408.188 95879.18 29268.129 86350.24 31622.188 83429.09 48651.32 7941.3755 16708.203 15792.456 53625.273 72515.28 89907.36 40295.4 75191.05 50007.066 34138.492 58140.074 56181.438 22624.072 96137.05 26505.064 31153.129 27611.262 42257.484 18368.242 90501.164 35974.344 77081.086 39591.18 58749.016 92646.32 15305.115 90838.29 3429.0103 89670.28 39425.188 24717.5 10076.067 75337.26 40393.223 73222.49 45690.438 39101.406 55887.227 1524.0836 95922.18 48292.184 24118.457 1264.1555 89280.02 45767.133 17679.377 66073.09 90368.266 6143.2275 20248.18 3947.2527 95897.31 89804.05 80826.44 10719.037 70353.27 78287.25 72151.4 67400.01 16042.446 87996.11 15117.127 93085.07 58381.12 20422.018 65704.18 33089.32 17030.209 81731.5 83305.164 75052.01 73532.03 47487.23 33608.023 12999.009 55266.38 94776.24 7503.43 67597.445 1404.0088 54610.02 10770.274 48705.1 33928.063 39587.023 67237.01 58584.355 87687.3 27676.045 69990.16 37964.113 21586.105 93311.336 56069.203 33441.27 48174.3 82266.49 59868.24 88089.02 26682.404 31419.045 30614.39 77238.22 15790.427 5155.152 17032.404 64836.098 4448.39 16828.004 73580.375 63140.113 89808.195 23675.236 52207.004 49916.082 22152.115 37035.25 36924.043 85981.09 51055.27 80312.1 59350.266 20677.246 91846.055 6466.029 96345.19 52514.21 56076.016 76424.016 19364.006 20717.057 2210.131 59796.15 31099.043 8102.003 11284.027 36047.14 18180.014 9958.016 60486.45 67740.19 34391.477 70136.055 65235.44 35081.12 84212.06 6682.483 11815.455 79794.09 99473.04 93893.266 20700.313 27405.283 25634.191 87404.4 73368.21 48637.027 63186.285 91771.28 35495.113 8882.224 16648.207 15739.414 8631.22 45480.426 62538.074 19171.248 88384.414 40248.25 11804.351 89277.375 14950.124 29148.195 27923.104 75512.12 75983.32 73492.3 42793.156 73217.06 72899.02 75422.02 39093.44 3337.3528 62072.074 19162.375 26712.154 29841.027 82976.31 45679.074 44520.19 61691.066 13818.419 86219.36 98939.04 38672.004 75817.13 76415.2 48566.176 50806.137 5138.0117 83619.086 12413.366 33248.438 35748.367 22600.021 99657.45 86987.26 19511.469 38281.418 41769.07 45874.117 14113.149 53401.203 16068.15 53339.383 18608.31 59137.03 30601.463 26672.14 62702.383 97630.0 17400.227 95811.04 66911.086 85343.12 85007.31 67682.09 86328.016 37849.32 50261.098 42140.14 63913.375 65521.063 13621.051 12977.086 733.0269 65913.18 59607.203 52182.26 86572.39 78084.445 64152.48 22734.05 90738.13 62022.188 35661.47 91711.13 98425.12 54823.44 64824.13 69076.22 15870.152 3745.442 22054.002 73069.5 54078.11 99242.02 27449.072 20372.447 56.49764 70667.32 7981.139 87498.26 80989.016 88727.234 95134.09 42902.45 69016.06 31108.14 31681.377 69990.16 88558.07 39173.11 95442.33 36036.184 30774.473 77099.02 80343.07 84602.21 50804.484 82918.03 38620.46 92656.3 42282.156 16156.22 41485.023 88474.09 46052.246 84965.336 37592.37 67834.03 77075.13 27856.041 4717.3984 96463.43 5453.0356 95416.0 72545.36 45435.066 97946.03 90638.3 77194.02 69308.016 42983.277 3710.1472 27262.379 93034.21 58370.11 67656.03 1516.1195 96773.33 482.1418 70809.41 79990.13 31112.498 76953.06 6512.2363 30322.467 6385.4873 83582.34 287.05667 2266.0269 56250.484 33168.047 62850.125 2004.4001 54340.055 30606.14 68496.086 64563.09 87905.13 5865.1143 48536.445 18476.105 24931.252 34319.29 13807.104 49446.14 55749.16 51378.152 12816.151 40599.28 13412.019 46573.27 79289.08 13597.486 68928.234 91714.12 92457.03 56280.47 79449.44 14326.427 61534.34 29605.385 24631.44 14519.302 94382.32 32853.184 97383.06 2667.2087 26542.209 67844.266 70970.29 63793.254 68384.02 5580.3315 73591.47 12891.1465 44989.043 22464.393 80277.28 4898.2456 14846.192 3078.4639 48811.313 980.42065 78861.25 84428.195 85741.11 50261.418 80774.4 1988.3198 12288.286 82851.11 33000.145 87253.02 1389.0554 36079.16 21703.45 46291.145 56656.395 24281.371 4805.11 96946.086 48927.164 64055.49 12152.032 52435.5 44769.258 63954.125 2682.4878 12101.117 34202.234 91801.13 10962.189 38944.176 69134.47 72387.33 98132.06 53892.457 82408.414 71746.39 39240.113 2811.0872 51337.23 5584.4165 99940.14 48109.008 13604.274 82325.01 8088.022 81767.36 16403.074 89593.234 79230.07 8454.068 4103.4067 18079.11 61591.2 32727.02 92149.47 99433.13 71551.305 89982.16 30646.047 66143.49 4847.298 12194.058 61660.18 97619.44 87473.12 8197.115 5666.356 17242.11 72227.27 21321.06 98852.445 782.17444 90276.35 96027.125 42159.387 82883.164 47452.035 737.2839 83890.02 24851.121 46120.316 85189.02 20109.084 76960.07 30099.123 44913.047 92964.086 70489.27 82934.1 18507.396 61619.344 18866.096 96873.45 33763.117 66956.195 41115.137 30137.227 23917.133 17059.193 7844.0845 44837.082 15120.306 42664.16 43536.027 23896.104 75018.49 98660.07 12751.065 30769.053 20794.313 36525.438 28485.045 79920.21 87063.05 34797.113 35166.316 50386.082 57058.066 53485.004 4726.0747 22608.121 89774.195 76595.08 59714.316 93315.21 53863.277 29976.307 57498.13 63578.297 70230.195 65734.12 49568.418 50815.098 88322.5 18458.04 415.1374 18935.113 76542.34 5557.391 14743.066 90406.01 88763.055 76684.016 25000.207 40977.074 34192.14 11321.453 47965.242 7592.3276 8564.437 46275.04 78797.445 87112.18 72048.39 8480.056 40239.066 53799.22 44899.13 24888.018 22784.494 71406.38 27930.3 36104.066 41246.47 7720.4595 60394.395 81643.14 41608.277 74790.31 42039.297 3426.0298 28107.2 68929.11 25623.49 52028.434 33588.04 6353.4087 10623.072 76065.086 13497.443 37638.477 47439.41 90219.08 14119.057 35407.195 34291.07 54856.47 56525.184 48848.313 74586.28 68260.45 42985.027 33809.258 11905.073 29704.096 78890.06 74808.48 80162.016 847.0066 88626.02 24969.06 51697.26 10727.49 66701.13 6621.1177 63126.383 28486.066 69768.36 2123.3203 998.3156 67678.234 86906.29 29102.094 22490.004 52126.063 79214.42 33862.164 14202.027 90905.03 34777.32 5196.0005 85920.45 82522.14 47399.02 84198.086 25349.293 1163.181 32142.234 94629.5 9478.491 94660.01 14405.267 37120.066 95567.414 96277.07 78608.24 91454.4 24533.45 76104.05 85936.055 63567.027 44136.11 49273.04 71887.234 2844.022 47205.344 71933.0 83520.18 89523.45 77441.05 27695.389 36625.086 88565.06 74843.49 18199.045 2390.385 39567.2 84979.34 70341.14 92156.05 96877.125 72448.055 29258.186 24618.484 42886.02 87271.33 94251.03 45162.164 29467.05 36014.258 37100.086 66867.29 47829.383 99413.16 85201.04 16865.06 80827.4 22020.305 1105.075 96062.01 606.12445 52459.156 18575.158 62385.023 37134.336 21473.104 42988.316 40528.395 6675.1494 49817.34 34835.45 12454.258 58102.145 90351.11 85552.23 71540.16 31869.006 68334.23 79312.414 28081.13 11506.312 73400.3 12559.111 6927.0576 12077.175 19296.352 583.17566 6698.389 43829.07 83306.02 39546.16 4239.0864 54196.13 53845.33 47225.457 22328.107 23249.166 67667.375 68176.09 1850.3787 33251.39 21202.38 51999.08 49545.26 20898.375 5660.002 29944.111 20521.365 58525.223 87527.03 7680.0107 22037.06 53704.406 74352.43 18382.078 86956.13 34149.08 36104.33 57607.188 28197.031 86325.086 9320.047 48612.047 26532.13 27513.37 88306.14 66955.29 86587.1 42120.227 29721.217 39297.184 77682.1 70346.15 20029.129 21158.059 98878.414 48939.023 20812.416 10463.296 26759.15 80939.35 47746.145 24576.06 43535.387 35242.3 14550.399 84743.07 2954.4443 73446.016 65221.105 36462.07 21783.332 22499.322 2781.1147 35996.094 12866.314 6239.3276 5554.0723 78708.02 85663.02 21771.396 94708.195 19763.342 81460.06 59260.1 12008.085 60221.285 70643.11 92459.37 84065.445 64101.164 63529.445 74021.125 66648.1 16637.174 685.4814 23108.176 78181.04 73923.16 51180.473 94713.4 43238.33 42989.363 64829.13 20553.139 7621.437 33975.473 84201.1 78945.164 15512.294 27844.36 16900.299 87646.04 73013.43 28714.258 53772.043 74450.086 77371.05 28421.1 70437.08 61576.086 52901.35 82798.45 25638.193 73535.03 72694.305 34462.09 24203.46 82694.016 64074.15 33475.426 44228.066 7249.073 89893.484 9089.474 48245.45 30927.143 75395.15 96510.03 9961.069 66238.484 23848.22 86383.086 81105.016 78931.25 75970.03 48480.008 88418.38 34397.12 49030.273 42038.063 89306.32 27093.078 86245.12 23361.105 96298.4 4102.3677 61033.0 39068.26 88770.46 67180.055 24636.066 94001.15 55249.465 54058.145 14230.236 6289.3423 25622.203 54266.27 55151.02 62792.38 34474.12 58014.434 58687.4 1288.0579 38195.063 14817.39 48984.24 18864.088 1320.1527 36516.39 97593.016 2353.4443 83900.05 60518.113 14251.421 61787.117 58880.46 90577.37 54970.074 78400.055 89677.49 46831.195 53940.387 59579.035 77624.07 15653.109 97985.016 2844.4001 2680.0422 69688.48 89679.42 14936.131 83953.43 17888.133 50094.137 74320.305 78203.12 51495.117 73578.18 19430.057 21288.049 69421.09 12271.483 82352.414 44843.14 9025.281 8399.366 71461.02 35343.375 49893.184 67947.42 49971.14 89312.24 2331.1492 69513.016 76233.16 55191.14 27022.096 99120.04 31490.088 50973.367 43643.125 38133.086 62465.07 699.30316 28763.344 75806.01 90483.23 3044.2903 50790.258 22526.215 2942.2227 94133.18 30190.186 93641.125 74520.305 30279.1 30144.047 49220.176 42741.133 73657.48 89988.12 36395.184 12750.059 87146.29 57066.223 7316.023 44700.32 65085.105 16543.072 67190.46 5373.1514 28890.365 61842.477 96731.27 56885.457 17399.04 62478.473 4185.0205 34315.086 88324.01 51393.375 25339.207 35287.07 56771.21 25266.21 12694.248 79207.125 50182.13 20614.445 29435.102 97812.22 38875.055 45013.277 67477.414 27935.223 88459.08 47924.203 15749.038 11948.126 38335.004 54419.12 21359.328 81730.35 76350.43 96719.27 39703.207 95608.4 59655.355 41672.496 96478.25 97763.2 65800.09 51372.004 69895.02 13669.163 18536.102 50315.11 73740.445 96111.02 39425.09 82872.01 757.1098 51449.004 80486.125 89458.04 34404.12 67490.1 8743.2295 97388.47 35922.188 27015.467 45871.105 15003.323 72105.41 87743.31 82357.42 12133.399 79508.5 78423.14 68990.02 87929.42 86804.08 1651.3765 29561.113 16612.137 25624.314 38300.023 1499.0695 88966.195 31162.266 58409.453 8161.4194 97403.07 93894.05 30077.365 34244.23 32136.027 73601.43 80581.445 29958.406 56317.266 6226.08 67336.0 312.38785 10899.002 16883.38 83160.31 1072.4198 45870.355 65162.082 31319.137 62409.42 45233.027 16520.06 19449.393 76568.12 60306.387 99955.086 7416.049 22744.205 17138.164 26019.135 79042.06 77658.03 32656.32 66549.11 75498.14 20529.03 84369.4 77507.28 13493.054 44506.03 51311.426 12159.404 98345.03 91949.1 36247.094 55101.043 15991.445 76146.375 55094.05 10500.058 56665.46 95758.125 32108.121 76246.01 57744.08 98647.3 4158.0156 63481.176 38155.063 97046.33 79318.06 31909.373 34102.06 75487.086 5774.341 28856.102 28710.35 29291.123 64438.152 43022.145 14932.149 72082.086 34807.313 53316.477 97568.35 26375.277 43541.39 55356.11 8204.174 60109.055 75744.19 21721.41 89537.13 71397.02 26224.08 38040.035 77585.164 21191.135 7501.249 84619.02 36056.016 87100.15 83771.01 84252.34 96388.02 79069.484 41460.465 71726.49 68955.45 64071.297 88377.2 85597.086 63298.02 2207.202 34714.43 40232.445 25594.338 63063.164 59956.227 39113.027 72358.19 3115.0024 39405.34 39025.016 17600.14 28159.023 31927.396 97044.16 84519.086 71827.06 21973.21 2381.1477 87480.01 14946.058 54645.438 27229.436 68045.0 21258.064 40521.18 38698.4 94496.34 60472.43 92067.11 24004.371 47636.387 89965.07 31799.14 85491.15 72513.445 15683.127 54982.156 72784.38 67293.41 28794.43 11364.222 77566.5 38293.12 45125.184 20475.445 38342.063 27118.04 93157.305 4056.3777 72615.1 57451.41 50901.496 88939.38 51160.13 57175.063 4232.3477 27439.088 18166.494 29012.453 51270.21 55625.434 97229.13 80999.04 64182.27 1006.08594 92758.23 57923.492 49277.313 99225.125 22521.287 80433.01 93510.12 21822.014 20555.248 93843.27 70612.09 9355.118 45881.11 13486.386 15761.037 54667.3 66804.09 67588.02 96365.195 34324.348 26577.043 8610.43 92021.234 65907.16 18172.137 93540.18 35450.313 44184.094 54080.426 2501.0935 38750.035 81733.28 99437.45 7656.1787 1660.2938 73358.445 31899.242 77041.33 6021.2275 76246.47 92139.266 77513.26 23508.434 49076.23 22110.492 94292.03 24684.098 56425.043 43691.117 57411.305 97824.08 13968.018 98957.42 15636.077 71986.1 22174.313 95931.086 13538.0625 79688.414 86605.04 41825.21 32535.154 56011.035 70417.164 99280.125 16860.492 81504.25 81022.01 61127.42 32869.152 36994.26 69212.125 25140.465 396.10852 22879.064 77686.05 24316.463 61243.152 69501.28 27549.307 31437.125 10820.385 10706.445 94428.375 44886.15 16339.183 64900.395 8133.2524 39385.11 41536.465 60107.117 61120.113 91221.15 1411.1528 40797.063 40202.055 44746.02 87108.12 21168.016 78505.13 29516.158 49466.406 5646.2783 23665.074 37708.367 95541.375 51664.402 23273.197 53346.1 41016.105 40179.125 63596.074 71392.04 93934.12 16847.219 70908.04 45023.496 14628.035 88245.414 9325.073 35377.453 4609.001 46717.047 27905.35 97256.484 92644.055 88879.4 55709.24 93986.47 32933.16 18548.035 19276.137 67611.055 95678.08 28160.096 81095.13 50460.074 73419.25 11560.298 45913.105 93751.41 42062.08 35816.387 21488.37 85564.46 4403.474 62402.125 56927.3 46972.297 21556.18 76835.02 47622.113 33.2782 27287.068 67626.016 81903.42 78697.055 85190.11 8389.14 12753.16 36952.258 58441.473 78912.01 9096.357 57954.05 14178.265 27901.012 95791.1 17333.047 36545.355 28097.291 58755.0 60681.04 43862.055 74562.375 8834.203 92501.12 14142.331 73261.32 83174.13 62699.316 48987.293 24684.23 69517.37 74560.06 46694.0 28567.02 98205.12 35177.496 8537.133 7139.36 73000.016 20449.293 98667.02 2624.0898 99232.016 43424.477 1771.0555 38454.3 154.01141 4869.159 38021.297 88900.12 33111.06 88823.016 76713.46 16460.385 23019.111 3326.185 79214.016 62285.492 30943.225 10726.299 55843.027 96515.2 50770.215 11975.403 19770.295 71360.234 84114.375 63666.15 38887.055 13729.199 16754.266 77463.09 39579.45 63989.414 94361.086 6619.12 87499.125 46922.1 52844.133 37452.355 69137.12 32792.47 33245.434 68736.22 31868.418 38334.453 46419.047 28914.05 64501.332 30058.328 71386.27 15006.124 7262.2417 13431.297 88141.08 49957.418 97314.46 73053.13 45527.44 74680.04 9041.365 84507.08 50252.332 73639.125 52347.387 69647.2 18923.24 23815.094 48611.152 17311.13 73688.1 60590.223 87695.14 22884.383 17599.115 13990.061 36524.383 54071.066 44066.09 33007.164 97273.414 15843.05 35764.08 36825.05 326.05963 49128.383 44785.387 73192.336 43091.027 52127.313 88913.43 41945.117 21748.055 74593.195 19671.48 18564.041 98756.43 74835.12 76220.38 89991.45 9895.437 79466.12 72364.45 26825.178 34025.38 80672.29 68657.195 71050.29 69877.04 19380.033 17245.096 86455.4 70856.02 8385.203 57144.12 59856.02 53404.086 39512.063 84447.13 71540.04 18013.064 41410.223 27122.053 99875.086 96532.31 50863.426 74833.23 44746.09 63528.16 47371.023 58026.14 86827.15 71507.086 30293.246 88699.05 42925.273 39252.094 98140.03 33960.152 53143.086 89194.19 4793.0825 67977.14 39423.31 86688.09 80048.08 87231.45 47960.195 10367.007 67325.06 34937.09 679.0118 67752.49 81789.13 12956.078 13745.038 35138.25 30382.07 22690.156 79645.01 28759.432 14971.496 49410.21 69624.37 44996.156 4713.0855 7118.03 647.1456 86289.195 49090.484 89388.31 56864.39 9994.087 89646.15 27003.164 56983.105) \ No newline at end of file diff --git a/internal/gabriel/benchmarks/ARITH-BENCHMARKS b/internal/gabriel/benchmarks/ARITH-BENCHMARKS deleted file mode 100644 index 2a4d63ea..00000000 --- a/internal/gabriel/benchmarks/ARITH-BENCHMARKS +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED "29-Jun-88 18:01:48" "{ERIS}Gabriel>Benchmarks>ARITH-BENCHMARKS.;1" 3828 |changes| |to:| (GABRIEL::TIMERS GENERIC-DIV-FLOAT GENERIC-TIMES-FLOAT GENERIC-SUB-FLOAT GENERIC-ADD-FLOAT FLOAT-SINE FLOAT-DIV FLOAT-TIMES FLOAT-SUB NULL-LOOP FLOAT-ADD) (VARS ARITH-BENCHMARKSCOMS) (VARIABLES PI/6 *ARITH-BENCHMARKS*)) (PRETTYCOMPRINT ARITH-BENCHMARKSCOMS) (RPAQQ ARITH-BENCHMARKSCOMS ( (* |;;| "Pure arithmetic benchmarks.") (COMS (* |;;|  "The null loop of 10K times thru, to factor out loop overhead.") (GABRIEL::TIMERS NULL-LOOP)) (COMS (* |;;| "Pure floating point benchmarks") (GABRIEL::TIMERS FLOAT-ADD FLOAT-DIV FLOAT-SUB FLOAT-TIMES) (* |;;| "Transcendental function benchmarks ") (GABRIEL::TIMERS FLOAT-SINE)) (GABRIEL::TIMERS GENERIC-ADD-FLOAT GENERIC-DIV-FLOAT GENERIC-SUB-FLOAT GENERIC-TIMES-FLOAT) (VARIABLES PI/6 *ARITH-BENCHMARKS*))) (* |;;| "Pure arithmetic benchmarks.") (* |;;| "The null loop of 10K times thru, to factor out loop overhead.") (GABRIEL::DEFINE-TIMER (NULL-LOOP) "Null loop, 1000 times thru" (LET (X) (FOR I FROM 1 |to| 10000 |do| (SETQ X 1)))) (* |;;| "Pure floating point benchmarks") (GABRIEL::DEFINE-TIMER (FLOAT-ADD) "1000 Floating-point additions" (LET ((X 0.0)) (FOR I FROM 1 TO 10000 DO (SETQ X (FPLUS X 1.0))))) (GABRIEL::DEFINE-TIMER (FLOAT-DIV) "1000 Floating-point divisions" (LET ((X 5400.0)) (FOR I FROM 1 TO 10000 DO (SETQ X (FQUOTIENT X 1.0013562))))) (GABRIEL::DEFINE-TIMER (FLOAT-SUB) "1000 Floating-point subtractions" (LET ((X 0.0)) (FOR I FROM 1 TO 10000 DO (SETQ X (FMINUS X 1.0))))) (GABRIEL::DEFINE-TIMER (FLOAT-TIMES) "1000 Floating-point multiplications" (LET ((X 1.0)) (FOR I FROM 1 TO 10000 DO (SETQ X (FTIMES X 1.0013562))))) (* |;;| "Transcendental function benchmarks ") (GABRIEL::DEFINE-TIMER (FLOAT-SINE) "10000 calls to CL:SIN(pi/6)" (LET (X) (FOR I FROM 1 TO 10000 DO (SETQ X (CL:SIN PI/6))))) (GABRIEL::DEFINE-TIMER (GENERIC-ADD-FLOAT) "10000 Generic + with float args" (LET ((X 0.0)) (FOR I FROM 1 TO 10000 DO (SETQ X (+ X 1.0))))) (GABRIEL::DEFINE-TIMER (GENERIC-DIV-FLOAT) "10000 Generic / with float args" (LET ((X 5400.0)) (FOR I FROM 1 TO 10000 DO (SETQ X (/ X 1.0013562))))) (GABRIEL::DEFINE-TIMER (GENERIC-SUB-FLOAT) "10000 Generic - with float args" (LET ((X 0.0)) (FOR I FROM 1 TO 10000 DO (SETQ X (- X 1.0))))) (GABRIEL::DEFINE-TIMER (GENERIC-TIMES-FLOAT) "10000 Generic * with float args" (LET ((X 1.0)) (FOR I FROM 1 TO 10000 DO (SETQ X (CL:* X 1.0013562))))) (CL:DEFVAR PI/6 (FQUOTIENT 3.1415927 6)) (CL:DEFVAR *ARITH-BENCHMARKS* '(NULL-LOOP FLOAT-ADD FLOAT-SUB FLOAT-TIMES FLOAT-DIV GENERIC-ADD-FLOAT GENERIC-SUB-FLOAT GENERIC-TIMES-FLOAT GENERIC-DIV-FLOAT FLOAT-SINE)) (DECLARE\: DONTCOPY (FILEMAP (NIL))) STOP \ No newline at end of file diff --git a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL b/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL deleted file mode 100644 index 0c9c6c1d..00000000 Binary files a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL and /dev/null differ diff --git a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~1~ b/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~1~ deleted file mode 100644 index 1cf1692b..00000000 Binary files a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~1~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~2~ b/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~2~ deleted file mode 100644 index 34ce95aa..00000000 Binary files a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~2~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~3~ b/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~3~ deleted file mode 100644 index 06d099ab..00000000 Binary files a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~3~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~4~ b/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~4~ deleted file mode 100644 index 7d9d720f..00000000 Binary files a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~4~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~5~ b/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~5~ deleted file mode 100644 index 0c9c6c1d..00000000 Binary files a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~5~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.LCOM b/internal/gabriel/benchmarks/ARITH-BENCHMARKS.LCOM deleted file mode 100644 index dadbb4b6..00000000 Binary files a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.LCOM and /dev/null differ diff --git a/internal/gabriel/benchmarks/GABRIEL-OTHER b/internal/gabriel/benchmarks/GABRIEL-OTHER deleted file mode 100644 index c4962aaa..00000000 --- a/internal/gabriel/benchmarks/GABRIEL-OTHER +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "GABRIEL")) (IL:FILECREATED "28-Jun-88 17:26:33" IL:{ERIS}GABRIEL>BENCHMARKS>GABRIEL-OTHER.\;6 64944 IL:|changes| IL:|to:| (IL:VARIABLES *CONSY-BENCHMARKS*) (IL:VARS IL:GABRIEL-OTHERCOMS) IL:|previous| IL:|date:| "27-Jun-88 10:02:52" IL:{ERIS}GABRIEL>BENCHMARKS>GABRIEL-OTHER.\;5) ; Copyright (c) 1987, 1988 by Xerox Corporation. All rights reserved. (IL:PRETTYCOMPRINT IL:GABRIEL-OTHERCOMS) (IL:RPAQQ IL:GABRIEL-OTHERCOMS ((IL:FILES IL:GABRIEL-TIMERS) (IL:STRUCTURES TNODE) (IL:VARIABLES TYPEMAX SIZE) (IL:VARIABLES *A* *ALPHA* *B* *C* *D* *L *P *P* *R* *R2* *R3* *SERIES* *V* *X* *VAR ANSWER BOARD CLASS CLASSMAX COUNT FALSE FINAL III IM KOUNT MARKER PIECECOUNT PIECEMAX PUZZLE Q* RAND RE ROOT SEQUENCE SN TEMP-TEMP TRUE U* UNIFY-SUBST) (IL:FUNCTIONS *DDERIV +DDERIV -DDERIV /DDERIV ADD ADD-LEMMA ADD-LEMMA-LST APPLY-SUBST APPLY-SUBST-LST BROWSE BROWSE-RANDOM CHAR1 CPLUS CREATE-N CREATE-STRUCTURE CTIMES DDERIV DDERIV-AUX DEFINEPIECE DERIV DERIV-AUX DESTRUCTIVE FALSEP FFT FIND-ROOT FIT GOGOGO INIT INVESTIGATE ITERATIVE-DIV2 ITERATIVE-DIV2-TEST LAST-POSITION MATCH ONE-WAY-UNIFY ONE-WAY-UNIFY1 ONE-WAY-UNIFY1-LST PCOEFADD PCOEFP PCPLUS PCPLUS1 PCTIMES PCTIMES1 PDIFFER1 PEXPTSQ PLACE POINTERGP PPLUS PPLUS1 PSIMP PTIMES PTIMES1 PTIMES2 PTIMES3 PUZZLE-REMOVE PZERO PZEROP RANDOMIZE RECURSIVE-DIV2 RECURSIVE-DIV2-TEST REWRITE REWRITE-ARGS REWRITE-WITH-LEMMAS RUN-DDERIV RUN-DERIV RUN-ONE RUN-SERIES RUN-SERIES-TO-FILE SEED SETUP SETUP-DDERIV SETUP-FRPOLY SNB START TAUTOLOGYP TAUTP TEST TRANS-OF-IMPLIES TRANS-OF-IMPLIES1 TRAVERS TRAVERSE TRAVERSE-RANDOM TRAVERSE-REMOVE TRAVERSE-SELECT TRIAL TRIANG-TEST TRUEP TRY) (IL:COMS (IL:* IL:|;;| "Modified version of browse which doesn't cons so much") (IL:FUNCTIONS CHAR1* BROWSE* INVESTIGATE* MATCH*) (TIMERS BROWSE*)) (IL:COMS (IL:* IL:|;;| "Modified version of traverse-init to break circularities") (IL:FUNCTIONS CREATE-STRUCTURE* TRAVERSE-REMOVE* RELEASE-TREE RELEASE-TREE-AUX) (TIMERS TRAVERSE* TRAVERSE-INIT*)) (IL:VARIABLES DIV2-L) (IL:VARIABLES *CONSY-BENCHMARKS* *AREFY-BENCHMARKS* *POLY-BENCHMARKS*) (TIMERS BOYER BROWSE DDERIV DERIV DESTRU DIV2-1 DIV2-2 FFT FRPOLY10R FRPOLY10R2 FRPOLY10R3 FRPOLY15R FRPOLY15R2 FRPOLY15R3 FRPOLY2R FRPOLY2R2 FRPOLY2R3 FRPOLY5R FRPOLY5R2 FRPOLY5R3 PUZZLE TRAVERSE TRAVERSE-INIT TRIANG) (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:LOCALVARS . T)) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:GABRIEL-OTHER))) (IL:FILESLOAD IL:GABRIEL-TIMERS) (DEFSTRUCT TNODE (PARENTS NIL) (SONS NIL) (SN (SNB)) (ENTRY1 NIL) (ENTRY2 NIL) (ENTRY3 NIL) (ENTRY4 NIL) (ENTRY5 NIL) (ENTRY6 NIL) (MARK NIL)) (DEFCONSTANT TYPEMAX 12) (DEFCONSTANT SIZE 511) (DEFVAR *A* ' #37(1 2 4 3 5 6 1 3 6 2 5 4 11 12 13 7 8 4 4 7 11 8 12 13 6 10 15 9 14 13 13 14 15 9 10 6)) (DEFVAR *ALPHA*) (DEFVAR *B* '#37(2 4 7 5 8 9 3 6 10 5 9 8 12 13 14 8 9 5 2 4 7 5 8 9 3 6 10 5 9 8 12 13 14 8 9 5)) (DEFVAR *C* ' #37(4 7 11 8 12 13 6 10 15 9 14 13 13 14 15 9 10 6 1 2 4 3 5 6 1 3 6 2 5 4 11 12 13 7 8 4)) (DEFVAR *D* 8) (DEFVAR *L) (DEFVAR *P) (DEFVAR *P* (MAKE-ARRAY (LIST (1+ TYPEMAX) (1+ SIZE)))) (DEFVAR *R*) (DEFVAR *R2*) (DEFVAR *R3*) (DEFPARAMETER *SERIES* '(PUZZLE TRIANG FRPOLY2R FRPOLY2R2 FRPOLY2R3 FRPOLY5R FRPOLY5R2 FRPOLY5R3 FRPOLY10R FRPOLY10R2 FRPOLY10R3 FRPOLY15R FRPOLY15R2 FRPOLY15R3 BOYER BROWSE DESTRU TRAVERSE-INIT TRAVERSE TAK STAK CTAK TAKL TAKR DERIV DDERIV DIV2-1 DIV2-2 FFT)) (DEFVAR *V*) (DEFVAR *X*) (DEFVAR *VAR) (DEFVAR ANSWER) (DEFVAR BOARD '#16(1 1 1 1 1 0 1)) (DEFVAR CLASS (MAKE-ARRAY (1+ TYPEMAX) ':INITIAL-ELEMENT 0)) (DEFCONSTANT CLASSMAX 3) (DEFVAR COUNT 0) (DEFCONSTANT FALSE NIL) (DEFVAR FINAL) (DEFVAR III 0) (DEFVAR IM (MAKE-ARRAY 1025 :ELEMENT-TYPE 'SINGLE-FLOAT ':INITIAL-ELEMENT 0.0)) (DEFVAR KOUNT 0) (DEFVAR MARKER NIL) (DEFVAR PIECECOUNT (MAKE-ARRAY (1+ CLASSMAX) ':INITIAL-ELEMENT 0)) (DEFVAR PIECEMAX (MAKE-ARRAY (1+ TYPEMAX) ':INITIAL-ELEMENT 0)) (DEFVAR PUZZLE (MAKE-ARRAY (1+ SIZE))) (DEFVAR Q*) (DEFVAR RAND 21) (DEFVAR RE (MAKE-ARRAY 1025 :ELEMENT-TYPE 'SINGLE-FLOAT ':INITIAL-ELEMENT 0.0)) (DEFVAR ROOT) (DEFVAR SEQUENCE (MAKE-ARRAY 14 ':INITIAL-ELEMENT 0)) (DEFVAR SN 0) (DEFVAR TEMP-TEMP) (DEFCONSTANT TRUE T) (DEFVAR U*) (DEFVAR UNIFY-SUBST) (DEFUN *DDERIV (A) (LIST '* (CONS '* A) (CONS '+ (MAPCAR #'DDERIV-AUX A)))) (DEFUN +DDERIV (A) (CONS '+ (MAPCAR #'DDERIV A))) (DEFUN -DDERIV (A) (CONS '- (MAPCAR #'DDERIV A))) (DEFUN /DDERIV (A) (LIST '- (LIST '/ (DDERIV (CAR A)) (CADR A)) (LIST '/ (CAR A) (LIST '* (CADR A) (CADR A) (DDERIV (CADR A)))))) (DEFUN ADD (A Q) (COND ((NULL Q) `(,(LET ((X `(,A))) (RPLACD X X) X))) ((NULL (CAR Q)) (LET ((X `(,A))) (RPLACD X X) (RPLACA Q X))) (T (RPLACA Q (RPLACD (CAR Q) `(,A . ,(CDR (CAR Q)))))))) (DEFUN ADD-LEMMA (TERM) (COND ((AND (NOT (ATOM TERM)) (EQ (CAR TERM) 'EQUAL) (NOT (ATOM (CADR TERM)))) (PUSHNEW TERM (GET (CAR (CADR TERM)) 'LEMMAS) :TEST #'EQUAL)) (T (ERROR "Add lemma did not like term")))) (DEFUN ADD-LEMMA-LST (LST) (COND ((NULL LST) T) (T (ADD-LEMMA (CAR LST)) (ADD-LEMMA-LST (CDR LST))))) (DEFUN APPLY-SUBST (ALIST TERM) (COND ((ATOM TERM) (COND ((SETQ TEMP-TEMP (ASSOC TERM ALIST)) (CDR TEMP-TEMP)) (T TERM))) (T (CONS (CAR TERM) (APPLY-SUBST-LST ALIST (CDR TERM)))))) (DEFUN APPLY-SUBST-LST (ALIST LST) (COND ((NULL LST) NIL) (T (CONS (APPLY-SUBST ALIST (CAR LST)) (APPLY-SUBST-LST ALIST (CDR LST)))))) (DEFUN BROWSE () (SETF RAND 21) (INVESTIGATE (RANDOMIZE (INIT 100 10 4 '((A A A B B B B A A A A A B B A A A) (A A B B B B A A (A A) (B B)) (A A A B (B A) B A B A)))) '((*A ?B *B ?B A *A A *B *A) (*A *B *B *A (*A) (*B)) (? ? * (B A) * ? ?)))) (DEFUN BROWSE-RANDOM () (SETQ RAND (MOD (* RAND 17) 251))) (DEFMACRO CHAR1 (X) `(AREF (SYMBOL-NAME ,X) 0)) (DEFMACRO CPLUS (X Y) `(+ ,X ,Y)) (DEFUN CREATE-N (N) (DO ((N N (1- N)) (A NIL (PUSH NIL A))) ((= N 0) A))) (DEFUN CREATE-STRUCTURE (N) (LET ((A `(,(MAKE-TNODE)))) (DO ((M (1- N) (1- M)) (P A)) ((= M 0) (SETQ A `(,(RPLACD P A))) (DO ((UNUSED A) (USED (ADD (TRAVERSE-REMOVE 0 A) NIL)) (X) (Y)) ((NULL (CAR UNUSED)) (FIND-ROOT (TRAVERSE-SELECT 0 USED) N)) (SETQ X (TRAVERSE-REMOVE (REM (TRAVERSE-RANDOM) N) UNUSED)) (SETQ Y (TRAVERSE-SELECT (REM (TRAVERSE-RANDOM) N) USED)) (ADD X USED) (SETF (TNODE-SONS Y) `(,X . ,(TNODE-SONS Y))) (SETF (TNODE-PARENTS X) `(,Y . ,(TNODE-PARENTS X))))) (PUSH (MAKE-TNODE) A)))) (DEFMACRO CTIMES (X Y) `(* ,X ,Y)) (DEFUN DDERIV (A) (COND ((ATOM A) (COND ((EQ A 'X) 1) (T 0))) (T (LET ((DDERIV (GET (CAR A) 'DDERIV))) (COND (DDERIV (FUNCALL DDERIV (CDR A))) (T 'ERROR)))))) (DEFUN DDERIV-AUX (A) (LIST '/ (DDERIV A) A)) (DEFUN DEFINEPIECE (ICLASS II JJ KK) (LET ((INDEX 0)) (DO ((I 0 (1+ I))) ((> I II)) (DO ((J 0 (1+ J))) ((> J JJ)) (DO ((K 0 (1+ K))) ((> K KK)) (SETQ INDEX (+ I (* *D* (+ J (* *D* K))))) (SETF (AREF *P* III INDEX) TRUE)))) (SETF (AREF CLASS III) ICLASS) (SETF (AREF PIECEMAX III) INDEX) (COND ((NOT (= III TYPEMAX)) (SETQ III (+ III 1)))))) (DEFUN DERIV (A) (COND ((ATOM A) (COND ((EQ A 'X) 1) (T 0))) ((EQ (CAR A) '+) (CONS '+ (MAPCAR #'DERIV (CDR A)))) ((EQ (CAR A) '-) (CONS '- (MAPCAR #'DERIV (CDR A)))) ((EQ (CAR A) '*) (LIST '* A (CONS '+ (MAPCAR 'DERIV-AUX (CDR A))))) ((EQ (CAR A) '/) (LIST '- (LIST '/ (DERIV (CADR A)) (CADDR A)) (LIST '/ (CADR A) (LIST '* (CADDR A) (CADDR A) (DERIV (CADDR A)))))) (T 'ERROR))) (DEFUN DERIV-AUX (A) (LIST '/ (DERIV A) A)) (DEFUN DESTRUCTIVE (N M) (LET ((L (DO ((I 10 (1- I)) (A NIL (PUSH NIL A))) ((= I 0) A)))) (DO ((I N (1- I))) ((= I 0)) (COND ((NULL (CAR L)) (DO ((L L (CDR L))) ((NULL L)) (OR (CAR L) (RPLACA L (CONS NIL NIL))) (NCONC (CAR L) (DO ((J M (1- J)) (A NIL (PUSH NIL A))) ((= J 0) A))))) (T (DO ((L1 L (CDR L1)) (L2 (CDR L) (CDR L2))) ((NULL L2)) (RPLACD (DO ((J (FLOOR (LENGTH (CAR L2)) 2) (1- J)) (A (CAR L2) (CDR A))) ((= J 0) A) (RPLACA A I)) (LET ((N (FLOOR (LENGTH (CAR L1)) 2))) (COND ((= N 0) (RPLACA L1 NIL) (CAR L1)) (T (DO ((J N (1- J)) (A (CAR L1) (CDR A))) ((= J 1) (PROG1 (CDR A) (RPLACD A NIL))) (RPLACA A I)))))))))))) (DEFUN FALSEP (X LST) (OR (EQUAL X '(F)) (MEMBER X LST :TEST #'EQUAL))) (DEFUN FFT (AREAL AIMAG) (PROG (AR AI I J K M N LE LE1 IP NV2 NM1 UR UI WR WI TR TI) (SETQ AR AREAL AI AIMAG N (ARRAY-DIMENSION AR 0) N (1- N) NV2 (FLOOR N 2) NM1 (1- N) M 0 I 1) L1 (COND ((< I N) (SETQ M (1+ M) I (+ I I)) (GO L1))) (COND ((NOT (EQUAL N (EXPT 2 M))) (PRINC "Error ... array size not a power of two.") (READ) (RETURN (TERPRI)))) (SETQ J 1 I 1) L3 (COND ((< I J) (SETQ TR (AREF AR J) TI (AREF AI J)) (SETF (AREF AR J) (AREF AR I)) (SETF (AREF AI J) (AREF AI I)) (SETF (AREF AR I) TR) (SETF (AREF AI I) TI))) (SETQ K NV2) L6 (COND ((< K J) (SETQ J (- J K) K (FLOOR K 2)) (GO L6))) (SETQ J (+ J K) I (1+ I)) (COND ((< I N) (GO L3))) (DO ((L 1 (1+ L))) ((> L M)) (SETQ LE (EXPT 2 L) LE1 (FLOOR LE 2) UR 1.0 UI 0 WR (COS (/ PI (FLOAT LE1))) WI (SIN (/ PI (FLOAT LE1)))) (DO ((J 1 (1+ J))) ((> J LE1)) (DO ((I J (+ I LE))) ((> I N)) (SETQ IP (+ I LE1) TR (- (* (AREF AR IP) UR) (* (AREF AI IP) UI)) TI (+ (* (AREF AR IP) UI) (* (AREF AI IP) UR))) (SETF (AREF AR IP) (- (AREF AR I) TR)) (SETF (AREF AI IP) (- (AREF AI I) TI)) (SETF (AREF AR I) (+ (AREF AR I) TR)) (SETF (AREF AI I) (+ (AREF AI I) TI)))) (SETQ TR (- (* UR WR) (* UI WI)) TI (+ (* UR WI) (* UI WR)) UR TR UI TI)) (RETURN T))) (DEFUN FIND-ROOT (TNODE N) (DO ((N N (1- N))) ((= N 0) TNODE) (COND ((NULL (TNODE-PARENTS TNODE)) (RETURN TNODE)) (T (SETQ TNODE (CAR (TNODE-PARENTS TNODE))))))) (DEFUN FIT (I J) (LET ((END (AREF PIECEMAX I))) (DO ((K 0 (1+ K))) ((> K END) TRUE) (COND ((AREF *P* I K) (COND ((AREF PUZZLE (+ J K)) (RETURN FALSE)))))))) (DEFUN GOGOGO (I) (DOTIMES (J 16) (SETF (AREF BOARD J) 1)) (SETF (AREF BOARD 5) 0) (LET ((ANSWER NIL) (FINAL NIL)) (TRY I 1))) (DEFUN INIT (N M NPATS IPATS) (LET ((IPATS (COPY-TREE IPATS))) (DO ((P IPATS (CDR P))) ((NULL (CDR P)) (RPLACD P IPATS))) (DO ((N N (1- N)) (I M (COND ((= I 0) M) (T (1- I)))) (NAME (GENSYM) (GENSYM)) (A NIL)) ((= N 0) A) (PUSH NAME A) (DO ((I I (1- I))) ((= I 0)) (SETF (GET NAME (GENSYM)) NIL)) (SETF (GET NAME 'PATTERN) (DO ((I NPATS (1- I)) (IPATS IPATS (CDR IPATS)) (A NIL)) ((= I 0) A) (PUSH (CAR IPATS) A))) (DO ((J (- M I) (1- J))) ((= J 0)) (SETF (GET NAME (GENSYM)) NIL))))) (DEFUN INVESTIGATE (UNITS PATS) (DO ((UNITS UNITS (CDR UNITS))) ((NULL UNITS)) (DO ((PATS PATS (CDR PATS))) ((NULL PATS)) (DO ((P (GET (CAR UNITS) 'PATTERN) (CDR P))) ((NULL P)) (MATCH (CAR PATS) (CAR P) NIL))))) (DEFUN ITERATIVE-DIV2 (L) (DO ((L L (CDDR L)) (A NIL (PUSH (CAR L) A))) ((NULL L) A))) (DEFUN ITERATIVE-DIV2-TEST (L) (DO ((I 300 (1- I))) ((= I 0)) (ITERATIVE-DIV2 L) (ITERATIVE-DIV2 L) (ITERATIVE-DIV2 L) (ITERATIVE-DIV2 L))) (DEFUN LAST-POSITION () (DO ((I 1 (1+ I))) ((= I 16) 0) (IF (= 1 (AREF BOARD I)) (RETURN I)))) (DEFUN MATCH (PAT DAT ALIST) (COND ((NULL PAT) (NULL DAT)) ((NULL DAT) NIL) ((OR (EQ (CAR PAT) '?) (EQ (CAR PAT) (CAR DAT))) (MATCH (CDR PAT) (CDR DAT) ALIST)) ((EQ (CAR PAT) '*) (OR (MATCH (CDR PAT) DAT ALIST) (MATCH (CDR PAT) (CDR DAT) ALIST) (MATCH PAT (CDR DAT) ALIST))) (T (COND ((ATOM (CAR PAT)) (COND ((EQL (CHAR1 (CAR PAT)) #\?) (LET ((VAL (ASSOC (CAR PAT) ALIST))) (COND (VAL (MATCH (CONS (CDR VAL) (CDR PAT)) DAT ALIST)) (T (MATCH (CDR PAT) (CDR DAT) (CONS (CONS (CAR PAT) (CAR DAT)) ALIST)))))) ((EQL (CHAR1 (CAR PAT)) #\*) (LET ((VAL (ASSOC (CAR PAT) ALIST))) (COND (VAL (MATCH (APPEND (CDR VAL) (CDR PAT)) DAT ALIST)) (T (DO ((L NIL (NCONC L (CONS (CAR D) NIL))) (E (CONS NIL DAT) (CDR E)) (D DAT (CDR D))) ((NULL E) NIL) (COND ((MATCH (CDR PAT) D (CONS (CONS (CAR PAT) L) ALIST)) (RETURN T)))))))))) (T (AND (NOT (ATOM (CAR DAT))) (MATCH (CAR PAT) (CAR DAT) ALIST) (MATCH (CDR PAT) (CDR DAT) ALIST))))))) (DEFUN ONE-WAY-UNIFY (TERM1 TERM2) (PROGN (SETQ UNIFY-SUBST NIL) (ONE-WAY-UNIFY1 TERM1 TERM2))) (DEFUN ONE-WAY-UNIFY1 (TERM1 TERM2) (COND ((ATOM TERM2) (COND ((SETQ TEMP-TEMP (ASSOC TERM2 UNIFY-SUBST)) (EQUAL TERM1 (CDR TEMP-TEMP))) (T (SETQ UNIFY-SUBST (CONS (CONS TERM2 TERM1) UNIFY-SUBST)) T))) ((ATOM TERM1) NIL) ((EQ (CAR TERM1) (CAR TERM2)) (ONE-WAY-UNIFY1-LST (CDR TERM1) (CDR TERM2))) (T NIL))) (DEFUN ONE-WAY-UNIFY1-LST (LST1 LST2) (COND ((NULL LST1) T) ((ONE-WAY-UNIFY1 (CAR LST1) (CAR LST2)) (ONE-WAY-UNIFY1-LST (CDR LST1) (CDR LST2))) (T NIL))) (DEFUN PCOEFADD (E C X) (IF (PZEROP C) X (CONS E (CONS C X)))) (DEFMACRO PCOEFP (E) `(ATOM ,E)) (DEFUN PCPLUS (C P) (IF (PCOEFP P) (CPLUS P C) (PSIMP (CAR P) (PCPLUS1 C (CDR P))))) (DEFUN PCPLUS1 (C X) (COND ((NULL X) (COND ((PZEROP C) NIL) (T (CONS 0 (CONS C NIL))))) ((PZEROP (CAR X)) (PCOEFADD 0 (PPLUS C (CADR X)) NIL)) (T (CONS (CAR X) (CONS (CADR X) (PCPLUS1 C (CDDR X))))))) (DEFUN PCTIMES (C P) (COND ((PCOEFP P) (CTIMES C P)) (T (PSIMP (CAR P) (PCTIMES1 C (CDR P)))))) (DEFUN PCTIMES1 (C X) (COND ((NULL X) NIL) (T (PCOEFADD (CAR X) (PTIMES C (CADR X)) (PCTIMES1 C (CDDR X)))))) (DEFUN PDIFFER1 (X Y) X Y (ERROR "pdiffer2 called")) (DEFUN PEXPTSQ (P N) (DO ((N (FLOOR N 2) (FLOOR N 2)) (S (COND ((ODDP N) P) (T 1)))) ((ZEROP N) S) (SETQ P (PTIMES P P)) (AND (ODDP N) (SETQ S (PTIMES S P))))) (DEFUN PLACE (I J) (LET ((END (AREF PIECEMAX I))) (DO ((K 0 (1+ K))) ((> K END)) (COND ((AREF *P* I K) (SETF (AREF PUZZLE (+ J K)) TRUE)))) (SETF (AREF PIECECOUNT (AREF CLASS I)) (- (AREF PIECECOUNT (AREF CLASS I)) 1)) (DO ((K J (1+ K))) ((> K SIZE) 0) (COND ((NOT (AREF PUZZLE K)) (RETURN K)))))) (DEFMACRO POINTERGP (X Y) `(> (GET ,X 'ORDER) (GET ,Y 'ORDER))) (DEFUN PPLUS (X Y) (COND ((PCOEFP X) (PCPLUS X Y)) ((PCOEFP Y) (PCPLUS Y X)) ((EQ (CAR X) (CAR Y)) (PSIMP (CAR X) (PPLUS1 (CDR Y) (CDR X)))) ((POINTERGP (CAR X) (CAR Y)) (PSIMP (CAR X) (PCPLUS1 Y (CDR X)))) (T (PSIMP (CAR Y) (PCPLUS1 X (CDR Y)))))) (DEFUN PPLUS1 (X Y) (COND ((NULL X) Y) ((NULL Y) X) ((= (CAR X) (CAR Y)) (PCOEFADD (CAR X) (PPLUS (CADR X) (CADR Y)) (PPLUS1 (CDDR X) (CDDR Y)))) ((> (CAR X) (CAR Y)) (CONS (CAR X) (CONS (CADR X) (PPLUS1 (CDDR X) Y)))) (T (CONS (CAR Y) (CONS (CADR Y) (PPLUS1 X (CDDR Y))))))) (DEFUN PSIMP (VAR X) (COND ((NULL X) 0) ((ATOM X) X) ((ZEROP (CAR X)) (CADR X)) (T (CONS VAR X)))) (DEFUN PTIMES (X Y) (COND ((OR (PZEROP X) (PZEROP Y)) (PZERO)) ((PCOEFP X) (PCTIMES X Y)) ((PCOEFP Y) (PCTIMES Y X)) ((EQ (CAR X) (CAR Y)) (PSIMP (CAR X) (PTIMES1 (CDR X) (CDR Y)))) ((POINTERGP (CAR X) (CAR Y)) (PSIMP (CAR X) (PCTIMES1 Y (CDR X)))) (T (PSIMP (CAR Y) (PCTIMES1 X (CDR Y)))))) (DEFUN PTIMES1 (*X* Y) (PROG (U* *V*) (SETQ *V* (SETQ U* (PTIMES2 Y))) A (SETQ *X* (CDDR *X*)) (COND ((NULL *X*) (RETURN U*))) (PTIMES3 Y) (GO A))) (DEFUN PTIMES2 (Y) (COND ((NULL Y) NIL) (T (PCOEFADD (+ (CAR *X*) (CAR Y)) (PTIMES (CADR *X*) (CADR Y)) (PTIMES2 (CDDR Y)))))) (DEFUN PTIMES3 (Y) (PROG (E U C) A1 (COND ((NULL Y) (RETURN NIL))) (SETQ E (+ (CAR *X*) (CAR Y))) (SETQ C (PTIMES (CADR Y) (CADR *X*))) (COND ((PZEROP C) (SETQ Y (CDDR Y)) (GO A1)) ((OR (NULL *V*) (> E (CAR *V*))) (SETQ U* (SETQ *V* (PPLUS1 U* (LIST E C)))) (SETQ Y (CDDR Y)) (GO A1)) ((= E (CAR *V*)) (SETQ C (PPLUS C (CADR *V*))) (COND ((PZEROP C) (SETQ U* (SETQ *V* (PDIFFER1 U* (LIST (CAR *V*) (CADR *V*)))))) (T (RPLACA (CDR *V*) C))) (SETQ Y (CDDR Y)) (GO A1))) A (COND ((AND (CDDR *V*) (> (CADDR *V*) E)) (SETQ *V* (CDDR *V*)) (GO A))) (SETQ U (CDR *V*)) B (COND ((OR (NULL (CDR U)) (< (CADR U) E)) (RPLACD U (CONS E (CONS C (CDR U)))) (GO E))) (COND ((PZEROP (SETQ C (PPLUS (CADDR U) C))) (RPLACD U (CDDDR U)) (GO D)) (T (RPLACA (CDDR U) C))) E (SETQ U (CDDR U)) D (SETQ Y (CDDR Y)) (COND ((NULL Y) (RETURN NIL))) (SETQ E (+ (CAR *X*) (CAR Y))) (SETQ C (PTIMES (CADR Y) (CADR *X*))) C (COND ((AND (CDR U) (> (CADR U) E)) (SETQ U (CDDR U)) (GO C))) (GO B))) (DEFUN PUZZLE-REMOVE (I J) (LET ((END (AREF PIECEMAX I))) (DO ((K 0 (1+ K))) ((> K END)) (COND ((AREF *P* I K) (SETF (AREF PUZZLE (+ J K)) FALSE)))) (SETF (AREF PIECECOUNT (AREF CLASS I)) (+ (AREF PIECECOUNT (AREF CLASS I)) 1)))) (DEFMACRO PZERO () 0) (DEFMACRO PZEROP (X) `(AND (NUMBERP ,X) (ZEROP ,X))) (DEFUN RANDOMIZE (L) (DO ((A NIL)) ((NULL L) A) (LET ((N (MOD (BROWSE-RANDOM) (LENGTH L)))) (COND ((= N 0) (PUSH (CAR L) A) (SETQ L (CDR L))) (T (DO ((N N (1- N)) (X L (CDR X))) ((= N 1) (PUSH (CADR X) A) (RPLACD X (CDDR X))))))))) (DEFUN RECURSIVE-DIV2 (L) (COND ((NULL L) NIL) (T (CONS (CAR L) (RECURSIVE-DIV2 (CDDR L)))))) (DEFUN RECURSIVE-DIV2-TEST (L) (DO ((I 300 (1- I))) ((= I 0)) (RECURSIVE-DIV2 L) (RECURSIVE-DIV2 L) (RECURSIVE-DIV2 L) (RECURSIVE-DIV2 L))) (DEFUN REWRITE (TERM) (COND ((ATOM TERM) TERM) (T (REWRITE-WITH-LEMMAS (CONS (CAR TERM) (REWRITE-ARGS (CDR TERM))) (GET (CAR TERM) 'LEMMAS))))) (DEFUN REWRITE-ARGS (LST) (COND ((NULL LST) NIL) (T (CONS (REWRITE (CAR LST)) (REWRITE-ARGS (CDR LST)))))) (DEFUN REWRITE-WITH-LEMMAS (TERM LST) (COND ((NULL LST) TERM) ((ONE-WAY-UNIFY TERM (CADR (CAR LST))) (REWRITE (APPLY-SUBST UNIFY-SUBST (CADDR (CAR LST))))) (T (REWRITE-WITH-LEMMAS TERM (CDR LST))))) (DEFUN RUN-DDERIV () (DO ((I 0 (1+ I))) ((= I 1000)) (DECLARE (TYPE FIXNUM I)) (DDERIV '(+ (* 3 X X) (* A X X) (* B X) 5)) (DDERIV '(+ (* 3 X X) (* A X X) (* B X) 5)) (DDERIV '(+ (* 3 X X) (* A X X) (* B X) 5)) (DDERIV '(+ (* 3 X X) (* A X X) (* B X) 5)) (DDERIV '(+ (* 3 X X) (* A X X) (* B X) 5)))) (DEFUN RUN-DERIV () (DO ((I 0 (1+ I))) ((= I 1000)) (DECLARE (TYPE FIXNUM I)) (DERIV '(+ (* 3 X X) (* A X X) (* B X) 5)) (DERIV '(+ (* 3 X X) (* A X X) (* B X) 5)) (DERIV '(+ (* 3 X X) (* A X X) (* B X) 5)) (DERIV '(+ (* 3 X X) (* A X X) (* B X) 5)) (DERIV '(+ (* 3 X X) (* A X X) (* B X) 5)))) (DEFUN RUN-ONE (NAME &OPTIONAL (STREAM *STANDARD-OUTPUT*)) (FORMAT STREAM "~&~A: " (GET NAME 'TIMING-DOCUMENTATION)) (MULTIPLE-VALUE-BIND (N-RUNS REAL-TIME CPU-TIME) (MULTIPLE-TIMED-DURATION (GET NAME 'TIMING-FUNCTION)) (FORMAT STREAM "CPU: ~7,3F Page: ~7,3F Real: ~7,3F (based on ~D calls)" CPU-TIME (- REAL-TIME CPU-TIME) REAL-TIME N-RUNS))) (DEFUN RUN-SERIES (&OPTIONAL (STREAM *STANDARD-OUTPUT*)) (DESCRIBE-IMPLEMENTATION STREAM) (TERPRI STREAM) (TERPRI STREAM) (DOLIST (NAME *SERIES*) (RUN-ONE NAME STREAM))) (DEFUN RUN-SERIES-TO-FILE (&OPTIONAL (PATHNAME "RPG-CL.TEXT")) (WITH-OPEN-FILE (STREAM PATHNAME :DIRECTION :OUTPUT) (RUN-SERIES STREAM))) (DEFUN SEED () (SETQ RAND 21)) (DEFUN SETUP () (ADD-LEMMA-LST '((EQUAL (COMPILE FORM) (REVERSE (CODEGEN (OPTIMIZE FORM) (NIL)))) (EQUAL (EQP X Y) (EQUAL (FIX X) (FIX Y))) (EQUAL (GREATERP X Y) (LESSP Y X)) (EQUAL (LESSEQP X Y) (NOT (LESSP Y X))) (EQUAL (GREATEREQP X Y) (NOT (LESSP X Y))) (EQUAL (BOOLEAN X) (OR (EQUAL X (T)) (EQUAL X (F)))) (EQUAL (IFF X Y) (AND (IMPLIES X Y) (IMPLIES Y X))) (EQUAL (EVEN1 X) (IF (ZEROP X) (T) (ODD (1- X)))) (EQUAL (COUNTPS- L PRED) (COUNTPS-LOOP L PRED (ZERO))) (EQUAL (FACT- I) (FACT-LOOP I 1)) (EQUAL (REVERSE- X) (REVERSE-LOOP X (NIL))) (EQUAL (DIVIDES X Y) (ZEROP (REMAINDER Y X))) (EQUAL (ASSUME-TRUE VAR ALIST) (CONS (CONS VAR (T)) ALIST)) (EQUAL (ASSUME-FALSE VAR ALIST) (CONS (CONS VAR (F)) ALIST)) (EQUAL (TAUTOLOGY-CHECKER X) (TAUTOLOGYP (NORMALIZE X) (NIL))) (EQUAL (FALSIFY X) (FALSIFY1 (NORMALIZE X) (NIL))) (EQUAL (PRIME X) (AND (NOT (ZEROP X)) (NOT (EQUAL X (ADD1 (ZERO)))) (PRIME1 X (1- X)))) (EQUAL (AND P Q) (IF P (IF Q (T) (F)) (F))) (EQUAL (OR P Q) (IF P (T) (IF Q (T) (F)) (F))) (EQUAL (NOT P) (IF P (F) (T))) (EQUAL (IMPLIES P Q) (IF P (IF Q (T) (F)) (T))) (EQUAL (FIX X) (IF (NUMBERP X) X (ZERO))) (EQUAL (IF (IF A B C) D E) (IF A (IF B D E) (IF C D E))) (EQUAL (ZEROP X) (OR (EQUAL X (ZERO)) (NOT (NUMBERP X)))) (EQUAL (PLUS (PLUS X Y) Z) (PLUS X (PLUS Y Z))) (EQUAL (EQUAL (PLUS A B) (ZERO)) (AND (ZEROP A) (ZEROP B))) (EQUAL (DIFFERENCE X X) (ZERO)) (EQUAL (EQUAL (PLUS A B) (PLUS A C)) (EQUAL (FIX B) (FIX C))) (EQUAL (EQUAL (ZERO) (DIFFERENCE X Y)) (NOT (LESSP Y X))) (EQUAL (EQUAL X (DIFFERENCE X Y)) (AND (NUMBERP X) (OR (EQUAL X (ZERO)) (ZEROP Y)))) (EQUAL (MEANING (PLUS-TREE (APPEND X Y)) A) (PLUS (MEANING (PLUS-TREE X) A) (MEANING (PLUS-TREE Y) A))) (EQUAL (MEANING (PLUS-TREE (PLUS-FRINGE X)) A) (FIX (MEANING X A))) (EQUAL (APPEND (APPEND X Y) Z) (APPEND X (APPEND Y Z))) (EQUAL (REVERSE (APPEND A B)) (APPEND (REVERSE B) (REVERSE A))) (EQUAL (TIMES X (PLUS Y Z)) (PLUS (TIMES X Y) (TIMES X Z))) (EQUAL (TIMES (TIMES X Y) Z) (TIMES X (TIMES Y Z))) (EQUAL (EQUAL (TIMES X Y) (ZERO)) (OR (ZEROP X) (ZEROP Y))) (EQUAL (EXEC (APPEND X Y) PDS ENVRN) (EXEC Y (EXEC X PDS ENVRN) ENVRN)) (EQUAL (MC-FLATTEN X Y) (APPEND (FLATTEN X) Y)) (EQUAL (MEMBER X (APPEND A B)) (OR (MEMBER X A) (MEMBER X B))) (EQUAL (MEMBER X (REVERSE Y)) (MEMBER X Y)) (EQUAL (LENGTH (REVERSE X)) (LENGTH X)) (EQUAL (MEMBER A (INTERSECT B C)) (AND (MEMBER A B) (MEMBER A C))) (EQUAL (NTH (ZERO) I) (ZERO)) (EQUAL (EXP I (PLUS J K)) (TIMES (EXP I J) (EXP I K))) (EQUAL (EXP I (TIMES J K)) (EXP (EXP I J) K)) (EQUAL (REVERSE-LOOP X Y) (APPEND (REVERSE X) Y)) (EQUAL (REVERSE-LOOP X (NIL)) (REVERSE X)) (EQUAL (COUNT-LIST Z (SORT-LP X Y)) (PLUS (COUNT-LIST Z X) (COUNT-LIST Z Y))) (EQUAL (EQUAL (APPEND A B) (APPEND A C)) (EQUAL B C)) (EQUAL (PLUS (REMAINDER X Y) (TIMES Y (QUOTIENT X Y))) (FIX X)) (EQUAL (POWER-EVAL (BIG-PLUS1 L I BASE) BASE) (PLUS (POWER-EVAL L BASE) I)) (EQUAL (POWER-EVAL (BIG-PLUS X Y I BASE) BASE) (PLUS I (PLUS (POWER-EVAL X BASE) (POWER-EVAL Y BASE)))) (EQUAL (REMAINDER Y 1) (ZERO)) (EQUAL (LESSP (REMAINDER X Y) Y) (NOT (ZEROP Y))) (EQUAL (REMAINDER X X) (ZERO)) (EQUAL (LESSP (QUOTIENT I J) I) (AND (NOT (ZEROP I)) (OR (ZEROP J) (NOT (EQUAL J 1))))) (EQUAL (LESSP (REMAINDER X Y) X) (AND (NOT (ZEROP Y)) (NOT (ZEROP X)) (NOT (LESSP X Y)))) (EQUAL (POWER-EVAL (POWER-REP I BASE) BASE) (FIX I)) (EQUAL (POWER-EVAL (BIG-PLUS (POWER-REP I BASE) (POWER-REP J BASE) (ZERO) BASE) BASE) (PLUS I J)) (EQUAL (GCD X Y) (GCD Y X)) (EQUAL (NTH (APPEND A B) I) (APPEND (NTH A I) (NTH B (DIFFERENCE I (LENGTH A))))) (EQUAL (DIFFERENCE (PLUS X Y) X) (FIX Y)) (EQUAL (DIFFERENCE (PLUS Y X) X) (FIX Y)) (EQUAL (DIFFERENCE (PLUS X Y) (PLUS X Z)) (DIFFERENCE Y Z)) (EQUAL (TIMES X (DIFFERENCE C W)) (DIFFERENCE (TIMES C X) (TIMES W X))) (EQUAL (REMAINDER (TIMES X Z) Z) (ZERO)) (EQUAL (DIFFERENCE (PLUS B (PLUS A C)) A) (PLUS B C)) (EQUAL (DIFFERENCE (ADD1 (PLUS Y Z)) Z) (ADD1 Y)) (EQUAL (LESSP (PLUS X Y) (PLUS X Z)) (LESSP Y Z)) (EQUAL (LESSP (TIMES X Z) (TIMES Y Z)) (AND (NOT (ZEROP Z)) (LESSP X Y))) (EQUAL (LESSP Y (PLUS X Y)) (NOT (ZEROP X))) (EQUAL (GCD (TIMES X Z) (TIMES Y Z)) (TIMES Z (GCD X Y))) (EQUAL (VALUE (NORMALIZE X) A) (VALUE X A)) (EQUAL (EQUAL (FLATTEN X) (CONS Y (NIL))) (AND (NLISTP X) (EQUAL X Y))) (EQUAL (LISTP (GOPHER X)) (LISTP X)) (EQUAL (SAMEFRINGE X Y) (EQUAL (FLATTEN X) (FLATTEN Y))) (EQUAL (EQUAL (GREATEST-FACTOR X Y) (ZERO)) (AND (OR (ZEROP Y) (EQUAL Y 1)) (EQUAL X (ZERO)))) (EQUAL (EQUAL (GREATEST-FACTOR X Y) 1) (EQUAL X 1)) (EQUAL (NUMBERP (GREATEST-FACTOR X Y)) (NOT (AND (OR (ZEROP Y) (EQUAL Y 1)) (NOT (NUMBERP X))))) (EQUAL (TIMES-LIST (APPEND X Y)) (TIMES (TIMES-LIST X) (TIMES-LIST Y))) (EQUAL (PRIME-LIST (APPEND X Y)) (AND (PRIME-LIST X) (PRIME-LIST Y))) (EQUAL (EQUAL Z (TIMES W Z)) (AND (NUMBERP Z) (OR (EQUAL Z (ZERO)) (EQUAL W 1)))) (EQUAL (GREATEREQPR X Y) (NOT (LESSP X Y))) (EQUAL (EQUAL X (TIMES X Y)) (OR (EQUAL X (ZERO)) (AND (NUMBERP X) (EQUAL Y 1)))) (EQUAL (REMAINDER (TIMES Y X) Y) (ZERO)) (EQUAL (EQUAL (TIMES A B) 1) (AND (NOT (EQUAL A (ZERO))) (NOT (EQUAL B (ZERO))) (NUMBERP A) (NUMBERP B) (EQUAL (1- A) (ZERO)) (EQUAL (1- B) (ZERO)))) (EQUAL (LESSP (LENGTH (DELETE X L)) (LENGTH L)) (MEMBER X L)) (EQUAL (SORT2 (DELETE X L)) (DELETE X (SORT2 L))) (EQUAL (DSORT X) (SORT2 X)) (EQUAL (LENGTH (CONS X1 (CONS X2 (CONS X3 (CONS X4 (CONS X5 (CONS X6 X7))))))) (PLUS 6 (LENGTH X7))) (EQUAL (DIFFERENCE (ADD1 (ADD1 X)) 2) (FIX X)) (EQUAL (QUOTIENT (PLUS X (PLUS X Y)) 2) (PLUS X (QUOTIENT Y 2))) (EQUAL (SIGMA (ZERO) I) (QUOTIENT (TIMES I (ADD1 I)) 2)) (EQUAL (PLUS X (ADD1 Y)) (IF (NUMBERP Y) (ADD1 (PLUS X Y)) (ADD1 X))) (EQUAL (EQUAL (DIFFERENCE X Y) (DIFFERENCE Z Y)) (IF (LESSP X Y) (NOT (LESSP Y Z)) (IF (LESSP Z Y) (NOT (LESSP Y X)) (EQUAL (FIX X) (FIX Z))))) (EQUAL (MEANING (PLUS-TREE (DELETE X Y)) A) (IF (MEMBER X Y) (DIFFERENCE (MEANING (PLUS-TREE Y) A) (MEANING X A)) (MEANING (PLUS-TREE Y) A))) (EQUAL (TIMES X (ADD1 Y)) (IF (NUMBERP Y) (PLUS X (TIMES X Y)) (FIX X))) (EQUAL (NTH (NIL) I) (IF (ZEROP I) (NIL) (ZERO))) (EQUAL (LAST (APPEND A B)) (IF (LISTP B) (LAST B) (IF (LISTP A) (CONS (CAR (LAST A)) B) B))) (EQUAL (EQUAL (LESSP X Y) Z) (IF (LESSP X Y) (EQUAL T Z) (EQUAL F Z))) (EQUAL (ASSIGNMENT X (APPEND A B)) (IF (ASSIGNEDP X A) (ASSIGNMENT X A) (ASSIGNMENT X B))) (EQUAL (CAR (GOPHER X)) (IF (LISTP X) (CAR (FLATTEN X)) (ZERO))) (EQUAL (FLATTEN (CDR (GOPHER X))) (IF (LISTP X) (CDR (FLATTEN X)) (CONS (ZERO) (NIL)))) (EQUAL (QUOTIENT (TIMES Y X) Y) (IF (ZEROP Y) (ZERO) (FIX X))) (EQUAL (GET J (SET I VAL MEM)) (IF (EQP J I) VAL (GET J MEM)))))) (DEFUN SETUP-DDERIV () (MAPC #'(LAMBDA (OP FUN) (SETF (GET OP 'DDERIV) (SYMBOL-FUNCTION FUN))) '(+ - * /) '(+DDERIV -DDERIV *DDERIV /DDERIV))) (DEFUN SETUP-FRPOLY () (SETF (GET 'X 'ORDER) 1) (SETF (GET 'Y 'ORDER) 2) (SETF (GET 'Z 'ORDER) 3) (SETQ *R* (PPLUS '(X 1 1 0 1) (PPLUS '(Y 1 1) '(Z 1 1)))) (SETQ *R2* (PTIMES *R* 100000)) (SETQ *R3* (PTIMES *R* 1.0))) (DEFUN SNB () (SETQ SN (1+ SN))) (DEFUN START () (DO ((M 0 (1+ M))) ((> M SIZE)) (SETF (AREF PUZZLE M) TRUE)) (DO ((I 1 (1+ I))) ((> I 5)) (DO ((J 1 (1+ J))) ((> J 5)) (DO ((K 1 (1+ K))) ((> K 5)) (SETF (AREF PUZZLE (+ I (* *D* (+ J (* *D* K))))) FALSE)))) (DO ((I 0 (1+ I))) ((> I TYPEMAX)) (DO ((M 0 (1+ M))) ((> M SIZE)) (SETF (AREF *P* I M) FALSE))) (SETQ III 0) (DEFINEPIECE 0 3 1 0) (DEFINEPIECE 0 1 0 3) (DEFINEPIECE 0 0 3 1) (DEFINEPIECE 0 1 3 0) (DEFINEPIECE 0 3 0 1) (DEFINEPIECE 0 0 1 3) (DEFINEPIECE 1 2 0 0) (DEFINEPIECE 1 0 2 0) (DEFINEPIECE 1 0 0 2) (DEFINEPIECE 2 1 1 0) (DEFINEPIECE 2 1 0 1) (DEFINEPIECE 2 0 1 1) (DEFINEPIECE 3 1 1 1) (SETF (AREF PIECECOUNT 0) 13) (SETF (AREF PIECECOUNT 1) 3) (SETF (AREF PIECECOUNT 2) 1) (SETF (AREF PIECECOUNT 3) 1) (LET ((M (+ 1 (* *D* (+ 1 *D*)))) (N 0) (KOUNT 0)) (COND ((FIT 0 M) (SETQ N (PLACE 0 M))) (T (FORMAT T "~%Error."))) (COND ((TRIAL N) (FORMAT T "~%Success in ~4D trials." KOUNT)) (T (FORMAT T "~%Failure."))))) (DEFUN TAUTOLOGYP (X TRUE-LST FALSE-LST) (COND ((TRUEP X TRUE-LST) T) ((FALSEP X FALSE-LST) NIL) ((ATOM X) NIL) ((EQ (CAR X) 'IF) (COND ((TRUEP (CADR X) TRUE-LST) (TAUTOLOGYP (CADDR X) TRUE-LST FALSE-LST)) ((FALSEP (CADR X) FALSE-LST) (TAUTOLOGYP (CADDDR X) TRUE-LST FALSE-LST)) (T (AND (TAUTOLOGYP (CADDR X) (CONS (CADR X) TRUE-LST) FALSE-LST) (TAUTOLOGYP (CADDDR X) TRUE-LST (CONS (CADR X) FALSE-LST)))))) (T NIL))) (DEFUN TAUTP (X) (TAUTOLOGYP (REWRITE X) NIL NIL)) (DEFUN TEST () (PROG (ANS TERM) (SETQ TERM (APPLY-SUBST '((X F (PLUS (PLUS A B) (PLUS C (ZERO)))) (Y F (TIMES (TIMES A B) (PLUS C D))) (Z F (REVERSE (APPEND (APPEND A B) (NIL)))) (U EQUAL (PLUS A B) (DIFFERENCE X Y)) (W LESSP (REMAINDER A B) (MEMBER A (LENGTH B)))) '(IMPLIES (AND (IMPLIES X Y) (AND (IMPLIES Y Z) (AND (IMPLIES Z U) (IMPLIES U W)))) (IMPLIES X W)))) (SETQ ANS (TAUTP TERM)))) (DEFUN TRANS-OF-IMPLIES (N) (LIST 'IMPLIES (TRANS-OF-IMPLIES1 N) (LIST 'IMPLIES 0 N))) (DEFUN TRANS-OF-IMPLIES1 (N) (COND ((EQUAL N 1) (LIST 'IMPLIES 0 1)) (T (LIST 'AND (LIST 'IMPLIES (1- N) N) (TRANS-OF-IMPLIES1 (1- N)))))) (DEFUN TRAVERS (TNODE MARK) (COND ((EQ (TNODE-MARK TNODE) MARK) NIL) (T (SETF (TNODE-MARK TNODE) MARK) (SETQ COUNT (1+ COUNT)) (SETF (TNODE-ENTRY1 TNODE) (NOT (TNODE-ENTRY1 TNODE))) (SETF (TNODE-ENTRY2 TNODE) (NOT (TNODE-ENTRY2 TNODE))) (SETF (TNODE-ENTRY3 TNODE) (NOT (TNODE-ENTRY3 TNODE))) (SETF (TNODE-ENTRY4 TNODE) (NOT (TNODE-ENTRY4 TNODE))) (SETF (TNODE-ENTRY5 TNODE) (NOT (TNODE-ENTRY5 TNODE))) (SETF (TNODE-ENTRY6 TNODE) (NOT (TNODE-ENTRY6 TNODE))) (DO ((SONS (TNODE-SONS TNODE) (CDR SONS))) ((NULL SONS) NIL) (TRAVERS (CAR SONS) MARK))))) (DEFUN TRAVERSE (ROOT) (LET ((COUNT 0)) (TRAVERS ROOT (SETQ MARKER (NOT MARKER))) COUNT)) (DEFUN TRAVERSE-RANDOM () (SETQ RAND (MOD (* RAND 17) 251))) (DEFUN TRAVERSE-REMOVE (N Q) (COND ((EQ (CDR (CAR Q)) (CAR Q)) (PROG2 NIL (CAAR Q) (RPLACA Q NIL))) ((= N 0) (PROG2 NIL (CAAR Q) (DO ((P (CAR Q) (CDR P))) ((EQ (CDR P) (CAR Q)) (RPLACA Q (RPLACD P (CDR (CAR Q)))))))) (T (DO ((N N (1- N)) (Q (CAR Q) (CDR Q)) (P (CDR (CAR Q)) (CDR P))) ((= N 0) (PROG2 NIL (CAR Q) (RPLACD Q P))))))) (DEFUN TRAVERSE-SELECT (N Q) (DO ((N N (1- N)) (Q (CAR Q) (CDR Q))) ((= N 0) (CAR Q)))) (DEFUN TRIAL (J) (LET ((K 0)) (DO ((I 0 (1+ I))) ((> I TYPEMAX) (SETQ KOUNT (1+ KOUNT)) FALSE) (COND ((NOT (= (AREF PIECECOUNT (AREF CLASS I)) 0)) (COND ((FIT I J) (SETQ K (PLACE I J)) (COND ((OR (TRIAL K) (= K 0)) (SETQ KOUNT (+ KOUNT 1)) (RETURN TRUE)) (T (PUZZLE-REMOVE I J)))))))))) (DEFUN TRIANG-TEST () (DOTIMES (J 16) (SETF (AREF BOARD J) 1)) (SETF (AREF BOARD 5) 0) (LET ((ANSWER NIL) (FINAL NIL)) (TRY 22 1) (= (LENGTH ANSWER) 775))) (DEFUN TRUEP (X LST) (OR (EQUAL X '(T)) (MEMBER X LST :TEST #'EQUAL))) (DEFUN TRY (I DEPTH) (COND ((= DEPTH 14) (LET ((LP (LAST-POSITION))) (UNLESS (MEMBER LP FINAL) (PUSH LP FINAL))) (PUSH (CDR (COERCE SEQUENCE 'LIST)) ANSWER) T) ((AND (= 1 (AREF BOARD (AREF *A* I))) (= 1 (AREF BOARD (AREF *B* I))) (= 0 (AREF BOARD (AREF *C* I)))) (SETF (AREF BOARD (AREF *A* I)) 0) (SETF (AREF BOARD (AREF *B* I)) 0) (SETF (AREF BOARD (AREF *C* I)) 1) (SETF (AREF SEQUENCE DEPTH) I) (DO ((J 0 (1+ J)) (DEPTH (1+ DEPTH))) ((OR (= J 36) (TRY J DEPTH)) NIL)) (SETF (AREF BOARD (AREF *A* I)) 1) (SETF (AREF BOARD (AREF *B* I)) 1) (SETF (AREF BOARD (AREF *C* I)) 0) NIL))) (IL:* IL:|;;| "Modified version of browse which doesn't cons so much") (DEFMACRO CHAR1* (X) `(CODE-CHAR (IL:NTHCHARCODE ,X 1))) (DEFUN BROWSE* () (SETF RAND 21) (INVESTIGATE* (RANDOMIZE (INIT 100 10 4 '((A A A B B B B A A A A A B B A A A) (A A B B B B A A (A A) (B B)) (A A A B (B A) B A B A)))) '((*A ?B *B ?B A *A A *B *A) (*A *B *B *A (*A) (*B)) (? ? * (B A) * ? ?)))) (DEFUN INVESTIGATE* (UNITS PATS) (DO ((UNITS UNITS (CDR UNITS))) ((NULL UNITS)) (DO ((PATS PATS (CDR PATS))) ((NULL PATS)) (DO ((P (GET (CAR UNITS) 'PATTERN) (CDR P))) ((NULL P)) (MATCH* (CAR PATS) (CAR P) NIL))))) (DEFUN MATCH* (PAT DAT ALIST) (COND ((NULL PAT) (NULL DAT)) ((NULL DAT) NIL) ((OR (EQ (CAR PAT) '?) (EQ (CAR PAT) (CAR DAT))) (MATCH* (CDR PAT) (CDR DAT) ALIST)) ((EQ (CAR PAT) '*) (OR (MATCH* (CDR PAT) DAT ALIST) (MATCH* (CDR PAT) (CDR DAT) ALIST) (MATCH* PAT (CDR DAT) ALIST))) (T (COND ((ATOM (CAR PAT)) (COND ((EQL (CHAR1* (CAR PAT)) #\?) (LET ((VAL (ASSOC (CAR PAT) ALIST))) (COND (VAL (MATCH* (CONS (CDR VAL) (CDR PAT)) DAT ALIST)) (T (MATCH* (CDR PAT) (CDR DAT) (CONS (CONS (CAR PAT) (CAR DAT)) ALIST)))))) ((EQL (CHAR1* (CAR PAT)) #\*) (LET ((VAL (ASSOC (CAR PAT) ALIST))) (COND (VAL (MATCH* (APPEND (CDR VAL) (CDR PAT)) DAT ALIST)) (T (DO ((L NIL (NCONC L (CONS (CAR D) NIL))) (E (CONS NIL DAT) (CDR E)) (D DAT (CDR D))) ((NULL E) NIL) (COND ((MATCH* (CDR PAT) D (CONS (CONS (CAR PAT) L) ALIST)) (RETURN T)))))))))) (T (AND (NOT (ATOM (CAR DAT))) (MATCH* (CAR PAT) (CAR DAT) ALIST) (MATCH* (CDR PAT) (CDR DAT) ALIST))))))) (DEFINE-TIMER BROWSE* "Browse" (BROWSE*)) (IL:* IL:|;;| "Modified version of traverse-init to break circularities") (DEFUN CREATE-STRUCTURE* (N) (LET ((A `(,(MAKE-TNODE)))) (DO ((M (1- N) (1- M)) (P A)) ((= M 0) (SETQ A `(,(RPLACD P A))) (DO ((UNUSED A) (USED (ADD (TRAVERSE-REMOVE* 0 A) NIL)) (X) (Y)) ((NULL (CAR UNUSED)) (PROG1 (FIND-ROOT (TRAVERSE-SELECT 0 USED) N) (IL:* IL:|;;| "Break the circularities") (RPLACD (CAR USED) NIL))) (SETQ X (TRAVERSE-REMOVE* (REM (TRAVERSE-RANDOM) N) UNUSED)) (SETQ Y (TRAVERSE-SELECT (REM (TRAVERSE-RANDOM) N) USED)) (ADD X USED) (SETF (TNODE-SONS Y) `(,X . ,(TNODE-SONS Y))) (SETF (TNODE-PARENTS X) `(,Y . ,(TNODE-PARENTS X))))) (PUSH (MAKE-TNODE) A)))) (DEFUN TRAVERSE-REMOVE* (N Q) (COND ((EQ (CDR (CAR Q)) (CAR Q)) (PROG2 NIL (CAAR Q) (IL:* IL:|;;| "Break the circularity ") (RPLACD (CAR Q) NIL) (RPLACA Q NIL))) ((= N 0) (PROG2 NIL (CAAR Q) (DO ((P (CAR Q) (CDR P))) ((EQ (CDR P) (CAR Q)) (RPLACA Q (RPLACD P (CDR (CAR Q)))))))) (T (DO ((N N (1- N)) (Q (CAR Q) (CDR Q)) (P (CDR (CAR Q)) (CDR P))) ((= N 0) (PROG2 NIL (CAR Q) (RPLACD Q P))))))) (DEFUN RELEASE-TREE (ROOT) (LET ((*TREE-SNS* NIL)) (DECLARE (SPECIAL *TREE-SNS*)) (RELEASE-TREE-AUX ROOT))) (DEFUN RELEASE-TREE-AUX (NODE) (LET ((SONS (TNODE-SONS NODE))) (DECLARE (SPECIAL *TREE-SNS*)) (PUSHNEW (TNODE-SN NODE) *TREE-SNS*) (SETF (TNODE-PARENTS NODE) NIL) (DOLIST (N SONS) (IF (NOT (MEMBER (TNODE-SN N) *TREE-SNS* :TEST #'EQ)) (RELEASE-TREE-AUX N))) (SETF (TNODE-SONS NODE) NIL))) (DEFINE-TIMER (TRAVERSE* (:SETUP (PROGN (SETQ SN 0) (SETQ RAND 21) (SETQ COUNT 0) (SETQ MARKER NIL) (SETQ ROOT (CREATE-STRUCTURE* 100)) NIL)) (:AFTER (RELEASE-TREE ROOT))) "Traverse, Traverse" (DO ((I 50 (1- I))) ((= I 0)) (TRAVERSE ROOT) (TRAVERSE ROOT) (TRAVERSE ROOT) (TRAVERSE ROOT) (TRAVERSE ROOT))) (DEFINE-TIMER (TRAVERSE-INIT* (:AFTER-EVERY (RELEASE-TREE ROOT))) "Traverse, Initialize" (PROGN (SETQ SN 0) (SETQ RAND 21) (SETQ COUNT 0) (SETQ MARKER NIL) (SETQ ROOT (CREATE-STRUCTURE* 100)) NIL)) (DEFVAR DIV2-L (CREATE-N 200)) (DEFPARAMETER *CONSY-BENCHMARKS* '(DERIV DDERIV DIV2-1 DIV2-2 DESTRU BOYER BROWSE BROWSE* TRAVERSE-INIT* TRAVERSE*)) (DEFPARAMETER *AREFY-BENCHMARKS* '(PUZZLE TRIANG FFT)) (DEFPARAMETER *POLY-BENCHMARKS* '(FRPOLY10R FRPOLY10R2 FRPOLY10R3 FRPOLY15R FRPOLY15R2 FRPOLY15R3 FRPOLY2R FRPOLY2R2 FRPOLY2R3 FRPOLY5R FRPOLY5R2 FRPOLY5R3)) (DEFINE-TIMER (BOYER (:SETUP (SETUP))) "Boyer" (TEST)) (DEFINE-TIMER BROWSE "Browse" (BROWSE)) (DEFINE-TIMER (DDERIV (:SETUP (SETUP-DDERIV))) "DDeriv" (RUN-DDERIV)) (DEFINE-TIMER DERIV "Deriv" (RUN-DERIV)) (DEFINE-TIMER DESTRU "Destruct" (DESTRUCTIVE 600 50)) (DEFINE-TIMER DIV2-1 "Div2, Iterative" (ITERATIVE-DIV2-TEST DIV2-L)) (DEFINE-TIMER DIV2-2 "Div2, Recursive" (RECURSIVE-DIV2-TEST DIV2-L)) (DEFINE-TIMER FFT "FFT" (DO ((NTIMES 0 (1+ NTIMES))) ((= NTIMES 10)) (FFT RE IM))) (DEFINE-TIMER (FRPOLY10R (:SETUP (SETUP-FRPOLY))) "FRPoly, Power = 10, r = x + y + z + 1" (PEXPTSQ *R* 10)) (DEFINE-TIMER (FRPOLY10R2 (:SETUP (SETUP-FRPOLY))) "FRPoly, Power = 10, r2 = 1000r" (PEXPTSQ *R2* 10)) (DEFINE-TIMER (FRPOLY10R3 (:SETUP (SETUP-FRPOLY))) "FRPoly, Power = 10, r3 = r in flonums" (PEXPTSQ *R3* 10)) (DEFINE-TIMER (FRPOLY15R (:SETUP (SETUP-FRPOLY))) "FRPoly, Power = 15, r = x + y + z + 1" (PEXPTSQ *R* 15)) (DEFINE-TIMER (FRPOLY15R2 (:SETUP (SETUP-FRPOLY))) "FRPoly, Power = 15, r2 = 1000r" (PEXPTSQ *R2* 15)) (DEFINE-TIMER (FRPOLY15R3 (:SETUP (SETUP-FRPOLY))) "FRPoly, Power = 15, r3 = r in flonums" (PEXPTSQ *R3* 15)) (DEFINE-TIMER (FRPOLY2R (:SETUP (SETUP-FRPOLY))) "FRPoly, Power = 2, r = x + y + z + 1" (PEXPTSQ *R* 2)) (DEFINE-TIMER (FRPOLY2R2 (:SETUP (SETUP-FRPOLY))) "FRPoly, Power = 2, r2 = 1000r" (PEXPTSQ *R2* 2)) (DEFINE-TIMER (FRPOLY2R3 (:SETUP (SETUP-FRPOLY))) "FRPoly, Power = 2, r3 = r in flonums" (PEXPTSQ *R3* 2)) (DEFINE-TIMER (FRPOLY5R (:SETUP (SETUP-FRPOLY))) "FRPoly, Power = 5, r = x + y + z + 1" (PEXPTSQ *R* 5)) (DEFINE-TIMER (FRPOLY5R2 (:SETUP (SETUP-FRPOLY))) "FRPoly, Power = 5, r2 = 1000r" (PEXPTSQ *R2* 5)) (DEFINE-TIMER (FRPOLY5R3 (:SETUP (SETUP-FRPOLY))) "FRPoly, Power = 5, r3 = r in flonums" (PEXPTSQ *R3* 5)) (DEFINE-TIMER PUZZLE "Puzzle" (START)) (DEFINE-TIMER TRAVERSE "Traverse, Traverse" (DO ((I 50 (1- I))) ((= I 0)) (TRAVERSE ROOT) (TRAVERSE ROOT) (TRAVERSE ROOT) (TRAVERSE ROOT) (TRAVERSE ROOT))) (DEFINE-TIMER TRAVERSE-INIT "Traverse, Initialize" (PROGN (SETQ SN 0) (SETQ RAND 21) (SETQ COUNT 0) (SETQ MARKER NIL) (SETQ ROOT (CREATE-STRUCTURE 100)) NIL)) (DEFINE-TIMER TRIANG "Triang" (GOGOGO 22)) (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:DECLARE\: IL:DOEVAL@COMPILE IL:DONTCOPY (IL:LOCALVARS . T) ) ) (IL:PUTPROPS IL:GABRIEL-OTHER IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:GABRIEL-OTHER IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (XCL:DEFPACKAGE "GABRIEL"))) (IL:PUTPROPS IL:GABRIEL-OTHER IL:COPYRIGHT ("Xerox Corporation" 1987 1988)) (IL:DECLARE\: IL:DONTCOPY (IL:FILEMAP (NIL))) IL:STOP \ No newline at end of file diff --git a/internal/gabriel/benchmarks/GABRIEL-OTHER.LCOM b/internal/gabriel/benchmarks/GABRIEL-OTHER.LCOM deleted file mode 100644 index d5201f3e..00000000 Binary files a/internal/gabriel/benchmarks/GABRIEL-OTHER.LCOM and /dev/null differ diff --git a/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl b/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl deleted file mode 100644 index c12d5629..00000000 Binary files a/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl and /dev/null differ diff --git a/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~1~ b/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~1~ deleted file mode 100644 index d573d517..00000000 Binary files a/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~1~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~2~ b/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~2~ deleted file mode 100644 index 38fa53c6..00000000 Binary files a/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~2~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~3~ b/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~3~ deleted file mode 100644 index abeddcd6..00000000 Binary files a/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~3~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~4~ b/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~4~ deleted file mode 100644 index c12d5629..00000000 Binary files a/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~4~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/GABRIEL-TAK b/internal/gabriel/benchmarks/GABRIEL-TAK deleted file mode 100644 index a94861a0..00000000 --- a/internal/gabriel/benchmarks/GABRIEL-TAK +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "GABRIEL")) (il:filecreated "13-Apr-88 13:15:44" il:{eris}gabriel>medley>gabriel-tak.\;1 52748 il:|previous| il:|date:| "26-May-87 09:18:24" il:{eris}gabriel>gabriel-tak.\;7) ; Copyright (c) 1987, 1988 by Xerox Corporation. All rights reserved. (il:prettycomprint il:gabriel-takcoms) (il:rpaqq il:gabriel-takcoms ((il:files il:gabriel-timers) (il:functions listn) (il:variables |12L| |18L| |6L|) (il:variables *x* *y* *z*) (il:functions ctak ctak-aux mas shorterp stak stak-aux tak tak0 tak1 tak10 tak11 tak12 tak13 tak14 tak15 tak16 tak17 tak18 tak19 tak2 tak20 tak21 tak22 tak23 tak24 tak25 tak26 tak27 tak28 tak29 tak3 tak30 tak31 tak32 tak33 tak34 tak35 tak36 tak37 tak38 tak39 tak4 tak40 tak41 tak42 tak43 tak44 tak45 tak46 tak47 tak48 tak49 tak5 tak50 tak51 tak52 tak53 tak54 tak55 tak56 tak57 tak58 tak59 tak6 tak60 tak61 tak62 tak63 tak64 tak65 tak66 tak67 tak68 tak69 tak7 tak70 tak71 tak72 tak73 tak74 tak75 tak76 tak77 tak78 tak79 tak8 tak80 tak81 tak82 tak83 tak84 tak85 tak86 tak87 tak88 tak89 tak9 tak90 tak91 tak92 tak93 tak94 tak95 tak96 tak97 tak98 tak99) (timers ctak stak tak takl takr) (il:variables *tak-timers*) (il:declare\: il:dontcopy il:doeval@compile (il:localvars . t)) (il:prop (il:filetype il:makefile-environment) il:gabriel-tak))) (il:filesload il:gabriel-timers) (defun listn (n) (if (not (zerop n)) (list* n (listn (1- n))))) (defvar |12L| (listn 12) ) (defvar |18L| (listn 18) ) (defvar |6L| (listn 6) ) (defvar *x* ) (defvar *y* ) (defvar *z* ) (defun ctak (x y z) (declare (type fixnum x y z)) (catch 'ctak (ctak-aux x y z))) (defun ctak-aux (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) (throw 'ctak z)) (t (ctak-aux (catch 'ctak (ctak-aux (1- x) y z)) (catch 'ctak (ctak-aux (1- y) z x)) (catch 'ctak (ctak-aux (1- z) x y)))))) (defun mas (x y z) (declare (type list x y z)) (if (not (shorterp y x)) z (mas (mas (cdr x) y z) (mas (cdr y) z x) (mas (cdr z) x y)))) (defun shorterp (x y) (declare (type list x y)) (and y (or (null x) (shorterp (cdr x) (cdr y))))) (defun stak (*x* *y* *z*) (stak-aux)) (defun stak-aux nil (if (not (< *y* *x*)) *z* (let ((*x* (let ((*x* (1- *x*)) (*y* *y*) (*z* *z*)) (stak-aux))) (*y* (let ((*x* (1- *y*)) (*y* *z*) (*z* *x*)) (stak-aux))) (*z* (let ((*x* (1- *z*)) (*y* *x*) (*z* *y*)) (stak-aux)))) (stak-aux)))) (defun tak (x y z) (declare (type fixnum x y z)) (if (not (< y x)) z (tak (tak (1- x) y z) (tak (1- y) z x) (tak (1- z) x y)))) (defun tak0 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak1 (tak37 (1- x) y z) (tak11 (1- y) z x) (tak17 (1- z) x y))))) (defun tak1 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak2 (tak74 (1- x) y z) (tak22 (1- y) z x) (tak34 (1- z) x y))))) (defun tak10 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak11 (tak7 (1- x) y z) (tak21 (1- y) z x) (tak87 (1- z) x y))))) (defun tak11 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak12 (tak44 (1- x) y z) (tak32 (1- y) z x) (tak4 (1- z) x y))))) (defun tak12 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak13 (tak81 (1- x) y z) (tak43 (1- y) z x) (tak21 (1- z) x y))))) (defun tak13 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak14 (tak18 (1- x) y z) (tak54 (1- y) z x) (tak38 (1- z) x y))))) (defun tak14 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak15 (tak55 (1- x) y z) (tak65 (1- y) z x) (tak55 (1- z) x y))))) (defun tak15 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak16 (tak92 (1- x) y z) (tak76 (1- y) z x) (tak72 (1- z) x y))))) (defun tak16 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak17 (tak29 (1- x) y z) (tak87 (1- y) z x) (tak89 (1- z) x y))))) (defun tak17 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak18 (tak66 (1- x) y z) (tak98 (1- y) z x) (tak6 (1- z) x y))))) (defun tak18 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak19 (tak3 (1- x) y z) (tak9 (1- y) z x) (tak23 (1- z) x y))))) (defun tak19 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak20 (tak40 (1- x) y z) (tak20 (1- y) z x) (tak40 (1- z) x y))))) (defun tak2 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak3 (tak11 (1- x) y z) (tak33 (1- y) z x) (tak51 (1- z) x y))))) (defun tak20 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak21 (tak77 (1- x) y z) (tak31 (1- y) z x) (tak57 (1- z) x y))))) (defun tak21 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak22 (tak14 (1- x) y z) (tak42 (1- y) z x) (tak74 (1- z) x y))))) (defun tak22 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak23 (tak51 (1- x) y z) (tak53 (1- y) z x) (tak91 (1- z) x y))))) (defun tak23 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak24 (tak88 (1- x) y z) (tak64 (1- y) z x) (tak8 (1- z) x y))))) (defun tak24 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak25 (tak25 (1- x) y z) (tak75 (1- y) z x) (tak25 (1- z) x y))))) (defun tak25 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak26 (tak62 (1- x) y z) (tak86 (1- y) z x) (tak42 (1- z) x y))))) (defun tak26 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak27 (tak99 (1- x) y z) (tak97 (1- y) z x) (tak59 (1- z) x y))))) (defun tak27 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak28 (tak36 (1- x) y z) (tak8 (1- y) z x) (tak76 (1- z) x y))))) (defun tak28 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak29 (tak73 (1- x) y z) (tak19 (1- y) z x) (tak93 (1- z) x y))))) (defun tak29 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak30 (tak10 (1- x) y z) (tak30 (1- y) z x) (tak10 (1- z) x y))))) (defun tak3 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak4 (tak48 (1- x) y z) (tak44 (1- y) z x) (tak68 (1- z) x y))))) (defun tak30 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak31 (tak47 (1- x) y z) (tak41 (1- y) z x) (tak27 (1- z) x y))))) (defun tak31 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak32 (tak84 (1- x) y z) (tak52 (1- y) z x) (tak44 (1- z) x y))))) (defun tak32 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak33 (tak21 (1- x) y z) (tak63 (1- y) z x) (tak61 (1- z) x y))))) (defun tak33 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak34 (tak58 (1- x) y z) (tak74 (1- y) z x) (tak78 (1- z) x y))))) (defun tak34 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak35 (tak95 (1- x) y z) (tak85 (1- y) z x) (tak95 (1- z) x y))))) (defun tak35 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak36 (tak32 (1- x) y z) (tak96 (1- y) z x) (tak12 (1- z) x y))))) (defun tak36 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak37 (tak69 (1- x) y z) (tak7 (1- y) z x) (tak29 (1- z) x y))))) (defun tak37 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak38 (tak6 (1- x) y z) (tak18 (1- y) z x) (tak46 (1- z) x y))))) (defun tak38 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak39 (tak43 (1- x) y z) (tak29 (1- y) z x) (tak63 (1- z) x y))))) (defun tak39 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak40 (tak80 (1- x) y z) (tak40 (1- y) z x) (tak80 (1- z) x y))))) (defun tak4 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak5 (tak85 (1- x) y z) (tak55 (1- y) z x) (tak85 (1- z) x y))))) (defun tak40 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak41 (tak17 (1- x) y z) (tak51 (1- y) z x) (tak97 (1- z) x y))))) (defun tak41 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak42 (tak54 (1- x) y z) (tak62 (1- y) z x) (tak14 (1- z) x y))))) (defun tak42 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak43 (tak91 (1- x) y z) (tak73 (1- y) z x) (tak31 (1- z) x y))))) (defun tak43 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak44 (tak28 (1- x) y z) (tak84 (1- y) z x) (tak48 (1- z) x y))))) (defun tak44 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak45 (tak65 (1- x) y z) (tak95 (1- y) z x) (tak65 (1- z) x y))))) (defun tak45 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak46 (tak2 (1- x) y z) (tak6 (1- y) z x) (tak82 (1- z) x y))))) (defun tak46 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak47 (tak39 (1- x) y z) (tak17 (1- y) z x) (tak99 (1- z) x y))))) (defun tak47 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak48 (tak76 (1- x) y z) (tak28 (1- y) z x) (tak16 (1- z) x y))))) (defun tak48 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak49 (tak13 (1- x) y z) (tak39 (1- y) z x) (tak33 (1- z) x y))))) (defun tak49 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak50 (tak50 (1- x) y z) (tak50 (1- y) z x) (tak50 (1- z) x y))))) (defun tak5 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak6 (tak22 (1- x) y z) (tak66 (1- y) z x) (tak2 (1- z) x y))))) (defun tak50 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak51 (tak87 (1- x) y z) (tak61 (1- y) z x) (tak67 (1- z) x y))))) (defun tak51 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak52 (tak24 (1- x) y z) (tak72 (1- y) z x) (tak84 (1- z) x y))))) (defun tak52 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak53 (tak61 (1- x) y z) (tak83 (1- y) z x) (tak1 (1- z) x y))))) (defun tak53 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak54 (tak98 (1- x) y z) (tak94 (1- y) z x) (tak18 (1- z) x y))))) (defun tak54 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak55 (tak35 (1- x) y z) (tak5 (1- y) z x) (tak35 (1- z) x y))))) (defun tak55 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak56 (tak72 (1- x) y z) (tak16 (1- y) z x) (tak52 (1- z) x y))))) (defun tak56 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak57 (tak9 (1- x) y z) (tak27 (1- y) z x) (tak69 (1- z) x y))))) (defun tak57 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak58 (tak46 (1- x) y z) (tak38 (1- y) z x) (tak86 (1- z) x y))))) (defun tak58 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak59 (tak83 (1- x) y z) (tak49 (1- y) z x) (tak3 (1- z) x y))))) (defun tak59 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak60 (tak20 (1- x) y z) (tak60 (1- y) z x) (tak20 (1- z) x y))))) (defun tak6 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak7 (tak59 (1- x) y z) (tak77 (1- y) z x) (tak19 (1- z) x y))))) (defun tak60 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak61 (tak57 (1- x) y z) (tak71 (1- y) z x) (tak37 (1- z) x y))))) (defun tak61 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak62 (tak94 (1- x) y z) (tak82 (1- y) z x) (tak54 (1- z) x y))))) (defun tak62 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak63 (tak31 (1- x) y z) (tak93 (1- y) z x) (tak71 (1- z) x y))))) (defun tak63 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak64 (tak68 (1- x) y z) (tak4 (1- y) z x) (tak88 (1- z) x y))))) (defun tak64 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak65 (tak5 (1- x) y z) (tak15 (1- y) z x) (tak5 (1- z) x y))))) (defun tak65 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak66 (tak42 (1- x) y z) (tak26 (1- y) z x) (tak22 (1- z) x y))))) (defun tak66 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak67 (tak79 (1- x) y z) (tak37 (1- y) z x) (tak39 (1- z) x y))))) (defun tak67 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak68 (tak16 (1- x) y z) (tak48 (1- y) z x) (tak56 (1- z) x y))))) (defun tak68 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak69 (tak53 (1- x) y z) (tak59 (1- y) z x) (tak73 (1- z) x y))))) (defun tak69 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak70 (tak90 (1- x) y z) (tak70 (1- y) z x) (tak90 (1- z) x y))))) (defun tak7 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak8 (tak96 (1- x) y z) (tak88 (1- y) z x) (tak36 (1- z) x y))))) (defun tak70 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak71 (tak27 (1- x) y z) (tak81 (1- y) z x) (tak7 (1- z) x y))))) (defun tak71 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak72 (tak64 (1- x) y z) (tak92 (1- y) z x) (tak24 (1- z) x y))))) (defun tak72 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak73 (tak1 (1- x) y z) (tak3 (1- y) z x) (tak41 (1- z) x y))))) (defun tak73 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak74 (tak38 (1- x) y z) (tak14 (1- y) z x) (tak58 (1- z) x y))))) (defun tak74 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak75 (tak75 (1- x) y z) (tak25 (1- y) z x) (tak75 (1- z) x y))))) (defun tak75 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak76 (tak12 (1- x) y z) (tak36 (1- y) z x) (tak92 (1- z) x y))))) (defun tak76 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak77 (tak49 (1- x) y z) (tak47 (1- y) z x) (tak9 (1- z) x y))))) (defun tak77 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak78 (tak86 (1- x) y z) (tak58 (1- y) z x) (tak26 (1- z) x y))))) (defun tak78 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak79 (tak23 (1- x) y z) (tak69 (1- y) z x) (tak43 (1- z) x y))))) (defun tak79 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak80 (tak60 (1- x) y z) (tak80 (1- y) z x) (tak60 (1- z) x y))))) (defun tak8 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak9 (tak33 (1- x) y z) (tak99 (1- y) z x) (tak53 (1- z) x y))))) (defun tak80 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak81 (tak97 (1- x) y z) (tak91 (1- y) z x) (tak77 (1- z) x y))))) (defun tak81 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak82 (tak34 (1- x) y z) (tak2 (1- y) z x) (tak94 (1- z) x y))))) (defun tak82 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak83 (tak71 (1- x) y z) (tak13 (1- y) z x) (tak11 (1- z) x y))))) (defun tak83 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak84 (tak8 (1- x) y z) (tak24 (1- y) z x) (tak28 (1- z) x y))))) (defun tak84 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak85 (tak45 (1- x) y z) (tak35 (1- y) z x) (tak45 (1- z) x y))))) (defun tak85 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak86 (tak82 (1- x) y z) (tak46 (1- y) z x) (tak62 (1- z) x y))))) (defun tak86 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak87 (tak19 (1- x) y z) (tak57 (1- y) z x) (tak79 (1- z) x y))))) (defun tak87 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak88 (tak56 (1- x) y z) (tak68 (1- y) z x) (tak96 (1- z) x y))))) (defun tak88 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak89 (tak93 (1- x) y z) (tak79 (1- y) z x) (tak13 (1- z) x y))))) (defun tak89 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak90 (tak30 (1- x) y z) (tak90 (1- y) z x) (tak30 (1- z) x y))))) (defun tak9 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak10 (tak70 (1- x) y z) (tak10 (1- y) z x) (tak70 (1- z) x y))))) (defun tak90 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak91 (tak67 (1- x) y z) (tak1 (1- y) z x) (tak47 (1- z) x y))))) (defun tak91 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak92 (tak4 (1- x) y z) (tak12 (1- y) z x) (tak64 (1- z) x y))))) (defun tak92 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak93 (tak41 (1- x) y z) (tak23 (1- y) z x) (tak81 (1- z) x y))))) (defun tak93 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak94 (tak78 (1- x) y z) (tak34 (1- y) z x) (tak98 (1- z) x y))))) (defun tak94 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak95 (tak15 (1- x) y z) (tak45 (1- y) z x) (tak15 (1- z) x y))))) (defun tak95 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak96 (tak52 (1- x) y z) (tak56 (1- y) z x) (tak32 (1- z) x y))))) (defun tak96 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak97 (tak89 (1- x) y z) (tak67 (1- y) z x) (tak49 (1- z) x y))))) (defun tak97 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak98 (tak26 (1- x) y z) (tak78 (1- y) z x) (tak66 (1- z) x y))))) (defun tak98 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak99 (tak63 (1- x) y z) (tak89 (1- y) z x) (tak83 (1- z) x y))))) (defun tak99 (x y z) (declare (type fixnum x y z)) (cond ((not (< y x)) z) (t (tak0 (tak0 (1- x) y z) (tak0 (1- y) z x) (tak0 (1- z) x y))))) (define-timer ctak "CTak" (ctak 18 12 6)) (define-timer stak "STak" (stak 18 12 6)) (define-timer tak "Tak" (tak 18 12 6)) (define-timer takl "TakL" (mas |18L| |12L| |6L|)) (define-timer takr "TakR" (tak0 18 12 6)) (defparameter *tak-timers* '(ctak stak tak takl takr) ) (il:declare\: il:dontcopy il:doeval@compile (il:declare\: il:doeval@compile il:dontcopy (il:localvars . t) ) ) (il:putprops il:gabriel-tak il:filetype compile-file) (il:putprops il:gabriel-tak il:makefile-environment (:readtable "XCL" :package (xcl:defpackage "GABRIEL"))) (il:putprops il:gabriel-tak il:copyright ("Xerox Corporation" 1987 1988)) (il:declare\: il:dontcopy (il:filemap (nil))) il:stop \ No newline at end of file diff --git a/internal/gabriel/benchmarks/GABRIEL-TAK.LCOM b/internal/gabriel/benchmarks/GABRIEL-TAK.LCOM deleted file mode 100644 index cdb406b7..00000000 Binary files a/internal/gabriel/benchmarks/GABRIEL-TAK.LCOM and /dev/null differ diff --git a/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl b/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl deleted file mode 100644 index 03a84f7a..00000000 Binary files a/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl and /dev/null differ diff --git a/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~1~ b/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~1~ deleted file mode 100644 index a09c5be3..00000000 Binary files a/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~1~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~2~ b/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~2~ deleted file mode 100644 index f4d44ad5..00000000 Binary files a/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~2~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~3~ b/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~3~ deleted file mode 100644 index bc0d34a2..00000000 Binary files a/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~3~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~4~ b/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~4~ deleted file mode 100644 index 03a84f7a..00000000 Binary files a/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~4~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS b/internal/gabriel/benchmarks/IO-BENCHMARKS deleted file mode 100644 index dd8d870e..00000000 --- a/internal/gabriel/benchmarks/IO-BENCHMARKS +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "BENCHMARKS")) (IL:FILECREATED "20-Feb-92 18:40:05"  IL:|{DSK}lde>lispcore>gabriel>benchmarks>IO-BENCHMARKS.;4| 17729 IL:|changes| IL:|to:| (IL:FUNCTIONS READ-FLOATS) IL:|previous| IL:|date:| "19-Apr-90 18:48:13" IL:|{DSK}lde>lispcore>gabriel>benchmarks>IO-BENCHMARKS.;3|) ; Copyright (c) 1987, 1988, 1990, 1992 by Xerox Corporation. All rights reserved. (IL:PRETTYCOMPRINT IL:IO-BENCHMARKSCOMS) (IL:RPAQQ IL:IO-BENCHMARKSCOMS ( (IL:* IL:|;;|  "Benchmarks for various I/O functions in the system.") (IL:COMS (IL:* IL:|;;| "Gabriel I/O Benchmarks:") (IL:COMS (IL:* IL:\; "FPRINT") (GABRIEL::TIMERS GABRIEL::FPRINT) (IL:FUNCTIONS GABRIEL::FPRINT GABRIEL::FPRINT-INIT GABRIEL::FPRINT-INIT1) (IL:VARIABLES GABRIEL::FPRINT-TEST-FILE GABRIEL::TEST-ATOMS GABRIEL::TEST-PATTERN)) (IL:COMS (IL:* IL:\;  "FREAD (MUST be run after FPRINT)") (GABRIEL::TIMERS GABRIEL::FREAD) (IL:FUNCTIONS GABRIEL::FREAD)) (IL:COMS (IL:* IL:\; "TPRINT") (GABRIEL::TIMERS GABRIEL::TPRINT) (IL:FUNCTIONS GABRIEL::SETUP-TPRINT GABRIEL::TPRINT-INIT GABRIEL::TPRINT-INIT1)) (IL:VARIABLES GABRIEL::TEST-ATOMS-TPRINT GABRIEL::*TPRINT-WINDOW* GABRIEL::TEST-PATTERN-TPRINT)) (IL:COMS (IL:* IL:|;;|  "Lists of benchmark names, for use with RUN-BENCHMARKS:") (IL:VARIABLES GABRIEL::*IO-BENCHMARKS* GABRIEL::*MAIKO-IO-BENCHMARKS*) (IL:VARS (IL:*1186-IO-TIMERS* '(IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)))) (IL:COMS (IL:* IL:|;;| "Floating-point I/O") (IL:FUNCTIONS READ-FLOATS) (GABRIEL::TIMERS IL:READ-FLOAT IL:PRINT-FLOAT)) (IL:COMS (IL:* IL:|;;| "Printing to the terminal") (IL:FUNCTIONS PRINT-TO-TERMINAL) (GABRIEL::TIMERS IL:TERMINAL-PRINTING)) (IL:COMS (IL:* IL:|;;| "Floppy disk performance") (GABRIEL::TIMERS IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)) (IL:COMS (IL:* IL:|;;| "Symbol reading") (IL:FUNCTIONS IL:READ-EXISTING-SYMBOLS) (GABRIEL::TIMERS IL:READ-EXISTING-SYMBOLS)) (IL:COMS (IL:* IL:|;;|  "File-system-specific performance bottleneck diagnosis") (IL:FUNCTIONS IL:WRITE-TO-COREFILE IL:WRITE-TO-FILE IL:READ-FROM-FILE) (GABRIEL::TIMERS IL:READ-DSK IL:READ-UFS IL:READ-CORE IL:WRITE-DSK IL:WRITE-UFS IL:WRITE-CORE)) (IL:COMS (IL:* IL:|;;| "Set up for this series of tests") (IL:P (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS" "{CORE}FLOATS") (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS"))) (IL:PROP (IL:MAKEFILE-ENVIRONMENT IL:FILETYPE) IL:IO-BENCHMARKS))) (IL:* IL:|;;| "Benchmarks for various I/O functions in the system.") (IL:* IL:|;;| "Gabriel I/O Benchmarks:") (IL:* IL:\; "FPRINT") (GABRIEL::DEFINE-TIMER GABRIEL::FPRINT "FPrint" (GABRIEL::FPRINT)) (DEFUN GABRIEL::FPRINT () (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE))) (PRINT GABRIEL::TEST-PATTERN GABRIEL::F) (CLOSE GABRIEL::F))) (DEFUN GABRIEL::FPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::FPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) (DEFUN GABRIEL::FPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::FPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N GABRIEL::ATOMS) GABRIEL::A))))) (DEFPARAMETER GABRIEL::FPRINT-TEST-FILE (IL:* IL:|;;| "JRB - making this {dsk}fprint.tst rather than {dsk}fprint.tst so that Maiko will like it") "{dsk}fprint.tst") (DEFVAR GABRIEL::TEST-ATOMS '(GABRIEL::ABCDEF12 GABRIEL::CDEFGH23 GABRIEL::EFGHIJ34 GABRIEL::GHIJKL45 GABRIEL::IJKLMN56 GABRIEL::KLMNOP67 GABRIEL::MNOPQR78 GABRIEL::OPQRST89 GABRIEL::QRSTUV90 GABRIEL::STUVWX01 GABRIEL::UVWXYZ12 GABRIEL::WXYZAB23 GABRIEL::XYZABC34 GABRIEL::123456AB GABRIEL::234567BC GABRIEL::345678CD GABRIEL::456789DE GABRIEL::567890EF GABRIEL::678901FG GABRIEL::789012GH GABRIEL::890123HI)) (DEFVAR GABRIEL::TEST-PATTERN (GABRIEL::FPRINT-INIT 6 6 GABRIEL::TEST-ATOMS)) (IL:* IL:\; "FREAD (MUST be run after FPRINT)") (GABRIEL::DEFINE-TIMER GABRIEL::FREAD "FRead" (GABRIEL::FREAD)) (DEFUN GABRIEL::FREAD () (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE))) (READ GABRIEL::F) (CLOSE GABRIEL::F))) (IL:* IL:\; "TPRINT") (GABRIEL::DEFINE-TIMER (GABRIEL::TPRINT (:SETUP (SETQ GABRIEL::*TPRINT-WINDOW* (  GABRIEL::SETUP-TPRINT ))) (:AFTER-EVERY (IL:DSPRESET GABRIEL::*TPRINT-WINDOW*)) (:AFTER (IL:CLOSEW GABRIEL::*TPRINT-WINDOW*))) "TPrint" (PRINT GABRIEL::TEST-PATTERN-TPRINT GABRIEL::*TPRINT-WINDOW*)) (DEFUN GABRIEL::SETUP-TPRINT () (LET* ((GABRIEL::TTYR (IL:WINDOWPROP (IL:WFROMDS (IL:TTYDISPLAYSTREAM)) 'IL:REGION)) (GABRIEL::W (IL:CREATEW (IL:CREATEREGION (IL:|fetch| (IL:REGION IL:PRIGHT) IL:|of| GABRIEL::TTYR ) (IL:|fetch| (IL:REGION IL:BOTTOM) IL:|of| GABRIEL::TTYR) (- 1024 (IL:|fetch| (IL:REGION IL:PRIGHT) IL:|of| GABRIEL::TTYR) ) (IL:|fetch| (IL:REGION IL:HEIGHT) IL:|of| GABRIEL::TTYR))) )) (IL:DSPSCROLL T GABRIEL::W) (IL:DSPRESET GABRIEL::W) GABRIEL::W)) (DEFUN GABRIEL::TPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::TPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) (DEFUN GABRIEL::TPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::TPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N GABRIEL::ATOMS) GABRIEL::A))))) (DEFVAR GABRIEL::TEST-ATOMS-TPRINT '(GABRIEL::ABC1 GABRIEL::CDE2 GABRIEL::EFG3 GABRIEL::GHI4 GABRIEL::IJK5 GABRIEL::KLM6 GABRIEL::MNO7 GABRIEL::OPQ8 GABRIEL::QRS9 GABRIEL::STU0 GABRIEL::UVW1 GABRIEL::WXY2 GABRIEL::XYZ3 GABRIEL::123A GABRIEL::234B GABRIEL::345C GABRIEL::|456D| GABRIEL::|567D| GABRIEL::|678E| GABRIEL::|789F| GABRIEL::890G)) (DEFVAR GABRIEL::*TPRINT-WINDOW* NIL) (DEFVAR GABRIEL::TEST-PATTERN-TPRINT (GABRIEL::TPRINT-INIT 6 6 GABRIEL::TEST-ATOMS-TPRINT)) (IL:* IL:|;;| "Lists of benchmark names, for use with RUN-BENCHMARKS:") (DEFPARAMETER GABRIEL::*IO-BENCHMARKS* '(GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT IL:READ-FLOAT IL:PRINT-FLOAT IL:TERMINAL-PRINTING IL:READ-EXISTING-SYMBOLS IL:READ-DSK IL:READ-CORE IL:WRITE-DSK IL:WRITE-CORE)) (DEFPARAMETER GABRIEL::*MAIKO-IO-BENCHMARKS* '(GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT IL:READ-FLOAT IL:PRINT-FLOAT IL:TERMINAL-PRINTING IL:READ-EXISTING-SYMBOLS IL:READ-DSK IL:READ-UFS IL:READ-CORE IL:WRITE-DSK IL:WRITE-UFS IL:WRITE-CORE)) (IL:RPAQQ IL:*1186-IO-TIMERS* (IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)) (IL:* IL:|;;| "Floating-point I/O") (DEFUN READ-FLOATS () (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}FLOATS" 'IL:INPUT)) (SETQ *FLOATS-TO-PRINT* (IL:READ IL:STR))) NIL) (GABRIEL::DEFINE-TIMER (IL:READ-FLOAT) "Read 2000 Floats from {CORE}" (READ-FLOATS)) (GABRIEL::DEFINE-TIMER IL:PRINT-FLOAT "Print 2000 Floats to {NULL}" (IL:PRINT *FLOATS-TO-PRINT* (IL:OPENSTREAM 'IL:{NULL} 'IL:OUTPUT))) (IL:* IL:|;;| "Printing to the terminal") (DEFUN PRINT-TO-TERMINAL (WINDOW) (IL:* IL:|;;| "Print 1000 lines of characters to the terminal, with dribbling disabled.") (IL:* IL:|;;| "bind *DRIBBLE-OUTPUT* here, to prevent dribbling during the long printing that we really want to time.") (DECLARE (SPECIAL IL:*DRIBBLE-OUTPUT* IL:\\TERM.OFD)) (LET ((IL:*DRIBBLE-OUTPUT*) (TDS (IL:TTYDISPLAYSTREAM))) (DECLARE (SPECIAL IL:*DRIBBLE-OUTPUT* IL:\\TERM.OFD)) (UNWIND-PROTECT (PROGN (IL:TTYDISPLAYSTREAM WINDOW) (IL:|for| IL:I IL:|from| 1 IL:|to| 1000 IL:|do| (IL:PRINTOUT WINDOW "LINE " IL:I " ASDF ASDF ASDF ASDF ASDF ASDF SADF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF SADF ASDF ASDF ASDF ASDF ASDF" T))) (IL:TTYDISPLAYSTREAM TDS)))) (GABRIEL::DEFINE-TIMER (IL:TERMINAL-PRINTING (:SETUP (PROGN (IL:SETQ IL:*TIMER-WINDOW-FOR-PRINT-TIMING* (IL:CREATEW '(0 0 876 30))) (IL:DSPFONT '(IL:GACHA 10) IL:*TIMER-WINDOW-FOR-PRINT-TIMING*) (IL:WINDOWPROP IL:*TIMER-WINDOW-FOR-PRINT-TIMING* 'IL:PAGEFULLFN 'IL:NILL))) (:AFTER (PROGN (IL:CLOSEW IL:*TIMER-WINDOW-FOR-PRINT-TIMING*) (IL:SETQ IL:*TIMER-WINDOW-FOR-PRINT-TIMING* NIL)))) "Printing chars to terminal" (PRINT-TO-TERMINAL IL:*TIMER-WINDOW-FOR-PRINT-TIMING*)) (IL:* IL:|;;| "Floppy disk performance") (GABRIEL::DEFINE-TIMER IL:FLOPPY-FORMATTING "Formatting a floppy disk" (IL:FLOPPY.FORMAT "TEST" T T)) (GABRIEL::DEFINE-TIMER (IL:FLOPPY-WRITE :AFTER (IL:DELFILE "{FLOPPY}200-PAGES")) "Write 200 pages, CORE to floppy" (IL:COPYFILE "{CORE}200-PAGES" "{FLOPPY}200-PAGES")) (GABRIEL::DEFINE-TIMER (IL:FLOPPY-READ :SETUP (IL:COPYFILE "{CORE}200-PAGES" "{FLOPPY}200-PAGES") :AFTER (IL:DELFILE "{FLOPPY}200-PAGES")) "Copy 200 pages, floppy to NULL" (IL:COPYFILE "{FLOPPY}200-PAGES" "{NULL}")) (IL:* IL:|;;| "Symbol reading") (DEFUN IL:READ-EXISTING-SYMBOLS () (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}1000-SYMBOLS" 'IL:INPUT)) (PROG1 NIL (IL:READ IL:STR)))) (GABRIEL::DEFINE-TIMER (IL:READ-EXISTING-SYMBOLS :SETUP (IL:COPYFILE "{ERIS}GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS") (IL:READ-EXISTING-SYMBOLS)) "Read 1000 symbols that exist in the sysout already" (IL:READ-EXISTING-SYMBOLS)) (IL:* IL:|;;| "File-system-specific performance bottleneck diagnosis") (DEFUN IL:WRITE-TO-COREFILE (IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}SPEED-TEST-FILE" 'IL:OUTPUT 'IL:NEW)) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BOUT IL:STR 33))) (IL:DELFILE "{CORE}SPEED-TEST-FILE")) (DEFUN IL:WRITE-TO-FILE (IL:FILE IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM IL:FILE 'IL:OUTPUT 'IL:NEW)) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BOUT IL:STR 33)))) (DEFUN IL:READ-FROM-FILE (IL:FILE IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM IL:FILE 'IL:INPUT 'IL:OLD)) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BIN IL:STR)))) (GABRIEL::DEFINE-TIMER (IL:READ-DSK (:SETUP (IL:WRITE-TO-FILE "{DSK}test-file" 50000)) (:AFTER (IL:DELFILE "{DSK}test-file"))) "Read 50,000 bytes from a file on {DSK}" (IL:READ-FROM-FILE "{DSK}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:READ-UFS (:SETUP (IL:WRITE-TO-FILE "{UNIX}test-file" 50000)) (:AFTER (IL:DELFILE "{UNIX}test-file"))) "Read 50,000 bytes from a file on the {UNIX} device" (IL:READ-FROM-FILE "{UNIX}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:READ-CORE (:SETUP (IL:WRITE-TO-FILE "{CORE}test-file" 50000)) (:AFTER (IL:DELFILE "{CORE}test-file"))) "Read 50,000 bytes from CORE." (IL:READ-FROM-FILE "{CORE}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-DSK (:AFTER (IL:DELFILE "{DSK}test-file"))) "Write 50,000 bytes on on {DSK}" (IL:WRITE-TO-FILE "{DSK}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-UFS (:AFTER (IL:DELFILE "{UNIX}test-file"))) "Write 50,000 bytes to a file on {UNIX}" (IL:WRITE-TO-FILE "{UNIX}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-CORE (:AFTER (IL:DELFILE "{CORE}test-file"))) "Write 50,000 bytes to a file on {CORE}" (IL:WRITE-TO-FILE "{CORE}test-file" 50000)) (IL:* IL:|;;| "Set up for this series of tests") (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS" "{CORE}FLOATS") (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS") (IL:PUTPROPS IL:IO-BENCHMARKS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (XCL:DEFPACKAGE "BENCHMARKS"))) (IL:PUTPROPS IL:IO-BENCHMARKS IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:IO-BENCHMARKS IL:COPYRIGHT ("Xerox Corporation" 1987 1988 1990 1992)) (IL:DECLARE\: IL:DONTCOPY (IL:FILEMAP (NIL))) IL:STOP \ No newline at end of file diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS.DFASL b/internal/gabriel/benchmarks/IO-BENCHMARKS.DFASL deleted file mode 100644 index ae0a6d96..00000000 Binary files a/internal/gabriel/benchmarks/IO-BENCHMARKS.DFASL and /dev/null differ diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS.DFASL.~1~ b/internal/gabriel/benchmarks/IO-BENCHMARKS.DFASL.~1~ deleted file mode 100644 index e0509938..00000000 Binary files a/internal/gabriel/benchmarks/IO-BENCHMARKS.DFASL.~1~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS.DFASL.~2~ b/internal/gabriel/benchmarks/IO-BENCHMARKS.DFASL.~2~ deleted file mode 100644 index ae0a6d96..00000000 Binary files a/internal/gabriel/benchmarks/IO-BENCHMARKS.DFASL.~2~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM b/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM deleted file mode 100644 index 1b03d7c7..00000000 --- a/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "BENCHMARKS")) (IL:FILECREATED "20-Oct-2020 03:27:34" ("compiled on " IL:|{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>IO-BENCHMARKS.;4|) " 9-Apr-2000 18:01:32" IL:|bcompl'd| IL:|in| "Medley 3.5 Full Sysout 13-Aug-2020 ..." IL:|dated| "13-Aug-2020 12:39:12") (IL:FILECREATED "20-Feb-92 18:40:05" IL:|{DSK}lde>lispcore>gabriel>benchmarks>IO-BENCHMARKS.;4| 17729 IL:|changes| IL:|to:| (IL:FUNCTIONS READ-FLOATS) IL:|previous| IL:|date:| "19-Apr-90 18:48:13" IL:|{DSK}lde>lispcore>gabriel>benchmarks>IO-BENCHMARKS.;3|) (IL:PRETTYCOMPRINT IL:IO-BENCHMARKSCOMS) (IL:RPAQQ IL:IO-BENCHMARKSCOMS ((IL:* IL:|;;| "Benchmarks for various I/O functions in the system.") ( IL:COMS (IL:* IL:|;;| "Gabriel I/O Benchmarks:") (IL:COMS (IL:* IL:\; "FPRINT") (GABRIEL::TIMERS GABRIEL::FPRINT) (IL:FUNCTIONS GABRIEL::FPRINT GABRIEL::FPRINT-INIT GABRIEL::FPRINT-INIT1) (IL:VARIABLES GABRIEL::FPRINT-TEST-FILE GABRIEL::TEST-ATOMS GABRIEL::TEST-PATTERN)) (IL:COMS (IL:* IL:\; "FREAD (MUST be run after FPRINT)") (GABRIEL::TIMERS GABRIEL::FREAD) (IL:FUNCTIONS GABRIEL::FREAD)) ( IL:COMS (IL:* IL:\; "TPRINT") (GABRIEL::TIMERS GABRIEL::TPRINT) (IL:FUNCTIONS GABRIEL::SETUP-TPRINT GABRIEL::TPRINT-INIT GABRIEL::TPRINT-INIT1)) (IL:VARIABLES GABRIEL::TEST-ATOMS-TPRINT GABRIEL::*TPRINT-WINDOW* GABRIEL::TEST-PATTERN-TPRINT)) (IL:COMS (IL:* IL:|;;| "Lists of benchmark names, for use with RUN-BENCHMARKS:") (IL:VARIABLES GABRIEL::*IO-BENCHMARKS* GABRIEL::*MAIKO-IO-BENCHMARKS*) (IL:VARS (IL:*1186-IO-TIMERS* (QUOTE (IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ))))) (IL:COMS (IL:* IL:|;;| "Floating-point I/O") (IL:FUNCTIONS READ-FLOATS) (GABRIEL::TIMERS IL:READ-FLOAT IL:PRINT-FLOAT)) (IL:COMS (IL:* IL:|;;| "Printing to the terminal") (IL:FUNCTIONS PRINT-TO-TERMINAL) (GABRIEL::TIMERS IL:TERMINAL-PRINTING)) ( IL:COMS (IL:* IL:|;;| "Floppy disk performance") (GABRIEL::TIMERS IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)) (IL:COMS (IL:* IL:|;;| "Symbol reading") (IL:FUNCTIONS IL:READ-EXISTING-SYMBOLS) ( GABRIEL::TIMERS IL:READ-EXISTING-SYMBOLS)) (IL:COMS (IL:* IL:|;;| "File-system-specific performance bottleneck diagnosis") (IL:FUNCTIONS IL:WRITE-TO-COREFILE IL:WRITE-TO-FILE IL:READ-FROM-FILE) (GABRIEL::TIMERS IL:READ-DSK IL:READ-UFS IL:READ-CORE IL:WRITE-DSK IL:WRITE-UFS IL:WRITE-CORE)) (IL:COMS (IL:* IL:|;;| "Set up for this series of tests") (IL:P ( IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS" "{CORE}FLOATS") (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS"))) (IL:PROP ( IL:MAKEFILE-ENVIRONMENT IL:FILETYPE) IL:IO-BENCHMARKS))) (GABRIEL::DEFINE-TIMER GABRIEL::FPRINT "FPrint" (GABRIEL::FPRINT)) (DEFUN GABRIEL::FPRINT NIL (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE))) (PRINT GABRIEL::TEST-PATTERN GABRIEL::F) (CLOSE GABRIEL::F))) (DEFUN GABRIEL::FPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::FPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) (DEFUN GABRIEL::FPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::FPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N GABRIEL::ATOMS) GABRIEL::A))))) (DEFPARAMETER GABRIEL::FPRINT-TEST-FILE (IL:* IL:|;;| "JRB - making this {dsk}fprint.tst rather than {dsk}fprint.tst so that Maiko will like it") "{dsk}fprint.tst") (DEFVAR GABRIEL::TEST-ATOMS (QUOTE (GABRIEL::ABCDEF12 GABRIEL::CDEFGH23 GABRIEL::EFGHIJ34 GABRIEL::GHIJKL45 GABRIEL::IJKLMN56 GABRIEL::KLMNOP67 GABRIEL::MNOPQR78 GABRIEL::OPQRST89 GABRIEL::QRSTUV90 GABRIEL::STUVWX01 GABRIEL::UVWXYZ12 GABRIEL::WXYZAB23 GABRIEL::XYZABC34 GABRIEL::123456AB GABRIEL::234567BC GABRIEL::345678CD GABRIEL::456789DE GABRIEL::567890EF GABRIEL::678901FG GABRIEL::789012GH GABRIEL::890123HI))) (DEFVAR GABRIEL::TEST-PATTERN (GABRIEL::FPRINT-INIT 6 6 GABRIEL::TEST-ATOMS)) (GABRIEL::DEFINE-TIMER GABRIEL::FREAD "FRead" (GABRIEL::FREAD)) (DEFUN GABRIEL::FREAD NIL (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE))) (READ GABRIEL::F) ( CLOSE GABRIEL::F))) (GABRIEL::DEFINE-TIMER (GABRIEL::TPRINT (:SETUP (SETQ GABRIEL::*TPRINT-WINDOW* (GABRIEL::SETUP-TPRINT) )) (:AFTER-EVERY (IL:DSPRESET GABRIEL::*TPRINT-WINDOW*)) (:AFTER (IL:CLOSEW GABRIEL::*TPRINT-WINDOW*)) ) "TPrint" (PRINT GABRIEL::TEST-PATTERN-TPRINT GABRIEL::*TPRINT-WINDOW*)) (DEFUN GABRIEL::SETUP-TPRINT NIL (LET* ((GABRIEL::TTYR (IL:WINDOWPROP (IL:WFROMDS (IL:TTYDISPLAYSTREAM )) (QUOTE IL:REGION))) (GABRIEL::W (IL:CREATEW (IL:CREATEREGION (IL:|fetch| (IL:REGION IL:PRIGHT) IL:|of| GABRIEL::TTYR) (IL:|fetch| (IL:REGION IL:BOTTOM) IL:|of| GABRIEL::TTYR) (- 1024 (IL:|fetch| ( IL:REGION IL:PRIGHT) IL:|of| GABRIEL::TTYR)) (IL:|fetch| (IL:REGION IL:HEIGHT) IL:|of| GABRIEL::TTYR)) ))) (IL:DSPSCROLL T GABRIEL::W) (IL:DSPRESET GABRIEL::W) GABRIEL::W)) (DEFUN GABRIEL::TPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::TPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) (DEFUN GABRIEL::TPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::TPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N GABRIEL::ATOMS) GABRIEL::A))))) (DEFVAR GABRIEL::TEST-ATOMS-TPRINT (QUOTE (GABRIEL::ABC1 GABRIEL::CDE2 GABRIEL::EFG3 GABRIEL::GHI4 GABRIEL::IJK5 GABRIEL::KLM6 GABRIEL::MNO7 GABRIEL::OPQ8 GABRIEL::QRS9 GABRIEL::STU0 GABRIEL::UVW1 GABRIEL::WXY2 GABRIEL::XYZ3 GABRIEL::123A GABRIEL::234B GABRIEL::345C GABRIEL::|456D| GABRIEL::|567D| GABRIEL::|678E| GABRIEL::|789F| GABRIEL::890G))) (DEFVAR GABRIEL::*TPRINT-WINDOW* NIL) (DEFVAR GABRIEL::TEST-PATTERN-TPRINT (GABRIEL::TPRINT-INIT 6 6 GABRIEL::TEST-ATOMS-TPRINT)) (DEFPARAMETER GABRIEL::*IO-BENCHMARKS* (QUOTE (GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT IL:READ-FLOAT IL:PRINT-FLOAT IL:TERMINAL-PRINTING IL:READ-EXISTING-SYMBOLS IL:READ-DSK IL:READ-CORE IL:WRITE-DSK IL:WRITE-CORE))) (DEFPARAMETER GABRIEL::*MAIKO-IO-BENCHMARKS* (QUOTE (GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT IL:READ-FLOAT IL:PRINT-FLOAT IL:TERMINAL-PRINTING IL:READ-EXISTING-SYMBOLS IL:READ-DSK IL:READ-UFS IL:READ-CORE IL:WRITE-DSK IL:WRITE-UFS IL:WRITE-CORE))) (IL:RPAQQ IL:*1186-IO-TIMERS* (IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)) (DEFUN READ-FLOATS NIL (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}FLOATS" (QUOTE IL:INPUT))) ( SETQ *FLOATS-TO-PRINT* (IL:READ IL:STR))) NIL) (GABRIEL::DEFINE-TIMER (IL:READ-FLOAT) "Read 2000 Floats from {CORE}" (READ-FLOATS)) (GABRIEL::DEFINE-TIMER IL:PRINT-FLOAT "Print 2000 Floats to {NULL}" (IL:PRINT *FLOATS-TO-PRINT* ( IL:OPENSTREAM (QUOTE IL:{NULL}) (QUOTE IL:OUTPUT)))) (DEFUN PRINT-TO-TERMINAL (WINDOW) (IL:* IL:|;;| "Print 1000 lines of characters to the terminal, with dribbling disabled.") (IL:* IL:|;;| "bind *DRIBBLE-OUTPUT* here, to prevent dribbling during the long printing that we really want to time." ) (DECLARE (SPECIAL IL:*DRIBBLE-OUTPUT* IL:\\TERM.OFD)) (LET ((IL:*DRIBBLE-OUTPUT*) (TDS ( IL:TTYDISPLAYSTREAM))) (DECLARE (SPECIAL IL:*DRIBBLE-OUTPUT* IL:\\TERM.OFD)) (UNWIND-PROTECT (PROGN ( IL:TTYDISPLAYSTREAM WINDOW) (IL:|for| IL:I IL:|from| 1 IL:|to| 1000 IL:|do| (IL:PRINTOUT WINDOW "LINE " IL:I " ASDF ASDF ASDF ASDF ASDF ASDF SADF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF SADF ASDF ASDF ASDF ASDF ASDF" T))) (IL:TTYDISPLAYSTREAM TDS)))) (GABRIEL::DEFINE-TIMER (IL:TERMINAL-PRINTING (:SETUP (PROGN (IL:SETQ IL:*TIMER-WINDOW-FOR-PRINT-TIMING* (IL:CREATEW (QUOTE (0 0 876 30)))) (IL:DSPFONT (QUOTE (IL:GACHA 10)) IL:*TIMER-WINDOW-FOR-PRINT-TIMING* ) (IL:WINDOWPROP IL:*TIMER-WINDOW-FOR-PRINT-TIMING* (QUOTE IL:PAGEFULLFN) (QUOTE IL:NILL)))) (:AFTER ( PROGN (IL:CLOSEW IL:*TIMER-WINDOW-FOR-PRINT-TIMING*) (IL:SETQ IL:*TIMER-WINDOW-FOR-PRINT-TIMING* NIL)) )) "Printing chars to terminal" (PRINT-TO-TERMINAL IL:*TIMER-WINDOW-FOR-PRINT-TIMING*)) (GABRIEL::DEFINE-TIMER IL:FLOPPY-FORMATTING "Formatting a floppy disk" (IL:FLOPPY.FORMAT "TEST" T T)) (GABRIEL::DEFINE-TIMER (IL:FLOPPY-WRITE :AFTER (IL:DELFILE "{FLOPPY}200-PAGES")) "Write 200 pages, CORE to floppy" (IL:COPYFILE "{CORE}200-PAGES" "{FLOPPY}200-PAGES")) (GABRIEL::DEFINE-TIMER (IL:FLOPPY-READ :SETUP (IL:COPYFILE "{CORE}200-PAGES" "{FLOPPY}200-PAGES") :AFTER (IL:DELFILE "{FLOPPY}200-PAGES")) "Copy 200 pages, floppy to NULL" (IL:COPYFILE "{FLOPPY}200-PAGES" "{NULL}")) (DEFUN IL:READ-EXISTING-SYMBOLS NIL (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}1000-SYMBOLS" ( QUOTE IL:INPUT))) (PROG1 NIL (IL:READ IL:STR)))) (GABRIEL::DEFINE-TIMER (IL:READ-EXISTING-SYMBOLS :SETUP (IL:COPYFILE "{ERIS}GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS") (IL:READ-EXISTING-SYMBOLS)) "Read 1000 symbols that exist in the sysout already" (IL:READ-EXISTING-SYMBOLS)) (DEFUN IL:WRITE-TO-COREFILE (IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}SPEED-TEST-FILE" (QUOTE IL:OUTPUT) (QUOTE IL:NEW))) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BOUT IL:STR 33))) (IL:DELFILE "{CORE}SPEED-TEST-FILE")) (DEFUN IL:WRITE-TO-FILE (IL:FILE IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM IL:FILE (QUOTE IL:OUTPUT) (QUOTE IL:NEW))) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BOUT IL:STR 33)) )) (DEFUN IL:READ-FROM-FILE (IL:FILE IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM IL:FILE (QUOTE IL:INPUT) (QUOTE IL:OLD))) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BIN IL:STR)))) (GABRIEL::DEFINE-TIMER (IL:READ-DSK (:SETUP (IL:WRITE-TO-FILE "{DSK}test-file" 50000)) (:AFTER ( IL:DELFILE "{DSK}test-file"))) "Read 50,000 bytes from a file on {DSK}" (IL:READ-FROM-FILE "{DSK}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:READ-UFS (:SETUP (IL:WRITE-TO-FILE "{UNIX}test-file" 50000)) (:AFTER ( IL:DELFILE "{UNIX}test-file"))) "Read 50,000 bytes from a file on the {UNIX} device" (IL:READ-FROM-FILE "{UNIX}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:READ-CORE (:SETUP (IL:WRITE-TO-FILE "{CORE}test-file" 50000)) (:AFTER ( IL:DELFILE "{CORE}test-file"))) "Read 50,000 bytes from CORE." (IL:READ-FROM-FILE "{CORE}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-DSK (:AFTER (IL:DELFILE "{DSK}test-file"))) "Write 50,000 bytes on on {DSK}" (IL:WRITE-TO-FILE "{DSK}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-UFS (:AFTER (IL:DELFILE "{UNIX}test-file"))) "Write 50,000 bytes to a file on {UNIX}" (IL:WRITE-TO-FILE "{UNIX}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-CORE (:AFTER (IL:DELFILE "{CORE}test-file"))) "Write 50,000 bytes to a file on {CORE}" (IL:WRITE-TO-FILE "{CORE}test-file" 50000)) (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS" "{CORE}FLOATS") (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS") (IL:PUTPROPS IL:IO-BENCHMARKS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (XCL:DEFPACKAGE "BENCHMARKS"))) (IL:PUTPROPS IL:IO-BENCHMARKS IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:IO-BENCHMARKS IL:COPYRIGHT ("Xerox Corporation" 1987 1988 1990 1992)) NIL \ No newline at end of file diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~1~ b/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~1~ deleted file mode 100644 index ea517892..00000000 Binary files a/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~1~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~2~ b/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~2~ deleted file mode 100644 index 79ce4214..00000000 Binary files a/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~2~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~3~ b/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~3~ deleted file mode 100644 index f7a6c16d..00000000 Binary files a/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~3~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~5~ b/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~5~ deleted file mode 100644 index ce4c95e3..00000000 --- a/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~5~ +++ /dev/null @@ -1,140 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "BENCHMARKS")) -(IL:FILECREATED "21-Oct-91 23:41:38" ("compiled on " -IL:|{DSK}local>lde>lispcore>gabriel>Benchmarks>IO-BENCHMARKS.;3|) "27-Aug-91 19:40:51" -IL:|bcompl'd| IL:|in| "Medley 28-Aug-91 ..." IL:|dated| "28-Aug-91 09:16:07") -(IL:FILECREATED "19-Apr-90 18:48:13" -IL:|{DSK}/usr/local/lde/lispcore/gabriel/Benchmarks/IO-BENCHMARKS.;3| 16088 IL:|changes| IL:|to:| ( -IL:VARS IL:IO-BENCHMARKSCOMS) IL:|previous| IL:|date:| "20-Jul-88 19:16:05" -IL:|{DSK}/usr/local/lde/lispcore/gabriel/Benchmarks/IO-BENCHMARKS.;1|) -(IL:PRETTYCOMPRINT IL:IO-BENCHMARKSCOMS) -(IL:RPAQQ IL:IO-BENCHMARKSCOMS ((IL:* IL:|;;| "Benchmarks for various I/O functions in the system.") ( -IL:COMS (IL:* IL:|;;| "Gabriel I/O Benchmarks:") (IL:COMS (IL:* IL:\; "FPRINT") (GABRIEL::TIMERS -GABRIEL::FPRINT) (IL:FUNCTIONS GABRIEL::FPRINT GABRIEL::FPRINT-INIT GABRIEL::FPRINT-INIT1) (IL:VARIABLES - GABRIEL::FPRINT-TEST-FILE GABRIEL::TEST-ATOMS GABRIEL::TEST-PATTERN)) (IL:COMS (IL:* IL:\; -"FREAD (MUST be run after FPRINT)") (GABRIEL::TIMERS GABRIEL::FREAD) (IL:FUNCTIONS GABRIEL::FREAD)) ( -IL:COMS (IL:* IL:\; "TPRINT") (GABRIEL::TIMERS GABRIEL::TPRINT) (IL:FUNCTIONS GABRIEL::SETUP-TPRINT -GABRIEL::TPRINT-INIT GABRIEL::TPRINT-INIT1)) (IL:VARIABLES GABRIEL::TEST-ATOMS-TPRINT -GABRIEL::*TPRINT-WINDOW* GABRIEL::TEST-PATTERN-TPRINT)) (IL:COMS (IL:* IL:|;;| -"Lists of benchmark names, for use with RUN-BENCHMARKS:") (IL:VARIABLES GABRIEL::*IO-BENCHMARKS* -GABRIEL::*MAIKO-IO-BENCHMARKS*) (IL:VARS (IL:*1186-IO-TIMERS* (QUOTE (IL:FLOPPY-FORMATTING -IL:FLOPPY-WRITE IL:FLOPPY-READ))))) (IL:COMS (IL:* IL:|;;| "Floating-point I/O") (IL:FUNCTIONS -READ-FLOATS) (GABRIEL::TIMERS IL:READ-FLOAT IL:PRINT-FLOAT)) (IL:COMS (IL:* IL:|;;| -"Printing to the terminal") (IL:FUNCTIONS PRINT-TO-TERMINAL) (GABRIEL::TIMERS IL:TERMINAL-PRINTING)) ( -IL:COMS (IL:* IL:|;;| "Floppy disk performance") (GABRIEL::TIMERS IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE - IL:FLOPPY-READ)) (IL:COMS (IL:* IL:|;;| "Symbol reading") (IL:FUNCTIONS IL:READ-EXISTING-SYMBOLS) ( -GABRIEL::TIMERS IL:READ-EXISTING-SYMBOLS)) (IL:COMS (IL:* IL:|;;| -"File-system-specific performance bottleneck diagnosis") (IL:FUNCTIONS IL:WRITE-TO-COREFILE -IL:WRITE-TO-FILE IL:READ-FROM-FILE) (GABRIEL::TIMERS IL:READ-DSK IL:READ-UFS IL:READ-CORE IL:WRITE-DSK - IL:WRITE-UFS IL:WRITE-CORE)) (IL:COMS (IL:* IL:|;;| "Set up for this series of tests") (IL:P ( -IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS-TO-READ" "{CORE}FLOATS") (IL:COPYFILE - "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS"))) (IL:PROP ( -IL:MAKEFILE-ENVIRONMENT IL:FILETYPE) IL:IO-BENCHMARKS))) -(GABRIEL::DEFINE-TIMER GABRIEL::FPRINT "FPrint" (GABRIEL::FPRINT)) -(DEFUN GABRIEL::FPRINT NIL (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE :DIRECTION :OUTPUT -:IF-EXISTS :SUPERSEDE))) (PRINT GABRIEL::TEST-PATTERN GABRIEL::F) (CLOSE GABRIEL::F))) -(DEFUN GABRIEL::FPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE -GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD -GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::FPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) -(DEFUN GABRIEL::FPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP -GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) -GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::FPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N - GABRIEL::ATOMS) GABRIEL::A))))) -(DEFPARAMETER GABRIEL::FPRINT-TEST-FILE (IL:* IL:|;;| -"JRB - making this {dsk}fprint.tst rather than {dsk}fprint.tst so that Maiko will like it") - "{dsk}fprint.tst") -(DEFVAR GABRIEL::TEST-ATOMS (QUOTE (GABRIEL::ABCDEF12 GABRIEL::CDEFGH23 GABRIEL::EFGHIJ34 GABRIEL::GHIJKL45 - GABRIEL::IJKLMN56 GABRIEL::KLMNOP67 GABRIEL::MNOPQR78 GABRIEL::OPQRST89 GABRIEL::QRSTUV90 GABRIEL::STUVWX01 - GABRIEL::UVWXYZ12 GABRIEL::WXYZAB23 GABRIEL::XYZABC34 GABRIEL::123456AB GABRIEL::234567BC GABRIEL::345678CD - GABRIEL::456789DE GABRIEL::567890EF GABRIEL::678901FG GABRIEL::789012GH GABRIEL::890123HI))) -(DEFVAR GABRIEL::TEST-PATTERN (GABRIEL::FPRINT-INIT 6 6 GABRIEL::TEST-ATOMS)) -(GABRIEL::DEFINE-TIMER GABRIEL::FREAD "FRead" (GABRIEL::FREAD)) -(DEFUN GABRIEL::FREAD NIL (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE))) (READ GABRIEL::F) ( -CLOSE GABRIEL::F))) -(GABRIEL::DEFINE-TIMER (GABRIEL::TPRINT (:SETUP (SETQ GABRIEL::*TPRINT-WINDOW* (GABRIEL::SETUP-TPRINT) -)) (:AFTER-EVERY (IL:DSPRESET GABRIEL::*TPRINT-WINDOW*)) (:AFTER (IL:CLOSEW GABRIEL::*TPRINT-WINDOW*)) -) "TPrint" (PRINT GABRIEL::TEST-PATTERN-TPRINT GABRIEL::*TPRINT-WINDOW*)) -(DEFUN GABRIEL::SETUP-TPRINT NIL (LET* ((GABRIEL::TTYR (IL:WINDOWPROP (IL:WFROMDS (IL:TTYDISPLAYSTREAM -)) (QUOTE IL:REGION))) (GABRIEL::W (IL:CREATEW (IL:CREATEREGION (IL:|fetch| (IL:REGION IL:PRIGHT) -IL:|of| GABRIEL::TTYR) (IL:|fetch| (IL:REGION IL:BOTTOM) IL:|of| GABRIEL::TTYR) (- 1024 (IL:|fetch| ( -IL:REGION IL:PRIGHT) IL:|of| GABRIEL::TTYR)) (IL:|fetch| (IL:REGION IL:HEIGHT) IL:|of| GABRIEL::TTYR)) -))) (IL:DSPSCROLL T GABRIEL::W) (IL:DSPRESET GABRIEL::W) GABRIEL::W)) -(DEFUN GABRIEL::TPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE -GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD -GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::TPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) -(DEFUN GABRIEL::TPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP -GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) -GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::TPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N - GABRIEL::ATOMS) GABRIEL::A))))) -(DEFVAR GABRIEL::TEST-ATOMS-TPRINT (QUOTE (GABRIEL::ABC1 GABRIEL::CDE2 GABRIEL::EFG3 GABRIEL::GHI4 -GABRIEL::IJK5 GABRIEL::KLM6 GABRIEL::MNO7 GABRIEL::OPQ8 GABRIEL::QRS9 GABRIEL::STU0 GABRIEL::UVW1 -GABRIEL::WXY2 GABRIEL::XYZ3 GABRIEL::123A GABRIEL::234B GABRIEL::345C GABRIEL::|456D| GABRIEL::|567D| -GABRIEL::|678E| GABRIEL::|789F| GABRIEL::890G))) -(DEFVAR GABRIEL::*TPRINT-WINDOW* NIL) -(DEFVAR GABRIEL::TEST-PATTERN-TPRINT (GABRIEL::TPRINT-INIT 6 6 GABRIEL::TEST-ATOMS-TPRINT)) -(DEFPARAMETER GABRIEL::*IO-BENCHMARKS* (QUOTE (GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT -IL:READ-FLOAT IL:PRINT-FLOAT IL:TERMINAL-PRINTING IL:READ-EXISTING-SYMBOLS IL:READ-DSK IL:READ-CORE -IL:WRITE-DSK IL:WRITE-CORE))) -(DEFPARAMETER GABRIEL::*MAIKO-IO-BENCHMARKS* (QUOTE (GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT -IL:READ-FLOAT IL:PRINT-FLOAT IL:TERMINAL-PRINTING IL:READ-EXISTING-SYMBOLS IL:READ-DSK IL:READ-UFS -IL:READ-CORE IL:WRITE-DSK IL:WRITE-UFS IL:WRITE-CORE))) -(IL:RPAQQ IL:*1186-IO-TIMERS* (IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)) -(DEFUN READ-FLOATS NIL (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}FLOATS" (QUOTE IL:INPUT))) ( -IL:READ IL:STR)) NIL) -(GABRIEL::DEFINE-TIMER (IL:READ-FLOAT) "Read 2000 Floats from {CORE}" (READ-FLOATS)) -(GABRIEL::DEFINE-TIMER IL:PRINT-FLOAT "Print 2000 Floats to {NULL}" (IL:PRINT *FLOATS-TO-PRINT* ( -IL:OPENSTREAM (QUOTE IL:{NULL}) (QUOTE IL:OUTPUT)))) -(DEFUN PRINT-TO-TERMINAL (WINDOW) (IL:* IL:|;;| -"Print 1000 lines of characters to the terminal, with dribbling disabled.") (IL:* IL:|;;| -"bind *DRIBBLE-OUTPUT* here, to prevent dribbling during the long printing that we really want to time." -) (DECLARE (SPECIAL IL:*DRIBBLE-OUTPUT* IL:\\TERM.OFD)) (LET ((IL:*DRIBBLE-OUTPUT*) (TDS ( -IL:TTYDISPLAYSTREAM))) (DECLARE (SPECIAL IL:*DRIBBLE-OUTPUT* IL:\\TERM.OFD)) (UNWIND-PROTECT (PROGN ( -IL:TTYDISPLAYSTREAM WINDOW) (IL:|for| IL:I IL:|from| 1 IL:|to| 1000 IL:|do| (IL:PRINTOUT WINDOW -"LINE " IL:I -" ASDF ASDF ASDF ASDF ASDF ASDF SADF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF SADF ASDF ASDF ASDF ASDF ASDF" - T))) (IL:TTYDISPLAYSTREAM TDS)))) -(GABRIEL::DEFINE-TIMER (IL:TERMINAL-PRINTING (:SETUP (PROGN (IL:SETQ IL:*TIMER-WINDOW-FOR-PRINT-TIMING* - (IL:CREATEW (QUOTE (0 0 876 30)))) (IL:DSPFONT (QUOTE (IL:GACHA 10)) IL:*TIMER-WINDOW-FOR-PRINT-TIMING* -) (IL:WINDOWPROP IL:*TIMER-WINDOW-FOR-PRINT-TIMING* (QUOTE IL:PAGEFULLFN) (QUOTE IL:NILL)))) (:AFTER ( -PROGN (IL:CLOSEW IL:*TIMER-WINDOW-FOR-PRINT-TIMING*) (IL:SETQ IL:*TIMER-WINDOW-FOR-PRINT-TIMING* NIL)) -)) "Printing chars to terminal" (PRINT-TO-TERMINAL IL:*TIMER-WINDOW-FOR-PRINT-TIMING*)) -(GABRIEL::DEFINE-TIMER IL:FLOPPY-FORMATTING "Formatting a floppy disk" (IL:FLOPPY.FORMAT "TEST" T T)) -(GABRIEL::DEFINE-TIMER (IL:FLOPPY-WRITE :AFTER (IL:DELFILE "{FLOPPY}200-PAGES")) -"Write 200 pages, CORE to floppy" (IL:COPYFILE "{CORE}200-PAGES" "{FLOPPY}200-PAGES")) -(GABRIEL::DEFINE-TIMER (IL:FLOPPY-READ :SETUP (IL:COPYFILE "{CORE}200-PAGES" "{FLOPPY}200-PAGES") -:AFTER (IL:DELFILE "{FLOPPY}200-PAGES")) "Copy 200 pages, floppy to NULL" (IL:COPYFILE -"{FLOPPY}200-PAGES" "{NULL}")) -(DEFUN IL:READ-EXISTING-SYMBOLS NIL (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}1000-SYMBOLS" ( -QUOTE IL:INPUT))) (PROG1 NIL (IL:READ IL:STR)))) -(GABRIEL::DEFINE-TIMER (IL:READ-EXISTING-SYMBOLS :SETUP (IL:COPYFILE -"{ERIS}GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS") (IL:READ-EXISTING-SYMBOLS)) -"Read 1000 symbols that exist in the sysout already" (IL:READ-EXISTING-SYMBOLS)) -(DEFUN IL:WRITE-TO-COREFILE (IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM -"{CORE}SPEED-TEST-FILE" (QUOTE IL:OUTPUT) (QUOTE IL:NEW))) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES - IL:|do| (IL:\\BOUT IL:STR 33))) (IL:DELFILE "{CORE}SPEED-TEST-FILE")) -(DEFUN IL:WRITE-TO-FILE (IL:FILE IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM IL:FILE (QUOTE -IL:OUTPUT) (QUOTE IL:NEW))) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BOUT IL:STR 33)) -)) -(DEFUN IL:READ-FROM-FILE (IL:FILE IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM IL:FILE (QUOTE -IL:INPUT) (QUOTE IL:OLD))) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BIN IL:STR)))) -(GABRIEL::DEFINE-TIMER (IL:READ-DSK (:SETUP (IL:WRITE-TO-FILE "{DSK}test-file" 50000)) (:AFTER ( -IL:DELFILE "{DSK}test-file"))) "Read 50,000 bytes from a file on {DSK}" (IL:READ-FROM-FILE -"{DSK}test-file" 50000)) -(GABRIEL::DEFINE-TIMER (IL:READ-UFS (:SETUP (IL:WRITE-TO-FILE "{UNIX}test-file" 50000)) (:AFTER ( -IL:DELFILE "{UNIX}test-file"))) "Read 50,000 bytes from a file on the {UNIX} device" (IL:READ-FROM-FILE - "{UNIX}test-file" 50000)) -(GABRIEL::DEFINE-TIMER (IL:READ-CORE (:SETUP (IL:WRITE-TO-FILE "{CORE}test-file" 50000)) (:AFTER ( -IL:DELFILE "{CORE}test-file"))) "Read 50,000 bytes from CORE." (IL:READ-FROM-FILE "{CORE}test-file" -50000)) -(GABRIEL::DEFINE-TIMER (IL:WRITE-DSK (:AFTER (IL:DELFILE "{DSK}test-file"))) -"Write 50,000 bytes on on {DSK}" (IL:WRITE-TO-FILE "{DSK}test-file" 50000)) -(GABRIEL::DEFINE-TIMER (IL:WRITE-UFS (:AFTER (IL:DELFILE "{UNIX}test-file"))) -"Write 50,000 bytes to a file on {UNIX}" (IL:WRITE-TO-FILE "{UNIX}test-file" 50000)) -(GABRIEL::DEFINE-TIMER (IL:WRITE-CORE (:AFTER (IL:DELFILE "{CORE}test-file"))) -"Write 50,000 bytes to a file on {CORE}" (IL:WRITE-TO-FILE "{CORE}test-file" 50000)) -(IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS-TO-READ" "{CORE}FLOATS") -(IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS") -(IL:PUTPROPS IL:IO-BENCHMARKS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (XCL:DEFPACKAGE -"BENCHMARKS"))) -(IL:PUTPROPS IL:IO-BENCHMARKS IL:FILETYPE COMPILE-FILE) -(IL:PUTPROPS IL:IO-BENCHMARKS IL:COPYRIGHT ("Xerox Corporation" 1987 1988 1990)) -NIL diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~6~ b/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~6~ deleted file mode 100644 index 6fecd5dd..00000000 Binary files a/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~6~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~7~ b/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~7~ deleted file mode 100644 index ae8332ae..00000000 --- a/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~7~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "BENCHMARKS")) (IL:FILECREATED "19-Oct-2020 16:48:53" ("compiled on " IL:|{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>benchmarks>IO-BENCHMARKS.;4|) " 9-Apr-2000 18:01:32" IL:|tcompl'd| IL:|in| "Medley 3.5 Full Sysout 13-Aug-2020 ..." IL:|dated| "13-Aug-2020 12:39:12") (IL:FILECREATED "20-Feb-92 18:40:05" IL:|{DSK}lde>lispcore>gabriel>benchmarks>IO-BENCHMARKS.;4| 17729 IL:|changes| IL:|to:| (IL:FUNCTIONS READ-FLOATS) IL:|previous| IL:|date:| "19-Apr-90 18:48:13" IL:|{DSK}lde>lispcore>gabriel>benchmarks>IO-BENCHMARKS.;3|) (IL:PRETTYCOMPRINT IL:IO-BENCHMARKSCOMS) (IL:RPAQQ IL:IO-BENCHMARKSCOMS ((IL:* IL:|;;| "Benchmarks for various I/O functions in the system.") ( IL:COMS (IL:* IL:|;;| "Gabriel I/O Benchmarks:") (IL:COMS (IL:* IL:\; "FPRINT") (GABRIEL::TIMERS GABRIEL::FPRINT) (IL:FUNCTIONS GABRIEL::FPRINT GABRIEL::FPRINT-INIT GABRIEL::FPRINT-INIT1) (IL:VARIABLES GABRIEL::FPRINT-TEST-FILE GABRIEL::TEST-ATOMS GABRIEL::TEST-PATTERN)) (IL:COMS (IL:* IL:\; "FREAD (MUST be run after FPRINT)") (GABRIEL::TIMERS GABRIEL::FREAD) (IL:FUNCTIONS GABRIEL::FREAD)) ( IL:COMS (IL:* IL:\; "TPRINT") (GABRIEL::TIMERS GABRIEL::TPRINT) (IL:FUNCTIONS GABRIEL::SETUP-TPRINT GABRIEL::TPRINT-INIT GABRIEL::TPRINT-INIT1)) (IL:VARIABLES GABRIEL::TEST-ATOMS-TPRINT GABRIEL::*TPRINT-WINDOW* GABRIEL::TEST-PATTERN-TPRINT)) (IL:COMS (IL:* IL:|;;| "Lists of benchmark names, for use with RUN-BENCHMARKS:") (IL:VARIABLES GABRIEL::*IO-BENCHMARKS* GABRIEL::*MAIKO-IO-BENCHMARKS*) (IL:VARS (IL:*1186-IO-TIMERS* (QUOTE (IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ))))) (IL:COMS (IL:* IL:|;;| "Floating-point I/O") (IL:FUNCTIONS READ-FLOATS) (GABRIEL::TIMERS IL:READ-FLOAT IL:PRINT-FLOAT)) (IL:COMS (IL:* IL:|;;| "Printing to the terminal") (IL:FUNCTIONS PRINT-TO-TERMINAL) (GABRIEL::TIMERS IL:TERMINAL-PRINTING)) ( IL:COMS (IL:* IL:|;;| "Floppy disk performance") (GABRIEL::TIMERS IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)) (IL:COMS (IL:* IL:|;;| "Symbol reading") (IL:FUNCTIONS IL:READ-EXISTING-SYMBOLS) ( GABRIEL::TIMERS IL:READ-EXISTING-SYMBOLS)) (IL:COMS (IL:* IL:|;;| "File-system-specific performance bottleneck diagnosis") (IL:FUNCTIONS IL:WRITE-TO-COREFILE IL:WRITE-TO-FILE IL:READ-FROM-FILE) (GABRIEL::TIMERS IL:READ-DSK IL:READ-UFS IL:READ-CORE IL:WRITE-DSK IL:WRITE-UFS IL:WRITE-CORE)) (IL:COMS (IL:* IL:|;;| "Set up for this series of tests") (IL:P ( IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS" "{CORE}FLOATS") (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS"))) (IL:PROP ( IL:MAKEFILE-ENVIRONMENT IL:FILETYPE) IL:IO-BENCHMARKS))) (GABRIEL::DEFINE-TIMER GABRIEL::FPRINT "FPrint" (GABRIEL::FPRINT)) (DEFUN GABRIEL::FPRINT NIL (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE))) (PRINT GABRIEL::TEST-PATTERN GABRIEL::F) (CLOSE GABRIEL::F))) (DEFUN GABRIEL::FPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::FPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) (DEFUN GABRIEL::FPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::FPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N GABRIEL::ATOMS) GABRIEL::A))))) (DEFPARAMETER GABRIEL::FPRINT-TEST-FILE (IL:* IL:|;;| "JRB - making this {dsk}fprint.tst rather than {dsk}fprint.tst so that Maiko will like it") "{dsk}fprint.tst") (DEFVAR GABRIEL::TEST-ATOMS (QUOTE (GABRIEL::ABCDEF12 GABRIEL::CDEFGH23 GABRIEL::EFGHIJ34 GABRIEL::GHIJKL45 GABRIEL::IJKLMN56 GABRIEL::KLMNOP67 GABRIEL::MNOPQR78 GABRIEL::OPQRST89 GABRIEL::QRSTUV90 GABRIEL::STUVWX01 GABRIEL::UVWXYZ12 GABRIEL::WXYZAB23 GABRIEL::XYZABC34 GABRIEL::123456AB GABRIEL::234567BC GABRIEL::345678CD GABRIEL::456789DE GABRIEL::567890EF GABRIEL::678901FG GABRIEL::789012GH GABRIEL::890123HI))) (DEFVAR GABRIEL::TEST-PATTERN (GABRIEL::FPRINT-INIT 6 6 GABRIEL::TEST-ATOMS)) (GABRIEL::DEFINE-TIMER GABRIEL::FREAD "FRead" (GABRIEL::FREAD)) (DEFUN GABRIEL::FREAD NIL (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE))) (READ GABRIEL::F) ( CLOSE GABRIEL::F))) (GABRIEL::DEFINE-TIMER (GABRIEL::TPRINT (:SETUP (SETQ GABRIEL::*TPRINT-WINDOW* (GABRIEL::SETUP-TPRINT) )) (:AFTER-EVERY (IL:DSPRESET GABRIEL::*TPRINT-WINDOW*)) (:AFTER (IL:CLOSEW GABRIEL::*TPRINT-WINDOW*)) ) "TPrint" (PRINT GABRIEL::TEST-PATTERN-TPRINT GABRIEL::*TPRINT-WINDOW*)) (DEFUN GABRIEL::SETUP-TPRINT NIL (LET* ((GABRIEL::TTYR (IL:WINDOWPROP (IL:WFROMDS (IL:TTYDISPLAYSTREAM )) (QUOTE IL:REGION))) (GABRIEL::W (IL:CREATEW (IL:CREATEREGION (IL:|fetch| (IL:REGION IL:PRIGHT) IL:|of| GABRIEL::TTYR) (IL:|fetch| (IL:REGION IL:BOTTOM) IL:|of| GABRIEL::TTYR) (- 1024 (IL:|fetch| ( IL:REGION IL:PRIGHT) IL:|of| GABRIEL::TTYR)) (IL:|fetch| (IL:REGION IL:HEIGHT) IL:|of| GABRIEL::TTYR)) ))) (IL:DSPSCROLL T GABRIEL::W) (IL:DSPRESET GABRIEL::W) GABRIEL::W)) (DEFUN GABRIEL::TPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::TPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) (DEFUN GABRIEL::TPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::TPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N GABRIEL::ATOMS) GABRIEL::A))))) (DEFVAR GABRIEL::TEST-ATOMS-TPRINT (QUOTE (GABRIEL::ABC1 GABRIEL::CDE2 GABRIEL::EFG3 GABRIEL::GHI4 GABRIEL::IJK5 GABRIEL::KLM6 GABRIEL::MNO7 GABRIEL::OPQ8 GABRIEL::QRS9 GABRIEL::STU0 GABRIEL::UVW1 GABRIEL::WXY2 GABRIEL::XYZ3 GABRIEL::123A GABRIEL::234B GABRIEL::345C GABRIEL::|456D| GABRIEL::|567D| GABRIEL::|678E| GABRIEL::|789F| GABRIEL::890G))) (DEFVAR GABRIEL::*TPRINT-WINDOW* NIL) (DEFVAR GABRIEL::TEST-PATTERN-TPRINT (GABRIEL::TPRINT-INIT 6 6 GABRIEL::TEST-ATOMS-TPRINT)) (DEFPARAMETER GABRIEL::*IO-BENCHMARKS* (QUOTE (GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT IL:READ-FLOAT IL:PRINT-FLOAT IL:TERMINAL-PRINTING IL:READ-EXISTING-SYMBOLS IL:READ-DSK IL:READ-CORE IL:WRITE-DSK IL:WRITE-CORE))) (DEFPARAMETER GABRIEL::*MAIKO-IO-BENCHMARKS* (QUOTE (GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT IL:READ-FLOAT IL:PRINT-FLOAT IL:TERMINAL-PRINTING IL:READ-EXISTING-SYMBOLS IL:READ-DSK IL:READ-UFS IL:READ-CORE IL:WRITE-DSK IL:WRITE-UFS IL:WRITE-CORE))) (IL:RPAQQ IL:*1186-IO-TIMERS* (IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)) (DEFUN READ-FLOATS NIL (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}FLOATS" (QUOTE IL:INPUT))) ( SETQ *FLOATS-TO-PRINT* (IL:READ IL:STR))) NIL) (GABRIEL::DEFINE-TIMER (IL:READ-FLOAT) "Read 2000 Floats from {CORE}" (READ-FLOATS)) (GABRIEL::DEFINE-TIMER IL:PRINT-FLOAT "Print 2000 Floats to {NULL}" (IL:PRINT *FLOATS-TO-PRINT* ( IL:OPENSTREAM (QUOTE IL:{NULL}) (QUOTE IL:OUTPUT)))) (DEFUN PRINT-TO-TERMINAL (WINDOW) (IL:* IL:|;;| "Print 1000 lines of characters to the terminal, with dribbling disabled.") (IL:* IL:|;;| "bind *DRIBBLE-OUTPUT* here, to prevent dribbling during the long printing that we really want to time." ) (DECLARE (SPECIAL IL:*DRIBBLE-OUTPUT* IL:\\TERM.OFD)) (LET ((IL:*DRIBBLE-OUTPUT*) (TDS ( IL:TTYDISPLAYSTREAM))) (DECLARE (SPECIAL IL:*DRIBBLE-OUTPUT* IL:\\TERM.OFD)) (UNWIND-PROTECT (PROGN ( IL:TTYDISPLAYSTREAM WINDOW) (IL:|for| IL:I IL:|from| 1 IL:|to| 1000 IL:|do| (IL:PRINTOUT WINDOW "LINE " IL:I " ASDF ASDF ASDF ASDF ASDF ASDF SADF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF SADF ASDF ASDF ASDF ASDF ASDF" T))) (IL:TTYDISPLAYSTREAM TDS)))) (GABRIEL::DEFINE-TIMER (IL:TERMINAL-PRINTING (:SETUP (PROGN (IL:SETQ IL:*TIMER-WINDOW-FOR-PRINT-TIMING* (IL:CREATEW (QUOTE (0 0 876 30)))) (IL:DSPFONT (QUOTE (IL:GACHA 10)) IL:*TIMER-WINDOW-FOR-PRINT-TIMING* ) (IL:WINDOWPROP IL:*TIMER-WINDOW-FOR-PRINT-TIMING* (QUOTE IL:PAGEFULLFN) (QUOTE IL:NILL)))) (:AFTER ( PROGN (IL:CLOSEW IL:*TIMER-WINDOW-FOR-PRINT-TIMING*) (IL:SETQ IL:*TIMER-WINDOW-FOR-PRINT-TIMING* NIL)) )) "Printing chars to terminal" (PRINT-TO-TERMINAL IL:*TIMER-WINDOW-FOR-PRINT-TIMING*)) (GABRIEL::DEFINE-TIMER IL:FLOPPY-FORMATTING "Formatting a floppy disk" (IL:FLOPPY.FORMAT "TEST" T T)) (GABRIEL::DEFINE-TIMER (IL:FLOPPY-WRITE :AFTER (IL:DELFILE "{FLOPPY}200-PAGES")) "Write 200 pages, CORE to floppy" (IL:COPYFILE "{CORE}200-PAGES" "{FLOPPY}200-PAGES")) (GABRIEL::DEFINE-TIMER (IL:FLOPPY-READ :SETUP (IL:COPYFILE "{CORE}200-PAGES" "{FLOPPY}200-PAGES") :AFTER (IL:DELFILE "{FLOPPY}200-PAGES")) "Copy 200 pages, floppy to NULL" (IL:COPYFILE "{FLOPPY}200-PAGES" "{NULL}")) (DEFUN IL:READ-EXISTING-SYMBOLS NIL (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}1000-SYMBOLS" ( QUOTE IL:INPUT))) (PROG1 NIL (IL:READ IL:STR)))) (GABRIEL::DEFINE-TIMER (IL:READ-EXISTING-SYMBOLS :SETUP (IL:COPYFILE "{ERIS}GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS") (IL:READ-EXISTING-SYMBOLS)) "Read 1000 symbols that exist in the sysout already" (IL:READ-EXISTING-SYMBOLS)) (DEFUN IL:WRITE-TO-COREFILE (IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}SPEED-TEST-FILE" (QUOTE IL:OUTPUT) (QUOTE IL:NEW))) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BOUT IL:STR 33))) (IL:DELFILE "{CORE}SPEED-TEST-FILE")) (DEFUN IL:WRITE-TO-FILE (IL:FILE IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM IL:FILE (QUOTE IL:OUTPUT) (QUOTE IL:NEW))) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BOUT IL:STR 33)) )) (DEFUN IL:READ-FROM-FILE (IL:FILE IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM IL:FILE (QUOTE IL:INPUT) (QUOTE IL:OLD))) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BIN IL:STR)))) (GABRIEL::DEFINE-TIMER (IL:READ-DSK (:SETUP (IL:WRITE-TO-FILE "{DSK}test-file" 50000)) (:AFTER ( IL:DELFILE "{DSK}test-file"))) "Read 50,000 bytes from a file on {DSK}" (IL:READ-FROM-FILE "{DSK}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:READ-UFS (:SETUP (IL:WRITE-TO-FILE "{UNIX}test-file" 50000)) (:AFTER ( IL:DELFILE "{UNIX}test-file"))) "Read 50,000 bytes from a file on the {UNIX} device" (IL:READ-FROM-FILE "{UNIX}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:READ-CORE (:SETUP (IL:WRITE-TO-FILE "{CORE}test-file" 50000)) (:AFTER ( IL:DELFILE "{CORE}test-file"))) "Read 50,000 bytes from CORE." (IL:READ-FROM-FILE "{CORE}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-DSK (:AFTER (IL:DELFILE "{DSK}test-file"))) "Write 50,000 bytes on on {DSK}" (IL:WRITE-TO-FILE "{DSK}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-UFS (:AFTER (IL:DELFILE "{UNIX}test-file"))) "Write 50,000 bytes to a file on {UNIX}" (IL:WRITE-TO-FILE "{UNIX}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-CORE (:AFTER (IL:DELFILE "{CORE}test-file"))) "Write 50,000 bytes to a file on {CORE}" (IL:WRITE-TO-FILE "{CORE}test-file" 50000)) (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS" "{CORE}FLOATS") (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS") (IL:PUTPROPS IL:IO-BENCHMARKS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (XCL:DEFPACKAGE "BENCHMARKS"))) (IL:PUTPROPS IL:IO-BENCHMARKS IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:IO-BENCHMARKS IL:COPYRIGHT ("Xerox Corporation" 1987 1988 1990 1992)) NIL \ No newline at end of file diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~8~ b/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~8~ deleted file mode 100644 index 1b03d7c7..00000000 --- a/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~8~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "BENCHMARKS")) (IL:FILECREATED "20-Oct-2020 03:27:34" ("compiled on " IL:|{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>IO-BENCHMARKS.;4|) " 9-Apr-2000 18:01:32" IL:|bcompl'd| IL:|in| "Medley 3.5 Full Sysout 13-Aug-2020 ..." IL:|dated| "13-Aug-2020 12:39:12") (IL:FILECREATED "20-Feb-92 18:40:05" IL:|{DSK}lde>lispcore>gabriel>benchmarks>IO-BENCHMARKS.;4| 17729 IL:|changes| IL:|to:| (IL:FUNCTIONS READ-FLOATS) IL:|previous| IL:|date:| "19-Apr-90 18:48:13" IL:|{DSK}lde>lispcore>gabriel>benchmarks>IO-BENCHMARKS.;3|) (IL:PRETTYCOMPRINT IL:IO-BENCHMARKSCOMS) (IL:RPAQQ IL:IO-BENCHMARKSCOMS ((IL:* IL:|;;| "Benchmarks for various I/O functions in the system.") ( IL:COMS (IL:* IL:|;;| "Gabriel I/O Benchmarks:") (IL:COMS (IL:* IL:\; "FPRINT") (GABRIEL::TIMERS GABRIEL::FPRINT) (IL:FUNCTIONS GABRIEL::FPRINT GABRIEL::FPRINT-INIT GABRIEL::FPRINT-INIT1) (IL:VARIABLES GABRIEL::FPRINT-TEST-FILE GABRIEL::TEST-ATOMS GABRIEL::TEST-PATTERN)) (IL:COMS (IL:* IL:\; "FREAD (MUST be run after FPRINT)") (GABRIEL::TIMERS GABRIEL::FREAD) (IL:FUNCTIONS GABRIEL::FREAD)) ( IL:COMS (IL:* IL:\; "TPRINT") (GABRIEL::TIMERS GABRIEL::TPRINT) (IL:FUNCTIONS GABRIEL::SETUP-TPRINT GABRIEL::TPRINT-INIT GABRIEL::TPRINT-INIT1)) (IL:VARIABLES GABRIEL::TEST-ATOMS-TPRINT GABRIEL::*TPRINT-WINDOW* GABRIEL::TEST-PATTERN-TPRINT)) (IL:COMS (IL:* IL:|;;| "Lists of benchmark names, for use with RUN-BENCHMARKS:") (IL:VARIABLES GABRIEL::*IO-BENCHMARKS* GABRIEL::*MAIKO-IO-BENCHMARKS*) (IL:VARS (IL:*1186-IO-TIMERS* (QUOTE (IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ))))) (IL:COMS (IL:* IL:|;;| "Floating-point I/O") (IL:FUNCTIONS READ-FLOATS) (GABRIEL::TIMERS IL:READ-FLOAT IL:PRINT-FLOAT)) (IL:COMS (IL:* IL:|;;| "Printing to the terminal") (IL:FUNCTIONS PRINT-TO-TERMINAL) (GABRIEL::TIMERS IL:TERMINAL-PRINTING)) ( IL:COMS (IL:* IL:|;;| "Floppy disk performance") (GABRIEL::TIMERS IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)) (IL:COMS (IL:* IL:|;;| "Symbol reading") (IL:FUNCTIONS IL:READ-EXISTING-SYMBOLS) ( GABRIEL::TIMERS IL:READ-EXISTING-SYMBOLS)) (IL:COMS (IL:* IL:|;;| "File-system-specific performance bottleneck diagnosis") (IL:FUNCTIONS IL:WRITE-TO-COREFILE IL:WRITE-TO-FILE IL:READ-FROM-FILE) (GABRIEL::TIMERS IL:READ-DSK IL:READ-UFS IL:READ-CORE IL:WRITE-DSK IL:WRITE-UFS IL:WRITE-CORE)) (IL:COMS (IL:* IL:|;;| "Set up for this series of tests") (IL:P ( IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS" "{CORE}FLOATS") (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS"))) (IL:PROP ( IL:MAKEFILE-ENVIRONMENT IL:FILETYPE) IL:IO-BENCHMARKS))) (GABRIEL::DEFINE-TIMER GABRIEL::FPRINT "FPrint" (GABRIEL::FPRINT)) (DEFUN GABRIEL::FPRINT NIL (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE))) (PRINT GABRIEL::TEST-PATTERN GABRIEL::F) (CLOSE GABRIEL::F))) (DEFUN GABRIEL::FPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::FPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) (DEFUN GABRIEL::FPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::FPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N GABRIEL::ATOMS) GABRIEL::A))))) (DEFPARAMETER GABRIEL::FPRINT-TEST-FILE (IL:* IL:|;;| "JRB - making this {dsk}fprint.tst rather than {dsk}fprint.tst so that Maiko will like it") "{dsk}fprint.tst") (DEFVAR GABRIEL::TEST-ATOMS (QUOTE (GABRIEL::ABCDEF12 GABRIEL::CDEFGH23 GABRIEL::EFGHIJ34 GABRIEL::GHIJKL45 GABRIEL::IJKLMN56 GABRIEL::KLMNOP67 GABRIEL::MNOPQR78 GABRIEL::OPQRST89 GABRIEL::QRSTUV90 GABRIEL::STUVWX01 GABRIEL::UVWXYZ12 GABRIEL::WXYZAB23 GABRIEL::XYZABC34 GABRIEL::123456AB GABRIEL::234567BC GABRIEL::345678CD GABRIEL::456789DE GABRIEL::567890EF GABRIEL::678901FG GABRIEL::789012GH GABRIEL::890123HI))) (DEFVAR GABRIEL::TEST-PATTERN (GABRIEL::FPRINT-INIT 6 6 GABRIEL::TEST-ATOMS)) (GABRIEL::DEFINE-TIMER GABRIEL::FREAD "FRead" (GABRIEL::FREAD)) (DEFUN GABRIEL::FREAD NIL (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE))) (READ GABRIEL::F) ( CLOSE GABRIEL::F))) (GABRIEL::DEFINE-TIMER (GABRIEL::TPRINT (:SETUP (SETQ GABRIEL::*TPRINT-WINDOW* (GABRIEL::SETUP-TPRINT) )) (:AFTER-EVERY (IL:DSPRESET GABRIEL::*TPRINT-WINDOW*)) (:AFTER (IL:CLOSEW GABRIEL::*TPRINT-WINDOW*)) ) "TPrint" (PRINT GABRIEL::TEST-PATTERN-TPRINT GABRIEL::*TPRINT-WINDOW*)) (DEFUN GABRIEL::SETUP-TPRINT NIL (LET* ((GABRIEL::TTYR (IL:WINDOWPROP (IL:WFROMDS (IL:TTYDISPLAYSTREAM )) (QUOTE IL:REGION))) (GABRIEL::W (IL:CREATEW (IL:CREATEREGION (IL:|fetch| (IL:REGION IL:PRIGHT) IL:|of| GABRIEL::TTYR) (IL:|fetch| (IL:REGION IL:BOTTOM) IL:|of| GABRIEL::TTYR) (- 1024 (IL:|fetch| ( IL:REGION IL:PRIGHT) IL:|of| GABRIEL::TTYR)) (IL:|fetch| (IL:REGION IL:HEIGHT) IL:|of| GABRIEL::TTYR)) ))) (IL:DSPSCROLL T GABRIEL::W) (IL:DSPRESET GABRIEL::W) GABRIEL::W)) (DEFUN GABRIEL::TPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::TPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) (DEFUN GABRIEL::TPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::TPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N GABRIEL::ATOMS) GABRIEL::A))))) (DEFVAR GABRIEL::TEST-ATOMS-TPRINT (QUOTE (GABRIEL::ABC1 GABRIEL::CDE2 GABRIEL::EFG3 GABRIEL::GHI4 GABRIEL::IJK5 GABRIEL::KLM6 GABRIEL::MNO7 GABRIEL::OPQ8 GABRIEL::QRS9 GABRIEL::STU0 GABRIEL::UVW1 GABRIEL::WXY2 GABRIEL::XYZ3 GABRIEL::123A GABRIEL::234B GABRIEL::345C GABRIEL::|456D| GABRIEL::|567D| GABRIEL::|678E| GABRIEL::|789F| GABRIEL::890G))) (DEFVAR GABRIEL::*TPRINT-WINDOW* NIL) (DEFVAR GABRIEL::TEST-PATTERN-TPRINT (GABRIEL::TPRINT-INIT 6 6 GABRIEL::TEST-ATOMS-TPRINT)) (DEFPARAMETER GABRIEL::*IO-BENCHMARKS* (QUOTE (GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT IL:READ-FLOAT IL:PRINT-FLOAT IL:TERMINAL-PRINTING IL:READ-EXISTING-SYMBOLS IL:READ-DSK IL:READ-CORE IL:WRITE-DSK IL:WRITE-CORE))) (DEFPARAMETER GABRIEL::*MAIKO-IO-BENCHMARKS* (QUOTE (GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT IL:READ-FLOAT IL:PRINT-FLOAT IL:TERMINAL-PRINTING IL:READ-EXISTING-SYMBOLS IL:READ-DSK IL:READ-UFS IL:READ-CORE IL:WRITE-DSK IL:WRITE-UFS IL:WRITE-CORE))) (IL:RPAQQ IL:*1186-IO-TIMERS* (IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)) (DEFUN READ-FLOATS NIL (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}FLOATS" (QUOTE IL:INPUT))) ( SETQ *FLOATS-TO-PRINT* (IL:READ IL:STR))) NIL) (GABRIEL::DEFINE-TIMER (IL:READ-FLOAT) "Read 2000 Floats from {CORE}" (READ-FLOATS)) (GABRIEL::DEFINE-TIMER IL:PRINT-FLOAT "Print 2000 Floats to {NULL}" (IL:PRINT *FLOATS-TO-PRINT* ( IL:OPENSTREAM (QUOTE IL:{NULL}) (QUOTE IL:OUTPUT)))) (DEFUN PRINT-TO-TERMINAL (WINDOW) (IL:* IL:|;;| "Print 1000 lines of characters to the terminal, with dribbling disabled.") (IL:* IL:|;;| "bind *DRIBBLE-OUTPUT* here, to prevent dribbling during the long printing that we really want to time." ) (DECLARE (SPECIAL IL:*DRIBBLE-OUTPUT* IL:\\TERM.OFD)) (LET ((IL:*DRIBBLE-OUTPUT*) (TDS ( IL:TTYDISPLAYSTREAM))) (DECLARE (SPECIAL IL:*DRIBBLE-OUTPUT* IL:\\TERM.OFD)) (UNWIND-PROTECT (PROGN ( IL:TTYDISPLAYSTREAM WINDOW) (IL:|for| IL:I IL:|from| 1 IL:|to| 1000 IL:|do| (IL:PRINTOUT WINDOW "LINE " IL:I " ASDF ASDF ASDF ASDF ASDF ASDF SADF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF SADF ASDF ASDF ASDF ASDF ASDF" T))) (IL:TTYDISPLAYSTREAM TDS)))) (GABRIEL::DEFINE-TIMER (IL:TERMINAL-PRINTING (:SETUP (PROGN (IL:SETQ IL:*TIMER-WINDOW-FOR-PRINT-TIMING* (IL:CREATEW (QUOTE (0 0 876 30)))) (IL:DSPFONT (QUOTE (IL:GACHA 10)) IL:*TIMER-WINDOW-FOR-PRINT-TIMING* ) (IL:WINDOWPROP IL:*TIMER-WINDOW-FOR-PRINT-TIMING* (QUOTE IL:PAGEFULLFN) (QUOTE IL:NILL)))) (:AFTER ( PROGN (IL:CLOSEW IL:*TIMER-WINDOW-FOR-PRINT-TIMING*) (IL:SETQ IL:*TIMER-WINDOW-FOR-PRINT-TIMING* NIL)) )) "Printing chars to terminal" (PRINT-TO-TERMINAL IL:*TIMER-WINDOW-FOR-PRINT-TIMING*)) (GABRIEL::DEFINE-TIMER IL:FLOPPY-FORMATTING "Formatting a floppy disk" (IL:FLOPPY.FORMAT "TEST" T T)) (GABRIEL::DEFINE-TIMER (IL:FLOPPY-WRITE :AFTER (IL:DELFILE "{FLOPPY}200-PAGES")) "Write 200 pages, CORE to floppy" (IL:COPYFILE "{CORE}200-PAGES" "{FLOPPY}200-PAGES")) (GABRIEL::DEFINE-TIMER (IL:FLOPPY-READ :SETUP (IL:COPYFILE "{CORE}200-PAGES" "{FLOPPY}200-PAGES") :AFTER (IL:DELFILE "{FLOPPY}200-PAGES")) "Copy 200 pages, floppy to NULL" (IL:COPYFILE "{FLOPPY}200-PAGES" "{NULL}")) (DEFUN IL:READ-EXISTING-SYMBOLS NIL (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}1000-SYMBOLS" ( QUOTE IL:INPUT))) (PROG1 NIL (IL:READ IL:STR)))) (GABRIEL::DEFINE-TIMER (IL:READ-EXISTING-SYMBOLS :SETUP (IL:COPYFILE "{ERIS}GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS") (IL:READ-EXISTING-SYMBOLS)) "Read 1000 symbols that exist in the sysout already" (IL:READ-EXISTING-SYMBOLS)) (DEFUN IL:WRITE-TO-COREFILE (IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}SPEED-TEST-FILE" (QUOTE IL:OUTPUT) (QUOTE IL:NEW))) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BOUT IL:STR 33))) (IL:DELFILE "{CORE}SPEED-TEST-FILE")) (DEFUN IL:WRITE-TO-FILE (IL:FILE IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM IL:FILE (QUOTE IL:OUTPUT) (QUOTE IL:NEW))) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BOUT IL:STR 33)) )) (DEFUN IL:READ-FROM-FILE (IL:FILE IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM IL:FILE (QUOTE IL:INPUT) (QUOTE IL:OLD))) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BIN IL:STR)))) (GABRIEL::DEFINE-TIMER (IL:READ-DSK (:SETUP (IL:WRITE-TO-FILE "{DSK}test-file" 50000)) (:AFTER ( IL:DELFILE "{DSK}test-file"))) "Read 50,000 bytes from a file on {DSK}" (IL:READ-FROM-FILE "{DSK}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:READ-UFS (:SETUP (IL:WRITE-TO-FILE "{UNIX}test-file" 50000)) (:AFTER ( IL:DELFILE "{UNIX}test-file"))) "Read 50,000 bytes from a file on the {UNIX} device" (IL:READ-FROM-FILE "{UNIX}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:READ-CORE (:SETUP (IL:WRITE-TO-FILE "{CORE}test-file" 50000)) (:AFTER ( IL:DELFILE "{CORE}test-file"))) "Read 50,000 bytes from CORE." (IL:READ-FROM-FILE "{CORE}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-DSK (:AFTER (IL:DELFILE "{DSK}test-file"))) "Write 50,000 bytes on on {DSK}" (IL:WRITE-TO-FILE "{DSK}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-UFS (:AFTER (IL:DELFILE "{UNIX}test-file"))) "Write 50,000 bytes to a file on {UNIX}" (IL:WRITE-TO-FILE "{UNIX}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-CORE (:AFTER (IL:DELFILE "{CORE}test-file"))) "Write 50,000 bytes to a file on {CORE}" (IL:WRITE-TO-FILE "{CORE}test-file" 50000)) (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS" "{CORE}FLOATS") (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS") (IL:PUTPROPS IL:IO-BENCHMARKS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (XCL:DEFPACKAGE "BENCHMARKS"))) (IL:PUTPROPS IL:IO-BENCHMARKS IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:IO-BENCHMARKS IL:COPYRIGHT ("Xerox Corporation" 1987 1988 1990 1992)) NIL \ No newline at end of file diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS.~1~ b/internal/gabriel/benchmarks/IO-BENCHMARKS.~1~ deleted file mode 100644 index 6f74bc6b..00000000 --- a/internal/gabriel/benchmarks/IO-BENCHMARKS.~1~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "BENCHMARKS")) (IL:FILECREATED "20-Jul-88 19:16:05" IL:{ERIS}GABRIEL>BENCHMARKS>IO-BENCHMARKS.\;12 17452 IL:|changes| IL:|to:| (IL:VARS IL:IO-BENCHMARKSCOMS) IL:|previous| IL:|date:| "30-Jun-88 09:52:50" IL:{ERIS}GABRIEL>BENCHMARKS>IO-BENCHMARKS.\;11) ; Copyright (c) 1987, 1988 by Xerox Corporation. All rights reserved. (IL:PRETTYCOMPRINT IL:IO-BENCHMARKSCOMS) (IL:RPAQQ IL:IO-BENCHMARKSCOMS ( (IL:* IL:|;;|  "Benchmarks for various I/O functions in the system.") (IL:COMS (IL:* IL:|;;| "Gabriel I/O Benchmarks:") (IL:COMS (IL:* IL:\; "FPRINT") (GABRIEL::TIMERS GABRIEL::FPRINT) (IL:FUNCTIONS GABRIEL::FPRINT GABRIEL::FPRINT-INIT GABRIEL::FPRINT-INIT1) (IL:VARIABLES GABRIEL::FPRINT-TEST-FILE GABRIEL::TEST-ATOMS GABRIEL::TEST-PATTERN)) (IL:COMS (IL:* IL:\;  "FREAD (MUST be run after FPRINT)") (GABRIEL::TIMERS GABRIEL::FREAD) (IL:FUNCTIONS GABRIEL::FREAD)) (IL:COMS (IL:* IL:\; "TPRINT") (GABRIEL::TIMERS GABRIEL::TPRINT) (IL:FUNCTIONS GABRIEL::SETUP-TPRINT GABRIEL::TPRINT-INIT GABRIEL::TPRINT-INIT1)) (IL:VARIABLES GABRIEL::TEST-ATOMS-TPRINT GABRIEL::*TPRINT-WINDOW* GABRIEL::TEST-PATTERN-TPRINT)) (IL:COMS (IL:* IL:|;;|  "Lists of benchmark names, for use with RUN-BENCHMARKS:") (IL:VARIABLES GABRIEL::*IO-BENCHMARKS* GABRIEL::*MAIKO-IO-BENCHMARKS*) (IL:VARS (IL:*1186-IO-TIMERS* '(IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)))) (IL:COMS (IL:* IL:|;;| "Floating-point I/O") (IL:FUNCTIONS READ-FLOATS) (GABRIEL::TIMERS IL:READ-FLOAT IL:PRINT-FLOAT)) (IL:COMS (IL:* IL:|;;| "Printing to the terminal") (IL:FUNCTIONS PRINT-TO-TERMINAL) (GABRIEL::TIMERS IL:TERMINAL-PRINTING)) (IL:COMS (IL:* IL:|;;| "Floppy disk performance") (GABRIEL::TIMERS IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)) (IL:COMS (IL:* IL:|;;| "Symbol reading") (IL:FUNCTIONS IL:READ-EXISTING-SYMBOLS) (GABRIEL::TIMERS IL:READ-EXISTING-SYMBOLS)) (IL:COMS (IL:* IL:|;;|  "File-system-specific performance bottleneck diagnosis") (IL:FUNCTIONS IL:WRITE-TO-COREFILE IL:WRITE-TO-FILE IL:READ-FROM-FILE) (GABRIEL::TIMERS IL:READ-DSK IL:READ-UFS IL:READ-CORE IL:WRITE-DSK IL:WRITE-UFS IL:WRITE-CORE)) (IL:COMS (IL:* IL:|;;| "Set up for this series of tests") (IL:P (IL:COPYFILE "{ERIS}GABRIEL>AUX>2000-FLOATS-TO-READ" "{CORE}FLOATS") (IL:COPYFILE "{ERIS}GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS"))) (IL:PROP (IL:MAKEFILE-ENVIRONMENT IL:FILETYPE) IL:IO-BENCHMARKS))) (IL:* IL:|;;| "Benchmarks for various I/O functions in the system.") (IL:* IL:|;;| "Gabriel I/O Benchmarks:") (IL:* IL:\; "FPRINT") (GABRIEL::DEFINE-TIMER GABRIEL::FPRINT "FPrint" (GABRIEL::FPRINT)) (DEFUN GABRIEL::FPRINT () (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE))) (PRINT GABRIEL::TEST-PATTERN GABRIEL::F) (CLOSE GABRIEL::F))) (DEFUN GABRIEL::FPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::FPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) (DEFUN GABRIEL::FPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::FPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N GABRIEL::ATOMS) GABRIEL::A))))) (DEFPARAMETER GABRIEL::FPRINT-TEST-FILE (IL:* IL:|;;| "JRB - making this {dsk}fprint.tst rather than {dsk}fprint.tst so that Maiko will like it") "{dsk}fprint.tst") (DEFVAR GABRIEL::TEST-ATOMS '(GABRIEL::ABCDEF12 GABRIEL::CDEFGH23 GABRIEL::EFGHIJ34 GABRIEL::GHIJKL45 GABRIEL::IJKLMN56 GABRIEL::KLMNOP67 GABRIEL::MNOPQR78 GABRIEL::OPQRST89 GABRIEL::QRSTUV90 GABRIEL::STUVWX01 GABRIEL::UVWXYZ12 GABRIEL::WXYZAB23 GABRIEL::XYZABC34 GABRIEL::123456AB GABRIEL::234567BC GABRIEL::345678CD GABRIEL::456789DE GABRIEL::567890EF GABRIEL::678901FG GABRIEL::789012GH GABRIEL::890123HI)) (DEFVAR GABRIEL::TEST-PATTERN (GABRIEL::FPRINT-INIT 6 6 GABRIEL::TEST-ATOMS)) (IL:* IL:\; "FREAD (MUST be run after FPRINT)") (GABRIEL::DEFINE-TIMER GABRIEL::FREAD "FRead" (GABRIEL::FREAD)) (DEFUN GABRIEL::FREAD () (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE))) (READ GABRIEL::F) (CLOSE GABRIEL::F))) (IL:* IL:\; "TPRINT") (GABRIEL::DEFINE-TIMER (GABRIEL::TPRINT (:SETUP (SETQ GABRIEL::*TPRINT-WINDOW* (GABRIEL::SETUP-TPRINT ))) (:AFTER-EVERY (IL:DSPRESET GABRIEL::*TPRINT-WINDOW*)) (:AFTER (IL:CLOSEW GABRIEL::*TPRINT-WINDOW*))) "TPrint" (PRINT GABRIEL::TEST-PATTERN-TPRINT GABRIEL::*TPRINT-WINDOW*)) (DEFUN GABRIEL::SETUP-TPRINT () (LET* ((GABRIEL::TTYR (IL:WINDOWPROP (IL:WFROMDS (IL:TTYDISPLAYSTREAM)) 'IL:REGION)) (GABRIEL::W (IL:CREATEW (IL:CREATEREGION (IL:|fetch| (IL:REGION IL:PRIGHT) IL:|of| GABRIEL::TTYR ) (IL:|fetch| (IL:REGION IL:BOTTOM) IL:|of| GABRIEL::TTYR) (- 1024 (IL:|fetch| (IL:REGION IL:PRIGHT) IL:|of| GABRIEL::TTYR) ) (IL:|fetch| (IL:REGION IL:HEIGHT) IL:|of| GABRIEL::TTYR))) )) (IL:DSPSCROLL T GABRIEL::W) (IL:DSPRESET GABRIEL::W) GABRIEL::W)) (DEFUN GABRIEL::TPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::TPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) (DEFUN GABRIEL::TPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::TPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N GABRIEL::ATOMS) GABRIEL::A))))) (DEFVAR GABRIEL::TEST-ATOMS-TPRINT '(GABRIEL::ABC1 GABRIEL::CDE2 GABRIEL::EFG3 GABRIEL::GHI4 GABRIEL::IJK5 GABRIEL::KLM6 GABRIEL::MNO7 GABRIEL::OPQ8 GABRIEL::QRS9 GABRIEL::STU0 GABRIEL::UVW1 GABRIEL::WXY2 GABRIEL::XYZ3 GABRIEL::|123A| GABRIEL::|234B| GABRIEL::|345C| GABRIEL::|456D| GABRIEL::|567D| GABRIEL::|678E| GABRIEL::|789F| GABRIEL::|890G|)) (DEFVAR GABRIEL::*TPRINT-WINDOW* NIL) (DEFVAR GABRIEL::TEST-PATTERN-TPRINT (GABRIEL::TPRINT-INIT 6 6 GABRIEL::TEST-ATOMS-TPRINT)) (IL:* IL:|;;| "Lists of benchmark names, for use with RUN-BENCHMARKS:") (DEFPARAMETER GABRIEL::*IO-BENCHMARKS* '(GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT IL:READ-FLOAT IL:PRINT-FLOAT IL:TERMINAL-PRINTING IL:READ-EXISTING-SYMBOLS IL:READ-DSK IL:READ-CORE IL:WRITE-DSK IL:WRITE-CORE)) (DEFPARAMETER GABRIEL::*MAIKO-IO-BENCHMARKS* '(GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT IL:READ-FLOAT IL:PRINT-FLOAT IL:TERMINAL-PRINTING IL:READ-EXISTING-SYMBOLS IL:READ-DSK IL:READ-UFS IL:READ-CORE IL:WRITE-DSK IL:WRITE-UFS IL:WRITE-CORE)) (IL:RPAQQ IL:*1186-IO-TIMERS* (IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)) (IL:* IL:|;;| "Floating-point I/O") (DEFUN READ-FLOATS () (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}FLOATS" 'IL:INPUT)) (IL:READ IL:STR)) NIL) (GABRIEL::DEFINE-TIMER (IL:READ-FLOAT) "Read 2000 Floats from {CORE}" (READ-FLOATS)) (GABRIEL::DEFINE-TIMER IL:PRINT-FLOAT "Print 2000 Floats to {NULL}" (IL:PRINT *FLOATS-TO-PRINT* (IL:OPENSTREAM 'IL:{NULL} 'IL:OUTPUT))) (IL:* IL:|;;| "Printing to the terminal") (DEFUN PRINT-TO-TERMINAL (WINDOW) (IL:* IL:|;;| "Print 1000 lines of characters to the terminal, with dribbling disabled.") (IL:* IL:|;;| "bind *DRIBBLE-OUTPUT* here, to prevent dribbling during the long printing that we really want to time.") (DECLARE (SPECIAL IL:*DRIBBLE-OUTPUT* IL:\\TERM.OFD)) (LET ((IL:*DRIBBLE-OUTPUT*) (TDS (IL:TTYDISPLAYSTREAM))) (DECLARE (SPECIAL IL:*DRIBBLE-OUTPUT* IL:\\TERM.OFD)) (UNWIND-PROTECT (PROGN (IL:TTYDISPLAYSTREAM WINDOW) (IL:|for| IL:I IL:|from| 1 IL:|to| 1000 IL:|do| (IL:PRINTOUT WINDOW "LINE " IL:I " ASDF ASDF ASDF ASDF ASDF ASDF SADF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF SADF ASDF ASDF ASDF ASDF ASDF" T))) (IL:TTYDISPLAYSTREAM TDS)))) (GABRIEL::DEFINE-TIMER (IL:TERMINAL-PRINTING (:SETUP (PROGN (IL:SETQ IL:*TIMER-WINDOW-FOR-PRINT-TIMING* (IL:CREATEW '(0 0 876 30))) (IL:DSPFONT '(IL:GACHA 10) IL:*TIMER-WINDOW-FOR-PRINT-TIMING*) (IL:WINDOWPROP IL:*TIMER-WINDOW-FOR-PRINT-TIMING* 'IL:PAGEFULLFN 'IL:NILL))) (:AFTER (PROGN (IL:CLOSEW IL:*TIMER-WINDOW-FOR-PRINT-TIMING*) (IL:SETQ IL:*TIMER-WINDOW-FOR-PRINT-TIMING* NIL)))) "Printing chars to terminal" (PRINT-TO-TERMINAL IL:*TIMER-WINDOW-FOR-PRINT-TIMING*)) (IL:* IL:|;;| "Floppy disk performance") (GABRIEL::DEFINE-TIMER IL:FLOPPY-FORMATTING "Formatting a floppy disk" (IL:FLOPPY.FORMAT "TEST" T T)) (GABRIEL::DEFINE-TIMER (IL:FLOPPY-WRITE :AFTER (IL:DELFILE "{FLOPPY}200-PAGES")) "Write 200 pages, CORE to floppy" (IL:COPYFILE "{CORE}200-PAGES" "{FLOPPY}200-PAGES")) (GABRIEL::DEFINE-TIMER (IL:FLOPPY-READ :SETUP (IL:COPYFILE "{CORE}200-PAGES" "{FLOPPY}200-PAGES") :AFTER (IL:DELFILE "{FLOPPY}200-PAGES")) "Copy 200 pages, floppy to NULL" (IL:COPYFILE "{FLOPPY}200-PAGES" "{NULL}")) (IL:* IL:|;;| "Symbol reading") (DEFUN IL:READ-EXISTING-SYMBOLS () (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}1000-SYMBOLS" 'IL:INPUT)) (PROG1 NIL (IL:READ IL:STR)))) (GABRIEL::DEFINE-TIMER (IL:READ-EXISTING-SYMBOLS :SETUP (IL:COPYFILE "{ERIS}GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS") (IL:READ-EXISTING-SYMBOLS)) "Read 1000 symbols that exist in the sysout already" (IL:READ-EXISTING-SYMBOLS)) (IL:* IL:|;;| "File-system-specific performance bottleneck diagnosis") (DEFUN IL:WRITE-TO-COREFILE (IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}SPEED-TEST-FILE" 'IL:OUTPUT 'IL:NEW)) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BOUT IL:STR 33))) (IL:DELFILE "{CORE}SPEED-TEST-FILE")) (DEFUN IL:WRITE-TO-FILE (IL:FILE IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM IL:FILE 'IL:OUTPUT 'IL:NEW)) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BOUT IL:STR 33)))) (DEFUN IL:READ-FROM-FILE (IL:FILE IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM IL:FILE 'IL:INPUT 'IL:OLD)) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BIN IL:STR)))) (GABRIEL::DEFINE-TIMER (IL:READ-DSK (:SETUP (IL:WRITE-TO-FILE "{DSK}test-file" 50000)) (:AFTER (IL:DELFILE "{DSK}test-file"))) "Read 50,000 bytes from a file on {DSK}" (IL:READ-FROM-FILE "{DSK}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:READ-UFS (:SETUP (IL:WRITE-TO-FILE "{UNIX}test-file" 50000)) (:AFTER (IL:DELFILE "{UNIX}test-file"))) "Read 50,000 bytes from a file on the {UNIX} device" (IL:READ-FROM-FILE "{UNIX}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:READ-CORE (:SETUP (IL:WRITE-TO-FILE "{CORE}test-file" 50000)) (:AFTER (IL:DELFILE "{CORE}test-file"))) "Read 50,000 bytes from CORE." (IL:READ-FROM-FILE "{CORE}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-DSK (:AFTER (IL:DELFILE "{DSK}test-file"))) "Write 50,000 bytes on on {DSK}" (IL:WRITE-TO-FILE "{DSK}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-UFS (:AFTER (IL:DELFILE "{UNIX}test-file"))) "Write 50,000 bytes to a file on {UNIX}" (IL:WRITE-TO-FILE "{UNIX}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-CORE (:AFTER (IL:DELFILE "{CORE}test-file"))) "Write 50,000 bytes to a file on {CORE}" (IL:WRITE-TO-FILE "{CORE}test-file" 50000)) (IL:* IL:|;;| "Set up for this series of tests") (IL:COPYFILE "{ERIS}GABRIEL>AUX>2000-FLOATS-TO-READ" "{CORE}FLOATS") (IL:COPYFILE "{ERIS}GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS") (IL:PUTPROPS IL:IO-BENCHMARKS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (XCL:DEFPACKAGE "BENCHMARKS"))) (IL:PUTPROPS IL:IO-BENCHMARKS IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:IO-BENCHMARKS IL:COPYRIGHT ("Xerox Corporation" 1987 1988)) (IL:DECLARE\: IL:DONTCOPY (IL:FILEMAP (NIL))) IL:STOP \ No newline at end of file diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS.~2~ b/internal/gabriel/benchmarks/IO-BENCHMARKS.~2~ deleted file mode 100644 index 9e8b5a95..00000000 --- a/internal/gabriel/benchmarks/IO-BENCHMARKS.~2~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "BENCHMARKS")) (IL:FILECREATED "19-Apr-90 18:43:52"  IL:|{DSK}/usr/local/lde/lispcore/gabriel/Benchmarks/IO-BENCHMARKS.;2| 16089 IL:|changes| IL:|to:| (IL:VARS IL:IO-BENCHMARKSCOMS) IL:|previous| IL:|date:| "20-Jul-88 19:16:05" IL:|{DSK}/usr/local/lde/lispcore/gabriel/Benchmarks/IO-BENCHMARKS.;1|) ; Copyright (c) 1987, 1988, 1990 by Xerox Corporation. All rights reserved. (IL:PRETTYCOMPRINT IL:IO-BENCHMARKSCOMS) (IL:RPAQQ IL:IO-BENCHMARKSCOMS ( (IL:* IL:|;;| "Benchmarks for various I/O functions in the system.") (IL:COMS (IL:* IL:|;;| "Gabriel I/O Benchmarks:") (IL:COMS (IL:* IL:\; "FPRINT") (GABRIEL::TIMERS GABRIEL::FPRINT) (IL:FUNCTIONS GABRIEL::FPRINT GABRIEL::FPRINT-INIT GABRIEL::FPRINT-INIT1) (IL:VARIABLES GABRIEL::FPRINT-TEST-FILE GABRIEL::TEST-ATOMS GABRIEL::TEST-PATTERN)) (IL:COMS (IL:* IL:\;  "FREAD (MUST be run after FPRINT)") (GABRIEL::TIMERS GABRIEL::FREAD) (IL:FUNCTIONS GABRIEL::FREAD)) (IL:COMS (IL:* IL:\; "TPRINT") (GABRIEL::TIMERS GABRIEL::TPRINT) (IL:FUNCTIONS GABRIEL::SETUP-TPRINT GABRIEL::TPRINT-INIT GABRIEL::TPRINT-INIT1)) (IL:VARIABLES GABRIEL::TEST-ATOMS-TPRINT GABRIEL::*TPRINT-WINDOW* GABRIEL::TEST-PATTERN-TPRINT)) (IL:COMS (IL:* IL:|;;| "Lists of benchmark names, for use with RUN-BENCHMARKS:") (IL:VARIABLES GABRIEL::*IO-BENCHMARKS* GABRIEL::*MAIKO-IO-BENCHMARKS*) (IL:VARS (IL:*1186-IO-TIMERS* '(IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ )))) (IL:COMS (IL:* IL:|;;| "Floating-point I/O") (IL:FUNCTIONS READ-FLOATS) (GABRIEL::TIMERS IL:READ-FLOAT IL:PRINT-FLOAT)) (IL:COMS (IL:* IL:|;;| "Printing to the terminal") (IL:FUNCTIONS PRINT-TO-TERMINAL) (GABRIEL::TIMERS IL:TERMINAL-PRINTING)) (IL:COMS (IL:* IL:|;;| "Floppy disk performance") (GABRIEL::TIMERS IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)) (IL:COMS (IL:* IL:|;;| "Symbol reading") (IL:FUNCTIONS IL:READ-EXISTING-SYMBOLS) (GABRIEL::TIMERS IL:READ-EXISTING-SYMBOLS)) (IL:COMS (IL:* IL:|;;| "File-system-specific performance bottleneck diagnosis") (IL:FUNCTIONS IL:WRITE-TO-COREFILE IL:WRITE-TO-FILE IL:READ-FROM-FILE) (GABRIEL::TIMERS IL:READ-DSK IL:READ-UFS IL:READ-CORE IL:WRITE-DSK IL:WRITE-UFS IL:WRITE-CORE)) (IL:COMS (IL:* IL:|;;| "Set up for this series of tests") (IL:P (IL:COPYFILE "{{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS-TO-READ" "{CORE}FLOATS") (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS"))) (IL:PROP (IL:MAKEFILE-ENVIRONMENT IL:FILETYPE) IL:IO-BENCHMARKS))) (IL:* IL:|;;| "Benchmarks for various I/O functions in the system.") (IL:* IL:|;;| "Gabriel I/O Benchmarks:") (IL:* IL:\; "FPRINT") (GABRIEL::DEFINE-TIMER GABRIEL::FPRINT "FPrint" (GABRIEL::FPRINT)) (DEFUN GABRIEL::FPRINT () (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE))) (PRINT GABRIEL::TEST-PATTERN GABRIEL::F) (CLOSE GABRIEL::F))) (DEFUN GABRIEL::FPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::FPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) (DEFUN GABRIEL::FPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::FPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N GABRIEL::ATOMS) GABRIEL::A))))) (DEFPARAMETER GABRIEL::FPRINT-TEST-FILE (IL:* IL:|;;| "JRB - making this {dsk}fprint.tst rather than {dsk}fprint.tst so that Maiko will like it") "{dsk}fprint.tst") (DEFVAR GABRIEL::TEST-ATOMS '(GABRIEL::ABCDEF12 GABRIEL::CDEFGH23 GABRIEL::EFGHIJ34 GABRIEL::GHIJKL45 GABRIEL::IJKLMN56 GABRIEL::KLMNOP67 GABRIEL::MNOPQR78 GABRIEL::OPQRST89 GABRIEL::QRSTUV90 GABRIEL::STUVWX01 GABRIEL::UVWXYZ12 GABRIEL::WXYZAB23 GABRIEL::XYZABC34 GABRIEL::123456AB GABRIEL::234567BC GABRIEL::345678CD GABRIEL::456789DE GABRIEL::567890EF GABRIEL::678901FG GABRIEL::789012GH GABRIEL::890123HI)) (DEFVAR GABRIEL::TEST-PATTERN (GABRIEL::FPRINT-INIT 6 6 GABRIEL::TEST-ATOMS)) (IL:* IL:\; "FREAD (MUST be run after FPRINT)") (GABRIEL::DEFINE-TIMER GABRIEL::FREAD "FRead" (GABRIEL::FREAD)) (DEFUN GABRIEL::FREAD () (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE))) (READ GABRIEL::F) (CLOSE GABRIEL::F))) (IL:* IL:\; "TPRINT") (GABRIEL::DEFINE-TIMER (GABRIEL::TPRINT (:SETUP (SETQ GABRIEL::*TPRINT-WINDOW* (GABRIEL::SETUP-TPRINT ))) (:AFTER-EVERY (IL:DSPRESET GABRIEL::*TPRINT-WINDOW*)) (:AFTER (IL:CLOSEW GABRIEL::*TPRINT-WINDOW*))) "TPrint" (PRINT GABRIEL::TEST-PATTERN-TPRINT GABRIEL::*TPRINT-WINDOW*)) (DEFUN GABRIEL::SETUP-TPRINT () (LET* ((GABRIEL::TTYR (IL:WINDOWPROP (IL:WFROMDS (IL:TTYDISPLAYSTREAM)) 'IL:REGION)) (GABRIEL::W (IL:CREATEW (IL:CREATEREGION (IL:|fetch| (IL:REGION IL:PRIGHT) IL:|of| GABRIEL::TTYR ) (IL:|fetch| (IL:REGION IL:BOTTOM) IL:|of| GABRIEL::TTYR) (- 1024 (IL:|fetch| (IL:REGION IL:PRIGHT) IL:|of| GABRIEL::TTYR) ) (IL:|fetch| (IL:REGION IL:HEIGHT) IL:|of| GABRIEL::TTYR))) )) (IL:DSPSCROLL T GABRIEL::W) (IL:DSPRESET GABRIEL::W) GABRIEL::W)) (DEFUN GABRIEL::TPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::TPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) (DEFUN GABRIEL::TPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::TPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N GABRIEL::ATOMS) GABRIEL::A))))) (DEFVAR GABRIEL::TEST-ATOMS-TPRINT '(GABRIEL::ABC1 GABRIEL::CDE2 GABRIEL::EFG3 GABRIEL::GHI4 GABRIEL::IJK5 GABRIEL::KLM6 GABRIEL::MNO7 GABRIEL::OPQ8 GABRIEL::QRS9 GABRIEL::STU0 GABRIEL::UVW1 GABRIEL::WXY2 GABRIEL::XYZ3 GABRIEL::|123A| GABRIEL::|234B| GABRIEL::|345C| GABRIEL::|456D| GABRIEL::|567D| GABRIEL::|678E| GABRIEL::|789F| GABRIEL::|890G|)) (DEFVAR GABRIEL::*TPRINT-WINDOW* NIL) (DEFVAR GABRIEL::TEST-PATTERN-TPRINT (GABRIEL::TPRINT-INIT 6 6 GABRIEL::TEST-ATOMS-TPRINT)) (IL:* IL:|;;| "Lists of benchmark names, for use with RUN-BENCHMARKS:") (DEFPARAMETER GABRIEL::*IO-BENCHMARKS* '(GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT IL:READ-FLOAT IL:PRINT-FLOAT IL:TERMINAL-PRINTING IL:READ-EXISTING-SYMBOLS IL:READ-DSK IL:READ-CORE IL:WRITE-DSK IL:WRITE-CORE)) (DEFPARAMETER GABRIEL::*MAIKO-IO-BENCHMARKS* '(GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT IL:READ-FLOAT IL:PRINT-FLOAT IL:TERMINAL-PRINTING IL:READ-EXISTING-SYMBOLS IL:READ-DSK IL:READ-UFS IL:READ-CORE IL:WRITE-DSK IL:WRITE-UFS IL:WRITE-CORE)) (IL:RPAQQ IL:*1186-IO-TIMERS* (IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)) (IL:* IL:|;;| "Floating-point I/O") (DEFUN READ-FLOATS () (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}FLOATS" 'IL:INPUT)) (IL:READ IL:STR)) NIL) (GABRIEL::DEFINE-TIMER (IL:READ-FLOAT) "Read 2000 Floats from {CORE}" (READ-FLOATS)) (GABRIEL::DEFINE-TIMER IL:PRINT-FLOAT "Print 2000 Floats to {NULL}" (IL:PRINT *FLOATS-TO-PRINT* (IL:OPENSTREAM 'IL:{NULL} 'IL:OUTPUT))) (IL:* IL:|;;| "Printing to the terminal") (DEFUN PRINT-TO-TERMINAL (WINDOW) (IL:* IL:|;;| "Print 1000 lines of characters to the terminal, with dribbling disabled.") (IL:* IL:|;;| "bind *DRIBBLE-OUTPUT* here, to prevent dribbling during the long printing that we really want to time.") (DECLARE (SPECIAL IL:*DRIBBLE-OUTPUT* IL:\\TERM.OFD)) (LET ((IL:*DRIBBLE-OUTPUT*) (TDS (IL:TTYDISPLAYSTREAM))) (DECLARE (SPECIAL IL:*DRIBBLE-OUTPUT* IL:\\TERM.OFD)) (UNWIND-PROTECT (PROGN (IL:TTYDISPLAYSTREAM WINDOW) (IL:|for| IL:I IL:|from| 1 IL:|to| 1000 IL:|do| (IL:PRINTOUT WINDOW "LINE " IL:I " ASDF ASDF ASDF ASDF ASDF ASDF SADF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF SADF ASDF ASDF ASDF ASDF ASDF" T))) (IL:TTYDISPLAYSTREAM TDS)))) (GABRIEL::DEFINE-TIMER (IL:TERMINAL-PRINTING (:SETUP (PROGN (IL:SETQ IL:*TIMER-WINDOW-FOR-PRINT-TIMING* (IL:CREATEW '(0 0 876 30))) (IL:DSPFONT '(IL:GACHA 10) IL:*TIMER-WINDOW-FOR-PRINT-TIMING*) (IL:WINDOWPROP IL:*TIMER-WINDOW-FOR-PRINT-TIMING* 'IL:PAGEFULLFN 'IL:NILL))) (:AFTER (PROGN (IL:CLOSEW IL:*TIMER-WINDOW-FOR-PRINT-TIMING*) (IL:SETQ IL:*TIMER-WINDOW-FOR-PRINT-TIMING* NIL)))) "Printing chars to terminal" (PRINT-TO-TERMINAL IL:*TIMER-WINDOW-FOR-PRINT-TIMING*)) (IL:* IL:|;;| "Floppy disk performance") (GABRIEL::DEFINE-TIMER IL:FLOPPY-FORMATTING "Formatting a floppy disk" (IL:FLOPPY.FORMAT "TEST" T T)) (GABRIEL::DEFINE-TIMER (IL:FLOPPY-WRITE :AFTER (IL:DELFILE "{FLOPPY}200-PAGES")) "Write 200 pages, CORE to floppy" (IL:COPYFILE "{CORE}200-PAGES" "{FLOPPY}200-PAGES")) (GABRIEL::DEFINE-TIMER (IL:FLOPPY-READ :SETUP (IL:COPYFILE "{CORE}200-PAGES" "{FLOPPY}200-PAGES") :AFTER (IL:DELFILE "{FLOPPY}200-PAGES")) "Copy 200 pages, floppy to NULL" (IL:COPYFILE "{FLOPPY}200-PAGES" "{NULL}")) (IL:* IL:|;;| "Symbol reading") (DEFUN IL:READ-EXISTING-SYMBOLS () (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}1000-SYMBOLS" 'IL:INPUT)) (PROG1 NIL (IL:READ IL:STR)))) (GABRIEL::DEFINE-TIMER (IL:READ-EXISTING-SYMBOLS :SETUP (IL:COPYFILE "{ERIS}GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS") (IL:READ-EXISTING-SYMBOLS)) "Read 1000 symbols that exist in the sysout already" (IL:READ-EXISTING-SYMBOLS)) (IL:* IL:|;;| "File-system-specific performance bottleneck diagnosis") (DEFUN IL:WRITE-TO-COREFILE (IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}SPEED-TEST-FILE" 'IL:OUTPUT 'IL:NEW)) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BOUT IL:STR 33))) (IL:DELFILE "{CORE}SPEED-TEST-FILE")) (DEFUN IL:WRITE-TO-FILE (IL:FILE IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM IL:FILE 'IL:OUTPUT 'IL:NEW)) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BOUT IL:STR 33)))) (DEFUN IL:READ-FROM-FILE (IL:FILE IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM IL:FILE 'IL:INPUT 'IL:OLD)) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BIN IL:STR)))) (GABRIEL::DEFINE-TIMER (IL:READ-DSK (:SETUP (IL:WRITE-TO-FILE "{DSK}test-file" 50000)) (:AFTER (IL:DELFILE "{DSK}test-file"))) "Read 50,000 bytes from a file on {DSK}" (IL:READ-FROM-FILE "{DSK}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:READ-UFS (:SETUP (IL:WRITE-TO-FILE "{UNIX}test-file" 50000)) (:AFTER (IL:DELFILE "{UNIX}test-file"))) "Read 50,000 bytes from a file on the {UNIX} device" (IL:READ-FROM-FILE "{UNIX}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:READ-CORE (:SETUP (IL:WRITE-TO-FILE "{CORE}test-file" 50000)) (:AFTER (IL:DELFILE "{CORE}test-file"))) "Read 50,000 bytes from CORE." (IL:READ-FROM-FILE "{CORE}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-DSK (:AFTER (IL:DELFILE "{DSK}test-file"))) "Write 50,000 bytes on on {DSK}" (IL:WRITE-TO-FILE "{DSK}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-UFS (:AFTER (IL:DELFILE "{UNIX}test-file"))) "Write 50,000 bytes to a file on {UNIX}" (IL:WRITE-TO-FILE "{UNIX}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-CORE (:AFTER (IL:DELFILE "{CORE}test-file"))) "Write 50,000 bytes to a file on {CORE}" (IL:WRITE-TO-FILE "{CORE}test-file" 50000)) (IL:* IL:|;;| "Set up for this series of tests") (IL:COPYFILE "{{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS-TO-READ" "{CORE}FLOATS") (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS") (IL:PUTPROPS IL:IO-BENCHMARKS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE ( XCL:DEFPACKAGE "BENCHMARKS" ))) (IL:PUTPROPS IL:IO-BENCHMARKS IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:IO-BENCHMARKS IL:COPYRIGHT ("Xerox Corporation" 1987 1988 1990)) (IL:DECLARE\: IL:DONTCOPY (IL:FILEMAP (NIL))) IL:STOP \ No newline at end of file diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS.~3~ b/internal/gabriel/benchmarks/IO-BENCHMARKS.~3~ deleted file mode 100644 index 98fb77a7..00000000 --- a/internal/gabriel/benchmarks/IO-BENCHMARKS.~3~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "BENCHMARKS")) (IL:FILECREATED "19-Apr-90 18:48:13"  IL:|{DSK}/usr/local/lde/lispcore/gabriel/Benchmarks/IO-BENCHMARKS.;3| 16088 IL:|changes| IL:|to:| (IL:VARS IL:IO-BENCHMARKSCOMS) IL:|previous| IL:|date:| "20-Jul-88 19:16:05" IL:|{DSK}/usr/local/lde/lispcore/gabriel/Benchmarks/IO-BENCHMARKS.;1|) ; Copyright (c) 1987, 1988, 1990 by Xerox Corporation. All rights reserved. (IL:PRETTYCOMPRINT IL:IO-BENCHMARKSCOMS) (IL:RPAQQ IL:IO-BENCHMARKSCOMS ( (IL:* IL:|;;| "Benchmarks for various I/O functions in the system.") (IL:COMS (IL:* IL:|;;| "Gabriel I/O Benchmarks:") (IL:COMS (IL:* IL:\; "FPRINT") (GABRIEL::TIMERS GABRIEL::FPRINT) (IL:FUNCTIONS GABRIEL::FPRINT GABRIEL::FPRINT-INIT GABRIEL::FPRINT-INIT1) (IL:VARIABLES GABRIEL::FPRINT-TEST-FILE GABRIEL::TEST-ATOMS GABRIEL::TEST-PATTERN)) (IL:COMS (IL:* IL:\;  "FREAD (MUST be run after FPRINT)") (GABRIEL::TIMERS GABRIEL::FREAD) (IL:FUNCTIONS GABRIEL::FREAD)) (IL:COMS (IL:* IL:\; "TPRINT") (GABRIEL::TIMERS GABRIEL::TPRINT) (IL:FUNCTIONS GABRIEL::SETUP-TPRINT GABRIEL::TPRINT-INIT GABRIEL::TPRINT-INIT1)) (IL:VARIABLES GABRIEL::TEST-ATOMS-TPRINT GABRIEL::*TPRINT-WINDOW* GABRIEL::TEST-PATTERN-TPRINT)) (IL:COMS (IL:* IL:|;;| "Lists of benchmark names, for use with RUN-BENCHMARKS:") (IL:VARIABLES GABRIEL::*IO-BENCHMARKS* GABRIEL::*MAIKO-IO-BENCHMARKS*) (IL:VARS (IL:*1186-IO-TIMERS* '(IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ )))) (IL:COMS (IL:* IL:|;;| "Floating-point I/O") (IL:FUNCTIONS READ-FLOATS) (GABRIEL::TIMERS IL:READ-FLOAT IL:PRINT-FLOAT)) (IL:COMS (IL:* IL:|;;| "Printing to the terminal") (IL:FUNCTIONS PRINT-TO-TERMINAL) (GABRIEL::TIMERS IL:TERMINAL-PRINTING)) (IL:COMS (IL:* IL:|;;| "Floppy disk performance") (GABRIEL::TIMERS IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)) (IL:COMS (IL:* IL:|;;| "Symbol reading") (IL:FUNCTIONS IL:READ-EXISTING-SYMBOLS) (GABRIEL::TIMERS IL:READ-EXISTING-SYMBOLS)) (IL:COMS (IL:* IL:|;;| "File-system-specific performance bottleneck diagnosis") (IL:FUNCTIONS IL:WRITE-TO-COREFILE IL:WRITE-TO-FILE IL:READ-FROM-FILE) (GABRIEL::TIMERS IL:READ-DSK IL:READ-UFS IL:READ-CORE IL:WRITE-DSK IL:WRITE-UFS IL:WRITE-CORE)) (IL:COMS (IL:* IL:|;;| "Set up for this series of tests") (IL:P (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS-TO-READ" "{CORE}FLOATS") (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS"))) (IL:PROP (IL:MAKEFILE-ENVIRONMENT IL:FILETYPE) IL:IO-BENCHMARKS))) (IL:* IL:|;;| "Benchmarks for various I/O functions in the system.") (IL:* IL:|;;| "Gabriel I/O Benchmarks:") (IL:* IL:\; "FPRINT") (GABRIEL::DEFINE-TIMER GABRIEL::FPRINT "FPrint" (GABRIEL::FPRINT)) (DEFUN GABRIEL::FPRINT () (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE))) (PRINT GABRIEL::TEST-PATTERN GABRIEL::F) (CLOSE GABRIEL::F))) (DEFUN GABRIEL::FPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::FPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) (DEFUN GABRIEL::FPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::FPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N GABRIEL::ATOMS) GABRIEL::A))))) (DEFPARAMETER GABRIEL::FPRINT-TEST-FILE (IL:* IL:|;;| "JRB - making this {dsk}fprint.tst rather than {dsk}fprint.tst so that Maiko will like it") "{dsk}fprint.tst") (DEFVAR GABRIEL::TEST-ATOMS '(GABRIEL::ABCDEF12 GABRIEL::CDEFGH23 GABRIEL::EFGHIJ34 GABRIEL::GHIJKL45 GABRIEL::IJKLMN56 GABRIEL::KLMNOP67 GABRIEL::MNOPQR78 GABRIEL::OPQRST89 GABRIEL::QRSTUV90 GABRIEL::STUVWX01 GABRIEL::UVWXYZ12 GABRIEL::WXYZAB23 GABRIEL::XYZABC34 GABRIEL::123456AB GABRIEL::234567BC GABRIEL::345678CD GABRIEL::456789DE GABRIEL::567890EF GABRIEL::678901FG GABRIEL::789012GH GABRIEL::890123HI)) (DEFVAR GABRIEL::TEST-PATTERN (GABRIEL::FPRINT-INIT 6 6 GABRIEL::TEST-ATOMS)) (IL:* IL:\; "FREAD (MUST be run after FPRINT)") (GABRIEL::DEFINE-TIMER GABRIEL::FREAD "FRead" (GABRIEL::FREAD)) (DEFUN GABRIEL::FREAD () (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE))) (READ GABRIEL::F) (CLOSE GABRIEL::F))) (IL:* IL:\; "TPRINT") (GABRIEL::DEFINE-TIMER (GABRIEL::TPRINT (:SETUP (SETQ GABRIEL::*TPRINT-WINDOW* (GABRIEL::SETUP-TPRINT ))) (:AFTER-EVERY (IL:DSPRESET GABRIEL::*TPRINT-WINDOW*)) (:AFTER (IL:CLOSEW GABRIEL::*TPRINT-WINDOW*))) "TPrint" (PRINT GABRIEL::TEST-PATTERN-TPRINT GABRIEL::*TPRINT-WINDOW*)) (DEFUN GABRIEL::SETUP-TPRINT () (LET* ((GABRIEL::TTYR (IL:WINDOWPROP (IL:WFROMDS (IL:TTYDISPLAYSTREAM)) 'IL:REGION)) (GABRIEL::W (IL:CREATEW (IL:CREATEREGION (IL:|fetch| (IL:REGION IL:PRIGHT) IL:|of| GABRIEL::TTYR ) (IL:|fetch| (IL:REGION IL:BOTTOM) IL:|of| GABRIEL::TTYR) (- 1024 (IL:|fetch| (IL:REGION IL:PRIGHT) IL:|of| GABRIEL::TTYR) ) (IL:|fetch| (IL:REGION IL:HEIGHT) IL:|of| GABRIEL::TTYR))) )) (IL:DSPSCROLL T GABRIEL::W) (IL:DSPRESET GABRIEL::W) GABRIEL::W)) (DEFUN GABRIEL::TPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::TPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) (DEFUN GABRIEL::TPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::TPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N GABRIEL::ATOMS) GABRIEL::A))))) (DEFVAR GABRIEL::TEST-ATOMS-TPRINT '(GABRIEL::ABC1 GABRIEL::CDE2 GABRIEL::EFG3 GABRIEL::GHI4 GABRIEL::IJK5 GABRIEL::KLM6 GABRIEL::MNO7 GABRIEL::OPQ8 GABRIEL::QRS9 GABRIEL::STU0 GABRIEL::UVW1 GABRIEL::WXY2 GABRIEL::XYZ3 GABRIEL::|123A| GABRIEL::|234B| GABRIEL::|345C| GABRIEL::|456D| GABRIEL::|567D| GABRIEL::|678E| GABRIEL::|789F| GABRIEL::|890G|)) (DEFVAR GABRIEL::*TPRINT-WINDOW* NIL) (DEFVAR GABRIEL::TEST-PATTERN-TPRINT (GABRIEL::TPRINT-INIT 6 6 GABRIEL::TEST-ATOMS-TPRINT)) (IL:* IL:|;;| "Lists of benchmark names, for use with RUN-BENCHMARKS:") (DEFPARAMETER GABRIEL::*IO-BENCHMARKS* '(GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT IL:READ-FLOAT IL:PRINT-FLOAT IL:TERMINAL-PRINTING IL:READ-EXISTING-SYMBOLS IL:READ-DSK IL:READ-CORE IL:WRITE-DSK IL:WRITE-CORE)) (DEFPARAMETER GABRIEL::*MAIKO-IO-BENCHMARKS* '(GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT IL:READ-FLOAT IL:PRINT-FLOAT IL:TERMINAL-PRINTING IL:READ-EXISTING-SYMBOLS IL:READ-DSK IL:READ-UFS IL:READ-CORE IL:WRITE-DSK IL:WRITE-UFS IL:WRITE-CORE)) (IL:RPAQQ IL:*1186-IO-TIMERS* (IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)) (IL:* IL:|;;| "Floating-point I/O") (DEFUN READ-FLOATS () (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}FLOATS" 'IL:INPUT)) (IL:READ IL:STR)) NIL) (GABRIEL::DEFINE-TIMER (IL:READ-FLOAT) "Read 2000 Floats from {CORE}" (READ-FLOATS)) (GABRIEL::DEFINE-TIMER IL:PRINT-FLOAT "Print 2000 Floats to {NULL}" (IL:PRINT *FLOATS-TO-PRINT* (IL:OPENSTREAM 'IL:{NULL} 'IL:OUTPUT))) (IL:* IL:|;;| "Printing to the terminal") (DEFUN PRINT-TO-TERMINAL (WINDOW) (IL:* IL:|;;| "Print 1000 lines of characters to the terminal, with dribbling disabled.") (IL:* IL:|;;| "bind *DRIBBLE-OUTPUT* here, to prevent dribbling during the long printing that we really want to time.") (DECLARE (SPECIAL IL:*DRIBBLE-OUTPUT* IL:\\TERM.OFD)) (LET ((IL:*DRIBBLE-OUTPUT*) (TDS (IL:TTYDISPLAYSTREAM))) (DECLARE (SPECIAL IL:*DRIBBLE-OUTPUT* IL:\\TERM.OFD)) (UNWIND-PROTECT (PROGN (IL:TTYDISPLAYSTREAM WINDOW) (IL:|for| IL:I IL:|from| 1 IL:|to| 1000 IL:|do| (IL:PRINTOUT WINDOW "LINE " IL:I " ASDF ASDF ASDF ASDF ASDF ASDF SADF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF SADF ASDF ASDF ASDF ASDF ASDF" T))) (IL:TTYDISPLAYSTREAM TDS)))) (GABRIEL::DEFINE-TIMER (IL:TERMINAL-PRINTING (:SETUP (PROGN (IL:SETQ IL:*TIMER-WINDOW-FOR-PRINT-TIMING* (IL:CREATEW '(0 0 876 30))) (IL:DSPFONT '(IL:GACHA 10) IL:*TIMER-WINDOW-FOR-PRINT-TIMING*) (IL:WINDOWPROP IL:*TIMER-WINDOW-FOR-PRINT-TIMING* 'IL:PAGEFULLFN 'IL:NILL))) (:AFTER (PROGN (IL:CLOSEW IL:*TIMER-WINDOW-FOR-PRINT-TIMING*) (IL:SETQ IL:*TIMER-WINDOW-FOR-PRINT-TIMING* NIL)))) "Printing chars to terminal" (PRINT-TO-TERMINAL IL:*TIMER-WINDOW-FOR-PRINT-TIMING*)) (IL:* IL:|;;| "Floppy disk performance") (GABRIEL::DEFINE-TIMER IL:FLOPPY-FORMATTING "Formatting a floppy disk" (IL:FLOPPY.FORMAT "TEST" T T)) (GABRIEL::DEFINE-TIMER (IL:FLOPPY-WRITE :AFTER (IL:DELFILE "{FLOPPY}200-PAGES")) "Write 200 pages, CORE to floppy" (IL:COPYFILE "{CORE}200-PAGES" "{FLOPPY}200-PAGES")) (GABRIEL::DEFINE-TIMER (IL:FLOPPY-READ :SETUP (IL:COPYFILE "{CORE}200-PAGES" "{FLOPPY}200-PAGES") :AFTER (IL:DELFILE "{FLOPPY}200-PAGES")) "Copy 200 pages, floppy to NULL" (IL:COPYFILE "{FLOPPY}200-PAGES" "{NULL}")) (IL:* IL:|;;| "Symbol reading") (DEFUN IL:READ-EXISTING-SYMBOLS () (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}1000-SYMBOLS" 'IL:INPUT)) (PROG1 NIL (IL:READ IL:STR)))) (GABRIEL::DEFINE-TIMER (IL:READ-EXISTING-SYMBOLS :SETUP (IL:COPYFILE "{ERIS}GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS") (IL:READ-EXISTING-SYMBOLS)) "Read 1000 symbols that exist in the sysout already" (IL:READ-EXISTING-SYMBOLS)) (IL:* IL:|;;| "File-system-specific performance bottleneck diagnosis") (DEFUN IL:WRITE-TO-COREFILE (IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}SPEED-TEST-FILE" 'IL:OUTPUT 'IL:NEW)) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BOUT IL:STR 33))) (IL:DELFILE "{CORE}SPEED-TEST-FILE")) (DEFUN IL:WRITE-TO-FILE (IL:FILE IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM IL:FILE 'IL:OUTPUT 'IL:NEW)) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BOUT IL:STR 33)))) (DEFUN IL:READ-FROM-FILE (IL:FILE IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM IL:FILE 'IL:INPUT 'IL:OLD)) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BIN IL:STR)))) (GABRIEL::DEFINE-TIMER (IL:READ-DSK (:SETUP (IL:WRITE-TO-FILE "{DSK}test-file" 50000)) (:AFTER (IL:DELFILE "{DSK}test-file"))) "Read 50,000 bytes from a file on {DSK}" (IL:READ-FROM-FILE "{DSK}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:READ-UFS (:SETUP (IL:WRITE-TO-FILE "{UNIX}test-file" 50000)) (:AFTER (IL:DELFILE "{UNIX}test-file"))) "Read 50,000 bytes from a file on the {UNIX} device" (IL:READ-FROM-FILE "{UNIX}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:READ-CORE (:SETUP (IL:WRITE-TO-FILE "{CORE}test-file" 50000)) (:AFTER (IL:DELFILE "{CORE}test-file"))) "Read 50,000 bytes from CORE." (IL:READ-FROM-FILE "{CORE}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-DSK (:AFTER (IL:DELFILE "{DSK}test-file"))) "Write 50,000 bytes on on {DSK}" (IL:WRITE-TO-FILE "{DSK}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-UFS (:AFTER (IL:DELFILE "{UNIX}test-file"))) "Write 50,000 bytes to a file on {UNIX}" (IL:WRITE-TO-FILE "{UNIX}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-CORE (:AFTER (IL:DELFILE "{CORE}test-file"))) "Write 50,000 bytes to a file on {CORE}" (IL:WRITE-TO-FILE "{CORE}test-file" 50000)) (IL:* IL:|;;| "Set up for this series of tests") (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS-TO-READ" "{CORE}FLOATS") (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS") (IL:PUTPROPS IL:IO-BENCHMARKS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE ( XCL:DEFPACKAGE "BENCHMARKS" ))) (IL:PUTPROPS IL:IO-BENCHMARKS IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:IO-BENCHMARKS IL:COPYRIGHT ("Xerox Corporation" 1987 1988 1990)) (IL:DECLARE\: IL:DONTCOPY (IL:FILEMAP (NIL))) IL:STOP \ No newline at end of file diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS.~4~ b/internal/gabriel/benchmarks/IO-BENCHMARKS.~4~ deleted file mode 100644 index dd8d870e..00000000 --- a/internal/gabriel/benchmarks/IO-BENCHMARKS.~4~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "BENCHMARKS")) (IL:FILECREATED "20-Feb-92 18:40:05"  IL:|{DSK}lde>lispcore>gabriel>benchmarks>IO-BENCHMARKS.;4| 17729 IL:|changes| IL:|to:| (IL:FUNCTIONS READ-FLOATS) IL:|previous| IL:|date:| "19-Apr-90 18:48:13" IL:|{DSK}lde>lispcore>gabriel>benchmarks>IO-BENCHMARKS.;3|) ; Copyright (c) 1987, 1988, 1990, 1992 by Xerox Corporation. All rights reserved. (IL:PRETTYCOMPRINT IL:IO-BENCHMARKSCOMS) (IL:RPAQQ IL:IO-BENCHMARKSCOMS ( (IL:* IL:|;;|  "Benchmarks for various I/O functions in the system.") (IL:COMS (IL:* IL:|;;| "Gabriel I/O Benchmarks:") (IL:COMS (IL:* IL:\; "FPRINT") (GABRIEL::TIMERS GABRIEL::FPRINT) (IL:FUNCTIONS GABRIEL::FPRINT GABRIEL::FPRINT-INIT GABRIEL::FPRINT-INIT1) (IL:VARIABLES GABRIEL::FPRINT-TEST-FILE GABRIEL::TEST-ATOMS GABRIEL::TEST-PATTERN)) (IL:COMS (IL:* IL:\;  "FREAD (MUST be run after FPRINT)") (GABRIEL::TIMERS GABRIEL::FREAD) (IL:FUNCTIONS GABRIEL::FREAD)) (IL:COMS (IL:* IL:\; "TPRINT") (GABRIEL::TIMERS GABRIEL::TPRINT) (IL:FUNCTIONS GABRIEL::SETUP-TPRINT GABRIEL::TPRINT-INIT GABRIEL::TPRINT-INIT1)) (IL:VARIABLES GABRIEL::TEST-ATOMS-TPRINT GABRIEL::*TPRINT-WINDOW* GABRIEL::TEST-PATTERN-TPRINT)) (IL:COMS (IL:* IL:|;;|  "Lists of benchmark names, for use with RUN-BENCHMARKS:") (IL:VARIABLES GABRIEL::*IO-BENCHMARKS* GABRIEL::*MAIKO-IO-BENCHMARKS*) (IL:VARS (IL:*1186-IO-TIMERS* '(IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)))) (IL:COMS (IL:* IL:|;;| "Floating-point I/O") (IL:FUNCTIONS READ-FLOATS) (GABRIEL::TIMERS IL:READ-FLOAT IL:PRINT-FLOAT)) (IL:COMS (IL:* IL:|;;| "Printing to the terminal") (IL:FUNCTIONS PRINT-TO-TERMINAL) (GABRIEL::TIMERS IL:TERMINAL-PRINTING)) (IL:COMS (IL:* IL:|;;| "Floppy disk performance") (GABRIEL::TIMERS IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)) (IL:COMS (IL:* IL:|;;| "Symbol reading") (IL:FUNCTIONS IL:READ-EXISTING-SYMBOLS) (GABRIEL::TIMERS IL:READ-EXISTING-SYMBOLS)) (IL:COMS (IL:* IL:|;;|  "File-system-specific performance bottleneck diagnosis") (IL:FUNCTIONS IL:WRITE-TO-COREFILE IL:WRITE-TO-FILE IL:READ-FROM-FILE) (GABRIEL::TIMERS IL:READ-DSK IL:READ-UFS IL:READ-CORE IL:WRITE-DSK IL:WRITE-UFS IL:WRITE-CORE)) (IL:COMS (IL:* IL:|;;| "Set up for this series of tests") (IL:P (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS" "{CORE}FLOATS") (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS"))) (IL:PROP (IL:MAKEFILE-ENVIRONMENT IL:FILETYPE) IL:IO-BENCHMARKS))) (IL:* IL:|;;| "Benchmarks for various I/O functions in the system.") (IL:* IL:|;;| "Gabriel I/O Benchmarks:") (IL:* IL:\; "FPRINT") (GABRIEL::DEFINE-TIMER GABRIEL::FPRINT "FPrint" (GABRIEL::FPRINT)) (DEFUN GABRIEL::FPRINT () (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE))) (PRINT GABRIEL::TEST-PATTERN GABRIEL::F) (CLOSE GABRIEL::F))) (DEFUN GABRIEL::FPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::FPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) (DEFUN GABRIEL::FPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::FPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N GABRIEL::ATOMS) GABRIEL::A))))) (DEFPARAMETER GABRIEL::FPRINT-TEST-FILE (IL:* IL:|;;| "JRB - making this {dsk}fprint.tst rather than {dsk}fprint.tst so that Maiko will like it") "{dsk}fprint.tst") (DEFVAR GABRIEL::TEST-ATOMS '(GABRIEL::ABCDEF12 GABRIEL::CDEFGH23 GABRIEL::EFGHIJ34 GABRIEL::GHIJKL45 GABRIEL::IJKLMN56 GABRIEL::KLMNOP67 GABRIEL::MNOPQR78 GABRIEL::OPQRST89 GABRIEL::QRSTUV90 GABRIEL::STUVWX01 GABRIEL::UVWXYZ12 GABRIEL::WXYZAB23 GABRIEL::XYZABC34 GABRIEL::123456AB GABRIEL::234567BC GABRIEL::345678CD GABRIEL::456789DE GABRIEL::567890EF GABRIEL::678901FG GABRIEL::789012GH GABRIEL::890123HI)) (DEFVAR GABRIEL::TEST-PATTERN (GABRIEL::FPRINT-INIT 6 6 GABRIEL::TEST-ATOMS)) (IL:* IL:\; "FREAD (MUST be run after FPRINT)") (GABRIEL::DEFINE-TIMER GABRIEL::FREAD "FRead" (GABRIEL::FREAD)) (DEFUN GABRIEL::FREAD () (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE))) (READ GABRIEL::F) (CLOSE GABRIEL::F))) (IL:* IL:\; "TPRINT") (GABRIEL::DEFINE-TIMER (GABRIEL::TPRINT (:SETUP (SETQ GABRIEL::*TPRINT-WINDOW* (  GABRIEL::SETUP-TPRINT ))) (:AFTER-EVERY (IL:DSPRESET GABRIEL::*TPRINT-WINDOW*)) (:AFTER (IL:CLOSEW GABRIEL::*TPRINT-WINDOW*))) "TPrint" (PRINT GABRIEL::TEST-PATTERN-TPRINT GABRIEL::*TPRINT-WINDOW*)) (DEFUN GABRIEL::SETUP-TPRINT () (LET* ((GABRIEL::TTYR (IL:WINDOWPROP (IL:WFROMDS (IL:TTYDISPLAYSTREAM)) 'IL:REGION)) (GABRIEL::W (IL:CREATEW (IL:CREATEREGION (IL:|fetch| (IL:REGION IL:PRIGHT) IL:|of| GABRIEL::TTYR ) (IL:|fetch| (IL:REGION IL:BOTTOM) IL:|of| GABRIEL::TTYR) (- 1024 (IL:|fetch| (IL:REGION IL:PRIGHT) IL:|of| GABRIEL::TTYR) ) (IL:|fetch| (IL:REGION IL:HEIGHT) IL:|of| GABRIEL::TTYR))) )) (IL:DSPSCROLL T GABRIEL::W) (IL:DSPRESET GABRIEL::W) GABRIEL::W)) (DEFUN GABRIEL::TPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::TPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) (DEFUN GABRIEL::TPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::TPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N GABRIEL::ATOMS) GABRIEL::A))))) (DEFVAR GABRIEL::TEST-ATOMS-TPRINT '(GABRIEL::ABC1 GABRIEL::CDE2 GABRIEL::EFG3 GABRIEL::GHI4 GABRIEL::IJK5 GABRIEL::KLM6 GABRIEL::MNO7 GABRIEL::OPQ8 GABRIEL::QRS9 GABRIEL::STU0 GABRIEL::UVW1 GABRIEL::WXY2 GABRIEL::XYZ3 GABRIEL::123A GABRIEL::234B GABRIEL::345C GABRIEL::|456D| GABRIEL::|567D| GABRIEL::|678E| GABRIEL::|789F| GABRIEL::890G)) (DEFVAR GABRIEL::*TPRINT-WINDOW* NIL) (DEFVAR GABRIEL::TEST-PATTERN-TPRINT (GABRIEL::TPRINT-INIT 6 6 GABRIEL::TEST-ATOMS-TPRINT)) (IL:* IL:|;;| "Lists of benchmark names, for use with RUN-BENCHMARKS:") (DEFPARAMETER GABRIEL::*IO-BENCHMARKS* '(GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT IL:READ-FLOAT IL:PRINT-FLOAT IL:TERMINAL-PRINTING IL:READ-EXISTING-SYMBOLS IL:READ-DSK IL:READ-CORE IL:WRITE-DSK IL:WRITE-CORE)) (DEFPARAMETER GABRIEL::*MAIKO-IO-BENCHMARKS* '(GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT IL:READ-FLOAT IL:PRINT-FLOAT IL:TERMINAL-PRINTING IL:READ-EXISTING-SYMBOLS IL:READ-DSK IL:READ-UFS IL:READ-CORE IL:WRITE-DSK IL:WRITE-UFS IL:WRITE-CORE)) (IL:RPAQQ IL:*1186-IO-TIMERS* (IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)) (IL:* IL:|;;| "Floating-point I/O") (DEFUN READ-FLOATS () (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}FLOATS" 'IL:INPUT)) (SETQ *FLOATS-TO-PRINT* (IL:READ IL:STR))) NIL) (GABRIEL::DEFINE-TIMER (IL:READ-FLOAT) "Read 2000 Floats from {CORE}" (READ-FLOATS)) (GABRIEL::DEFINE-TIMER IL:PRINT-FLOAT "Print 2000 Floats to {NULL}" (IL:PRINT *FLOATS-TO-PRINT* (IL:OPENSTREAM 'IL:{NULL} 'IL:OUTPUT))) (IL:* IL:|;;| "Printing to the terminal") (DEFUN PRINT-TO-TERMINAL (WINDOW) (IL:* IL:|;;| "Print 1000 lines of characters to the terminal, with dribbling disabled.") (IL:* IL:|;;| "bind *DRIBBLE-OUTPUT* here, to prevent dribbling during the long printing that we really want to time.") (DECLARE (SPECIAL IL:*DRIBBLE-OUTPUT* IL:\\TERM.OFD)) (LET ((IL:*DRIBBLE-OUTPUT*) (TDS (IL:TTYDISPLAYSTREAM))) (DECLARE (SPECIAL IL:*DRIBBLE-OUTPUT* IL:\\TERM.OFD)) (UNWIND-PROTECT (PROGN (IL:TTYDISPLAYSTREAM WINDOW) (IL:|for| IL:I IL:|from| 1 IL:|to| 1000 IL:|do| (IL:PRINTOUT WINDOW "LINE " IL:I " ASDF ASDF ASDF ASDF ASDF ASDF SADF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF ASDF SADF ASDF ASDF ASDF ASDF ASDF" T))) (IL:TTYDISPLAYSTREAM TDS)))) (GABRIEL::DEFINE-TIMER (IL:TERMINAL-PRINTING (:SETUP (PROGN (IL:SETQ IL:*TIMER-WINDOW-FOR-PRINT-TIMING* (IL:CREATEW '(0 0 876 30))) (IL:DSPFONT '(IL:GACHA 10) IL:*TIMER-WINDOW-FOR-PRINT-TIMING*) (IL:WINDOWPROP IL:*TIMER-WINDOW-FOR-PRINT-TIMING* 'IL:PAGEFULLFN 'IL:NILL))) (:AFTER (PROGN (IL:CLOSEW IL:*TIMER-WINDOW-FOR-PRINT-TIMING*) (IL:SETQ IL:*TIMER-WINDOW-FOR-PRINT-TIMING* NIL)))) "Printing chars to terminal" (PRINT-TO-TERMINAL IL:*TIMER-WINDOW-FOR-PRINT-TIMING*)) (IL:* IL:|;;| "Floppy disk performance") (GABRIEL::DEFINE-TIMER IL:FLOPPY-FORMATTING "Formatting a floppy disk" (IL:FLOPPY.FORMAT "TEST" T T)) (GABRIEL::DEFINE-TIMER (IL:FLOPPY-WRITE :AFTER (IL:DELFILE "{FLOPPY}200-PAGES")) "Write 200 pages, CORE to floppy" (IL:COPYFILE "{CORE}200-PAGES" "{FLOPPY}200-PAGES")) (GABRIEL::DEFINE-TIMER (IL:FLOPPY-READ :SETUP (IL:COPYFILE "{CORE}200-PAGES" "{FLOPPY}200-PAGES") :AFTER (IL:DELFILE "{FLOPPY}200-PAGES")) "Copy 200 pages, floppy to NULL" (IL:COPYFILE "{FLOPPY}200-PAGES" "{NULL}")) (IL:* IL:|;;| "Symbol reading") (DEFUN IL:READ-EXISTING-SYMBOLS () (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}1000-SYMBOLS" 'IL:INPUT)) (PROG1 NIL (IL:READ IL:STR)))) (GABRIEL::DEFINE-TIMER (IL:READ-EXISTING-SYMBOLS :SETUP (IL:COPYFILE "{ERIS}GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS") (IL:READ-EXISTING-SYMBOLS)) "Read 1000 symbols that exist in the sysout already" (IL:READ-EXISTING-SYMBOLS)) (IL:* IL:|;;| "File-system-specific performance bottleneck diagnosis") (DEFUN IL:WRITE-TO-COREFILE (IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM "{CORE}SPEED-TEST-FILE" 'IL:OUTPUT 'IL:NEW)) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BOUT IL:STR 33))) (IL:DELFILE "{CORE}SPEED-TEST-FILE")) (DEFUN IL:WRITE-TO-FILE (IL:FILE IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM IL:FILE 'IL:OUTPUT 'IL:NEW)) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BOUT IL:STR 33)))) (DEFUN IL:READ-FROM-FILE (IL:FILE IL:BYTES) (WITH-OPEN-STREAM (IL:STR (IL:OPENSTREAM IL:FILE 'IL:INPUT 'IL:OLD)) (IL:|for| IL:I IL:|from| 1 IL:|to| IL:BYTES IL:|do| (IL:\\BIN IL:STR)))) (GABRIEL::DEFINE-TIMER (IL:READ-DSK (:SETUP (IL:WRITE-TO-FILE "{DSK}test-file" 50000)) (:AFTER (IL:DELFILE "{DSK}test-file"))) "Read 50,000 bytes from a file on {DSK}" (IL:READ-FROM-FILE "{DSK}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:READ-UFS (:SETUP (IL:WRITE-TO-FILE "{UNIX}test-file" 50000)) (:AFTER (IL:DELFILE "{UNIX}test-file"))) "Read 50,000 bytes from a file on the {UNIX} device" (IL:READ-FROM-FILE "{UNIX}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:READ-CORE (:SETUP (IL:WRITE-TO-FILE "{CORE}test-file" 50000)) (:AFTER (IL:DELFILE "{CORE}test-file"))) "Read 50,000 bytes from CORE." (IL:READ-FROM-FILE "{CORE}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-DSK (:AFTER (IL:DELFILE "{DSK}test-file"))) "Write 50,000 bytes on on {DSK}" (IL:WRITE-TO-FILE "{DSK}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-UFS (:AFTER (IL:DELFILE "{UNIX}test-file"))) "Write 50,000 bytes to a file on {UNIX}" (IL:WRITE-TO-FILE "{UNIX}test-file" 50000)) (GABRIEL::DEFINE-TIMER (IL:WRITE-CORE (:AFTER (IL:DELFILE "{CORE}test-file"))) "Write 50,000 bytes to a file on {CORE}" (IL:WRITE-TO-FILE "{CORE}test-file" 50000)) (IL:* IL:|;;| "Set up for this series of tests") (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS" "{CORE}FLOATS") (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS") (IL:PUTPROPS IL:IO-BENCHMARKS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (XCL:DEFPACKAGE "BENCHMARKS"))) (IL:PUTPROPS IL:IO-BENCHMARKS IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:IO-BENCHMARKS IL:COPYRIGHT ("Xerox Corporation" 1987 1988 1990 1992)) (IL:DECLARE\: IL:DONTCOPY (IL:FILEMAP (NIL))) IL:STOP \ No newline at end of file diff --git a/internal/gabriel/benchmarks/MISC-BENCHMARKS b/internal/gabriel/benchmarks/MISC-BENCHMARKS deleted file mode 100644 index df613a8b..00000000 --- a/internal/gabriel/benchmarks/MISC-BENCHMARKS +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "22-Jul-88 17:59:22" {ERIS}GABRIEL>BENCHMARKS>MISC-BENCHMARKS.\;4 5113 |changes| |to:| (GABRIEL::TIMERS SHORT-STRING-SORT LONG-STRING-SORT) (VARS MISC-BENCHMARKSCOMS) |previous| |date:| "30-Jun-88 13:30:01" {ERIS}GABRIEL>BENCHMARKS>MISC-BENCHMARKS.\;3 ) (PRETTYCOMPRINT MISC-BENCHMARKSCOMS) (RPAQQ MISC-BENCHMARKSCOMS ((COMS (* |;;| "Bob Flegal ran this test on a Sun 3/160; in Lucid lisp it took 10.21sec; in Franz 11.04sec; on Maiko 2:34.43") (GABRIEL::TIMERS FLEGALS-SORT-TEST) (FUNCTIONS USER::BL USER::FLEGALS-TEST)) (COMS (* |;;| "Sorting benchmarks") (VARS (*LIST-TO-SORT-LONG-COMMON-PREFIXES* (|for| I |from| 1 |to| 1000 |collect| (CONCAT "A MANY-CHARACTER PREFIX--" (CHARACTER (+ 65 (IMOD I 26))) (CHARACTER (+ 69 (IMOD I 17))) (CHARACTER (+ 97 (IMOD I 26))) (CHARACTER (+ 99 (IMOD I 23))) (CHARACTER (+ 32 (IMOD I 31) (IMOD I 13)))))) (*LIST-TO-SORT-SHORT-STRINGS* (|for| I |from| 1 |to| 1000 |collect| (CONCAT (CHARACTER (+ 65 (IMOD I 26))) (CHARACTER (+ 69 (IMOD I 17))) (CHARACTER (+ 97 (IMOD I 26))) (CHARACTER (+ 99 (IMOD I 23))) (CHARACTER (+ 32 (IMOD I 31) (IMOD I 13))))))) (GABRIEL::TIMERS SHORT-STRING-SORT LONG-STRING-SORT)) (VARS (GABRIEL::*MISC-BENCHMARKS* '(FLEGALS-SORT-TEST SHORT-STRING-SORT LONG-STRING-SORT))) (PROP (FILETYPE) MISC-BENCHMARKS))) (* |;;| "Bob Flegal ran this test on a Sun 3/160; in Lucid lisp it took 10.21sec; in Franz 11.04sec; on Maiko 2:34.43" ) (GABRIEL::DEFINE-TIMER (FLEGALS-SORT-TEST) "Bob Flegal's SORT benchmark; runs on a 3/160 in 10.21s Lucid, 11.04s Franz." (USER::FLEGALS-TEST)) (CL:DEFUN USER::BL (USER::N) (CL:IF (= USER::N 0) NIL (CONS USER::N (USER::BL (- USER::N 1))))) (CL:DEFUN USER::FLEGALS-TEST () (CL:DOTIMES (USER::I 40) (CL:SORT (USER::BL 1000) #'<)) NIL) (* |;;| "Sorting benchmarks") (RPAQ *LIST-TO-SORT-LONG-COMMON-PREFIXES* (|for| I |from| 1 |to| 1000 |collect| (CONCAT "A MANY-CHARACTER PREFIX--" (CHARACTER (+ 65 (IMOD I 26))) (CHARACTER (+ 69 (IMOD I 17))) (CHARACTER (+ 97 (IMOD I 26))) (CHARACTER (+ 99 (IMOD I 23))) (CHARACTER (+ 32 (IMOD I 31) (IMOD I 13)))))) (RPAQ *LIST-TO-SORT-SHORT-STRINGS* (|for| I |from| 1 |to| 1000 |collect| (CONCAT (CHARACTER (+ 65 (IMOD I 26))) (CHARACTER (+ 69 (IMOD I 17))) (CHARACTER (+ 97 (IMOD I 26))) (CHARACTER (+ 99 (IMOD I 23))) (CHARACTER (+ 32 (IMOD I 31) (IMOD I 13)))))) (GABRIEL::DEFINE-TIMER (SHORT-STRING-SORT (:SETUP (SETQ *LIST-TO-SORT* (COPY *LIST-TO-SORT-SHORT-STRINGS*))) (:AFTER-EVERY (SETQ *LIST-TO-SORT* (COPY *LIST-TO-SORT-SHORT-STRINGS*))) (:AFTER (SETQ *LIST-TO-SORT* NIL))) "SORT 1000 strings of 5 assorted characters" (SORT *LIST-TO-SORT*)) (GABRIEL::DEFINE-TIMER (LONG-STRING-SORT (:SETUP (SETQ *LIST-TO-SORT* (COPY *LIST-TO-SORT-LONG-COMMON-PREFIXES*))) (:AFTER-EVERY (SETQ *LIST-TO-SORT* (COPY *LIST-TO-SORT-LONG-COMMON-PREFIXES*))) (:AFTER (SETQ *LIST-TO-SORT* NIL))) "SORT 1000 strings of 25-character common prefix and 5 mixed chars." (SORT *LIST-TO-SORT*)) (RPAQQ GABRIEL::*MISC-BENCHMARKS* (FLEGALS-SORT-TEST SHORT-STRING-SORT LONG-STRING-SORT)) (PUTPROPS MISC-BENCHMARKS FILETYPE :COMPILE-FILE) (DECLARE\: DONTCOPY (FILEMAP (NIL))) STOP \ No newline at end of file diff --git a/internal/gabriel/benchmarks/MISC-BENCHMARKS.DFASL b/internal/gabriel/benchmarks/MISC-BENCHMARKS.DFASL deleted file mode 100644 index ec8e03ce..00000000 Binary files a/internal/gabriel/benchmarks/MISC-BENCHMARKS.DFASL and /dev/null differ diff --git a/internal/gabriel/benchmarks/MISC-BENCHMARKS.DFASL.~1~ b/internal/gabriel/benchmarks/MISC-BENCHMARKS.DFASL.~1~ deleted file mode 100644 index d24f5bc5..00000000 Binary files a/internal/gabriel/benchmarks/MISC-BENCHMARKS.DFASL.~1~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/MISC-BENCHMARKS.DFASL.~2~ b/internal/gabriel/benchmarks/MISC-BENCHMARKS.DFASL.~2~ deleted file mode 100644 index cf1659a8..00000000 Binary files a/internal/gabriel/benchmarks/MISC-BENCHMARKS.DFASL.~2~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/MISC-BENCHMARKS.DFASL.~3~ b/internal/gabriel/benchmarks/MISC-BENCHMARKS.DFASL.~3~ deleted file mode 100644 index ec8e03ce..00000000 Binary files a/internal/gabriel/benchmarks/MISC-BENCHMARKS.DFASL.~3~ and /dev/null differ diff --git a/internal/gabriel/benchmarks/MISC-BENCHMARKS.LCOM b/internal/gabriel/benchmarks/MISC-BENCHMARKS.LCOM deleted file mode 100644 index b98119cc..00000000 --- a/internal/gabriel/benchmarks/MISC-BENCHMARKS.LCOM +++ /dev/null @@ -1,22 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") -(FILECREATED "30-Jun-88 13:27:51" ("compiled on " -"{ERIS}Gabriel>Benchmarks>MISC-BENCHMARKS.;2") "27-Jun-88 18:00:16" |brecompiled| |changes:| - |nothing| |in| "Xerox Lisp 28-Jun-88 ..." |dated| "28-Jun-88 09:39:24") -(FILECREATED "30-Jun-88 13:27:36" "{ERIS}Gabriel>Benchmarks>MISC-BENCHMARKS.;2" 1676 -|changes| |to:| (VARS MISC-BENCHMARKSCOMS) (GABRIEL::TIMERS FLEGALS-SORT-TEST) (FUNCTIONS -USER::FLEGALS-TEST USER::FLEGAL USER::BL) |previous| |date:| "30-Jun-88 13:23:50" -"{ERIS}Gabriel>Benchmarks>MISC-BENCHMARKS.;1") -(PRETTYCOMPRINT MISC-BENCHMARKSCOMS) -(RPAQQ MISC-BENCHMARKSCOMS ((COMS (* |;;| -"Bob Flegal ran this test on a Sun 3/160; in Lucid lisp it took 10.21sec; in Franz 11.04sec; on Maiko 2:34.43" -) (GABRIEL::TIMERS FLEGALS-SORT-TEST) (FUNCTIONS USER::BL USER::FLEGAL USER::FLEGALS-TEST)) (VARS ( -GABRIEL::*MISC-BENCHMARKS* (QUOTE (FLEGALS-SORT-TEST)))))) -(GABRIEL::DEFINE-TIMER (FLEGALS-SORT-TEST) -"Bob Flegal's SORT benchmark; runs on a 3/160 in 10.21s Lucid, 11.04s Franz." (USER::FLEGALS-TEST)) -(CL:DEFUN USER::BL (USER::N) (CL:IF (= USER::N 0) NIL (CONS USER::N (USER::BL (- USER::N 1))))) -(CL:DEFUN USER::FLEGAL (QUOTE USER::S-TEST) NIL (CL:DOTIMES (USER::I 40) (CL:SORT (USER::BL 1000))) -NIL) -(CL:DEFUN USER::FLEGALS-TEST NIL (CL:DOTIMES (USER::I 40) (CL:SORT (USER::BL 1000) (CL:FUNCTION <))) -NIL) -(RPAQQ GABRIEL::*MISC-BENCHMARKS* (FLEGALS-SORT-TEST)) -NIL diff --git a/internal/gabriel/benchmarks/Medley/GABRIEL-OTHER.DFASL b/internal/gabriel/benchmarks/Medley/GABRIEL-OTHER.DFASL deleted file mode 100644 index ef08934b..00000000 Binary files a/internal/gabriel/benchmarks/Medley/GABRIEL-OTHER.DFASL and /dev/null differ diff --git a/internal/gabriel/benchmarks/Medley/GABRIEL-OTHER.LCOM b/internal/gabriel/benchmarks/Medley/GABRIEL-OTHER.LCOM deleted file mode 100644 index 80f1dfb9..00000000 Binary files a/internal/gabriel/benchmarks/Medley/GABRIEL-OTHER.LCOM and /dev/null differ diff --git a/internal/gabriel/benchmarks/Medley/GABRIEL-TAK.DFASL b/internal/gabriel/benchmarks/Medley/GABRIEL-TAK.DFASL deleted file mode 100644 index a09c5be3..00000000 Binary files a/internal/gabriel/benchmarks/Medley/GABRIEL-TAK.DFASL and /dev/null differ diff --git a/internal/gabriel/benchmarks/Medley/GABRIEL-TAK.LCOM b/internal/gabriel/benchmarks/Medley/GABRIEL-TAK.LCOM deleted file mode 100644 index cdb406b7..00000000 Binary files a/internal/gabriel/benchmarks/Medley/GABRIEL-TAK.LCOM and /dev/null differ diff --git a/internal/gabriel/benchmarks/Medley/GABRIEL-TIMERS.LCOM b/internal/gabriel/benchmarks/Medley/GABRIEL-TIMERS.LCOM deleted file mode 100644 index dcb5d18f..00000000 Binary files a/internal/gabriel/benchmarks/Medley/GABRIEL-TIMERS.LCOM and /dev/null differ diff --git a/internal/gabriel/benchmarks/RUNNING-BENCHMARKS.DRIBBLE b/internal/gabriel/benchmarks/RUNNING-BENCHMARKS.DRIBBLE deleted file mode 100644 index 7490cc6a..00000000 --- a/internal/gabriel/benchmarks/RUNNING-BENCHMARKS.DRIBBLE +++ /dev/null @@ -1 +0,0 @@ -NIL 2/296> ?? 2/296> 2/295> DRIBBLE(RUNNING-BENCHMARKS.DRIBBLE) NIL 2/294> DRIBBLEFILE) NIL 2/293> LOAD("arith-benchmarks.dfasl") IL:|{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>ARITH-BENCHMARKS.DFASL;4| 2/292> COMPILE-FILE("arith-benchmarks") #.(PATHNAME "{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>ARITH-BENCHMARKS.DFASL;") 2/291> LOAD("gabriel-tak.dfasl") IL:|{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>GABRIEL-TAK.dfasl;4| 2/290> COMPILE-FILE("gabriel-tak") #.(PATHNAME "{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>GABRIEL-TAK.DFASL;") 2/289> COMPILE-FILE(GABRIEL-TAK.DFASL) 2/288> LOAD("gabriel-other.dfasl") IL:|{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>GABRIEL-OTHER.dfasl;4| 2/287> PWD "{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>" 2/286> (LOAD (VALUEOF -1)) 2/285> COMPILE-FILE(GABRIEL-OTHER) #.(PATHNAME "{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>GABRIEL-OTHER.DFASL;") 2/284> CD BENCHMARKS IL:|{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>| 2/283> COMPILE-FILE(GABRIEL-OTHER) 2/282> RUN-BENCHMARKS) NIL 2/281> IN-PACKAGE(|gabriel|::GABRIEL) # 2/280> |gabriel|::RUN-BENCHMARKS) NIL 2/279> |gabriel|::CD |gabriel|::ILISP/ENVOS/LISPCORE/GABRIEL IL:|{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>| 2/278> |gabriel|::CD IL:{DSK} 2/277> |gabriel|::PWD "{DSK}larry>ilisp>envos>lispcore>gabriel>tools>" 2/276> 2/275> COMPILE-FILE("gabriel-timers") #.(PATHNAME "{DSK}larry>ilisp>envos>lispcore>gabriel>tools>GABRIEL-TIMERS.DFASL;") 2/274> IL:BCOMPL(IL:GABRIEL-TIMERS) IL:ST IL:|{DSK}larry>ilisp>envos>lispcore>gabriel>tools>GABRIEL-TIMERS.LCOM;3| |gabriel|::FIX IL:EDITV 2/273> IL:EDITV(IL:GABRIEL-TIMERSCOMS) IL:GABRIEL-TIMERSCOMS 2/272> |gabriel|::FIX |gabriel|::EDITV 2/271> IL:IN-PACKAGE("gabriel") # 2/270> IL:EDITV(IL:GABRIEL-TIMERSCOMS) IL:GABRIEL-TIMERSCOMS 2/269> IL:FILES?) 2/268> IL:LOAD(IL:GABRIEL-TIMERS.DFASL) IL:|{DSK}larry>ilisp>envos>lispcore>gabriel>tools>GABRIEL-TIMERS.dfasl;3| 2/267: 2/266: LOAD(EXPORTS.ALL) IL:|{DSK}larry>ilisp>medley>library>EXPORTS.ALL;2| 2/265> COMPILE-FILE(IL:GABRIEL-TIMERS) #.(PATHNAME "{DSK}larry>ilisp>envos>lispcore>gabriel>tools>GABRIEL-TIMERS.DFASL;") 2/264> 2/263> 2/262> IL:DIR 2/261> IL:SEE IL:BENCH-5 IL:|{DSK}larry>ilisp>envos>lispcore>gabriel>tools>BENCH-5.;2| 2/260> IL:DIR 2/259> IL:PWD "{DSK}larry>ilisp>envos>lispcore>gabriel>tools>" 2/258> IL:CD IL:TOOLS 2/257> IL:FILES?) 2/256: RETURN 2/255: RETURN IL:RETRY 2/254> (IL:INSTALL-WHO-LINE-OPTIONS) NIL IL:FIX 2/253> (IL:INSTALL-WHO-LINE-OPTIONS) 2/252> (IL:INSALL-WHO-LINE-OPTIONS) 2/251> IL:WHO-LINECOMS ((IL:* IL:|;;;| "Define a WHO-LINE window that displays the current state of a number of user specified attributes.") (IL:* IL:|;;| "") (IL:* IL:|;;| "Public fn for manipulating the who-line") (IL:FNS IL:INSTALL-WHO-LINE-OPTIONS) (IL:* IL:|;;;| "----------------------------------------------------------------------") (IL:* IL:|;;;| "Some fns that compute useful values for the who-line, and act as nice button event fns") (IL:* IL:|;;| "") (IL:* IL:|;;| "Showing / changing the current logged in user") (IL:FNS IL:WHO-LINE-USERNAME IL:WHO-LINE-CHANGE-USER IL:WHO-LINE-USER-AFTER-LOGIN) (IL:VARIABLES IL:*WHO-LINE-CURRENT-USER* IL:*WHO-LINE-USER-ENTRY*) (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DONTEVAL@COMPILE (IL:ADDVARS (IL:\\SYSTEMCACHEVARS IL:*WHO-LINE-CURRENT-USER*) (IL:\\AFTERLOGINFNS IL:WHO-LINE-USER-AFTER-LOGIN))) (IL:* IL:|;;| "") (IL:* IL:|;;| "Showing the current machine name") (IL:FNS IL:WHO-LINE-HOST-NAME) (IL:VARIABLES IL:*WHO-LINE-HOST-NAME* IL:*WHO-LINE-HOST-NAME-ENTRY*) (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DONTEVAL@COMPILE (IL:ADDVARS (IL:\\SYSTEMCACHEVARS IL:*WHO-LINE-HOST-NAME*))) (IL:* IL:|;;| "") (IL:* IL:|;;| "Showing / changing the current tty process package") (IL:FNS IL:CURRENT-TTY-PACKAGE IL:SET-PACKAGE-INTERACTIVELY IL:SET-TTY-PACKAGE-INTERACTIVELY) (IL:VARIABLES IL:*WHO-LINE-PACKAGE-NAME-CACHE* IL:*WHO-LINE-PACKAGE-ENTRY*) (IL:* IL:|;;| "") (IL:* IL:|;;| "Showing / changing the current tty process readtable") (IL:FNS IL:CURRENT-TTY-READTABLE-NAME IL:SET-READTABLE-INTERACTIVELY IL:SET-TTY-READTABLE-INTERACTIVELY) (IL:VARIABLES IL:*WHO-LINE-READTABLE-ENTRY*) (IL:* IL:|;;| "") (IL:* IL:|;;| "Showing / changing the current tty process") (IL:FNS IL:WHO-LINE-TTY-PROCESS IL:CHANGE-TTY-PROCESS-INTERACTIVELY) (IL:VARIABLES IL:*WHO-LINE-TTY-PROC-ENTRY*) (IL:* IL:|;;| "") (IL:* IL:|;;| "Showing / changing the currently connected directory") (IL:FNS IL:WHO-LINE-CURRENT-DIRECTORY IL:SET-CONNECTED-DIRECTORY-INTERACTIVELY) (IL:VARIABLES IL:*WHO-LINE-DIRECTORIES* IL:*WHO-LINE-LAST-DIRECTORY* IL:*WHO-LINE-DIRECTORY-ENTRY*) (IL:* IL:|;;| "") (IL:* IL:|;;| "Showing / changing the current VMem utilization") (IL:FNS IL:WHO-LINE-VMEM IL:WHO-LINE-SAVE-VMEM) (IL:VARIABLES IL:*WHO-LINE-LAST-VMEM* IL:*WHO-LINE-VMEM-ENTRY*) (IL:DECLARE\: IL:EVAL@COMPILE IL:DONTCOPY IL:DONTEVAL@LOAD (IL:FILES (IL:LOADCOMP) IL:LLFAULT IL:MODARITH) (IL:P (IL:CHECKIMPORTS (QUOTE (IL:LLPARAMS)) T))) (IL:* IL:|;;| "") (IL:* IL:|;;| "Showing the percent of symbol-space currently used") (IL:FUNCTIONS IL:WHO-LINE-SYMBOL-SPACE) (IL:VARIABLES IL:*WHO-LINE-SYMBOL-SPACE* IL:*WHO-LINE-SYMBOL-SPACE-ENTRY*) (IL:* IL:|;;| "") (IL:* IL:|;;| "Showing the current time") (IL:FNS IL:WHO-LINE-TIME IL:WHO-LINE-SET-TIME) (IL:VARIABLES IL:*WHO-LINE-TIMER* IL:*WHO-LINE-OLD-TIME* IL:*WHO-LINE-TIME-ENTRY*) (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DONTEVAL@COMPILE (IL:APPENDVARS (IL:\\SYSTEMTIMERVARS (IL:*WHO-LINE-TIMER* IL:SECONDS)))) (IL:* IL:|;;;| "----------------------------------------------------------------------") (IL:* IL:|;;;| "Some as yet un-debugged entries. Try at your own risk.") (IL:* IL:|;;| "") (IL:* IL:|;;| "Showing the machine-active entry") (IL:FNS IL:WHO-LINE-SHOW-ACTIVE IL:\\UPDATE-WHO-LINE-ACTIVE-FLAG IL:\\PERIODICALLY-WHO-LINE-SHOW-ACTIVE) (IL:VARIABLES IL:*WHO-LINE-ACTIVE-PERIOD* IL:*WHO-LINE-ACTIVE-TIMER* IL:*WHO-LINE-SHOW-ACTIVE-ENTRY*) (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DONTEVAL@COMPILE (IL:APPENDVARS (IL:\\SYSTEMTIMERVARS (IL:*WHO-LINE-ACTIVE-TIMER* IL:MILLISECONDS)))) (IL:* IL:|;;| "") (IL:* IL:|;;| "Showing / changing the current reader profile") (IL:FNS IL:CURRENT-PROFILE IL:SET-PROFILE-INTERACTIVELY IL:SET-TTY-PROFILE-INTERACTIVELY) (IL:VARIABLES IL:*WHO-LINE-PROFILE-ENTRY*) (IL:* IL:|;;| "") (IL:* IL:|;;| "Showing the state of the current TTY process") (IL:FNS IL:WHO-LINE-TTY-STATE IL:WHO-LINE-WHAT-IS-RUNNING) (IL:VARIABLES IL:*WHO-LINE-STATE* IL:*WHO-LINE-STATE-UNINTERESTING-FNS* IL:*WHO-LINE-TTY-STATE-ENTRY*) (IL:PROP IL:WHO-LINE-STATE IL:AWAIT.EVENT IL:BLOCK IL:EXCHANGEPUPS IL:GETPUP IL:SENDPUP IL:WAIT.FOR.TTY IL:\\TTYBACKGROUND IL:\\WAITFORSYSBUFP IL:|\\\\getkey| IL:\\SENDLEAF IL:PUTSEQUIN IL:\\LEAF.READPAGES) (IL:* IL:|;;;| "----------------------------------------------------------------------") (IL:* IL:|;;;| "Default options for the who-line") (IL:VARIABLES IL:*WHO-LINE-ENTRIES* IL:*WHO-LINE-ENTRY-REGISTRY* IL:*WHO-LINE-ANCHOR* IL:*WHO-LINE-NAME-FONT* IL:*WHO-LINE-VALUE-FONT* IL:*WHO-LINE-DISPLAY-NAMES?* IL:*WHO-LINE-COLOR* IL:*WHO-LINE-TITLE* IL:*WHO-LINE-BORDER* IL:*WHO-LINE-UPDATE-INTERVAL*) (IL:* IL:|;;;| "----------------------------------------------------------------------") (IL:* IL:|;;;| "Internal fns") (IL:FNS IL:REDISPLAY-WHO-LINE IL:PERIODICALLY-UPDATE-WHO-LINE IL:SETUP-WHOLINE-TIMER IL:UPDATE-WHO-LINE IL:WHEN-WHO-LINE-SELECTED-FN IL:WHO-LINE-CONTROL-SELECT IL:WHO-LINE-COPY-INSERT) (IL:FNS IL:WHO-LINE-REDISPLAY-INTERRUPT) (IL:VARIABLES IL:*WHO-LINE* IL:*WHO-LINE-UPDATE-TIMER*) (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DONTEVAL@COMPILE (IL:APPENDVARS (IL:\\SYSTEMTIMERVARS (IL:*WHO-LINE-UPDATE-TIMER* IL:TICKS)))) (IL:FUNCTIONS IL:INVERT-WHO-LINE-ENTRY) (IL:DECLARE\: IL:DONTCOPY (IL:RECORDS IL:WHO-LINE-ENTRY)) (IL:* IL:\; "Macros that lets us lock down the Who-Line while we evaluate some forms") (IL:FUNCTIONS IL:WITH-WHO-LINE IL:WITH-AVAILABLE-WHO-LINE) (IL:* IL:|;;;| "----------------------------------------------------------------------") (IL:* IL:|;;;| "Initialize the who-line") (IL:DECLARE\: IL:DONTEVAL@LOAD IL:DONTEVAL@COMPILE (IL:P (IL:INSTALL-WHO-LINE-OPTIONS)) (IL:ADDVARS (IL:BACKGROUNDFNS IL:PERIODICALLY-UPDATE-WHO-LINE))) (IL:* IL:|;;;| "----------------------------------------------------------------------") (IL:* IL:|;;;| "Filemanager stuff") (IL:DECLARE\: IL:DONTCOPY (IL:PROP IL:MAKEFILE-ENVIRONMENT IL:WHO-LINE) (IL:PROP IL:FILETYPE IL:WHO-LINE))) 2/250> IN-PACKAGE(XCL-USER::IL) # 2/249> XCL-USER::WHO-LINECOMS 2/248> XCL-USER::WHO-LINE) 247> 246> |gabriel|::|pwd| "{DSK}larry>ilisp>envos>lispcore>gabriel>tools>" 245> (|gabriel|::|cl:in-package| "gabriel") 244> |gabriel|::|pwd| "{DSK}larry>ilisp>envos>lispcore>gabriel>tools>" 243> IL:|in-package|(IL:|gabriel|) # 242> IL:|load|(IL:|gabriel-timers.lcom|) IL:|{DSK}larry>ilisp>envos>lispcore>gabriel>tools>GABRIEL-TIMERS.LCOM;2| 241> IL:|dir| 240> IL:|cd| IL:|tools| IL:|{DSK}larry>ilisp>envos>lispcore>gabriel>tools>| 239> IL:|pwd| "{DSK}larry>ilisp>envos>lispcore>gabriel>" 238> IL:|dir| 237> IL:|cd| IL:|gabriel| IL:|{DSK}larry>ilisp>envos>lispcore>gabriel>| 236> IL:|cd| IL:|gabfiel| 235> IL:|cd| IL:|lispcore| IL:|{DSK}larry>ilisp>envos>lispcore>| 234> IL:|cd| IL:|lispcoe| 233> 232> IL:|dir| 231> IL:|cd| IL:|gabriel| 230> IL:|cd| IL:|ilisp/envos| IL:|{DSK}larry>ilisp>envos>| 229> IL:|cd| IL:|envos| 228> IL:|dir| FB-TEdit/227(debug) FB-Edit/226(debug) 225> IL:|dir| IL:|tools| 224> IL:|dir| IL:|gab*| 223> IL:|pwd| "{DSK}" 222> IL:|cd| IL:{DSK} 221> IL:|fb| NIL 220> IL:FILEFNSLST(IL:WHO-LINE) (IL:INSTALL-WHO-LINE-OPTIONS IL:WHO-LINE-USERNAME IL:WHO-LINE-CHANGE-USER IL:WHO-LINE-USER-AFTER-LOGIN IL:WHO-LINE-HOST-NAME IL:CURRENT-TTY-PACKAGE IL:SET-PACKAGE-INTERACTIVELY IL:SET-TTY-PACKAGE-INTERACTIVELY IL:CURRENT-TTY-READTABLE-NAME IL:SET-READTABLE-INTERACTIVELY IL:SET-TTY-READTABLE-INTERACTIVELY IL:WHO-LINE-TTY-PROCESS IL:CHANGE-TTY-PROCESS-INTERACTIVELY IL:WHO-LINE-CURRENT-DIRECTORY IL:SET-CONNECTED-DIRECTORY-INTERACTIVELY IL:WHO-LINE-VMEM IL:WHO-LINE-SAVE-VMEM IL:WHO-LINE-SYMBOL-SPACE IL:WHO-LINE-TIME IL:WHO-LINE-SET-TIME IL:WHO-LINE-SHOW-ACTIVE IL:\\UPDATE-WHO-LINE-ACTIVE-FLAG IL:\\PERIODICALLY-WHO-LINE-SHOW-ACTIVE IL:CURRENT-PROFILE IL:SET-PROFILE-INTERACTIVELY IL:SET-TTY-PROFILE-INTERACTIVELY IL:WHO-LINE-TTY-STATE IL:WHO-LINE-WHAT-IS-RUNNING IL:REDISPLAY-WHO-LINE IL:PERIODICALLY-UPDATE-WHO-LINE IL:SETUP-WHOLINE-TIMER IL:UPDATE-WHO-LINE IL:WHEN-WHO-LINE-SELECTED-FN IL:WHO-LINE-CONTROL-SELECT IL:WHO-LINE-COPY-INSERT IL:WHO-LINE-REDISPLAY-INTERRUPT IL:INVERT-WHO-LINE-ENTRY IL:WITH-WHO-LINE IL:WITH-AVAILABLE-WHO-LINE) MOUSE/219(debug)RETURN) 218> IL:PERIODICALLY-UPDATE-WHO-LINE) NIL 217> IL:PRINTCODE(IL:UPDATE-WHO-LINEA0001) 216> IL:PRINTCODE(IL:UPDATE-WHO-LINE) NIL 215: 214> 213> IL:EDITV(IL:WHO-LINECOMS) 212> IL:\. IL:SHOW IL:PATHS IL:TO IL:INSTALL-WHO-LINE-OPTIONS 211> IL:\. IL:SHOW IL:WHERE IL:ANY IL:CALLS IL:INSTALL-WHO-LINE-OPTIONS 210> IL:\. IL:WHO IL:IS IL:ON IL:WHO-LINE (IL:INSTALL-WHO-LINE-OPTIONS IL:WHO-LINE-USERNAME IL:WHO-LINE-CHANGE-USER IL:WHO-LINE-USER-AFTER-LOGIN IL:WHO-LINE-HOST-NAME IL:CURRENT-TTY-PACKAGE IL:SET-PACKAGE-INTERACTIVELY IL:SET-TTY-PACKAGE-INTERACTIVELY IL:CURRENT-TTY-READTABLE-NAME IL:SET-READTABLE-INTERACTIVELY IL:SET-TTY-READTABLE-INTERACTIVELY IL:WHO-LINE-TTY-PROCESS IL:CHANGE-TTY-PROCESS-INTERACTIVELY IL:WHO-LINE-CURRENT-DIRECTORY IL:SET-CONNECTED-DIRECTORY-INTERACTIVELY IL:WHO-LINE-VMEM IL:WHO-LINE-SAVE-VMEM IL:WHO-LINE-TIME IL:WHO-LINE-SET-TIME IL:WHO-LINE-SHOW-ACTIVE IL:\\UPDATE-WHO-LINE-ACTIVE-FLAG IL:\\PERIODICALLY-WHO-LINE-SHOW-ACTIVE IL:CURRENT-PROFILE IL:SET-PROFILE-INTERACTIVELY IL:SET-TTY-PROFILE-INTERACTIVELY IL:WHO-LINE-TTY-STATE IL:WHO-LINE-WHAT-IS-RUNNING IL:REDISPLAY-WHO-LINE IL:PERIODICALLY-UPDATE-WHO-LINE IL:SETUP-WHOLINE-TIMER IL:UPDATE-WHO-LINE IL:WHEN-WHO-LINE-SELECTED-FN IL:WHO-LINE-CONTROL-SELECT IL:WHO-LINE-COPY-INSERT IL:WHO-LINE-REDISPLAY-INTERRUPT IL:*WHO-LINE-CURRENT-USER* IL:*WHO-LINE-USER-ENTRY* IL:*WHO-LINE-HOST-NAME* IL:*WHO-LINE-HOST-NAME-ENTRY* IL:*WHO-LINE-PACKAGE-NAME-CACHE* IL:*WHO-LINE-PACKAGE-ENTRY* IL:*WHO-LINE-READTABLE-ENTRY* IL:*WHO-LINE-TTY-PROC-ENTRY* IL:*WHO-LINE-DIRECTORIES* IL:*WHO-LINE-LAST-DIRECTORY* IL:*WHO-LINE-DIRECTORY-ENTRY* IL:*WHO-LINE-LAST-VMEM* IL:*WHO-LINE-VMEM-ENTRY* IL:*WHO-LINE-SYMBOL-SPACE* IL:*WHO-LINE-SYMBOL-SPACE-ENTRY* IL:*WHO-LINE-TIMER* IL:*WHO-LINE-OLD-TIME* IL:*WHO-LINE-TIME-ENTRY* IL:*WHO-LINE-ACTIVE-PERIOD* IL:*WHO-LINE-ACTIVE-TIMER* IL:*WHO-LINE-SHOW-ACTIVE-ENTRY* IL:*WHO-LINE-PROFILE-ENTRY* IL:*WHO-LINE-STATE* IL:*WHO-LINE-STATE-UNINTERESTING-FNS* IL:*WHO-LINE-TTY-STATE-ENTRY* IL:*WHO-LINE-ENTRIES* IL:*WHO-LINE-ENTRY-REGISTRY* IL:*WHO-LINE-ANCHOR* IL:*WHO-LINE-NAME-FONT* IL:*WHO-LINE-VALUE-FONT* IL:*WHO-LINE-DISPLAY-NAMES?* IL:*WHO-LINE-COLOR* IL:*WHO-LINE-TITLE* IL:*WHO-LINE-BORDER* IL:*WHO-LINE-UPDATE-INTERVAL* IL:*WHO-LINE* IL:*WHO-LINE-UPDATE-TIMER* IL:WHO-LINE-SYMBOL-SPACE IL:INVERT-WHO-LINE-ENTRY IL:WITH-WHO-LINE IL:WITH-AVAILABLE-WHO-LINE) 209> IL:WHO-LINE) 208> IL:PP IL:UPDATE-WHO-LINE 207> IL:UPDATE-WHO-LINE) 206> IL:IN-PACKAGE(IL:IL) # 205: 204: IL:|retfrom|(IL:|update-who-line|) 203: IL:OLDFAULT1 IL:FIX 202> IL:LOAD(IL:WHO-LINE.LCOM) 201> IL:LOAD(IL:WHO-LLINE.LCOM) 200> IL:FILES?) 199> 198> 197> IL:PWD "{DSK}larry>ilisp>MEDLEY>INITFILES>" 2/297> pwd "{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>" 2/298> (car loadedfilelst) LOADEDFILELST is an unbound variable. 2/299> (car il:loadedfilelst) IL:|{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>ARITH-BENCHMARKS.DFASL;4| 2/300> compile-file("io-benchmarks") Compiling 1 top-level form ... Done Compiling 2 top-level forms ... Done Compiling GABRIEL::DEFINE-TIMER GABRIEL::FPRINT ......... Done Compiling DEFUN GABRIEL::FPRINT ... Done Compiling DEFUN GABRIEL::FPRINT-INIT ... Done Compiling DEFUN GABRIEL::FPRINT-INIT1 ... Done Compiling DEFPARAMETER GABRIEL::FPRINT-TEST-FILE ... Done Compiling DEFVAR GABRIEL::TEST-ATOMS ... Done Compiling DEFVAR GABRIEL::TEST-PATTERN ... Done Compiling GABRIEL::DEFINE-TIMER GABRIEL::FREAD ......... Done Compiling DEFUN GABRIEL::FREAD ... Done Compiling GABRIEL::DEFINE-TIMER GABRIEL::TPRINT ........................... Done Compiling DEFUN GABRIEL::SETUP-TPRINT Warning: The variable IL:\\TERM.OFD was unknown and has been declared SPECIAL. ... Done Compiling DEFUN GABRIEL::TPRINT-INIT ... Done Compiling DEFUN GABRIEL::TPRINT-INIT1 ... Done Compiling DEFVAR GABRIEL::TEST-ATOMS-TPRINT ... Done Compiling DEFVAR GABRIEL::*TPRINT-WINDOW* ... Done Compiling DEFVAR GABRIEL::TEST-PATTERN-TPRINT ... Done Compiling DEFPARAMETER GABRIEL::*IO-BENCHMARKS* ... Done Compiling DEFPARAMETER GABRIEL::*MAIKO-IO-BENCHMARKS* ... Done Compiling 1 top-level form ... Done Compiling DEFUN READ-FLOATS Warning: The variable *FLOATS-TO-PRINT* was unknown and has been declared SPECIAL. ... Done Compiling GABRIEL::DEFINE-TIMER IL:READ-FLOAT ......... Done Compiling GABRIEL::DEFINE-TIMER IL:PRINT-FLOAT ... Warning: The variable *FLOATS-TO-PRINT* was unknown and has been declared SPECIAL. ...... Done Compiling DEFUN PRINT-TO-TERMINAL ... Done Compiling GABRIEL::DEFINE-TIMER IL:TERMINAL-PRINTING ... Warning: The variable IL:*TIMER-WINDOW-FOR-PRINT-TIMING* was unknown and has been declared SPECIAL. ......Warning: The variable IL:*TIMER-WINDOW-FOR-PRINT-TIMING* was unknown and has been declared SPECIAL. ......Warning: The variable IL:*TIMER-WINDOW-FOR-PRINT-TIMING* was unknown and has been declared SPECIAL. ...... Done Compiling GABRIEL::DEFINE-TIMER IL:FLOPPY-FORMATTING ......... Done Compiling GABRIEL::DEFINE-TIMER IL:FLOPPY-WRITE ......... Done Compiling GABRIEL::DEFINE-TIMER IL:FLOPPY-READ ......... Done Compiling DEFUN IL:READ-EXISTING-SYMBOLS ... Done Compiling GABRIEL::DEFINE-TIMER IL:READ-EXISTING-SYMBOLS ......... Done Compiling DEFUN IL:WRITE-TO-COREFILE ... Done Compiling DEFUN IL:WRITE-TO-FILE ... Done Compiling DEFUN IL:READ-FROM-FILE ... Done Compiling GABRIEL::DEFINE-TIMER IL:READ-DSK ..................... Done Compiling GABRIEL::DEFINE-TIMER IL:READ-UFS ..................... Done Compiling GABRIEL::DEFINE-TIMER IL:READ-CORE ..................... Done Compiling GABRIEL::DEFINE-TIMER IL:WRITE-DSK ............... Done Compiling GABRIEL::DEFINE-TIMER IL:WRITE-UFS ............... Done Compiling GABRIEL::DEFINE-TIMER IL:WRITE-CORE ............... Done Compiling 5 top-level forms ... Done Warning: The following functions were called in the code just compiled, but are not known to exist: IL:FLOPPY.FORMAT -- called from T164. #.(PATHNAME "{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>IO-BENCHMARKS.DFASL;") 2/301> load(io-benchmarks.dfasl) ; Loading {DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>IO-BENCHMARKS.DFASL;2 XCL Compiler output for source file {DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>IO-BENCHMARKS.;4 Source file created Friday, 21 February 1992, 2:18:4294967340. FASL file created Tuesday, 20 October 2020, 3:05:4294967330. File not found: {DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS 2/302> retry ; Loading {DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>IO-BENCHMARKS.DFASL;2 XCL Compiler output for source file {DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>IO-BENCHMARKS.;4 Source file created Friday, 21 February 1992, 2:18:4294967340. FASL file created Tuesday, 20 October 2020, 3:05:4294967330. In IL:\\OPENFILE: File not found: {DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS 2/303: il:copyfile("{dsk}larry>ilisp>envos>lispcore>gabriel >2000-floats" {core}floats>2000=floats) File not found: {dsk}larry>ilisp>envos>lispcore>gabriel>2000-floats 2/304: pwd "{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>" 2/305: REVERT IL:COPYFILEBreakpoint at IL:COPYFILE. 2/306: 2/307: ?= FROMFILE = "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS" TOFILE = IL:{CORE}FLOATS>2000-FLOATS DESTPARAMETERS = NIL 2/308: fromfile FROMFILE is an unbound variable. 2/309: dir {core} 2/311: ?= FROMFILE = "{DSK}larry>ilisp>envos>lispcore>gabriel>aux>2000-floats-to-read" TOFILE = IL:{CORE}FLOATS>2000-FLOATS DESTPARAMETERS = NIL 2/312: eval IL:{CORE}FLOATS>2000-FLOATS>2000-FLOATS-TO-READ.\;1 2/313: ok In IL:\\OPENFILE: File not found: {DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS 2/314: revert il:copyfile IL:COPYFILEBreakpoint at IL:COPYFILE. 2/315: ?= FROMFILE = "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" TOFILE = IL:{CORE}1000-SYMBOLS>1000-SYMBOLS DESTPARAMETERS = NIL 2/316: (editv 'fromfile) Undefined car of form EDITV 2/317: ?= FROMFILE = "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" TOFILE = IL:{CORE}1000-SYMBOLS>1000-SYMBOLS DESTPARAMETERS = NIL 2/318: ?= FROMFILE = "{dsk}larry>ilisp>envos>lispcore>gabriel>aux>1000-symbols" TOFILE = IL:{CORE}1000-SYMBOLS>1000-SYMBOLS DESTPARAMETERS = NIL 2/320: eval IL:{CORE}1000-SYMBOLS>1000-SYMBOLS>1000-SYMBOLS.\;1 2/321: ok IL:|{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>IO-BENCHMARKS.DFASL;2| 2/322> editv(iio-benchmarkcoms) EDITV -> IL:EDITV ? yes NIL not editable 2/323> editv(io-benchmarkcoms) EDITV -> IL:EDITV ? yes NIL not editable 2/324> iobenchmarkcoms IOBENCHMARKCOMS is an unbound variable. 2/325> dir io-bench* {DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS> IO-BENCHMARKS.;4 IO-BENCHMARKS.;3 IO-BENCHMARKS.;2 IO-BENCHMARKS.;1 IO-BENCHMARKS.DFASL;2 IO-BENCHMARKS.DFASL;1 IO-BENCHMARKS.LCOM;7 IO-BENCHMARKS.LCOM;6 IO-BENCHMARKS.LCOM;5 IO-BENCHMARKS.LCOM;3 IO-BENCHMARKS.LCOM;2 IO-BENCHMARKS.LCOM;1 2/326> see io-benchmarks File created:20-Feb-92 18:40:05 {DSK}lde>lispcore>gabriel>benchmarks>IO-BENCHMARKS.;4 changes to:(IL:FUNCTIONS READ-FLOATS) previous date:19-Apr-90 18:48:13 {DSK}lde>lispcore>gabriel>benchmarks>IO-BENCHMARKS.;3 Read Table:XCL Package:(DEFPACKAGE "BENCHMARKS") ; Copyright (c) 1987, 1988, 1990, 1992 by Xerox Corporation. All rights reserved. (IL:RPAQQ IL:IO-BENCHMARKSCOMS ( **COMMENT** (IL:COMS **COMMENT** (IL:COMS **COMMENT** ( GABRIEL::TIMERS GABRIEL::FPRINT ) (IL:FUNCTIONS GABRIEL::FPRINT GABRIEL::FPRINT-INIT GABRIEL::FPRINT-INIT1) (IL:VARIABLES GABRIEL::FPRINT-TEST-FILE GABRIEL::TEST-ATOMS GABRIEL::TEST-PATTERN)) (IL:COMS **COMMENT** (GABRIEL::TIMERS GABRIEL::FREAD) (IL:FUNCTIONS GABRIEL::FREAD)) (IL:COMS **COMMENT** (GABRIEL::TIMERS GABRIEL::TPRINT) (IL:FUNCTIONS GABRIEL::SETUP-TPRINT GABRIEL::TPRINT-INIT GABRIEL::TPRINT-INIT1)) (IL:VARIABLES GABRIEL::TEST-ATOMS-TPRINT GABRIEL::*TPRINT-WINDOW* GABRIEL::TEST-PATTERN-TPRINT)) (IL:COMS **COMMENT** (IL:VARIABLES GABRIEL::*IO-BENCHMARKS* GABRIEL::*MAIKO-IO-BENCHMARKS*) (IL:VARS (IL:*1186-IO-TIMERS* '(IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)))) (IL:COMS **COMMENT** (IL:FUNCTIONS READ-FLOATS) (GABRIEL::TIMERS IL:READ-FLOAT IL:PRINT-FLOAT)) (IL:COMS **COMMENT** (IL:FUNCTIONS PRINT-TO-TERMINAL) (GABRIEL::TIMERS IL:TERMINAL-PRINTING)) (IL:COMS **COMMENT** (GABRIEL::TIMERS IL:FLOPPY-FORMATTING IL:FLOPPY-WRITE IL:FLOPPY-READ)) (IL:COMS **COMMENT** (IL:FUNCTIONS IL:READ-EXISTING-SYMBOLS) (GABRIEL::TIMERS IL:READ-EXISTING-SYMBOLS)) (IL:COMS **COMMENT** (IL:FUNCTIONS IL:WRITE-TO-COREFILE IL:WRITE-TO-FILE IL:READ-FROM-FILE) (GABRIEL::TIMERS IL:READ-DSK IL:READ-UFS IL:READ-CORE IL:WRITE-DSK IL:WRITE-UFS IL:WRITE-CORE)) (IL:COMS **COMMENT** (IL:P (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS" "{CORE}FLOATS") (IL:COPYFILE "{DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>1000-SYMBOLS" "{CORE}1000-SYMBOLS"))) (IL:PROP (IL:MAKEFILE-ENVIRONMENT IL:FILETYPE) IL:IO-BENCHMARKS))) **COMMENT** **COMMENT** **COMMENT** (GABRIEL::DEFINE-TIMER GABRIEL::FPRINT "FPrint" (GABRIEL::FPRINT)) (DEFUN GABRIEL::FPRINT () (LET ((GABRIEL::F (OPEN GABRIEL::FPRINT-TEST-FILE :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE))) (PRINT GABRIEL::TEST-PATTERN GABRIEL::F) (CLOSE GABRIEL::F))) (DEFUN GABRIEL::FPRINT-INIT (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (LET ((GABRIEL::ATOMS (COPY-TREE GABRIEL::ATOMS))) (DO ((GABRIEL::A GABRIEL::ATOMS (CDR GABRIEL::A))) ((NULL (CDR GABRIEL::A)) (RPLACD GABRIEL::A GABRIEL::ATOMS))) (GABRIEL::FPRINT-INIT1 GABRIEL::M GABRIEL::N GABRIEL::ATOMS))) (DEFUN GABRIEL::FPRINT-INIT1 (GABRIEL::M GABRIEL::N GABRIEL::ATOMS) (COND ((= GABRIEL::M 0) (POP GABRIEL::ATOMS)) (T (DO ((GABRIEL::I GABRIEL::N (- GABRIEL::I 2)) (GABRIEL::A NIL)) ((< GABRIEL::I 1) GABRIEL::A) (PUSH (POP GABRIEL::ATOMS) GABRIEL::A) (PUSH (GABRIEL::FPRINT-INIT1 (1- GABRIEL::M) GABRIEL::N GABRIEL::ATOMS) GABRIEL::A))))) (DEFPARAMETER GABRIEL::FPRINT-TEST-FILE **COMMENT** "{dsk}fprint.tst") (DEFVAR GABRIEL::TEST-ATOMS '(GABRIEL::ABCDEF12 GABRIEL::CDEFGH23 GABRIEL::EFGHIJ34 GABRIEL::GHIJKL45 GABRIEL::IJKLMN56 GABRIEL::KLMNOP67 GABRIEL::MNOPQR78 GABRIEL::OPQRST89 GABRIEL::QRSTUV90 GABRIEL::STUVWX01 GABRIEL::UVWXYZ12 GABRIEL::WXYZAB23 GABRIEL::XYZABC34 GABRIEL::123456AB GABRIEL::234567BC GABRIEL::345678CD GABRIEL::456789DE GABRIEL::567890EF GABRIEL::678901FG GABRIEL::789012GH GABRIEL::890123HI)) 2/327> files?) FILES? -> IL:FILES? ? yes To be dumped: IL:WHO-LINE ...changes to IL:VARIABLES: IL:*WHO-LINE-TIME-ENTRY* IL:LOCAL-INIT ...changes to IL:FNS: IL:LOCAL-INIT 2/328> 2/329> (car il:loadedfilelst) IL:|{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>IO-BENCHMARKS.DFASL;2| 2/330> dir io-bench* {DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS> IO-BENCHMARKS.;4 IO-BENCHMARKS.;3 IO-BENCHMARKS.;2 IO-BENCHMARKS.;1 IO-BENCHMARKS.DFASL;2 IO-BENCHMARKS.DFASL;1 IO-BENCHMARKS.LCOM;7 IO-BENCHMARKS.LCOM;6 IO-BENCHMARKS.LCOM;5 IO-BENCHMARKS.LCOM;3 IO-BENCHMARKS.LCOM;2 IO-BENCHMARKS.LCOM;1 2/331> bcompl(io-benchamrks) BCOMPL -> IL:BCOMPL ? yes File not found: IO-BENCHAMRKS 2/332> fix 2/332> BCOMPL (IO-BENCHmarks) BCOMPL -> IL:BCOMPL ? yes listing? store and redefine IL:|{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>IO-BENCHMARKS.LCOM;8| 2/333> (load (il:valueof -1)) ; Loading {DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>IO-BENCHMARKS.LCOM;8 ; compiled on 20-Oct-2020 03:27:34 ; File created 20-Feb-92 18:40:05 ; IL:IO-BENCHMARKSCOMS File not found: {DSK}LOCAL>LDE>LISPCORE>GABRIEL>AUX>2000-FLOATS 2/334> editv(io-benchmarkscoms) EDITV -> IL:EDITV ? yes =IL:IO-BENCHMARKSCOMS 2/335> apropos(readfile) READFILE IL:READFILE (defined) IL:|\\LFReadFileID| (defined) IL:\\LEAF.READFILENAME (defined) IL:READFILEA0001 (defined) IL:\\LEAF.READFILEPROP (defined) 2/336> apropos(core) USER::{DSK}LARRY>ILISP>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>GABRIEL-TAK. BENCHMARKS::{CORE}FLOATS>2000=FLOATS BENCHMARKS::{CORE} CORE IL:|{DSK}sybalsky>lispcore>sources>CLSTREAMS.LCOM;2| IL:|{DSK}disk2>jdstools>lc3>lispcore3.0>sources>LLPACKAGE.;1| IL:|{PELE:MV:ENVOS}SOURCES>DSKDISPLAY.;2| IL:|{DSK}export>lispcore>sources>LLMVS.;1| IL:|{DSK}export>lispcore>sources>LLMVS.;2| IL:|{DSK}lde>lispcore>sources>CLEARINGHOUSE.;1| IL:|{DSK}sources>CLISP.;1| IL:|{DSK}sybalsky>lispcore>sources>CMLPATHNAME.LCOM;2| IL:|{DSK}kaplan>Local>medley3.5>lispcore>library>GRAPHER.;3| IL:|{DSK}kaplan>Local>medley3.5>lispcore>library>GRAPHER.;5| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>D-ASSEM-PACKAGE.LCOM;1| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>XCLC-PEEPHOLE.LCOM;1| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>UFSCALLC.;1| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>UFSCALLC.;3| IL:|{DSK}lde>lispcore>sources>CLEARINGHOUSE.;2| IL:|{DSK}sources>CMLSEQBASICS.;1| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>LLREAD.LCOM;2| IL:|{PELE:MV:ENVOS}SOURCES>SEDIT-TOPLEVEL.;4| IL:|{PELE:MV:ENVOS}SOURCES>SEDIT-TOPLEVEL.;5| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>CMLMVS.;1| IL:|{DSK}sybalsky>lispcore>sources>AERROR.LCOM;2| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>DEFSTRUCT.;1| IL:|{DSK}local>lde>lispcore>sources>CMLUNDO.;1| IL:|{DSK}sources>LOCALFILE.;1| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>CMLSMARTARGS.;3| IL:|{DSK}sybalsky>lispcore>sources>DSKDISPLAY.LCOM;2| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>LOGOW.;3| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>CMLSETF.;1| IL:|{DSK}sources>XCLC-TOP-LEVEL.;2| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>CONDITION-HIERARCHY.;1| IL:|{DSK}larry>ilisp>envos>lispcore>gabriel>| IL:|{DSK}kaplan>Local>medley3.5>lispcore>fonts>displayfonts>c0>modern10-mir-c0.displayfont;1| IL:|{DSK}disk3>lispcore3.0>sources>LLBIGNUM.;1| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>XXGEOM.LCOM;1| IL:{DSK}KAPLAN>LOCAL>MEDLEY3.5>LISPCORE>FONTS>POSTSCRIPTFONTS>C0>HELVETICA01-MRR-C0.PSCFONT\;1 IL:|{DSK}local>lde>lispcore>sources>CONDITION-HIERARCHY-IL.;1| IL:|{DSK}kaplan>Local>medley3.5>lispcore>library>TEDIT.;1| IL:|{DSK}kaplan>Local>medley3.5>lispcore>library>DMCHAT.LCOM;1| IL:|{DSK}sources>EXEC-COMMANDS.;1| IL:|CoreFiles| IL:|{DSK}sources>CMLREAD.;1| IL:{DSK}KAPLAN>LOCAL>MEDLEY3.5>LISPCORE>FONTS>POSTSCRIPTFONTS>C0>HELVETICA-NARROW01-MIR-C0.PSCFONT\;1 IL:|{DSK}sybalsky>lispcore>sources>XCLC-TREES.DFASL;2| IL:COREVAL IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>DWIM.LCOM;1| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>LLNS.;1| IL:|{DSK}sources>DWIMIFY.;1| IL:|{DSK}sources>CONDITION-HIERARCHY-IL.;1| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>CMLDESTRUCT.LCOM;1| IL:|{DSK}sources>LLARRAYELT.;6| IL:|{DSK}sources>LLARRAYELT.;8| IL:|{PELE:MV:ENVOS}SOURCES>HIST.;2| IL:|{PELE:MV:ENVOS}SOURCES>HIST.;3| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>PASSWORDS.;1| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>CMLSPECIALFORMS.;1| IL:{NODIRCORE}SCRATCH IL:|{DSK}sybalsky>lispcore>sources>LLTIMER.LCOM;2| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>UNDO.;1| IL:|{PELE:MV:ENVOS}LIBRARY>BYTECOMPILER.;1| IL:|{DSK}kaplan>Local>medley3.5>lispcore>xlisp.sysout| IL:|{DSK}sybalsky>lispcore>sources>APRINT.LCOM;2| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>MISC.;1| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>APUTDQ.;1| IL:|{PELE:MV:ENVOS}SOURCES>FONTPROFILE.;2| IL:|{PELE:MV:ENVOS}SOURCES>FONTPROFILE.;3| IL:|{DSK}disk3>lispcore3.0>sources>LLBIGNUM.;2| IL:|{DSK}kaplan>Local>medley3.5>lispcore>sources>UFSCALLC.;2| 2/337> dribblefile) DRIBBLEFILE -> IL:DRIBBLEFILE ? yes #larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>RUNNING-BENCHMARKS.DRIBBLE;1/173,75340> 2/338> pwd "{DSK}larry>ilisp>ENVOS>LISPCORE>GABRIEL>BENCHMARKS>" 2/339> (run-benchmarks *tak-timers* "results>maiko>win-tak.results") \ No newline at end of file diff --git a/internal/gabriel/interlisp/1186BENCHMARKS b/internal/gabriel/interlisp/1186BENCHMARKS deleted file mode 100644 index e69de29b..00000000 diff --git a/internal/gabriel/interlisp/BENCHMARK b/internal/gabriel/interlisp/BENCHMARK deleted file mode 100644 index b1ad8803..00000000 --- a/internal/gabriel/interlisp/BENCHMARK +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED "19-Nov-85 23:24:15" {QV}BENCHMARKS>BENCHMARK.;11 15509 changes to: (FNS BROWSE.BM TRAVERSE.BM) previous date: "17-Nov-85 13:47:33" {QV}BENCHMARKS>BENCHMARK.;10) (* Copyright (c) 1985 by Xerox Corporation. All rights reserved.) (PRETTYCOMPRINT BENCHMARKCOMS) (RPAQQ BENCHMARKCOMS ((FNS CTAK.BM FFT.BM RUN.BENCHMARKS STAK.BM TAK.BM TAKL.BM TAKR.BM BOYER.BM BROWSE.BM DERIVATIVE.BM DDERIVATIVE.BM DESTRUCTIVE.BM DIV2.BM POLYNOMIAL.BM PUZZLE.BM TRAVERSE.BM TRIANGLE.BM IO.BM) (* * Call (RUN.BENCHMARKS)) (DECLARE: DONTEVAL@LOAD (FILES (SYSLOAD FROM {ERIS}LIBRARY>) CMLARRAY)) (DECLARE: DONTEVAL@LOAD (FILES BOYER BROWSE CTAK DDERIV DERIV DESTRUCTIVE DIV2 FFT FPRINT FREAD POLY PUZZLE STAK TAK TAKL TAKR TESTPATTERN TPRINT TRAVERSE TRIANG)) (* Gabriel benchmarks) (VARS AREFY BENCHMARKSUITE CONSY TAKS))) (DEFINEQ (CTAK.BM [LAMBDA NIL (* jop: " 7-Nov-85 22:30") (printout T T "************ CTAK BENCHMARK **************" T T) (printout T T T "Starting the CTAK run: (TIMEALL (CTAK 18 12 6))" T T) (SETQ VALUE (TIMEALL (CTAK 18 12 6))) (printout T "Value = " VALUE T) (printout T T "Repeating the TIMEALL" T T) (SETQ VALUE (TIMEALL (CTAK 18 12 6))) (printout T "Value = " VALUE T) (printout T T "CTAK finished" T T]) (FFT.BM [LAMBDA NIL (* jop: " 7-Nov-85 22:57") (printout T T "*************** THE FFT BENCHMARK ***********" T T) (printout T T T "Starting FFT run: (TIMEALL (FFT-BENCH))" T T) (FRPTQ 40 (RECLAIM)) (TIMEALL (FFT-BENCH)) (printout T T "Repeating the TIMEALL" T T) (FRPTQ 40 (RECLAIM)) (TIMEALL (FFT-BENCH)) (printout T T "FFT finished" T T]) (RUN.BENCHMARKS [LAMBDA (BENCHMARKS) (* jop: " 8-Nov-85 17:28") (* * BENCHMARKS should be a list of the desired Benchmarks) (DECLARE (SPECVARS BENCHMARKSUITE)) (SETQ BENCHMARKS (MKLIST BENCHMARKS)) (if (NULL BENCHMARKS) then (SETQ BENCHMARKS BENCHMARKSUITE) elseif (for BM in BENCHMARKS thereis (NOT (MEMB BM BENCHMARKSUITE))) then (HELP "Unknown Benchmark" BENCHMARKS)) (RESETLST (LET ((DRIBBLE.FILE (PACKFILENAME (QUOTE HOST) (QUOTE DSK) (QUOTE NAME) (PACK* MAKESYSNAME "-" (MACHINETYPE)) (QUOTE EXTENSION) (QUOTE BENCHMARKS))) VALUE) (RESETSAVE NIL (QUOTE (TERPRI))) (RESETSAVE NIL (LIST (QUOTE PRIN1) (CONCAT "Benchmark Results in " DRIBBLE.FILE))) [RESETSAVE (DRIBBLE (PACKFILENAME (QUOTE HOST) (QUOTE DSK) (QUOTE NAME) (PACK* MAKESYSNAME "-" (MACHINETYPE)) (QUOTE EXTENSION) (QUOTE BENCHMARKS] (MOVD (QUOTE PAGEFULLFN) (QUOTE PAGEFULLFN.SAVE)) (RESETSAVE NIL (QUOTE (MOVD PAGEFULLFN.SAVE PAGEFULLFN))) (MOVD (QUOTE NILL) (QUOTE PAGEFULLFN)) (printout T T "MACHINETYPE = " (MACHINETYPE) T) (printout T T "MAKESYSNAME = " MAKESYSNAME T) (printout T T "MAKESYSDATE = " MAKESYSDATE T) (printout T T "DATE = " (DATE) T) (printout T T "USERNAME = " (USERNAME) T T) (DECLARE (SPECVARS VALUE)) [for BM in BENCHMARKS do (APPLY (PACK* BM (QUOTE .BM] (* (BROWSE.BM)) (* (PUZZLE.BM)) (* (JONL.BM) (BITBLT.BM)) (PRINTOUT T "Finished benchmarking" T T]) (STAK.BM [LAMBDA NIL (* jop: " 7-Nov-85 22:31") (printout T T "************ STAK BENCHMARK **************" T T) (INIT-STAK) (* Bind X, Y , and Z) (printout T T T "Starting the STAK run: (TIMEALL (STAK))" T T) (SETQ VALUE (TIMEALL (STAK))) (printout T "Value = " VALUE T) (printout T T "Repeating the TIMEALL" T T) (SETQ VALUE (TIMEALL (STAK))) (printout T T "STAK finished" T T]) (TAK.BM [LAMBDA NIL (* jop: " 7-Nov-85 22:29") (printout T T "************ TAK BENCHMARK **************" T T) (printout T T T "Starting the TAK run: (TIMEALL (TAK 18 12 6))" T T) (SETQ VALUE (TIMEALL (TAK 18 12 6))) (printout T "Value = " VALUE T) (printout T T "Repeating the TIMEALL" T T) (SETQ VALUE (TIMEALL (TAK 18 12 6))) (printout T "Value = " VALUE T) (printout T T "TAK finished" T T]) (TAKL.BM [LAMBDA NIL (* jop: " 7-Nov-85 22:31") (printout T T "************ TAKL BENCHMARK **************" T T) (printout T T T "Starting the TAKL run: (TIMEALL (TAKL 18L 12L 6L))" T T) (SETQ VALUE (TIMEALL (TAKL 18L 12L 6L))) (printout T "Value = " VALUE T) (printout T T "Repeating the TIMEALL" T T) (SETQ VALUE (TIMEALL (TAKL 18L 12L 6L))) (printout T "Value = " VALUE T) (printout T T "TAKL finished" T T]) (TAKR.BM [LAMBDA NIL (* jop: " 7-Nov-85 22:30") (printout T T "************ TAKR BENCHMARK **************" T T) (printout T T T "Starting the TAKR run: (TIMEALL (TAK0 18 12 6))" T T) (SETQ VALUE (TIMEALL (TAK0 18 12 6))) (printout T "Value = " VALUE T) (printout T T "Repeating the TIMEALL" T T) (SETQ VALUE (TIMEALL (TAK0 18 12 6))) (printout T "Value = " VALUE T) (printout T T "TAKR finished" T T]) (BOYER.BM [LAMBDA NIL (* jop: " 7-Nov-85 22:46") (printout T T "********* BOYER BENCHMARK ***********" T T) (printout T T T "Initializing BOYER run: (TIMEALL (SETUP)) " T T) (TIMEALL (SETUP)) (printout T T T "starting BOYER run: (TIMEALL (TEST-BOYER)) " T T) (FRPTQ 40 (RECLAIM)) (TIMEALL (TEST-BOYER)) (printout T T "Repeating the TIMEALL" T T) (FRPTQ 40 (RECLAIM)) (TIMEALL (TEST-BOYER)) (printout T T "BOYER finished" T T]) (BROWSE.BM [LAMBDA NIL (* jop: " 7-Nov-85 22:46") (printout T T "********* BROWSE BENCHMARK ***********" T T) (printout T T T "starting BROWSE run: (TIMEALL (BROWSE)) " T T) (FRPTQ 40 (RECLAIM)) (TIMEALL (BROWSE)) (printout T T "Repeating the TIMEALL" T T) (FRPTQ 40 (RECLAIM)) (TIMEALL (BROWSE)) (printout T T "BROWSE finished" T T]) (DERIVATIVE.BM [LAMBDA NIL (* jop: " 7-Nov-85 22:50") (printout T T "******* Derivative Benchmark **********" T T) (printout T T T "Starting the DERIV run: (TIMEALL (RUN-DERIV))" T T) (FRPTQ 40 (RECLAIM)) (SETQ VALUE (TIMEALL (RUN-DERIV))) (printout T "Value = " VALUE T) (printout T T "Repeating the TIMEALL" T T) (FRPTQ 40 (RECLAIM)) (SETQ VALUE (TIMEALL (RUN-DERIV))) (printout T "Value = " VALUE T) (printout T T "DERIV finished" T T]) (DDERIVATIVE.BM [LAMBDA NIL (* jop: " 7-Nov-85 22:50") (printout T T "******* Data-Driven Derivative Benchmark **********" T T) (printout T T T "Starting the DDERIV run: (TIMEALL (RUN-DDERIV))" T T) (INIT-DDERIV) (FRPTQ 20 (RECLAIM)) (SETQ VALUE (TIMEALL (RUN-DDERIV))) (printout T "Value = " VALUE T) (printout T T "Repeating the TIMEALL" T T) (FRPTQ 40 (RECLAIM)) (SETQ VALUE (TIMEALL (RUN-DDERIV))) (printout T "Value = " VALUE T) (printout T T "DDERIV finished" T T]) (DESTRUCTIVE.BM [LAMBDA NIL (* jop: " 7-Nov-85 22:54") (printout T T "*********** THE DESTRUCTIVE BENCHMARK ************" T T) (printout T T T "Starting the DESTRUCTIVE run: (TIMEALL (DESTRUCTIVE 600 50))" T T) (FRPTQ 20 (RECLAIM)) (SETQ VALUE (TIMEALL (DESTRUCTIVE 600 50))) (printout T "Value = " VALUE T) (printout T T "Repeating the TIMEALL" T T) (FRPTQ 40 (RECLAIM)) (SETQ VALUE (TIMEALL (DESTRUCTIVE 600 50))) (printout T "Value = " VALUE T) (printout T T "DESTRUCTIVE finished" T T]) (DIV2.BM [LAMBDA NIL (* jop: " 7-Nov-85 22:53") (printout T T "******* DIVIDE BY TWO BENCHMARK **********" T T) (printout T T T "Starting the iterative DIV2 run: (TIMEALL (TEST1 L))" T T) (FRPTQ 20 (RECLAIM)) (TIMEALL (TEST1 L)) (printout T T "Repeating the TIMEALL" T T) (FRPTQ 40 (RECLAIM)) (TIMEALL (TEST1 L)) (printout T T T "Starting the recursive DIV2 run: (TIMEALL (TEST2 L))" T T) (FRPTQ 40 (RECLAIM)) (TIMEALL (TEST2 L)) (printout T T "Repeating the TIMEALL" T T) (FRPTQ 40 (RECLAIM)) (TIMEALL (TEST2 L)) (printout T T "DIV2 finished" T T]) (POLYNOMIAL.BM [LAMBDA NIL (* jop: " 8-Nov-85 17:26") (printout T T "*************** THE POLYNOMIAL BENCHMARK ***********" T T) (printout T T T "Starting POLY 2 run: (TIMEALL (BENCH 2))" T T) (SETUP-POLY) (FRPTQ 20 (RECLAIM)) (SETQ VALUE (TIMEALL (BENCH 2))) (printout T "Value = " VALUE T) (printout T T "Repeating the TIMEALL" T T) (FRPTQ 20 (RECLAIM)) (SETQ VALUE (TIMEALL (BENCH 2))) (printout T "Value = " VALUE T) (printout T T T "Starting POLY 5 run: (TIMEALL (BENCH 5))" T T) (FRPTQ 20 (RECLAIM)) (SETQ VALUE (TIMEALL (BENCH 5))) (printout T "Value = " VALUE T) (printout T T "Repeating the TIMEALL" T T) (FRPTQ 20 (RECLAIM)) (SETQ VALUE (TIMEALL (BENCH 5))) (printout T "Value = " VALUE T) (printout T T T "Starting POLY 10 run: (TIMEALL (BENCH 10))" T T) (FRPTQ 20 (RECLAIM)) (SETQ VALUE (TIMEALL (BENCH 10))) (printout T "Value = " VALUE T) (printout T T "Repeating the TIMEALL" T T) (FRPTQ 20 (RECLAIM)) (SETQ VALUE (TIMEALL (BENCH 10))) (printout T "Value = " VALUE T) (printout T T T "Starting POLY 15 run: (TIMEALL (BENCH 15))" T T) (FRPTQ 20 (RECLAIM)) (SETQ VALUE (TIMEALL (BENCH 15))) (printout T "Value = " VALUE T) (printout T T "Repeating the TIMEALL" T T) (FRPTQ 20 (RECLAIM)) (SETQ VALUE (TIMEALL (BENCH 15))) (printout T "Value = " VALUE T) (printout T T "POLYNOMIAL finished" T T]) (PUZZLE.BM [LAMBDA NIL (* jop: " 7-Nov-85 22:57") (printout T T "*************** THE PUZZLE BENCHMARK ***********" T T) (printout T T T "Starting PUZZLE run: (TIMEALL (START))" T T) (FRESHPUZZLES) (FRPTQ 20 (RECLAIM)) (SETQ VALUE (TIMEALL (START))) (printout T "Value = " VALUE T) (printout T T "Repeating the TIMEALL" T T) (FRESHPUZZLES) (FRPTQ 40 (RECLAIM)) (SETQ VALUE (TIMEALL (START))) (printout T "Value = " VALUE T) (printout T T "PUZZLE finished" T T]) (TRAVERSE.BM [LAMBDA NIL (* jop: "19-Nov-85 23:23") (printout T T "************* THE TRAVERSE BENCHMAK ************" T T) (printout T T T "Starting the TRAVERSE initialization: (TIMEALL (INIT-TRAVERSE))" T T) (FRPTQ 40 (RECLAIM)) (TIMEALL (INIT-TRAVERSE)) (printout T T T "Starting the TRAVERSE run: (TIMEALL (RUN-TRAVERSE))" T T) (FRPTQ 40 (RECLAIM)) (TIMEALL (RUN-TRAVERSE)) (printout T T T "Repeating the TIMEALL" T T) (FRPTQ 40 (RECLAIM)) (TIMEALL (RUN-TRAVERSE)) (printout T T "TRAVERSE finished" T T]) (TRIANGLE.BM [LAMBDA NIL (* jop: " 7-Nov-85 22:57") (printout T T "*************** THE TRIANGLE BENCHMARK ***********" T T) (printout T T T "Starting TRIANG run: (TIMEALL (GOGOGO 22))" T T) (TRIANG-INIT) (FRPTQ 20 (RECLAIM)) (SETQ VALUE (TIMEALL (GOGOGO 22))) (printout T "Value = " VALUE T) (printout T T "Repeating the TIMEALL" T T) (TRIANG-INIT) (FRPTQ 40 (RECLAIM)) (SETQ VALUE (TIMEALL (GOGOGO 22))) (printout T "Value = " VALUE T) (printout T T "TRIANG finished" T T]) (IO.BM [LAMBDA NIL (* jop: " 7-Nov-85 12:37") (printout T T "*******************************************************************" "DSK file I/O benchmarks: FPRINT and FREAD" T "Terminal printing (to window): TPRINT" T "*******************************************************************" T T) (CNDIR (QUOTE {DSK})) (DELFILE (QUOTE FPRINT.TST)) (CREATE-TESTPATTERN) (printout T T T "Starting FPRINT: (TIMEALL (FPRINT))" T T) (FRPTQ 40 (RECLAIM)) (TIMEALL (FPRINT)) (printout T T "Repeating the TIMEALL" T T) (DELFILE (QUOTE FPRINT.TST)) (FRPTQ 20 (RECLAIM)) (TIMEALL (FPRINT)) (printout T T "FPRINT finished" T T) (printout T T T "Starting the FREAD run: (TIMEALL (FREAD))" T T) (FRPTQ 20 (RECLAIM)) (TIMEALL (FREAD)) (printout T T "Repeating the TIMEALL" T T) (FRPTQ 40 (RECLAIM)) (TIMEALL (FREAD)) (printout T T "FREAD finished" T T) (printout T T T "Starting the TPRINT run: (TPRINT)" T T) (INIT-TPRINT) (FRPTQ 20 (RECLAIM)) (TIMEALL (TPRINT)) (CLOSEW BIGWINDOW) (printout T T "Repeating the TIMEALL" T T) (INIT-TPRINT) (FRPTQ 10 (RECLAIM)) (TIMEALL (TPRINT)) (CLOSEW BIGWINDOW) (printout T T "TPRINT finished" T T]) ) (* * Call (RUN.BENCHMARKS)) (DECLARE: DONTEVAL@LOAD (FILESLOAD (SYSLOAD FROM {ERIS}LIBRARY>) CMLARRAY) ) (DECLARE: DONTEVAL@LOAD (FILESLOAD BOYER BROWSE CTAK DDERIV DERIV DESTRUCTIVE DIV2 FFT FPRINT FREAD POLY PUZZLE STAK TAK TAKL TAKR TESTPATTERN TPRINT TRAVERSE TRIANG) ) (* Gabriel benchmarks) (RPAQQ AREFY (PUZZLE TRIANGLE)) (RPAQQ BENCHMARKSUITE (TAK STAK CTAK TAKL TAKR BOYER BROWSE DESTRUCTIVE TRAVERSE DERIVATIVE DDERIVATIVE DIV2 FFT PUZZLE TRIANGLE IO POLYNOMIAL)) (RPAQQ CONSY (BOYER BROWSE DERIVATIVE DDERIVATIVE DIV2)) (RPAQQ TAKS (TAK STAK CTAK TAKL TAKR)) (PUTPROPS BENCHMARK COPYRIGHT ("Xerox Corporation" 1985)) (DECLARE: DONTCOPY (FILEMAP (NIL (918 14795 (CTAK.BM 928 . 1443) (FFT.BM 1445 . 1907) (RUN.BENCHMARKS 1909 . 4059) ( STAK.BM 4061 . 4605) (TAK.BM 4607 . 5115) (TAKL.BM 5117 . 5641) (TAKR.BM 5643 . 6158) (BOYER.BM 6160 . 6725) (BROWSE.BM 6727 . 7183) (DERIVATIVE.BM 7185 . 7762) (DDERIVATIVE.BM 7764 . 8381) ( DESTRUCTIVE.BM 8383 . 9011) (DIV2.BM 9013 . 9741) (POLYNOMIAL.BM 9743 . 11414) (PUZZLE.BM 11416 . 12030) (TRAVERSE.BM 12032 . 12690) (TRIANGLE.BM 12692 . 13320) (IO.BM 13322 . 14793))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/BOYER b/internal/gabriel/interlisp/BOYER deleted file mode 100644 index b515f822..00000000 --- a/internal/gabriel/interlisp/BOYER +++ /dev/null @@ -1,5 +0,0 @@ -(FILECREATED "20-Nov-85 21:25:36" {QV}BENCHMARKS>BOYER.;4 17677 changes to: (FNS ADD-LEMMA) previous date: " 7-Nov-85 01:23:28" {QV}BENCHMARKS>BOYER.;3) (PRETTYCOMPRINT BOYERCOMS) (RPAQQ BOYERCOMS ((FNS ADD-LEMMA ADD-LEMMA-LST APPLY-SUBST APPLY-SUBST-LST FALSEP ONE-WAY-UNIFY ONE-WAY-UNIFY1 ONE-WAY-UNIFY1-LST PTIME REWRITE REWRITE-ARGS REWRITE-WITH-LEMMAS SETUP TAUTOLOGYP TAUTP TEST-BOYER TRANS-OF-IMPLIES TRANS-OF-IMPLIES1 TRUEP) (* * Call (SETUP) then (TEST-BOYER)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) (DEFINEQ (ADD-LEMMA [LAMBDA (TERM) (* jop: "20-Nov-85 21:13") (COND [[AND (NOT (ATOM TERM)) (EQ (CAR TERM) (QUOTE EQUAL)) (NOT (ATOM (CADR TERM] (LET* [(ATM (CAR (CADR TERM))) (PROPLST (GETPROP ATM (QUOTE LEMMAS] (* Modified so multiple evocations will not generate  repeats in the prop list) (if PROPLST then [if (NOT (MEMB TERM PROPLST)) then (PUTPROP ATM (QUOTE LEMMAS) (CONS TERM (GETPROP ATM (QUOTE LEMMAS] else (SETPROPLIST ATM (CONS (QUOTE LEMMAS) (CONS (LIST TERM) (GETPROPLIST ATM] (T (ERROR (QUOTE ADD-LEMMA-DID-NOT-LIKE-TERM) TERM]) (ADD-LEMMA-LST (LAMBDA (LST) (COND ((NULL LST) T) (T (ADD-LEMMA (CAR LST)) (ADD-LEMMA-LST (CDR LST)))))) (APPLY-SUBST [LAMBDA (ALIST TERM) (DECLARE (GLOBALVARS TEMP-TEMP)) (* jop: " 7-Nov-85 01:17") (COND ((NLISTP TERM) (COND ((SETQ TEMP-TEMP (FASSOC TERM ALIST)) (CDR TEMP-TEMP)) (T TERM))) (T (CONS (CAR TERM) (APPLY-SUBST-LST ALIST (CDR TERM]) (APPLY-SUBST-LST (LAMBDA (ALIST LST) (COND ((NULL LST) NIL) (T (CONS (APPLY-SUBST ALIST (CAR LST)) (APPLY-SUBST-LST ALIST (CDR LST))))))) (FALSEP (LAMBDA (X LST) (OR (EQUAL X (QUOTE (F))) (MEMBER X LST)))) (ONE-WAY-UNIFY [LAMBDA (TERM1 TERM2) (DECLARE (GLOBALVARS UNIFY-SUBST)) (* jop: " 7-Nov-85 01:17") (PROGN (SETQ UNIFY-SUBST NIL) (ONE-WAY-UNIFY1 TERM1 TERM2]) (ONE-WAY-UNIFY1 [LAMBDA (TERM1 TERM2) (DECLARE (GLOBALVARS UNIFY-SUBST TEMP-TEMP)) (* jop: " 7-Nov-85 01:16") (COND ((NLISTP TERM2) (COND ((SETQ TEMP-TEMP (FASSOC TERM2 UNIFY-SUBST)) (EQUAL TERM1 (CDR TEMP-TEMP))) (T (SETQ UNIFY-SUBST (CONS (CONS TERM2 TERM1) UNIFY-SUBST)) T))) ((ATOM TERM1) NIL) ((EQ (CAR TERM1) (CAR TERM2)) (ONE-WAY-UNIFY1-LST (CDR TERM1) (CDR TERM2))) (T NIL]) (ONE-WAY-UNIFY1-LST (LAMBDA (LST1 LST2) (COND ((NULL LST1) T) ((ONE-WAY-UNIFY1 (CAR LST1) (CAR LST2)) (ONE-WAY-UNIFY1-LST (CDR LST1) (CDR LST2))) (T NIL)))) (PTIME (LAMBDA NIL (PROG (GCTM) (SETQ GCTM (CLOCK 3)) (RETURN (CONS (IPLUS (CLOCK 2) GCTM) GCTM))))) (REWRITE (LAMBDA (TERM) (COND ((NLISTP TERM) TERM) (T (REWRITE-WITH-LEMMAS (CONS (CAR TERM) (REWRITE-ARGS (CDR TERM))) (GETPROP (CAR TERM) (QUOTE LEMMAS))))))) (REWRITE-ARGS (LAMBDA (LST) (COND ((NULL LST) NIL) (T (CONS (REWRITE (CAR LST)) (REWRITE-ARGS (CDR LST))))))) (REWRITE-WITH-LEMMAS [LAMBDA (TERM LST) (DECLARE (GLOBALVARS UNIFY-SUBST)) (* jop: " 7-Nov-85 01:18") (COND ((NULL LST) TERM) [(ONE-WAY-UNIFY TERM (CADR (CAR LST))) (REWRITE (APPLY-SUBST UNIFY-SUBST (CADDR (CAR LST] (T (REWRITE-WITH-LEMMAS TERM (CDR LST]) (SETUP [LAMBDA NIL (DECLARE (GLOBALVARS TEMP-TEMP UNIFY-SUBST)) (* jop: " 7-Nov-85 01:21") (SETQ TEMP-TEMP NIL) (SETQ UNIFY-SUBST NIL) (ADD-LEMMA-LST (QUOTE ([EQUAL (COMPILE FORM) (REVERSE (CODEGEN (OPTIMIZE FORM) (NIL] (EQUAL (EQP X Y) (EQUAL (FIX X) (FIX Y))) (EQUAL (GREATERP X Y) (LESSP Y X)) (EQUAL (LESSEQP X Y) (NOT (LESSP Y X))) (EQUAL (GREATEREQP X Y) (NOT (LESSP X Y))) [EQUAL (BOOLEAN X) (OR (EQUAL X (T)) (EQUAL X (F] (EQUAL (IFF X Y) (AND (IMPLIES X Y) (IMPLIES Y X))) [EQUAL (EVEN1 X) (IF (ZEROP X) (T) (ODD (SUB1 X] (EQUAL (COUNTPS- L PRED) (COUNTPS-LOOP L PRED (ZERO))) (EQUAL (FACT- I) (FACT-LOOP I 1)) (EQUAL (REVERSE- X) (REVERSE-LOOP X (NIL))) (EQUAL (DIVIDES X Y) (ZEROP (REMAINDER Y X))) (EQUAL (ASSUME-TRUE VAR ALIST) (CONS (CONS VAR (T)) ALIST)) (EQUAL (ASSUME-FALSE VAR ALIST) (CONS (CONS VAR (F)) ALIST)) (EQUAL (TAUTOLOGY-CHECKER X) (TAUTOLOGYP (NORMALIZE X) (NIL))) (EQUAL (FALSIFY X) (FALSIFY1 (NORMALIZE X) (NIL))) [EQUAL (PRIME X) (AND (NOT (ZEROP X)) [NOT (EQUAL X (ADD1 (ZERO] (PRIME1 X (SUB1 X] (EQUAL (AND P Q) (IF P (IF Q (T) (F)) (F))) (EQUAL (OR P Q) (IF P (T) (IF Q (T) (F)) (F))) (EQUAL (NOT P) (IF P (F) (T))) (EQUAL (IMPLIES P Q) (IF P (IF Q (T) (F)) (T))) (EQUAL (FIX X) (IF (NUMBERP X) X (ZERO))) (EQUAL (IF (IF A B C) D E) (IF A (IF B D E) (IF C D E))) [EQUAL (ZEROP X) (OR (EQUAL X (ZERO)) (NOT (NUMBERP X] (EQUAL (PLUS (PLUS X Y) Z) (PLUS X (PLUS Y Z))) (EQUAL (EQUAL (PLUS A B) (ZERO)) (AND (ZEROP A) (ZEROP B))) (EQUAL (DIFFERENCE X X) (ZERO)) (EQUAL (EQUAL (PLUS A B) (PLUS A C)) (EQUAL (FIX B) (FIX C))) (EQUAL (EQUAL (ZERO) (DIFFERENCE X Y)) (NOT (LESSP Y X))) [EQUAL (EQUAL X (DIFFERENCE X Y)) (AND (NUMBERP X) (OR (EQUAL X (ZERO)) (ZEROP Y] (EQUAL (MEANING (PLUS-TREE (APPEND X Y)) A) (PLUS (MEANING (PLUS-TREE X) A) (MEANING (PLUS-TREE Y) A))) (EQUAL (MEANING (PLUS-TREE (PLUS-FRINGE X)) A) (FIX (MEANING X A))) (EQUAL (APPEND (APPEND X Y) Z) (APPEND X (APPEND Y Z))) (EQUAL (REVERSE (APPEND A B)) (APPEND (REVERSE B) (REVERSE A))) (EQUAL (TIMES X (PLUS Y Z)) (PLUS (TIMES X Y) (TIMES X Z))) (EQUAL (TIMES (TIMES X Y) Z) (TIMES X (TIMES Y Z))) (EQUAL (EQUAL (TIMES X Y) (ZERO)) (OR (ZEROP X) (ZEROP Y))) (EQUAL (EXEC (APPEND X Y) PDS ENVRN) (EXEC Y (EXEC X PDS ENVRN) ENVRN)) (EQUAL (MC-FLATTEN X Y) (APPEND (FLATTEN X) Y)) (EQUAL (MEMBER X (APPEND A B)) (OR (MEMBER X A) (MEMBER X B))) (EQUAL (MEMBER X (REVERSE Y)) (MEMBER X Y)) (EQUAL (LENGTH (REVERSE X)) (LENGTH X)) (EQUAL (MEMBER A (INTERSECT B C)) (AND (MEMBER A B) (MEMBER A C))) (EQUAL (NTH (ZERO) I) (ZERO)) (EQUAL (EXP I (PLUSF0J K)) (TIMES (EXP y J) (EXP I K))) (EQUAL (EXP I (TIMES J K)) (EXP (EXP I J) K)) (EQUAL (REVERSE-LOOP X Y) (APPEND (REVERSE X) Y)) (EQUAL (REVERSE-LOOP X (NIL)) (REVERSE X)) (EQUAL (COUNT-LIST Z (SORT-LP X Y)) (PLUS (COUNT-LIST Z X) (COUNT-LIST Z Y))) (EQUAL (EQUAL (APPEND A B) (APPEND A C)) (EQUAL B C)) (EQUAL (PLUS (REMAINDER X Y) (TIMES Y (QUOTIENT X Y))) (FIX X)) (EQUAL (POWER-EVAL (BIG-PLUS1 L I BASE) BASE) (PLUS (POWER-EVAL L BASE) I)) [EQUAL (POWER-EVAL (BIG-PLUS X Y I BASE) BASE) (PLUS I (PLUS (POWER-EVAL X BASE) (POWER-EVAL Y BASE] (EQUAL (REMAINDER Y 1) (ZERO)) (EQUAL (LESSP (REMAINDER X Y) Y) (NOT (ZEROP Y))) (EQUAL (REMAINDER X X) (ZERO)) [EQUAL (LESSP (QUOTIENT I J) I) (AND (NOT (ZEROP I)) (OR (ZEROP J) (NOT (EQUAL J 1] [EQUAL (LESSP (REMAINDER X Y) X) (AND (NOT (ZEROP Y)) (NOT (ZEROP X)) (NOT (LESSP X Y] (EQUAL (POWER-EVAL (POWER-REP I BASE) BASE) (FIX I)) (EQUAL (POWER-EVAL (BIG-PLUS (POWER-REP I BASE) (POWER-REP J BASE) (ZERO) BASE) BASE) (PLUS I J)) (EQUAL (GCD X Y) (GCD Y X)) [EQUAL (NTH (APPEND A B) I) (APPEND (NTH A I) (NTH B (DIFFERENCE I (LENGTH A] (EQUAL (DIFFERENCE (PLUS X Y) X) (FIX Y)) (EQUAL (DIFFERENCE (PLUS Y X) X) (FIX Y)) (EQUAL (DIFFERENCE (PLUS X Y) (PLUS X Z)) (DIFFERENCE Y Z)) ‰ (EQUAL (TIMES X (DIFFERENCE C W)) ‰ ¹ ‰º¦ÑU7ý?t/t¯¨tßUõ¦ÑU½ 4hßUõïõ.µ©¿¿¿¿¿¿ººººººº¦ÑU½ 4hßUõCõ.µ··©¿¿¿¿¦ÑÕ4 -uãßUõ¦ÑU/4 5ýï7toßUõ¦ÑU½ 4hßUõiõ)µ©¿¿¿¿¿¿ºººººº)µ©¿¿¿¿¿º¦ÑU-t/ìßÕµ·©¿¿¿¿¦ÑÕ4 -uãßUõ¦ÑU7ý?t/t¯¨tßUõ¦ÑUM£hßUõëõ¦ÑUM£hßUõwõ¯µ·©¿¿¿¿¿¿ººººººº7µ©¿¿¿¿¿º¦ÑUM£hßUõëõ¯µ·©¿¿¿¿¦ÑÕ4 -uãßUõ¦ÑU7ý?t/t¯¨tßUõ¦ÑÕuw7ÑUõ¦ÑUM£hßUõõ)µ·©¿¿¿¿¿¿ºº (LT-FIND-NAME TEMP-INSTANCE-NAME (|GetObjectNames| TEMP-INSTANCE))))) (_ ($! TEMP-INSTANCE-NAME) |Destroy!|) (_ ($! CLASS-NAME) |Destroy|) RESULTS))) (CL:DEFUN |LT-2.2-UnSetName-BASIC| NIL (XCL-USER::DO-TEST "UnSetName Basic test, make sure UnSetName works" (LET* ((CLASS-NAME (LT-BUILD-CLASS-NAME)) (TEMP-INSTANCE-NAME (CL:GENSYM)) (TEMP-INSTANCE (_ ($! CLASS-NAME) |New| TEMP-INSTANCE-NAME)) (TOSS-AWAY (_ TEMP-INSTANCE |UnSetName|)) (RESULTS (AND (EQ 1 (CL:LENGTH (|GetObjectNames| TEMP-INSTANCE))) (NOT (LT-FIND-NAME TEMP-INSTANCE-NAME (|GetObjectNames| TEMP-INSTANCE)))))) (_ TEMP-INSTANCE |Destroy!|) (_ ($! CLASS-NAME) |Destroy|) RESULTS))) (CL:DEFUN |LT-2.2-UnSetName-MORE-1| NIL (XCL-USER::DO-TEST "UnSetName More test, make sure UnSetName works" (LET* ((CLASS-NAME (LT-BUILD-CLASS-NAME)) (TEMP-INSTANCE-NAME (CL:GENSYM)) (TEMP-INSTANCE (_ ($! CLASS-NAME) |New| TEMP-INSTANCE-NAME)) (TOSS-AWAY-1 (CL:DOTIMES (I 10) (_ TEMP-INSTANCE |SetName| ( CL:GENSYM )))) (TOSS-AWAY-2 (_ TEMP-INSTANCE |UnSetName| TEMP-INSTANCE-NAME)) (RESULTS (AND (EQ 11 (CL:LENGTH (|GetObjectNames| TEMP-INSTANCE))) (NOT (LT-FIND-NAME TEMP-INSTANCE-NAME (|GetObjectNames| TEMP-INSTANCE)))))) (_ TEMP-INSTANCE |UnSetName|) (SETQ RESULTS (AND RESULTS (EQ 1 (CL:LENGTH (|GetObjectNames| TEMP-INSTANCE))))) (_ TEMP-INSTANCE |Destroy!|) (_ ($! CLASS-NAME) |Destroy|) RESULTS))) (DECLARE\: DONTCOPY (FILEMAP (NIL))) STOP ),Qãõ$¨XêlO?%¼â'*), -Fp"73(m¾˜£È¦Ü· (TIMES A B) (PLUS C D))) [Z F (REVERSE (APPEND (APPEND A B) (NIL] (U EQUAL (PLUS A B) (DIFFERENCE X Y)) (W LESSP (REMAINDER A B) (MEMBER A (LENGTH B] (QUOTE (IMPLIES [AND (IMPLIES X Y) (AND (IMPLIES Y Z) (AND (IMPLIES Z U) (IMPLIES U W] (IMPLIES X W] (SETQ ANS (TAUTP TERM)) (SETQ TM2 (PTIME)) (RETURN (LIST ANS (DIFFERENCE (CAR TM2) (CAR TM1)) (DIFFERENCE (CDR TM2) (CDR TM1]) (TRANS-OF-IMPLIES (LAMBDA (N) (LIST (QUOTE IMPLIES) (TRANS-OF-IMPLIES1 N) (LIST (QUOTE IMPLIES) 0 N)))) (TRANS-OF-IMPLIES1 (LAMBDA (N) (COND ((EQUAL N 1) (LIST (QUOTE IMPLIES) 0 1)) (T (LIST (QUOTE AND) (LIST (QUOTE IMPLIES) (SUB1 N) N) (TRANS-OF-IMPLIES1 (SUB1 N))))))) (TRUEP (LAMBDA (X LST) (OR (EQUAL X (QUOTE (T))) (MEMBER X LST)))) ) (* * Call (SETUP) then (TEST-BOYER)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (PUTPROPS BOYER COPYRIGHT (NONE)) (DECLARE: DONTCOPY (FILEMAP (NIL (612 17474 (ADD-LEMMA 622 . 1474) (ADD-LEMMA-LST 1476 . 1613) (APPLY-SUBST 1615 . 1969) (APPLY-SUBST-LST 1971 . 2147) (FALSEP 2149 . 2227) (ONE-WAY-UNIFY 2229 . 2449) (ONE-WAY-UNIFY1 2451 . 3000) (ONE-WAY-UNIFY1-LST 3002 . 3212) (PTIME 3214 . 3357) (REWRITE 3359 . 3577) (REWRITE-ARGS 3579 . 3727) (REWRITE-WITH-LEMMAS 3729 . 4092) (SETUP 4094 . 15470) (TAUTOLOGYP 15472 . 16071) (TAUTP 16073 . 16146) (TEST-BOYER 16148 . 17034) (TRANS-OF-IMPLIES 17036 . 17161) (TRANS-OF-IMPLIES1 17163 . 17393 ) (TRUEP 17395 . 17472))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/BROWSE b/internal/gabriel/interlisp/BROWSE deleted file mode 100644 index b1b35811..00000000 --- a/internal/gabriel/interlisp/BROWSE +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED "18-Nov-85 14:31:42" {QV}BENCHMARKS>BROWSE.;4 5551 changes to: (FNS MATCH! BROWSE SEED-BROWSE RANDOMIZE RANDOM-BROWSE INIT-BROWSE INVESTIGATE) (VARS BROWSECOMS) previous date: "28-Nov-84 19:18:36" {PHYLUM}BROWSE.;17) (* Copyright (c) 1983, 1984, 1985 by RPG. All rights reserved.) (PRETTYCOMPRINT BROWSECOMS) (RPAQQ BROWSECOMS ((MACROS CHAR1) (FNS INIT-BROWSE RANDOM-BROWSE SEED-BROWSE RANDOMIZE MATCH! BROWSE INVESTIGATE) (* * Call (BROWSE)) (DECLARE: DONTCOPY DONTEVAL@LOAD DOEVAL@COMPILE (LOCALVARS . T)))) (DECLARE: EVAL@COMPILE (PUTPROPS CHAR1 MACRO ((X) (NTHCHAR X 1))) ) (DEFINEQ (INIT-BROWSE [LAMBDA (N M NPATS IPATS) (* JonL "28-Nov-84 19:17") (PROG ((IPATS (SUBST NIL NIL IPATS)) LOSER) (RPLACD (SETQ LOSER (LAST IPATS)) IPATS) (RETURN (PROG1 (bind (A _ NIL) for old N from N to 1 by -1 as (I _ M) by (if (ZEROP I) then M else (SUB1 I)) as (NAME _(GENSYM)) by (GENSYM) do (push A NAME) (RPTQ I (PUTPROP NAME (GENSYM) NIL)) (PUTPROP NAME (QUOTE PATTERN) (bind (A _ NIL) for I from NPATS to 1 by -1 as IPATS on IPATS do (push A (CAR IPATS)) finally (RETURN A))) (RPTQ (DIFFERENCE M I) (PUTPROP NAME (GENSYM) NIL)) finally (RETURN A)) (RPLACD LOSER NIL) (* To break the circularities) ]) (RANDOM-BROWSE [LAMBDA NIL (* jop: "18-Nov-85 14:28") (DECLARE (GLOBALVARS RAND-BROWSE)) (SETQ RAND-BROWSE (IMOD (ITIMES RAND-BROWSE 17) 251]) (SEED-BROWSE [LAMBDA NIL (* jop: "18-Nov-85 14:28") (DECLARE (GLOBALVARS RAND-BROWSE)) (SETQ RAND-BROWSE 21]) (RANDOMIZE [LAMBDA (L) (* jop: "18-Nov-85 14:25") (bind (A _ NIL) while L do [PROG [(N (IMOD (RANDOM-BROWSE) (LENGTH L] (COND ((ZEROP N) (push A (CAR L)) (SETQ L (CDR L))) (T (for N from N to 2 by -1 as X on L do NIL finally (PROGN (push A (CADR X)) (RPLACD X (CDDR X] finally (RETURN A]) (MATCH! [LAMBDA (PAT DAT ALIST) (* jop: "18-Nov-85 14:13") (COND ((NULL PAT) (NULL DAT)) ((NULL DAT) NIL) ((OR (EQ (CAR PAT) (QUOTE ?)) (EQ (CAR PAT) (CAR DAT))) (MATCH! (CDR PAT) (CDR DAT) ALIST)) ((EQ (CAR PAT) (QUOTE *)) (OR (MATCH! (CDR PAT) DAT ALIST) (MATCH! (CDR PAT) (CDR DAT) ALIST) (MATCH! PAT (CDR DAT) ALIST))) (T (COND [(NLISTP (CAR PAT)) (COND [(EQ (CHAR1 (CAR PAT)) (QUOTE ?)) (PROG ((VAL (FASSOC (CAR PAT) ALIST))) (RETURN (COND (VAL (MATCH! (CONS (CDR VAL) (CDR PAT)) DAT ALIST)) (T (MATCH! (CDR PAT) (CDR DAT) (CONS (CONS (CAR PAT) (CAR DAT)) ALIST] ((EQ (CHAR1 (CAR PAT)) (QUOTE *)) (PROG ((VAL (FASSOC (CAR PAT) ALIST))) (RETURN (COND (VAL (MATCH! (APPEND (CDR VAL) (CDR PAT)) DAT ALIST)) (T (for (L _ NIL) by (NCONC L (LIST (CAR DTEMP))) as E on (CONS NIL DAT) as (DTEMP _ DAT) by (CDR DTEMP) do (COND ((MATCH! (CDR PAT) DTEMP (CONS (CONS (CAR PAT) L) ALIST)) (RETURN T] (T (AND (NOT (NLISTP (CAR DAT))) (MATCH! (CAR PAT) (CAR DAT) ALIST) (MATCH! (CDR PAT) (CDR DAT) ALIST]) (BROWSE [LAMBDA NIL (* jop: "18-Nov-85 14:26") (SEED-BROWSE) (INVESTIGATE [RANDOMIZE (INIT-BROWSE 100 10 4 (QUOTE ((A A A B B B B A A A A A B B A A A) (A A B B B B A A (A A) (B B)) (A A A B (B A) B A B A] (QUOTE ((*A ?B *B ?B A *A A *B *A) (*A *B *B *A (*A) (*B)) (? ? *(B A)* ? ?]) (INVESTIGATE [LAMBDA (UNITS PATS) (* edited: "25-FEB-83 13:07") (for UNITS on UNITS do (for PATS on PATS do (for P on (GETP (CAR UNITS) (QUOTE PATTERN)) do (MATCH! (CAR PATS) (CAR P) NIL]) ) (* * Call (BROWSE)) (DECLARE: DONTCOPY DONTEVAL@LOAD DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (PUTPROPS BROWSE COPYRIGHT ("RPG" 1983 1984 1985)) (DECLARE: DONTCOPY (FILEMAP (NIL (673 5348 (INIT-BROWSE 683 . 1743) (RANDOM-BROWSE 1745 . 1976) (SEED-BROWSE 1978 . 2164) (RANDOMIZE 2166 . 2692) (MATCH! 2694 . 4532) (BROWSE 4534 . 4988) (INVESTIGATE 4990 . 5346))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/CTAK b/internal/gabriel/interlisp/CTAK deleted file mode 100644 index 59d7b278..00000000 --- a/internal/gabriel/interlisp/CTAK +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED " 7-Nov-85 01:05:24" {QV}BENCHMARKS>CTAK.;3 1232 changes to: (VARS CTAKCOMS) (FNS TAK TAK1 TAKCALLER CTAK1 CTAK) previous date: " 5-JUL-83 13:07:00" {QV}BENCHMARKS>CTAK.;1) (PRETTYCOMPRINT CTAKCOMS) (RPAQQ CTAKCOMS ((FNS CTAK CTAK1 TAKCALLER) (* * Call (CTAK 18 12 6)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) (DEFINEQ (CTAK [LAMBDA (X Y Z) (* JonL " 5-JUL-83 12:51") (TAKCALLER X Y Z]) (CTAK1 [LAMBDA (X Y Z) (* JonL " 5-JUL-83 12:47") (COND ((NOT (ILESSP Y X)) (RETFROM (QUOTE TAKCALLER) Z)) (T (CTAK1 (TAKCALLER (SUB1 X) Y Z) (TAKCALLER (SUB1 Y) Z X) (TAKCALLER (SUB1 Z) X Y]) (TAKCALLER [LAMBDA (X Y Z) (* jop: " 4-Nov-85 21:54") (CTAK1 X Y Z]) ) (* * Call (CTAK 18 12 6)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (PUTPROPS CTAK COPYRIGHT (NONE)) (DECLARE: DONTCOPY (FILEMAP (NIL (415 1041 (CTAK 425 . 553) (CTAK1 555 . 908) (TAKCALLER 910 . 1039))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/DDERIV b/internal/gabriel/interlisp/DDERIV deleted file mode 100644 index 0954cc72..00000000 --- a/internal/gabriel/interlisp/DDERIV +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED " 7-Nov-85 01:03:40" {QV}BENCHMARKS>DDERIV.;5 4118 changes to: (FNS RUN-DDERIV INIT-DDERIV DDERIV PLUS.DERIV DIFFERENCE.DERIV TIMES.DERIV QUOTIENT.DERIV DER1-DDERIV DER1 DERIV RUN DDERIV-DER1 DDERIV-DERIV) (VARS DDERIVCOMS) previous date: "11-FEB-83 14:21:49" {QV}BENCHMARKS>DDERIV.;1) (* Copyright (c) 1983, 1985 by RPG. All rights reserved.) (PRETTYCOMPRINT DDERIVCOMS) (RPAQQ DDERIVCOMS ((FNS INIT-DDERIV RUN-DDERIV DDERIV QUOTIENT.DERIV TIMES.DERIV DIFFERENCE.DERIV PLUS.DERIV DER1-DDERIV) (PROP DERIV QUOTIENT TIMES DIFFERENCE PLUS) (FNS HEADIFY) (* * Call (INIT-DDERIV) then (RUN-DDERIV)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) (DEFINEQ (INIT-DDERIV [LAMBDA NIL (* jop: " 7-Nov-85 00:59") (for X in (QUOTE (PLUS DIFFERENCE TIMES QUOTIENT)) do (HEADIFY X (QUOTE DERIV]) (RUN-DDERIV [LAMBDA NIL (* jop: " 7-Nov-85 01:02") (DECLARE (GLOBALVARS RUNTIMES)) (to 1000 do (DDERIV (QUOTE (PLUS (TIMES 3 X X) (TIMES A X X) (TIMES B X) 5))) (DDERIV (QUOTE (PLUS (TIMES 3 X X) (TIMES A X X) (TIMES B X) 5))) (DDERIV (QUOTE (PLUS (TIMES 3 X X) (TIMES A X X) (TIMES B X) 5))) (DDERIV (QUOTE (PLUS (TIMES 3 X X) (TIMES A X X) (TIMES B X) 5))) (DDERIV (QUOTE (PLUS (TIMES 3 X X) (TIMES A X X) (TIMES B X) 5]) (DDERIV [LAMBDA (EXP) (* jop: " 4-Nov-85 22:53") (COND ((ATOM EXP) (COND ((EQ EXP (QUOTE X)) 1) (T 0))) (T (PROG [(DDERIV (GETP (CAR EXP) (QUOTE DERIV] (RETURN (COND (DDERIV (APPLY* DDERIV (CDR EXP))) (T (QUOTE ERROR]) (QUOTIENT.DERIV [LAMBDA (EXP) (* jop: " 4-Nov-85 22:55") (LIST (QUOTE DIFFERENCE) (LIST (QUOTE QUOTIENT) (DDERIV (CAR EXP)) (CADR EXP)) (LIST (QUOTE QUOTIENT) (CAR EXP) (LIST (QUOTE TIMES) (CADR EXP) (CADR EXP) (DDERIV (CADR EXP]) (TIMES.DERIV [LAMBDA (EXP) (* jop: " 4-Nov-85 22:55") (LIST (QUOTE TIMES) (CONS (QUOTE TIMES) EXP) (CONS (QUOTE PLUS) (MAPCAR EXP (QUOTE DER1-DDERIV]) (DIFFERENCE.DERIV [LAMBDA (EXP) (* jop: " 4-Nov-85 22:54") (CONS (QUOTE DIFFERENCE) (MAPCAR EXP (QUOTE DDERIV]) (PLUS.DERIV [LAMBDA (EXP) (* jop: " 4-Nov-85 22:54") (CONS (QUOTE PLUS) (MAPCAR EXP (QUOTE DDERIV]) (DER1-DDERIV [LAMBDA (EXP) (* jop: " 4-Nov-85 22:55") (LIST (QUOTE QUOTIENT) (DDERIV EXP) EXP]) ) (PUTPROPS QUOTIENT DERIV QUOTIENT.DERIV) (PUTPROPS TIMES DERIV TIMES.DERIV) (PUTPROPS DIFFERENCE DERIV DIFFERENCE.DERIV) (PUTPROPS PLUS DERIV PLUS.DERIV) (DEFINEQ (HEADIFY (LAMBDA (X PROP) (* JonL "11-FEB-83 14:08") (PROG ((L (GETPROPLIST X))) (if (FMEMB PROP (CDDR L)) then (SETPROPLIST X (CONS PROP (CONS (GETP X PROP) L))))))) ) (* * Call (INIT-DDERIV) then (RUN-DDERIV)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (PUTPROPS DDERIV COPYRIGHT ("RPG" 1983 1985)) (DECLARE: DONTCOPY (FILEMAP (NIL (776 3454 (INIT-DDERIV 786 . 1006) (RUN-DDERIV 1008 . 1824) (DDERIV 1826 . 2225) ( QUOTIENT.DERIV 2227 . 2635) (TIMES.DERIV 2637 . 2900) (DIFFERENCE.DERIV 2902 . 3093) (PLUS.DERIV 3095 . 3274) (DER1-DDERIV 3276 . 3452)) (3629 3897 (HEADIFY 3639 . 3895))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/DERIV b/internal/gabriel/interlisp/DERIV deleted file mode 100644 index 3a46cd12..00000000 --- a/internal/gabriel/interlisp/DERIV +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED " 7-Nov-85 00:57:05" {QV}BENCHMARKS>DERIV.;3 2605 changes to: (VARS DERIVCOMS) (FNS DER1 DERIV RUN-DERIV RUN DDERIV-DER1 RUN-DDERIV) previous date: "10-FEB-83 13:56:46" {QV}BENCHMARKS>DERIV.;1) (* Copyright (c) 1983, 1985 by RPG. All rights reserved.) (PRETTYCOMPRINT DERIVCOMS) (RPAQQ DERIVCOMS ((FNS DER1 DERIV RUN-DERIV) (* * Call (RUN-DERIV)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) (DEFINEQ (DER1 [LAMBDA (A) (* JonL "10-FEB-83 13:56") (LIST (QUOTE QUOTIENT) (DERIV A) A]) (DERIV [LAMBDA (A) (* JonL "10-FEB-83 13:56") (COND ((ATOM A) (COND ((EQ A (QUOTE X)) 1) (T 0))) [(EQ (QUOTE PLUS) (CAR A)) (CONS (QUOTE PLUS) (MAPCAR (CDR A) (QUOTE DERIV] [(EQ (QUOTE DIFFERENCE) (CAR A)) (CONS (QUOTE DIFFERENCE) (MAPCAR (CDR A) (QUOTE DERIV] [(EQ (QUOTE TIMES) (CAR A)) (LIST (QUOTE TIMES) A (CONS (QUOTE PLUS) (MAPCAR (CDR A) (QUOTE DER1] [(EQ (QUOTE QUOTIENT) (CAR A)) (LIST (QUOTE DIFFERENCE) (LIST (QUOTE QUOTIENT) (DERIV (CADR A)) (CADDR A)) (LIST (QUOTE QUOTIENT) (CADR A) (LIST (QUOTE TIMES) (CADDR A) (CADDR A) (DERIV (CADDR A] (T (QUOTE ERROR]) (RUN-DERIV [LAMBDA NIL (* JonL "10-FEB-83 13:56") (for I to 1000 do (DERIV (QUOTE (PLUS (TIMES 3 X X) (TIMES A X X) (TIMES B X) 5))) (DERIV (QUOTE (PLUS (TIMES 3 X X) (TIMES A X X) (TIMES B X) 5))) (DERIV (QUOTE (PLUS (TIMES 3 X X) (TIMES A X X) (TIMES B X) 5))) (DERIV (QUOTE (PLUS (TIMES 3 X X) (TIMES A X X) (TIMES B X) 5))) (DERIV (QUOTE (PLUS (TIMES 3 X X) (TIMES A X X) (TIMES B X) 5]) ) (* * Call (RUN-DERIV)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (PUTPROPS DERIV COPYRIGHT ("RPG" 1983 1985)) (DECLARE: DONTCOPY (FILEMAP (NIL (496 2405 (DER1 506 . 670) (DERIV 672 . 1640) (RUN-DERIV 1642 . 2403))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/DERIV.LCOM b/internal/gabriel/interlisp/DERIV.LCOM deleted file mode 100644 index ae57ee8f..00000000 Binary files a/internal/gabriel/interlisp/DERIV.LCOM and /dev/null differ diff --git a/internal/gabriel/interlisp/DESTRUCTIVE b/internal/gabriel/interlisp/DESTRUCTIVE deleted file mode 100644 index 682c5688..00000000 --- a/internal/gabriel/interlisp/DESTRUCTIVE +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED " 7-Nov-85 00:50:55" {QV}BENCHMARKS>DESTRUCTIVE.;3 2065 changes to: (FNS DESTRUCTIVE) (VARS DESTRUCTIVECOMS) previous date: " 9-FEB-83 15:37:32" {QV}BENCHMARKS>DESTRUCTIVE.;1) (* Copyright (c) 1983, 1985 by HornBlower. All rights reserved.) (PRETTYCOMPRINT DESTRUCTIVECOMS) (RPAQQ DESTRUCTIVECOMS ((FNS DESTRUCTIVE) (MACROS COLLECTN) (* * Call (DESTRUCTIVE 600 50)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) (DEFINEQ (DESTRUCTIVE [LAMBDA (N M) (* jop: " 7-Nov-85 00:50") (PROG ((LST (COLLECTN 10))) [for I from N by -1 to 1 do (if (NULL (CAR LST)) then (for L on LST do (OR (CAR L) (RPLACA L (LIST NIL))) (NCONC (CAR L) (COLLECTN M))) else (for LST1 on LST as LST2 on (CDR LST) do (RPLACD (for J from (IQUOTIENT (FLENGTH (CAR LST2)) 2) by -1 to 1 as A on (CAR LST2) do (RPLACA A I) finally (RETURN A)) (PROG ((N (IQUOTIENT (FLENGTH (CAR LST1)) 2))) (RETURN (if (ZEROP N) then (RPLACA LST1 NIL) (CAR LST1) else (for J from N by -1 to 2 as A on (CAR LST1) do (RPLACA A I) finally (RETURN (PROG1 (CDR A) (RPLACD A NIL] (RETURN LST]) ) (DECLARE: EVAL@COMPILE [PUTPROPS COLLECTN MACRO ((N) (PROG (VAL) (FRPTQ N (push VAL NIL)) (RETURN VAL] ) (* * Call (DESTRUCTIVE 600 50)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (PUTPROPS DESTRUCTIVE COPYRIGHT ("HornBlower" 1983 1985)) (DECLARE: DONTCOPY (FILEMAP (NIL (518 1727 (DESTRUCTIVE 528 . 1725))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/DESTRUCTIVE.LCOM b/internal/gabriel/interlisp/DESTRUCTIVE.LCOM deleted file mode 100644 index b409b8d0..00000000 Binary files a/internal/gabriel/interlisp/DESTRUCTIVE.LCOM and /dev/null differ diff --git a/internal/gabriel/interlisp/DIV2 b/internal/gabriel/interlisp/DIV2 deleted file mode 100644 index a56d5fa5..00000000 --- a/internal/gabriel/interlisp/DIV2 +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED " 7-Nov-85 00:41:53" {QV}BENCHMARKS>DIV2.;5 2082 changes to: (FNS LDIV2 DV2 TEST1 ITERATIVE-DIV2 TEST2 RECURSIVE-DIV2 FTEST1) (VARS DIV2COMS) previous date: "10-FEB-83 13:34:00" {QV}BENCHMARKS>DIV2.;1) (* Copyright (c) 1983, 1985 by RPG. All rights reserved.) (PRETTYCOMPRINT DIV2COMS) (RPAQQ DIV2COMS ((FNS CREATEN ITERATIVE-DIV2 RECURSIVE-DIV2 TEST1 TEST2) (VARS (L (CREATEN 200))) (* * Call (TEST1 L) for iterative test and (TEST2 L) for recursive test) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) (DEFINEQ (CREATEN (LAMBDA (n) (* JonL "10-FEB-83 13:29") (to n collect NIL))) (ITERATIVE-DIV2 [LAMBDA (LST) (* jop: " 7-Nov-85 00:37") (for L A on LST by (CDDR L) do (push A (CAR L)) finally (RETURN A]) (RECURSIVE-DIV2 [LAMBDA (LST) (* jop: " 7-Nov-85 00:38") (if (NULL LST) then NIL else (CONS (CAR LST) (RECURSIVE-DIV2 (CDDR LST]) (TEST1 [LAMBDA (L) (* jop: " 7-Nov-85 00:38") (for I from 300 by -1 until (EQ I 0) do (ITERATIVE-DIV2 L) (ITERATIVE-DIV2 L) (ITERATIVE-DIV2 L) (ITERATIVE-DIV2 L]) (TEST2 [LAMBDA (L) (* jop: " 7-Nov-85 00:39") (for I from 300 by -1 until (EQ I 0) do (RECURSIVE-DIV2 L) (RECURSIVE-DIV2 L) (RECURSIVE-DIV2 L) (RECURSIVE-DIV2 L]) ) (RPAQ L (CREATEN 200)) (* * Call (TEST1 L) for iterative test and (TEST2 L) for recursive test) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (PUTPROPS DIV2 COPYRIGHT ("RPG" 1983 1985)) (DECLARE: DONTCOPY (FILEMAP (NIL (625 1805 (CREATEN 635 . 772) (ITERATIVE-DIV2 774 . 993) (RECURSIVE-DIV2 995 . 1229) ( TEST1 1231 . 1516) (TEST2 1518 . 1803))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/DIV2.LCOM b/internal/gabriel/interlisp/DIV2.LCOM deleted file mode 100644 index da793caa..00000000 Binary files a/internal/gabriel/interlisp/DIV2.LCOM and /dev/null differ diff --git a/internal/gabriel/interlisp/FFT b/internal/gabriel/interlisp/FFT deleted file mode 100644 index bfaf1bc6..00000000 --- a/internal/gabriel/interlisp/FFT +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED "15-Nov-85 17:41:43" {QV}BENCHMARKS>FFT.;3 4803 changes to: (FNS FFT) (VARS FFTCOMS) previous date: " 8-Nov-85 17:37:57" {QV}BENCHMARKS>FFT.;1) (* Copyright (c) 1983, 1985 by JonL. All rights reserved.) (PRETTYCOMPRINT FFTCOMS) (RPAQQ FFTCOMS ((FNS FFT FFT-BENCH) [VARS (RE (MAKE-ARRAY 1025 (QUOTE :ELEMENT-TYPE) (QUOTE FLOAT))) (IM (MAKE-ARRAY 1025 (QUOTE :ELEMENT-TYPE) (QUOTE FLOAT] (MACROS IEXPT) (* * CALL (FFT-BENCH)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) (DEFINEQ (FFT [LAMBDA (AREAL AIMAG) (* JonL "21-OCT-83 20:47") (* Fast Fourier Transform AREAL = real part AIMAG =  imaginary part) (* *) (PROG (AR AI PI I J K M N LE LE1 IP NV2 NM1 UR UI WR WI TR TI) (SETQ AR AREAL) (* Initialize) (SETQ AI AIMAG) (SETQ PI 3.141593) (SETQ N (ARRAY-DIMENSION AR 0)) (add N -1) (SETQ NV2 (LRSH N 1)) (SETQ NM1 (SUB1 N)) (SETQ M 0) (SETQ I 1) L1 (until (NOT (ILESSP I N)) do (* Compute M = log (N)) (add M 1) (add I I)) (* Note that Interlisp could do this by merely setting M = (SUB1 (INTEGERLENGTH N)) and testing  (POWEROFTWOP N)) (if (NOT (IEQP N (IEXPT 2 M))) then (ERROR "Array size not a power of two" N)) (SETQ J 1) (* ;Interchange elements) (SETQ I 1) (* ;in bit-reversed order) L3 (repeatuntil (NOT (ILESSP I N)) do (if (ILESSP I J) then (SETQ TR (LAREF AR J)) (SETQ TI (LAREF AI J)) (LASET (LAREF AR I) AR J) (LASET (LAREF AI I) AI J) (LASET TR AR I) (LASET TI AI I)) (SETQ K NV2) L6 (until (NOT (ILESSP K J)) do (SETQ J (IDIFFERENCE J K)) (SETQ K (LRSH K 1))) (SETQ J (IPLUS J K)) (add I 1)) (for L to M do (* ;Loop thru stages) (SETQ LE (IEXPT 2 L)) (SETQ LE1 (LRSH LE 1)) (SETQ UR 1.0) (SETQ UI 0.0) [SETQ WR (COS (FQUOTIENT PI (FLOAT LE1] [SETQ WI (SIN (FQUOTIENT PI (FLOAT LE1] (for J to LE1 do (* ;Loop thru butterflies) (for I from J by LE until (IGREATERP I N) do (* ;Do a butterfly) (SETQ IP (IPLUS I LE1)) (SETQ TR (FDIFFERENCE (FTIMES (LAREF AR IP) UR) (FTIMES (LAREF AI IP) UI))) (SETQ TI (FPLUS (FTIMES (LAREF AR IP) UI) (FTIMES (LAREF AI IP) UR))) (LASET (FDIFFERENCE (LAREF AR I) TR) AR IP) (LASET (FDIFFERENCE (LAREF AI I) TI) AI IP) (LASET (FPLUS (LAREF AR I) TR) AR I) (LASET (FPLUS (LAREF AI I) TI) AI I)) (SETQ TR (FDIFFERENCE (FTIMES UR WR) (FTIMES UI WI))) (SETQ TI (FPLUS (FTIMES UR WI) (FTIMES UI WR))) (SETQ UR TR) (SETQ UI TI))) (RETURN T]) (FFT-BENCH [LAMBDA NIL (* jop: " 8-Nov-85 17:36") (DECLARE (SPECVARS RE IM)) (for I from 1 to 10 do (FFT RE IM]) ) (RPAQ RE (MAKE-ARRAY 1025 (QUOTE :ELEMENT-TYPE) (QUOTE FLOAT))) (RPAQ IM (MAKE-ARRAY 1025 (QUOTE :ELEMENT-TYPE) (QUOTE FLOAT))) (DECLARE: EVAL@COMPILE [PUTPROPS IEXPT MACRO (X (PROG ([N (CAR (CONSTANTEXPRESSIONP (CAR X] (E (CADR X))) (RETURN (if (AND (FIXP N) (POWEROFTWOP N)) then [if (NEQ 2 N) then (SETQ E (BQUOTE (ITIMES , (SUB1 (INTEGERLENGTH N)) ,E] (BQUOTE (MASK.1'S , E 1)) else (BQUOTE (EXPT (IPLUS 0 , (CAR X)) (IPLUS 0 , (CADR X] ) (* * CALL (FFT-BENCH)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (PUTPROPS FFT COPYRIGHT ("JonL" 1983 1985)) (DECLARE: DONTCOPY (FILEMAP (NIL (590 4025 (FFT 600 . 3816) (FFT-BENCH 3818 . 4023))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/FPRINT b/internal/gabriel/interlisp/FPRINT deleted file mode 100644 index 8c377a92..00000000 --- a/internal/gabriel/interlisp/FPRINT +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED " 7-Nov-85 00:34:26" {QV}BENCHMARKS>FPRINT.;4 1198 changes to: (FNS INIT-FPRINT FPRINT INIT1-FPRINT INIT INIT1) (VARS FPRINTCOMS) previous date: " 5-JUL-83 14:29:33" {QV}BENCHMARKS>FPRINT.;1) (PRETTYCOMPRINT FPRINTCOMS) (RPAQQ FPRINTCOMS ((FNS FPRINT) (* * Should be connected to {dsk}. The file FPRINT.TST should not exist. TESTPATTERN must already be defined) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) (DEFINEQ (FPRINT [LAMBDA NIL (* jop: " 7-Nov-85 00:32") (DECLARE (GLOBALVARS TESTPATTERN)) (PROG [(F (INFILEP (QUOTE FPRINT.TST] (COND (F (DELFILE F))) (SETQ F (OPENFILE (QUOTE FPRINT.TST) (QUOTE OUTPUT))) (PRINT TESTPATTERN F) (RETURN (CLOSEF F]) ) (* * Should be connected to {dsk}. The file FPRINT.TST should not exist. TESTPATTERN must already be defined) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (PUTPROPS FPRINT COPYRIGHT (NONE)) (DECLARE: DONTCOPY (FILEMAP (NIL (516 920 (FPRINT 526 . 918))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/FPRINT.TST b/internal/gabriel/interlisp/FPRINT.TST deleted file mode 100644 index 47432311..00000000 --- a/internal/gabriel/interlisp/FPRINT.TST +++ /dev/null @@ -1 +0,0 @@ -NIL \ No newline at end of file diff --git a/internal/gabriel/interlisp/FREAD b/internal/gabriel/interlisp/FREAD deleted file mode 100644 index 78b6ec2d..00000000 --- a/internal/gabriel/interlisp/FREAD +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED " 7-Nov-85 00:28:51" {QV}BENCHMARKS>FREAD.;3 829 changes to: (VARS FREADCOMS) previous date: " 5-JUL-83 14:36:33" {QV}BENCHMARKS>FREAD.;1) (PRETTYCOMPRINT FREADCOMS) (RPAQQ FREADCOMS ((FNS FREAD) (* * Should be run after FPRINT. Call (FREAD)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) (DEFINEQ (FREAD (LAMBDA NIL (* JonL " 5-JUL-83 14:32") (PROG ((F (OPENFILE (QUOTE FPRINT.TST) (QUOTE INPUT)))) (READ F) (RETURN (CLOSEF F))))) ) (* * Should be run after FPRINT. Call (FREAD)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (PUTPROPS FREAD COPYRIGHT (NONE)) (DECLARE: DONTCOPY (FILEMAP (NIL (387 616 (FREAD 397 . 614))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/POLY b/internal/gabriel/interlisp/POLY deleted file mode 100644 index 586d0632..00000000 --- a/internal/gabriel/interlisp/POLY +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED " 8-Nov-85 17:18:08" {QV}BENCHMARKS>POLY.;1 6694 changes to: (VARS IPOLYCOMS POLYMACROS) (FNS SETUP-POLY BENCH PTIMES3 PTIMES1 PTIMES2) previous date: "20-Feb-82 19:42:04" {PHYLUM}FRPOLY.IL;1) (PRETTYCOMPRINT POLYCOMS) (RPAQQ POLYCOMS ((FNS PCOEFADD PCPLUS PCPLUS1 PPLUS PTIMES PTIMES1 PTIMES2 PTIMES3 PSIMP PCTIMES PCTIMES1 PEXPTSQ PPLUS1 BENCH SETUP-POLY) (MACROS * POLYMACROS) (* * Call (SETUP-POLY) then (BENCH 2) (BENCH 5) (BENCH 10) and (BENCH 15)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)))) (DEFINEQ (PCOEFADD [LAMBDA (E C X) (COND ((PZEROP C) X) (T (CONS E (CONS C X]) (PCPLUS [LAMBDA (C P) (COND ((PCOEFP P) (CPLUS P C)) (T (PSIMP (CAR P) (PCPLUS1 C (CDR P]) (PCPLUS1 [LAMBDA (C X) (COND [(NULL X) (COND ((PZEROP C) NIL) (T (CONS 0 (CONS C NIL] ((PZEROP (CAR X)) (PCOEFADD 0 (PPLUS C (CADR X)) NIL)) (T (CONS (CAR X) (CONS (CADR X) (PCPLUS1 C (CDDR X]) (PPLUS [LAMBDA (X Y) (COND ((PCOEFP X) (PCPLUS X Y)) ((PCOEFP Y) (PCPLUS Y X)) [(EQ (CAR X) (CAR Y)) (PSIMP (CAR X) (PPLUS1 (CDR Y) (CDR X] [(POINTERGP (CAR X) (CAR Y)) (PSIMP (CAR X) (PCPLUS1 Y (CDR X] (T (PSIMP (CAR Y) (PCPLUS1 X (CDR Y]) (PTIMES [LAMBDA (X Y) (COND ((OR (PZEROP X) (PZEROP Y)) (PZERO)) ((PCOEFP X) (PCTIMES X Y)) ((PCOEFP Y) (PCTIMES Y X)) [(EQ (CAR X) (CAR Y)) (PSIMP (CAR X) (PTIMES1 (CDR X) (CDR Y] [(POINTERGP (CAR X) (CAR Y)) (PSIMP (CAR X) (PCTIMES1 Y (CDR X] (T (PSIMP (CAR Y) (PCTIMES1 X (CDR Y]) (PTIMES1 [LAMBDA (*X* Y) (DECLARE (SPECVARS V *X* U*)) (* jop: " 8-Nov-85 17:13") (PROG (U* V) (SETQ V (SETQ U*(PTIMES2 Y))) A (SETQ *X*(CDDR *X*)) (COND ((NULL *X*) (RETURN U*))) (PTIMES3 Y) (GO A]) (PTIMES2 [LAMBDA (Y) (DECLARE (SPECVARS V *X* U*)) (* jop: " 8-Nov-85 17:14") (COND ((NULL Y) NIL) (T (PCOEFADD (PLUS (CAR *X*) (CAR Y)) (PTIMES (CADR *X*) (CADR Y)) (PTIMES2 (CDDR Y]) (PTIMES3 [LAMBDA (Y) (DECLARE (SPECVARS V *X* U*)) (* jop: " 8-Nov-85 17:14") (PROG (E U C) A1 (COND ((NULL Y) (RETURN NIL))) (SETQ E (IPLUS (CAR *X*) (CAR Y))) (SETQ C (PTIMES (CADR Y) (CADR *X*))) (COND ((PZEROP C) (SETQ Y (CDDR Y)) (GO A1)) ((OR (NULL V) (IGREATERP E (CAR V))) [SETQ U*(SETQ V (PPLUS1 U*(LIST E C] (SETQ Y (CDDR Y)) (GO A1)) ((IEQP E (CAR V)) (SETQ C (PPLUS C (CADR V))) (COND [(PZEROP C) (SETQ U*(SETQ V (PDIFFER1 U*(LIST (CAR V) (CADR V] (T (RPLACA (CDR V) C))) (SETQ Y (CDDR Y)) (GO A1))) A (COND ((AND (CDDR V) (IGREATERP (CADDR V) E)) (SETQ V (CDDR V)) (GO A))) (SETQ U (CDR V)) B (COND ((OR (NULL (CDR U)) (ILESSP (CADR U) E)) [RPLACD U (CONS E (CONS C (CDR U] (GO E))) (COND ((PZEROP (SETQ C (PPLUS (CADDR U) C))) (RPLACD U (CDDDR U)) (GO D)) (T (RPLACA (CDDR U) C))) E (SETQ U (CDDR U)) D (SETQ Y (CDDR Y)) (COND ((NULL Y) (RETURN NIL))) (SETQ E (IPLUS (CAR *X*) (CAR Y))) (SETQ C (PTIMES (CADR Y) (CADR *X*))) C (COND ((AND (CDR U) (IGREATERP (CADR U) E)) (SETQ U (CDDR U)) (GO C))) (GO B]) (PSIMP [LAMBDA (VAR X) (COND ((NULL X) 0) ((ATOM X) X) ((ZEROP (CAR X)) (CADR X)) (T (CONS VAR X]) (PCTIMES [LAMBDA (C P) (COND ((PCOEFP P) (CTIMES C P)) (T (PSIMP (CAR P) (PCTIMES1 C (CDR P]) (PCTIMES1 [LAMBDA (C X) (COND ((NULL X) NIL) (T (PCOEFADD (CAR X) (PTIMES C (CADR X)) (PCTIMES1 C (CDDR X]) (PEXPTSQ [LAMBDA (P N) (PROG (S) (SETQ S (COND ((ODDP N) P) (T 1))) (SETQ N (QUOTIENT N 2)) LOOP(COND ((ZEROP N) (RETURN S))) (SETQ P (PTIMES P P)) (AND (ODDP N) (SETQ S (PTIMES S P))) (SETQ N (QUOTIENT N 2)) (GO LOOP]) (PPLUS1 [LAMBDA (X Y) (COND ((NULL X) Y) ((NULL Y) X) [(IEQP (CAR X) (CAR Y)) (PCOEFADD (CAR X) (PPLUS (CADR X) (CADR Y)) (PPLUS1 (CDDR X) (CDDR Y] [(IGREATERP (CAR X) (CAR Y)) (CONS (CAR X) (CONS (CADR X) (PPLUS1 (CDDR X) Y] (T (CONS (CAR Y) (CONS (CADR Y) (PPLUS1 X (CDDR Y]) (BENCH [LAMBDA (N) (* jop: " 8-Nov-85 16:58") (DECLARE (SPECVARS R R2 R3)) (PEXPTSQ R N) (PEXPTSQ R2 N) (PEXPTSQ R3 N]) (SETUP-POLY [LAMBDA NIL (DECLARE (SPECVARS R R2 R3)) (* jop: " 8-Nov-85 16:59") (PUTPROP (QUOTE X) (QUOTE ORDER) 1) (PUTPROP (QUOTE Y) (QUOTE ORDER) 2) (PUTPROP (QUOTE Z) (QUOTE ORDER) 3) [SETQ R (PPLUS (QUOTE (X 1 1 0 1)) (PPLUS (QUOTE (Y 1 1)) (QUOTE (Z 1 1] (SETQ R2 (PTIMES R 100000)) (SETQ R3 (PTIMES R 1.0]) ) (RPAQQ POLYMACROS (CPLUS CTIMES PCOEFP POINTERGP PZERO PZEROP)) (DECLARE: EVAL@COMPILE (PUTPROPS CPLUS MACRO [LAMBDA (X Y) (PLUS X Y]) (PUTPROPS CTIMES MACRO [LAMBDA (X Y) (TIMES X Y]) (PUTPROPS PCOEFP MACRO [LAMBDA (E) (ATOM E]) [PUTPROPS POINTERGP MACRO (LAMBDA (X Y) (IGREATERP (GETPROP X (QUOTE ORDER)) (GETPROP Y (QUOTE ORDER] (PUTPROPS PZERO MACRO [LAMBDA NIL 0]) (PUTPROPS PZEROP MACRO [LAMBDA (X) (EQP X 0]) ) (* * Call (SETUP-POLY) then (BENCH 2) (BENCH 5) (BENCH 10) and (BENCH 15)) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (DECLARE: DONTCOPY (FILEMAP (NIL (621 6008 (PCOEFADD 631 . 719) (PCPLUS 721 . 832) (PCPLUS1 834 . 1083) (PPLUS 1085 . 1400) (PTIMES 1402 . 1765) (PTIMES1 1767 . 2091) (PTIMES2 2093 . 2415) (PTIMES3 2417 . 4173) (PSIMP 4175 . 4306) (PCTIMES 4308 . 4422) (PCTIMES1 4424 . 4560) (PEXPTSQ 4562 . 4889) (PPLUS1 4891 . 5270) ( BENCH 5272 . 5484) (SETUP-POLY 5486 . 6006))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/PUZZLE b/internal/gabriel/interlisp/PUZZLE deleted file mode 100644 index f83998de..00000000 --- a/internal/gabriel/interlisp/PUZZLE +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED "12-Nov-85 17:21:33" {QV}BENCHMARKS>PUZZLE.;5 6119 changes to: (FNS FRESHPUZZLES START DEFINEPIECE TRIAL REMOVE! PLACE FIT) (VARS PUZZLECOMS) previous date: " 2-OCT-83 15:53:02" {PHYLUM}PUZZLE.;7) (* Copyright (c) 1982, 1983, 1985 by Xerox Corporation. All rights reserved.) (PRETTYCOMPRINT PUZZLECOMS) (RPAQQ PUZZLECOMS ((CONSTANTS SIZE TYPEMAX D CLASSMAX) (FNS FIT PLACE REMOVE! TRIAL DEFINEPIECE START FRESHPUZZLES) (* * First Call (FRESHPUZZLES) then (START)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) (DECLARE: EVAL@COMPILE (RPAQQ SIZE 511) (RPAQQ TYPEMAX 12) (RPAQQ D 8) (RPAQQ CLASSMAX 3) (CONSTANTS SIZE TYPEMAX D CLASSMAX) ) (DEFINEQ (FIT [LAMBDA (I J) (* jop: "11-Nov-85 17:11") (DECLARE (GLOBALVARS CLASS PIECEMAX PUZZLE P-PUZZLE PIECECOUNT III PUZZLETRACEFLG)) (NOT (find K from 0 to (16AREF PIECEMAX I) suchthat (AND (PAREF P-PUZZLE I K) (PAREF PUZZLE (IPLUS J K]) (PLACE [LAMBDA (I J) (* jop: "11-Nov-85 17:11") (DECLARE (GLOBALVARS CLASS PIECEMAX PUZZLE P-PUZZLE PIECECOUNT III PUZZLETRACEFLG)) [for K from 0 to (16AREF PIECEMAX I) do (if (PAREF P-PUZZLE I K) then (PASET T PUZZLE (IPLUS J K] (16ASET (SUB1 (16AREF PIECECOUNT (16AREF CLASS I))) PIECECOUNT (16AREF CLASS I)) (OR (find K from J to SIZE suchthat (NOT (PAREF PUZZLE K))) 0]) (REMOVE! [LAMBDA (I J) (* jop: "11-Nov-85 17:11") (DECLARE (GLOBALVARS CLASS PIECEMAX PUZZLE P-PUZZLE PIECECOUNT III PUZZLETRACEFLG)) [for K from 0 to (16AREF PIECEMAX I) do (if (PAREF P-PUZZLE I K) then (PASET NIL PUZZLE (IPLUS J K] (16ASET (ADD1 (16AREF PIECECOUNT (16AREF CLASS I))) PIECECOUNT (16AREF CLASS I]) (TRIAL [LAMBDA (J) (* jop: "11-Nov-85 17:10") (DECLARE (GLOBALVARS CLASS PIECEMAX PUZZLE P-PUZZLE PIECECOUNT III PUZZLETRACEFLG) (SPECVARS KOUNT)) (bind (K _ 0) for I from 0 to TYPEMAX do (if (AND (NEQ 0 (16AREF PIECECOUNT (16AREF CLASS I))) (FIT I J)) then (SETQ K (PLACE I J)) (if (OR (TRIAL K) (ZEROP K)) then (AND PUZZLETRACEFLG (printout NIL T "Piece at " (ADD1 K))) (add KOUNT 1) (RETURN T) else (REMOVE! I J))) finally (PROGN (add KOUNT 1) NIL]) (DEFINEPIECE [LAMBDA (ICLASS II JJ KK) (* jop: "11-Nov-85 17:10") (DECLARE (GLOBALVARS CLASS PIECEMAX PUZZLE P-PUZZLE PIECECOUNT III PUZZLETRACEFLG)) (PROG ((INDEX 0)) [for I from 0 to II do (for J from 0 to JJ do (for K from 0 to KK do [SETQ INDEX (IPLUS I (ITIMES D (IPLUS J (ITIMES D K] (PASET T P-PUZZLE III INDEX] (16ASET ICLASS CLASS III) (16ASET INDEX PIECEMAX III) (if (NEQ III TYPEMAX) then (add III 1]) (START [LAMBDA NIL (* jop: "11-Nov-85 17:23") (* *) (DECLARE (GLOBALVARS CLASS PIECEMAX PUZZLE P-PUZZLE PIECECOUNT III PUZZLETRACEFLG) (SPECVARS KOUNT)) (for M from 0 to SIZE do (PASET T PUZZLE M)) [for I from 1 to 5 do (for J from 1 to 5 do (for K from 1 to 5 do (PASET NIL PUZZLE (IPLUS I (ITIMES D (IPLUS J (ITIMES D K] (for I from 0 to TYPEMAX do (for M from 0 to SIZE do (PASET NIL P-PUZZLE I M))) (SETQ III 0) (DEFINEPIECE 0 3 1 0) (DEFINEPIECE 0 1 0 3) (DEFINEPIECE 0 0 3 1) (DEFINEPIECE 0 1 3 0) (DEFINEPIECE 0 3 0 1) (DEFINEPIECE 0 0 1 3) (DEFINEPIECE 1 2 0 0) (DEFINEPIECE 1 0 2 0) (DEFINEPIECE 1 0 0 2) (DEFINEPIECE 2 1 1 0) (DEFINEPIECE 2 1 0 1) (DEFINEPIECE 2 0 1 1) (DEFINEPIECE 3 1 1 1) (16ASET 13 PIECECOUNT 0) (16ASET 3 PIECECOUNT 1) (16ASET 1 PIECECOUNT 2) (16ASET 1 PIECECOUNT 3) (PROG ([M (IPLUS 1 (ITIMES D (IPLUS 1 D] (N 0) (KOUNT 0)) (if (FIT 0 M) then (SETQ N (PLACE 0 M)) else (printout NIL T "Error")) (if (TRIAL N) then (printout NIL T "Success in " KOUNT " trials.") else (printout NIL T "Failure.")) (TERPRI]) (FRESHPUZZLES [LAMBDA NIL (* jop: "11-Nov-85 17:29") (DECLARE (GLOBALVARS CLASS PIECEMAX PUZZLE P-PUZZLE PIECECOUNT III PUZZLETRACEFLG)) (SETQ III 0) (SETQ PUZZLETRACEFLG NIL) [SETQ CLASS (MAKE-ARRAY (ADD1 TYPEMAX) (QUOTE :ELEMENT-TYPE) (QUOTE (UNSIGNED-BYTE 16] [SETQ PIECEMAX (MAKE-ARRAY (ADD1 TYPEMAX) (QUOTE :ELEMENT-TYPE) (QUOTE (UNSIGNED-BYTE 16] (SETQ PUZZLE (MAKE-ARRAY (IPLUS SIZE 2))) [SETQ P-PUZZLE (MAKE-ARRAY (LIST (ADD1 TYPEMAX) (ADD1 SIZE] [SETQ PIECECOUNT (MAKE-ARRAY (ADD1 CLASSMAX) (QUOTE :ELEMENT-TYPE) (QUOTE (UNSIGNED-BYTE 16] NIL]) ) (* * First Call (FRESHPUZZLES) then (START)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (PUTPROPS PUZZLE COPYRIGHT ("Xerox Corporation" 1982 1983 1985)) (DECLARE: DONTCOPY (FILEMAP (NIL (777 5877 (FIT 787 . 1140) (PLACE 1142 . 1671) (REMOVE! 1673 . 2111) (TRIAL 2113 . 2817) (DEFINEPIECE 2819 . 3493) (START 3495 . 5071) (FRESHPUZZLES 5073 . 5875))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/STAK b/internal/gabriel/interlisp/STAK deleted file mode 100644 index bf0a14e3..00000000 --- a/internal/gabriel/interlisp/STAK +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED " 6-Nov-85 22:32:57" {QV}BENCHMARKS>STAK.;3 1354 changes to: (FNS STAK INIT-STAK TAK) (VARS STAKCOMS) previous date: " 5-JUL-83 12:48:46" {QV}BENCHMARKS>STAK.;1) (PRETTYCOMPRINT STAKCOMS) (RPAQQ STAKCOMS ((FNS INIT-STAK STAK) (* * Call (INIT-STAK) then (STAK)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) (DEFINEQ (INIT-STAK [LAMBDA NIL (DECLARE (SPECVARS X Y Z)) (* jop: " 6-Nov-85 22:29") (SETQ X 18) (SETQ Y 12) (SETQ Z 6]) (STAK [LAMBDA NIL (* jop: " 6-Nov-85 22:27") (DECLARE (SPECVARS X Y Z)) (COND ((NOT (ILESSP Y X)) Z) (T (PROG [[X (PROG ((X (SUB1 X)) (Y Y) (Z Z)) (RETURN (STAK] [Y (PROG ((X (SUB1 Y)) (Y Z) (Z X)) (RETURN (STAK] (Z (PROG ((X (SUB1 Z)) (Y X) (Z Y)) (RETURN (STAK] (RETURN (STAK]) ) (* * Call (INIT-STAK) then (STAK)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (PUTPROPS STAK COPYRIGHT (NONE)) (DECLARE: DONTCOPY (FILEMAP (NIL (423 1154 (INIT-STAK 433 . 617) (STAK 619 . 1152))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/TAK b/internal/gabriel/interlisp/TAK deleted file mode 100644 index 605c725b..00000000 --- a/internal/gabriel/interlisp/TAK +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED " 6-Nov-85 22:32:40" {QV}BENCHMARKS>TAK.;3 742 changes to: (VARS TAKCOMS) (FNS TAK) previous date: "14-FEB-83 10:11:44" {QV}BENCHMARKS>TAK.;1) (PRETTYCOMPRINT TAKCOMS) (RPAQQ TAKCOMS ((FNS TAK) (* * Call (TAK 18 12 6)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) (DEFINEQ (TAK [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK (TAK (SUB1 X) Y Z) (TAK (SUB1 Y) Z X) (TAK (SUB1 Z) X Y]) ) (* * Call (TAK 18 12 6)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (DECLARE: DONTCOPY (FILEMAP (NIL (364 585 (TAK 374 . 583))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/TAKL b/internal/gabriel/interlisp/TAKL deleted file mode 100644 index 648dd7a1..00000000 --- a/internal/gabriel/interlisp/TAKL +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED " 6-Nov-85 22:32:09" {QV}BENCHMARKS>TAKL.;3 1331 changes to: (VARS TAKLCOMS) previous date: "14-FEB-83 11:45:11" {QV}BENCHMARKS>TAKL.;1) (PRETTYCOMPRINT TAKLCOMS) (RPAQQ TAKLCOMS ((FNS LISTN TAKL SHORTERP) (* * Call (TAKL 18L 12L 6L)) (VARS 18L 12L 6L) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) (DEFINEQ (LISTN [LAMBDA (N) (* lmm "28-APR-82 21:41") (COND ((ZEROP N) NIL) (T (CONS N (LISTN (SUB1 N]) (TAKL [LAMBDA (X Y Z) (* lmm "28-APR-82 21:39") (COND ((NOT (SHORTERP Y X)) Z) (T (TAKL (TAKL (CDR X) Y Z) (TAKL (CDR Y) Z X) (TAKL (CDR Z) X Y]) (SHORTERP [LAMBDA (X Y) (* lmm "28-APR-82 21:38") (AND Y (OR (NULL X) (SHORTERP (CDR X) (CDR Y]) ) (* * Call (TAKL 18L 12L 6L)) (RPAQQ 18L (18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1)) (RPAQQ 12L (12 11 10 9 8 7 6 5 4 3 2 1)) (RPAQQ 6L (6 5 4 3 2 1)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (DECLARE: DONTCOPY (FILEMAP (NIL (399 1030 (LISTN 409 . 581) (TAKL 583 . 855) (SHORTERP 857 . 1028))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/TAKR b/internal/gabriel/interlisp/TAKR deleted file mode 100644 index 26094082..00000000 --- a/internal/gabriel/interlisp/TAKR +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED " 6-Nov-85 22:30:49" {QV}BENCHMARKS>TAKR.;3 20916 changes to: (VARS TAKRCOMS) (FNS TAK1) previous date: "14-FEB-83 10:52:35" {QV}BENCHMARKS>TAKR.;1) (PRETTYCOMPRINT TAKRCOMS) (RPAQQ TAKRCOMS ((FNS TAKR TAK0 TAK1 TAK2 TAK3 TAK4 TAK5 TAK6 TAK7 TAK8 TAK9 TAK10 TAK11 TAK12 TAK13 TAK14 TAK15 TAK16 TAK17 TAK18 TAK19 TAK20 TAK21 TAK22 TAK23 TAK24 TAK25 TAK26 TAK27 TAK28 TAK29 TAK30 TAK31 TAK32 TAK33 TAK34 TAK35 TAK36 TAK37 TAK38 TAK39 TAK40 TAK41 TAK42 TAK43 TAK44 TAK45 TAK46 TAK47 TAK48 TAK49 TAK50 TAK51 TAK52 TAK53 TAK54 TAK55 TAK56 TAK57 TAK58 TAK59 TAK60 TAK61 TAK62 TAK63 TAK64 TAK65 TAK66 TAK67 TAK68 TAK69 TAK70 TAK71 TAK72 TAK73 TAK74 TAK75 TAK76 TAK77 TAK78 TAK79 TAK80 TAK81 TAK82 TAK83 TAK84 TAK85 TAK86 TAK87 TAK88 TAK89 TAK90 TAK91 TAK92 TAK93 TAK94 TAK95 TAK96 TAK97 TAK98 TAK99) (* * Call (TAKR 18 12 6)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) (DEFINEQ (TAKR [LAMBDA NIL (TAK0 18 12 6]) (TAK0 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK1 (TAK37 (SUB1 X) Y Z) (TAK11 (SUB1 Y) Z X) (TAK17 (SUB1 Z) X Y]) (TAK1 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK2 (TAK74 (SUB1 X) Y Z) (TAK22 (SUB1 Y) Z X) (TAK34 (SUB1 Z) X Y]) (TAK2 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK3 (TAK11 (SUB1 X) Y Z) (TAK33 (SUB1 Y) Z X) (TAK51 (SUB1 Z) X Y]) (TAK3 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK4 (TAK48 (SUB1 X) Y Z) (TAK44 (SUB1 Y) Z X) (TAK68 (SUB1 Z) X Y]) (TAK4 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK5 (TAK85 (SUB1 X) Y Z) (TAK55 (SUB1 Y) Z X) (TAK85 (SUB1 Z) X Y]) (TAK5 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK6 (TAK22 (SUB1 X) Y Z) (TAK66 (SUB1 Y) Z X) (TAK2 (SUB1 Z) X Y]) (TAK6 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK7 (TAK59 (SUB1 X) Y Z) (TAK77 (SUB1 Y) Z X) (TAK19 (SUB1 Z) X Y]) (TAK7 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK8 (TAK96 (SUB1 X) Y Z) (TAK88 (SUB1 Y) Z X) (TAK36 (SUB1 Z) X Y]) (TAK8 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK9 (TAK33 (SUB1 X) Y Z) (TAK99 (SUB1 Y) Z X) (TAK53 (SUB1 Z) X Y]) (TAK9 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK10 (TAK70 (SUB1 X) Y Z) (TAK10 (SUB1 Y) Z X) (TAK70 (SUB1 Z) X Y]) (TAK10 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK11 (TAK7 (SUB1 X) Y Z) (TAK21 (SUB1 Y) Z X) (TAK87 (SUB1 Z) X Y]) (TAK11 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK12 (TAK44 (SUB1 X) Y Z) (TAK32 (SUB1 Y) Z X) (TAK4 (SUB1 Z) X Y]) (TAK12 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK13 (TAK81 (SUB1 X) Y Z) (TAK43 (SUB1 Y) Z X) (TAK21 (SUB1 Z) X Y]) (TAK13 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK14 (TAK18 (SUB1 X) Y Z) (TAK54 (SUB1 Y) Z X) (TAK38 (SUB1 Z) X Y]) (TAK14 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK15 (TAK55 (SUB1 X) Y Z) (TAK65 (SUB1 Y) Z X) (TAK55 (SUB1 Z) X Y]) (TAK15 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK16 (TAK92 (SUB1 X) Y Z) (TAK76 (SUB1 Y) Z X) (TAK72 (SUB1 Z) X Y]) (TAK16 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK17 (TAK29 (SUB1 X) Y Z) (TAK87 (SUB1 Y) Z X) (TAK89 (SUB1 Z) X Y]) (TAK17 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK18 (TAK66 (SUB1 X) Y Z) (TAK98 (SUB1 Y) Z X) (TAK6 (SUB1 Z) X Y]) (TAK18 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK19 (TAK3 (SUB1 X) Y Z) (TAK9 (SUB1 Y) Z X) (TAK23 (SUB1 Z) X Y]) (TAK19 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK20 (TAK40 (SUB1 X) Y Z) (TAK20 (SUB1 Y) Z X) (TAK40 (SUB1 Z) X Y]) (TAK20 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK21 (TAK77 (SUB1 X) Y Z) (TAK31 (SUB1 Y) Z X) (TAK57 (SUB1 Z) X Y]) (TAK21 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK22 (TAK14 (SUB1 X) Y Z) (TAK42 (SUB1 Y) Z X) (TAK74 (SUB1 Z) X Y]) (TAK22 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK23 (TAK51 (SUB1 X) Y Z) (TAK53 (SUB1 Y) Z X) (TAK91 (SUB1 Z) X Y]) (TAK23 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK24 (TAK88 (SUB1 X) Y Z) (TAK64 (SUB1 Y) Z X) (TAK8 (SUB1 Z) X Y]) (TAK24 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK25 (TAK25 (SUB1 X) Y Z) (TAK75 (SUB1 Y) Z X) (TAK25 (SUB1 Z) X Y]) (TAK25 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK26 (TAK62 (SUB1 X) Y Z) (TAK86 (SUB1 Y) Z X) (TAK42 (SUB1 Z) X Y]) (TAK26 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK27 (TAK99 (SUB1 X) Y Z) (TAK97 (SUB1 Y) Z X) (TAK59 (SUB1 Z) X Y]) (TAK27 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK28 (TAK36 (SUB1 X) Y Z) (TAK8 (SUB1 Y) Z X) (TAK76 (SUB1 Z) X Y]) (TAK28 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK29 (TAK73 (SUB1 X) Y Z) (TAK19 (SUB1 Y) Z X) (TAK93 (SUB1 Z) X Y]) (TAK29 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK30 (TAK10 (SUB1 X) Y Z) (TAK30 (SUB1 Y) Z X) (TAK10 (SUB1 Z) X Y]) (TAK30 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK31 (TAK47 (SUB1 X) Y Z) (TAK41 (SUB1 Y) Z X) (TAK27 (SUB1 Z) X Y]) (TAK31 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK32 (TAK84 (SUB1 X) Y Z) (TAK52 (SUB1 Y) Z X) (TAK44 (SUB1 Z) X Y]) (TAK32 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK33 (TAK21 (SUB1 X) Y Z) (TAK63 (SUB1 Y) Z X) (TAK61 (SUB1 Z) X Y]) (TAK33 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK34 (TAK58 (SUB1 X) Y Z) (TAK74 (SUB1 Y) Z X) (TAK78 (SUB1 Z) X Y]) (TAK34 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK35 (TAK95 (SUB1 X) Y Z) (TAK85 (SUB1 Y) Z X) (TAK95 (SUB1 Z) X Y]) (TAK35 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK36 (TAK32 (SUB1 X) Y Z) (TAK96 (SUB1 Y) Z X) (TAK12 (SUB1 Z) X Y]) (TAK36 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK37 (TAK69 (SUB1 X) Y Z) (TAK7 (SUB1 Y) Z X) (TAK29 (SUB1 Z) X Y]) (TAK37 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK38 (TAK6 (SUB1 X) Y Z) (TAK18 (SUB1 Y) Z X) (TAK46 (SUB1 Z) X Y]) (TAK38 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK39 (TAK43 (SUB1 X) Y Z) (TAK29 (SUB1 Y) Z X) (TAK63 (SUB1 Z) X Y]) (TAK39 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK40 (TAK80 (SUB1 X) Y Z) (TAK40 (SUB1 Y) Z X) (TAK80 (SUB1 Z) X Y]) (TAK40 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK41 (TAK17 (SUB1 X) Y Z) (TAK51 (SUB1 Y) Z X) (TAK97 (SUB1 Z) X Y]) (TAK41 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK42 (TAK54 (SUB1 X) Y Z) (TAK62 (SUB1 Y) Z X) (TAK14 (SUB1 Z) X Y]) (TAK42 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK43 (TAK91 (SUB1 X) Y Z) (TAK73 (SUB1 Y) Z X) (TAK31 (SUB1 Z) X Y]) (TAK43 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK44 (TAK28 (SUB1 X) Y Z) (TAK84 (SUB1 Y) Z X) (TAK48 (SUB1 Z) X Y]) (TAK44 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK45 (TAK65 (SUB1 X) Y Z) (TAK95 (SUB1 Y) Z X) (TAK65 (SUB1 Z) X Y]) (TAK45 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK46 (TAK2 (SUB1 X) Y Z) (TAK6 (SUB1 Y) Z X) (TAK82 (SUB1 Z) X Y]) (TAK46 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK47 (TAK39 (SUB1 X) Y Z) (TAK17 (SUB1 Y) Z X) (TAK99 (SUB1 Z) X Y]) (TAK47 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK48 (TAK76 (SUB1 X) Y Z) (TAK28 (SUB1 Y) Z X) (TAK16 (SUB1 Z) X Y]) (TAK48 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK49 (TAK13 (SUB1 X) Y Z) (TAK39 (SUB1 Y) Z X) (TAK33 (SUB1 Z) X Y]) (TAK49 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK50 (TAK50 (SUB1 X) Y Z) (TAK50 (SUB1 Y) Z X) (TAK50 (SUB1 Z) X Y]) (TAK50 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK51 (TAK87 (SUB1 X) Y Z) (TAK61 (SUB1 Y) Z X) (TAK67 (SUB1 Z) X Y]) (TAK51 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK52 (TAK24 (SUB1 X) Y Z) (TAK72 (SUB1 Y) Z X) (TAK84 (SUB1 Z) X Y]) (TAK52 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK53 (TAK61 (SUB1 X) Y Z) (TAK83 (SUB1 Y) Z X) (TAK1 (SUB1 Z) X Y]) (TAK53 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK54 (TAK98 (SUB1 X) Y Z) (TAK94 (SUB1 Y) Z X) (TAK18 (SUB1 Z) X Y]) (TAK54 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK55 (TAK35 (SUB1 X) Y Z) (TAK5 (SUB1 Y) Z X) (TAK35 (SUB1 Z) X Y]) (TAK55 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK56 (TAK72 (SUB1 X) Y Z) (TAK16 (SUB1 Y) Z X) (TAK52 (SUB1 Z) X Y]) (TAK56 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK57 (TAK9 (SUB1 X) Y Z) (TAK27 (SUB1 Y) Z X) (TAK69 (SUB1 Z) X Y]) (TAK57 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK58 (TAK46 (SUB1 X) Y Z) (TAK38 (SUB1 Y) Z X) (TAK86 (SUB1 Z) X Y]) (TAK58 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK59 (TAK83 (SUB1 X) Y Z) (TAK49 (SUB1 Y) Z X) (TAK3 (SUB1 Z) X Y]) (TAK59 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK60 (TAK20 (SUB1 X) Y Z) (TAK60 (SUB1 Y) Z X) (TAK20 (SUB1 Z) X Y]) (TAK60 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK61 (TAK57 (SUB1 X) Y Z) (TAK71 (SUB1 Y) Z X) (TAK37 (SUB1 Z) X Y]) (TAK61 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK62 (TAK94 (SUB1 X) Y Z) (TAK82 (SUB1 Y) Z X) (TAK54 (SUB1 Z) X Y]) (TAK62 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK63 (TAK31 (SUB1 X) Y Z) (TAK93 (SUB1 Y) Z X) (TAK71 (SUB1 Z) X Y]) (TAK63 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK64 (TAK68 (SUB1 X) Y Z) (TAK4 (SUB1 Y) Z X) (TAK88 (SUB1 Z) X Y]) (TAK64 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK65 (TAK5 (SUB1 X) Y Z) (TAK15 (SUB1 Y) Z X) (TAK5 (SUB1 Z) X Y]) (TAK65 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK66 (TAK42 (SUB1 X) Y Z) (TAK26 (SUB1 Y) Z X) (TAK22 (SUB1 Z) X Y]) (TAK66 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK67 (TAK79 (SUB1 X) Y Z) (TAK37 (SUB1 Y) Z X) (TAK39 (SUB1 Z) X Y]) (TAK67 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK68 (TAK16 (SUB1 X) Y Z) (TAK48 (SUB1 Y) Z X) (TAK56 (SUB1 Z) X Y]) (TAK68 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK69 (TAK53 (SUB1 X) Y Z) (TAK59 (SUB1 Y) Z X) (TAK73 (SUB1 Z) X Y]) (TAK69 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK70 (TAK90 (SUB1 X) Y Z) (TAK70 (SUB1 Y) Z X) (TAK90 (SUB1 Z) X Y]) (TAK70 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK71 (TAK27 (SUB1 X) Y Z) (TAK81 (SUB1 Y) Z X) (TAK7 (SUB1 Z) X Y]) (TAK71 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK72 (TAK64 (SUB1 X) Y Z) (TAK92 (SUB1 Y) Z X) (TAK24 (SUB1 Z) X Y]) (TAK72 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK73 (TAK1 (SUB1 X) Y Z) (TAK3 (SUB1 Y) Z X) (TAK41 (SUB1 Z) X Y]) (TAK73 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK74 (TAK38 (SUB1 X) Y Z) (TAK14 (SUB1 Y) Z X) (TAK58 (SUB1 Z) X Y]) (TAK74 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK75 (TAK75 (SUB1 X) Y Z) (TAK25 (SUB1 Y) Z X) (TAK75 (SUB1 Z) X Y]) (TAK75 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK76 (TAK12 (SUB1 X) Y Z) (TAK36 (SUB1 Y) Z X) (TAK92 (SUB1 Z) X Y]) (TAK76 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK77 (TAK49 (SUB1 X) Y Z) (TAK47 (SUB1 Y) Z X) (TAK9 (SUB1 Z) X Y]) (TAK77 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK78 (TAK86 (SUB1 X) Y Z) (TAK58 (SUB1 Y) Z X) (TAK26 (SUB1 Z) X Y]) (TAK78 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK79 (TAK23 (SUB1 X) Y Z) (TAK69 (SUB1 Y) Z X) (TAK43 (SUB1 Z) X Y]) (TAK79 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK80 (TAK60 (SUB1 X) Y Z) (TAK80 (SUB1 Y) Z X) (TAK60 (SUB1 Z) X Y]) (TAK80 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK81 (TAK97 (SUB1 X) Y Z) (TAK91 (SUB1 Y) Z X) (TAK77 (SUB1 Z) X Y]) (TAK81 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK82 (TAK34 (SUB1 X) Y Z) (TAK2 (SUB1 Y) Z X) (TAK94 (SUB1 Z) X Y]) (TAK82 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK83 (TAK71 (SUB1 X) Y Z) (TAK13 (SUB1 Y) Z X) (TAK11 (SUB1 Z) X Y]) (TAK83 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK84 (TAK8 (SUB1 X) Y Z) (TAK24 (SUB1 Y) Z X) (TAK28 (SUB1 Z) X Y]) (TAK84 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK85 (TAK45 (SUB1 X) Y Z) (TAK35 (SUB1 Y) Z X) (TAK45 (SUB1 Z) X Y]) (TAK85 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK86 (TAK82 (SUB1 X) Y Z) (TAK46 (SUB1 Y) Z X) (TAK62 (SUB1 Z) X Y]) (TAK86 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK87 (TAK19 (SUB1 X) Y Z) (TAK57 (SUB1 Y) Z X) (TAK79 (SUB1 Z) X Y]) (TAK87 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK88 (TAK56 (SUB1 X) Y Z) (TAK68 (SUB1 Y) Z X) (TAK96 (SUB1 Z) X Y]) (TAK88 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK89 (TAK93 (SUB1 X) Y Z) (TAK79 (SUB1 Y) Z X) (TAK13 (SUB1 Z) X Y]) (TAK89 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK90 (TAK30 (SUB1 X) Y Z) (TAK90 (SUB1 Y) Z X) (TAK30 (SUB1 Z) X Y]) (TAK90 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK91 (TAK67 (SUB1 X) Y Z) (TAK1 (SUB1 Y) Z X) (TAK47 (SUB1 Z) X Y]) (TAK91 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK92 (TAK4 (SUB1 X) Y Z) (TAK12 (SUB1 Y) Z X) (TAK64 (SUB1 Z) X Y]) (TAK92 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK93 (TAK41 (SUB1 X) Y Z) (TAK23 (SUB1 Y) Z X) (TAK81 (SUB1 Z) X Y]) (TAK93 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK94 (TAK78 (SUB1 X) Y Z) (TAK34 (SUB1 Y) Z X) (TAK98 (SUB1 Z) X Y]) (TAK94 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK95 (TAK15 (SUB1 X) Y Z) (TAK45 (SUB1 Y) Z X) (TAK15 (SUB1 Z) X Y]) (TAK95 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK96 (TAK52 (SUB1 X) Y Z) (TAK56 (SUB1 Y) Z X) (TAK32 (SUB1 Z) X Y]) (TAK96 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK97 (TAK89 (SUB1 X) Y Z) (TAK67 (SUB1 Y) Z X) (TAK49 (SUB1 Z) X Y]) (TAK97 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK98 (TAK26 (SUB1 X) Y Z) (TAK78 (SUB1 Y) Z X) (TAK66 (SUB1 Z) X Y]) (TAK98 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK99 (TAK63 (SUB1 X) Y Z) (TAK89 (SUB1 Y) Z X) (TAK83 (SUB1 Z) X Y]) (TAK99 [LAMBDA (X Y Z) (COND ((NOT (ILESSP Y X)) Z) (T (TAK0 (TAK0 (SUB1 X) Y Z) (TAK0 (SUB1 Y) Z X) (TAK0 (SUB1 Z) X Y]) ) (* * Call (TAKR 18 12 6)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (DECLARE: DONTCOPY (FILEMAP (NIL (984 20758 (TAKR 994 . 1041) (TAK0 1043 . 1245) (TAK1 1247 . 1454) (TAK2 1456 . 1658) ( TAK3 1660 . 1862) (TAK4 1864 . 2066) (TAK5 2068 . 2268) (TAK6 2270 . 2472) (TAK7 2474 . 2676) (TAK8 2678 . 2880) (TAK9 2882 . 3076) (TAK10 3078 . 3271) (TAK11 3273 . 3466) (TAK12 3468 . 3663) (TAK13 3665 . 3860) (TAK14 3862 . 4057) (TAK15 4059 . 4254) (TAK16 4256 . 4451) (TAK17 4453 . 4646) (TAK18 4648 . 4839) (TAK19 4841 . 5036) (TAK20 5038 . 5233) (TAK21 5235 . 5430) (TAK22 5432 . 5627) (TAK23 5629 . 5822) (TAK24 5824 . 6019) (TAK25 6021 . 6216) (TAK26 6218 . 6413) (TAK27 6415 . 6608) (TAK28 6610 . 6805) (TAK29 6807 . 7002) (TAK30 7004 . 7199) (TAK31 7201 . 7396) (TAK32 7398 . 7593) (TAK33 7595 . 7790) (TAK34 7792 . 7987) (TAK35 7989 . 8184) (TAK36 8186 . 8379) (TAK37 8381 . 8574) (TAK38 8576 . 8771) (TAK39 8773 . 8968) (TAK40 8970 . 9165) (TAK41 9167 . 9362) (TAK42 9364 . 9559) (TAK43 9561 . 9756) (TAK44 9758 . 9953) (TAK45 9955 . 10146) (TAK46 10148 . 10343) (TAK47 10345 . 10540) ( TAK48 10542 . 10737) (TAK49 10739 . 10934) (TAK50 10936 . 11131) (TAK51 11133 . 11328) (TAK52 11330 . 11523) (TAK53 11525 . 11720) (TAK54 11722 . 11915) (TAK55 11917 . 12112) (TAK56 12114 . 12307) (TAK57 12309 . 12504) (TAK58 12506 . 12699) (TAK59 12701 . 12896) (TAK60 12898 . 13093) (TAK61 13095 . 13290) (TAK62 13292 . 13487) (TAK63 13489 . 13682) (TAK64 13684 . 13875) (TAK65 13877 . 14072) (TAK66 14074 . 14269) (TAK67 14271 . 14466) (TAK68 14468 . 14663) (TAK69 14665 . 14860) (TAK70 14862 . 15055) ( TAK71 15057 . 15252) (TAK72 15254 . 15445) (TAK73 15447 . 15642) (TAK74 15644 . 15839) (TAK75 15841 . 16036) (TAK76 16038 . 16231) (TAK77 16233 . 16428) (TAK78 16430 . 16625) (TAK79 16627 . 16822) (TAK80 16824 . 17019) (TAK81 17021 . 17214) (TAK82 17216 . 17411) (TAK83 17413 . 17606) (TAK84 17608 . 17803) (TAK85 17805 . 18000) (TAK86 18002 . 18197) (TAK87 18199 . 18394) (TAK88 18396 . 18591) (TAK89 18593 . 18788) (TAK90 18790 . 18983) (TAK91 18985 . 19178) (TAK92 19180 . 19375) (TAK93 19377 . 19572) ( TAK94 19574 . 19769) (TAK95 19771 . 19966) (TAK96 19968 . 20163) (TAK97 20165 . 20360) (TAK98 20362 . 20557) (TAK99 20559 . 20756))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/TESTPATTERN b/internal/gabriel/interlisp/TESTPATTERN deleted file mode 100644 index 79b3239e..00000000 --- a/internal/gabriel/interlisp/TESTPATTERN +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED " 6-Nov-85 22:14:20" {QV}BENCHMARKS>TESTPATTERN.;1 1946 changes to: (VARS TESTPATTERNCOMS) (FNS AUX-MAKE-TESTPATTERN MAKE-TESTPATTERN CREATE-TESTPATTERN)) (PRETTYCOMPRINT TESTPATTERNCOMS) (RPAQQ TESTPATTERNCOMS ((FNS AUX-MAKE-TESTPATTERN CREATE-TESTPATTERN MAKE-TESTPATTERN) (VARS TESTATOMS) (* * MAKE-TESTPATTERN will setup the testpattern necessary for TPRINT and FPRINT) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) (DEFINEQ (AUX-MAKE-TESTPATTERN [LAMBDA (M N ATOMS) (* jop: " 6-Nov-85 21:57") (COND ((ZEROP M) (pop ATOMS)) (T (bind A for I from N by -2 until (ILESSP I 1) do (push A (pop ATOMS)) (push A (AUX-MAKE-TESTPATTERN (SUB1 M) N ATOMS)) finally (RETURN A]) (CREATE-TESTPATTERN [LAMBDA NIL (DECLARE (GLOBALVARS TESTPATTERN) (SPECVARS TESTATOMS)) (* jop: " 6-Nov-85 22:11") (SETQ TESTPATTERN (MAKE-TESTPATTERN 6 6 TESTATOMS]) (MAKE-TESTPATTERN [LAMBDA (M N ATOMS) (* jop: " 6-Nov-85 21:57") (PROG ((ATOMS (SUBST NIL NIL ATOMS))) (bind (A _ ATOMS) until (NULL (CDR A)) do (pop A) finally (RPLACD A ATOMS) ) (RETURN (AUX-MAKE-TESTPATTERN M N ATOMS]) ) (RPAQQ TESTATOMS (ABCDEF12 CDEFGH23 EFGHIJ34 GHIJKL45 IJKLMN56 KLMNOP67 MNOPQR78 OPRST89 QRSTUV90 STUVWX01 UVWXYZ12 WXYZAB23 XYZABC34 123456AB 234567BC 345678CD 456789DE 567890EF 678901FG 789012GH 890123HI)) (* * MAKE-TESTPATTERN will setup the testpattern necessary for TPRINT and FPRINT) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (DECLARE: DONTCOPY (FILEMAP (NIL (517 1501 (AUX-MAKE-TESTPATTERN 527 . 923) (CREATE-TESTPATTERN 925 . 1159) ( MAKE-TESTPATTERN 1161 . 1499))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/TPRINT b/internal/gabriel/interlisp/TPRINT deleted file mode 100644 index 96e99b48..00000000 --- a/internal/gabriel/interlisp/TPRINT +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED " 6-Nov-85 22:23:53" {QV}BENCHMARKS>TPRINT.;5 1278 changes to: (FNS INIT-TPRINT TPRINT INIT1-TPRINT TIMIT INIT) (VARS TPRINTCOMS) previous date: "26-Jan-84 00:51:25" {QV}BENCHMARKS>TPRINT.;1) (PRETTYCOMPRINT TPRINTCOMS) (RPAQQ TPRINTCOMS ((FNS INIT-TPRINT TPRINT) (* * Testpattern must exist first. Then call (INIT-TPRINT) and then (TPRINT)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) (DEFINEQ (INIT-TPRINT [LAMBDA NIL (* jop: " 6-Nov-85 22:21") (DECLARE (GLOBALVARS BIGWINDOW)) (SETQ BIGWINDOW (CREATEW (create REGION LEFT _ 150 BOTTOM _ 50 WIDTH _ 800 HEIGHT _ 700))) (DSPSCROLL T BIGWINDOW]) (TPRINT [LAMBDA NIL (* jop: " 6-Nov-85 22:17") (DECLARE (GLOBALVARS TESTPATTERN BIGWINDOW)) (PRINT TESTPATTERN BIGWINDOW]) ) (* * Testpattern must exist first. Then call (INIT-TPRINT) and then (TPRINT)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (PUTPROPS TPRINT COPYRIGHT (NONE)) (DECLARE: DONTCOPY (FILEMAP (NIL (495 1033 (INIT-TPRINT 505 . 830) (TPRINT 832 . 1031))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/TRAVERSE b/internal/gabriel/interlisp/TRAVERSE deleted file mode 100644 index faba31ee..00000000 --- a/internal/gabriel/interlisp/TRAVERSE +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED "19-Nov-85 22:24:40" {QV}BENCHMARKS>TRAVERSE.;7 6905 changes to: (VARS TRAVERSECOMS) (FNS RUN-TRAVERSE INIT-TRAVERSE CREATE-STRUCTURE SNB SEED RANDOM TREMOVE TRAVERSE RANDOM-TRAVERSE SEED-TRAVERSE FIND-ROOT TADD TRAVERS TSELECT) previous date: " 9-Jan-84 17:55:36" {PHYLUM}TRAVERSE.;10) (PRETTYCOMPRINT TRAVERSECOMS) (RPAQQ TRAVERSECOMS ((RECORDS NODE) (FNS INIT-TRAVERSE SNB SEED-TRAVERSE RANDOM-TRAVERSE RUN-TRAVERSE TREMOVE TSELECT TADD CREATE-STRUCTURE FIND-ROOT TRAVERS TRAVERSE) (* * Call (INIT-TRAVERSE) then (RUN-TRAVERSE)) (DECLARE: DONTCOPY DONTEVAL@LOAD DOEVAL@COMPILE (LOCALVARS . T)))) [DECLARE: EVAL@COMPILE (DATATYPE NODE ((PARENTS POINTER) (SONS POINTER) (SN WORD) (ENTRY1 FLAG) (ENTRY2 FLAG) (ENTRY3 FLAG) (ENTRY4 FLAG) (ENTRY5 FLAG) (ENTRY6 FLAG) (MARK FLAG)) SN _(SNB)) ] (/DECLAREDATATYPE (QUOTE NODE) (QUOTE (POINTER POINTER WORD FLAG FLAG FLAG FLAG FLAG FLAG FLAG)) [QUOTE ((NODE 0 POINTER) (NODE 2 POINTER) (NODE 4 (BITS . 15)) (NODE 2 (FLAGBITS . 0)) (NODE 2 (FLAGBITS . 16)) (NODE 2 (FLAGBITS . 32)) (NODE 2 (FLAGBITS . 48)) (NODE 2 (FLAGBITS . 64)) (NODE 2 (FLAGBITS . 80)) (NODE 2 (FLAGBITS . 96] (QUOTE 6)) (DEFINEQ (INIT-TRAVERSE [LAMBDA NIL (* jop: "19-Nov-85 22:14") (DECLARE (GLOBALVARS ROOT SN MARKER)) (SETQ SN 0) (SETQ MARKER NIL) (SEED-TRAVERSE) (SETQ ROOT (CREATE-STRUCTURE 100]) (SNB [LAMBDA NIL (* jop: "19-Nov-85 22:01") (DECLARE (GLOBALVARS SN)) (SETQ SN (ADD1 SN]) (SEED-TRAVERSE [LAMBDA NIL (* jop: "19-Nov-85 22:11") (DECLARE (GLOBALVARS RAND-TRAVERSE)) (SETQ RAND-TRAVERSE 21]) (RANDOM-TRAVERSE [LAMBDA NIL (* jop: "19-Nov-85 22:10") (DECLARE (GLOBALVARS RAND-TRAVERSE)) (SETQ RAND-TRAVERSE (IREMAINDER (ITIMES RAND-TRAVERSE 17) 251]) (RUN-TRAVERSE [LAMBDA NIL (* jop: "19-Nov-85 21:59") (DECLARE (GLOBALVARS ROOT)) (for I from 1 to 50 do (TRAVERSE ROOT) (TRAVERSE ROOT) (TRAVERSE ROOT) (TRAVERSE ROOT) (TRAVERSE ROOT]) (TREMOVE [LAMBDA (N Q) (* jop: "19-Nov-85 22:04") (COND ((EQ (CDR (CAR Q)) (CAR Q)) (PROG2 NIL (CAAR Q) (RPLACA Q NIL))) [(ZEROP N) (PROG2 NIL (CAAR Q) (bind (P _(CAR Q)) until (EQ (CDR P) (CAR Q)) do (pop P) finally (RETURN (RPLACA Q (RPLACD P (CDR (CAR Q] (T (for N (Q _(CAR Q)) (P _(CDR (CAR Q))) from N by -1 until (ZEROP N) do (pop Q) (pop P) finally (RETURN (PROG2 NIL (CAR Q) (RPLACD Q P]) (TSELECT [LAMBDA (N Q) (* JonL " 5-JUL-83 13:37") (for N (Q _(CAR Q)) from N by -1 until (ZEROP N) do (pop Q) finally (RETURN (CAR Q]) (TADD [LAMBDA (A Q) (* JonL " 5-JUL-83 15:50") (COND [(NULL Q) (PROG ((X (LIST A))) (RPLACD X X) (RETURN (LIST X] [(NULL (CAR Q)) (PROG ((X (LIST A))) (RPLACD X X) (RETURN (RPLACA Q X] (T (RPLACA Q (RPLACD (CAR Q) (CONS A (CDR (CAR Q]) (CREATE-STRUCTURE [LAMBDA (N) (* jop: "19-Nov-85 22:09") (PROG [(A (LIST (create NODE] (RETURN (for M (P _ A) from (SUB1 N) by -1 until (ZEROP M) do (push A (create NODE)) finally (PROGN (SETQ A (LIST (RPLACD P A))) (RETURN (bind (UNUSED _ A) (USED _(TADD (TREMOVE 0 A) NIL)) X Y until (NULL (CAR UNUSED)) do (SETQ X (TREMOVE (IMOD ( RANDOM-TRAVERSE) N) UNUSED)) (SETQ Y (TSELECT (IMOD ( RANDOM-TRAVERSE) N) USED)) (TADD X USED) (push (fetch SONS of Y) X) (push (fetch PARENTS of X) Y) finally (RETURN (FIND-ROOT (TSELECT 0 USED) N]) (FIND-ROOT [LAMBDA (NODE N) (* JonL " 9-Jan-84 17:52") (for old N from N by -1 until (ZEROP N) do [if (NULL (ffetch PARENTS of NODE)) then (RETURN NODE) else (SETQ NODE (CAR (ffetch PARENTS of NODE] finally (RETURN NODE]) (TRAVERS [LAMBDA (NODE MARK) (* JonL " 9-Jan-84 17:53") (DECLARE (SPECVARS COUNT)) (if (EQ (ffetch MARK of NODE) MARK) then NIL else (freplace MARK of NODE with MARK) (add COUNT 1) (freplace ENTRY1 of NODE with (NOT (ffetch ENTRY1 of NODE))) (freplace ENTRY2 of NODE with (NOT (ffetch ENTRY2 of NODE))) (freplace ENTRY3 of NODE with (NOT (ffetch ENTRY3 of NODE))) (freplace ENTRY4 of NODE with (NOT (ffetch ENTRY4 of NODE))) (freplace ENTRY5 of NODE with (NOT (ffetch ENTRY5 of NODE))) (freplace ENTRY6 of NODE with (NOT (ffetch ENTRY6 of NODE))) (for SONS on (ffetch SONS of NODE) do (TRAVERS (CAR SONS) MARK]) (TRAVERSE [LAMBDA (ROOT1) (* jop: "19-Nov-85 22:06") (DECLARE (GLOBALVARS MARKER) (SPECVARS COUNT)) (PROG ((COUNT 0)) (TRAVERS ROOT1 (SETQ MARKER (NOT MARKER))) (RETURN COUNT]) ) (* * Call (INIT-TRAVERSE) then (RUN-TRAVERSE)) (DECLARE: DONTCOPY DONTEVAL@LOAD DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (PUTPROPS TRAVERSE COPYRIGHT (NONE)) (DECLARE: DONTCOPY (FILEMAP (NIL (1358 6689 (INIT-TRAVERSE 1368 . 1645) (SNB 1647 . 1817) (SEED-TRAVERSE 1819 . 2011) ( RANDOM-TRAVERSE 2013 . 2259) (RUN-TRAVERSE 2261 . 2581) (TREMOVE 2583 . 3273) (TSELECT 3275 . 3519) ( TADD 3521 . 3961) (CREATE-STRUCTURE 3963 . 5013) (FIND-ROOT 5015 . 5438) (TRAVERS 5440 . 6394) ( TRAVERSE 6396 . 6687))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/TRAVERSE.LCOM b/internal/gabriel/interlisp/TRAVERSE.LCOM deleted file mode 100644 index 05568c97..00000000 Binary files a/internal/gabriel/interlisp/TRAVERSE.LCOM and /dev/null differ diff --git a/internal/gabriel/interlisp/TRIANG b/internal/gabriel/interlisp/TRIANG deleted file mode 100644 index 6d60acee..00000000 --- a/internal/gabriel/interlisp/TRIANG +++ /dev/null @@ -1 +0,0 @@ -(FILECREATED "12-Nov-85 17:25:04" {QV}BENCHMARKS>TRIANG.;6 3921 changes to: (FNS TRIANG-INIT GOGOGO TEST LAST-POSITION TRY TRIANG-TEST) (VARS TRIANGCOMS) previous date: "22-May-84 20:52:42" {PHYLUM}TRIANG.;6) (* Copyright (c) 1984, 1985 by Xerox Corporation. All rights reserved.) (PRETTYCOMPRINT TRIANGCOMS) (RPAQQ TRIANGCOMS ((FNS GOGOGO LAST-POSITION TRY TRIANG-INIT TRIANG-TEST) (* * First call (TRIANG-INIT) then (GOGOGO 22)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) (DEFINEQ (GOGOGO [LAMBDA (I) (* jop: "11-Nov-85 16:01") (DECLARE (SPECVARS ANSWER FINAL)) (PROG ((ANSWER NIL) (FINAL NIL)) (RETURN (TRY I 1]) (LAST-POSITION [LAMBDA NIL (* jop: "11-Nov-85 16:02") (DECLARE (GLOBALVARS BOARD)) (OR (find I to 16 suchthat (EQ 1 (8AREF BOARD I))) 0]) (TRY [LAMBDA (I DEPTH) (* jop: "11-Nov-85 16:08") (DECLARE (SPECVARS ANSWER FINAL) (GLOBALVARS BOARD SEQUENCE A-TRIANGLE B-TRIANGLE C-TRIANGLE)) (COND ((EQ DEPTH 14) [PROG ((LP (LAST-POSITION))) (COND ((MEMBER LP FINAL)) (T (push FINAL LP] [push ANSWER (CDR (for I from 0 to (SUB1 (ARRAY-TOTAL-SIZE SEQUENCE)) collect (8AREF SEQUENCE I] T) ([AND (EQ 1 (8AREF BOARD (8AREF A-TRIANGLE I))) (EQ 1 (8AREF BOARD (8AREF B-TRIANGLE I))) (EQ 0 (8AREF BOARD (8AREF C-TRIANGLE I] (8ASET 0 BOARD (8AREF A-TRIANGLE I)) (8ASET 0 BOARD (8AREF B-TRIANGLE I)) (8ASET 1 BOARD (8AREF C-TRIANGLE I)) (8ASET I SEQUENCE DEPTH) (bind (DEPTH _(ADD1 DEPTH)) for J from 0 to 36 until (TRY J DEPTH) do NIL) (8ASET 1 BOARD (8AREF A-TRIANGLE I)) (8ASET 1 BOARD (8AREF B-TRIANGLE I)) (8ASET 0 BOARD (8AREF C-TRIANGLE I)) NIL]) (TRIANG-INIT [LAMBDA NIL (* jop: "11-Nov-85 16:07") (DECLARE (GLOBALVARS BOARD SEQUENCE A-TRIANGLE B-TRIANGLE C-TRIANGLE)) (SETQ BOARD (MAKE-ARRAY 16 (QUOTE :ELEMENT-TYPE) (QUOTE (UNSIGNED-BYTE 8)) (QUOTE :INITIAL-ELEMENT) 1)) (ASET 0 BOARD 5) (SETQ SEQUENCE (MAKE-ARRAY 14 (QUOTE :ELEMENT-TYPE) (QUOTE (UNSIGNED-BYTE 8)) (QUOTE :INITIAL-ELEMENT) 255)) [SETQ A-TRIANGLE (MAKE-ARRAY 37 (QUOTE :ELEMENT-TYPE) (QUOTE (UNSIGNED-BYTE 8)) (QUOTE :INITIAL-CONTENTS) (QUOTE (1 2 4 3 5 6 1 3 6 2 5 4 11 12 13 7 8 4 4 7 11 8 12 13 6 10 15 9 14 13 13 14 15 9 10 6 0] [SETQ B-TRIANGLE (MAKE-ARRAY 37 (QUOTE :ELEMENT-TYPE) (QUOTE (UNSIGNED-BYTE 8)) (QUOTE :INITIAL-CONTENTS) (QUOTE (2 4 7 5 8 9 3 6 10 5 9 8 12 13 14 8 9 5 2 4 7 5 8 9 3 6 10 5 9 8 12 13 14 8 9 5 0] (SETQ C-TRIANGLE (MAKE-ARRAY 37 (QUOTE :ELEMENT-TYPE) (QUOTE (UNSIGNED-BYTE 8)) (QUOTE :INITIAL-CONTENTS) (QUOTE (4 7 11 8 12 13 6 10 15 9 14 13 13 14 15 9 10 6 1 2 4 3 5 6 1 3 6 2 5 4 11 12 13 7 8 4 0]) (TRIANG-TEST [LAMBDA NIL (* jop: "11-Nov-85 16:01") (DECLARE (SPECVARS ANSWER FINAL)) (TRIANG-INIT) (PROG ((ANSWER NIL) (FINAL NIL)) (TRY 22 1) (RETURN (EQ 775 (LENGTH ANSWER]) ) (* * First call (TRIANG-INIT) then (GOGOGO 22)) (DECLARE: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (DECLARE: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T) ) ) (PUTPROPS TRIANG COPYRIGHT ("Xerox Corporation" 1984 1985)) (DECLARE: DONTCOPY (FILEMAP (NIL (574 3681 (GOGOGO 584 . 812) (LAST-POSITION 814 . 1047) (TRY 1049 . 2097) (TRIANG-INIT 2099 . 3384) (TRIANG-TEST 3386 . 3679))))) STOP \ No newline at end of file diff --git a/internal/gabriel/interlisp/benchmarkmemo.tedit b/internal/gabriel/interlisp/benchmarkmemo.tedit deleted file mode 100644 index 3552ce68..00000000 Binary files a/internal/gabriel/interlisp/benchmarkmemo.tedit and /dev/null differ diff --git a/internal/gabriel/interlisp/dderiv.lcom b/internal/gabriel/interlisp/dderiv.lcom deleted file mode 100644 index 96a4dc4b..00000000 Binary files a/internal/gabriel/interlisp/dderiv.lcom and /dev/null differ diff --git a/internal/gabriel/tools/BENCH-1 b/internal/gabriel/tools/BENCH-1 deleted file mode 100644 index 6a1073d2..00000000 --- a/internal/gabriel/tools/BENCH-1 +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jun-88 11:05:47" "{ERIS}GABRIEL>TOOLS>BENCH-1.;1" 9194 changes to%: (VARS BENCH-1COMS) previous date%: "22-Apr-88 20:08:12" {ERIS}INIT.;23) (PRETTYCOMPRINT BENCH-1COMS) (RPAQQ BENCH-1COMS [ (* ;; "This is the INIT file that runs part 1 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started.") (* ;; "This INIT file runs the TAK, IO, and Arithmetic benchmark sets.") (FNS MM PPR JDSINIT) [VARS (SYSOUTGAG T) (PROMPT#FLG T) (CLEANUPOPTIONS '(RC ST)) (**COMMENT**FLG " (* --) ") (BREAKDELIMITER ", ") (GRAYSHADE 21930) (WINDOWBACKGROUNDSHADE 14316) (RECOMPILDEFAULT 'EXPRS) (DEFAULTPRINTINGHOST '(TSUNAMI%: TREMOR%: YODA] [COMS (* ; "To defeat the IDLE program") (VARS (IDLE.PROFILE '(TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (IDLE.TIMEOUT NIL) (IDLE.DEFAULTMODE 'UNLOCKED] (ADDVARS (DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (DISPLAYFONTEXTENSIONS AC) (PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>")) (COMS (* ; "Load the benchmark files") (P (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Benchmarks>GABRIEL-TAK.dfasl") (LOAD "{dsk}Gabriel>Benchmarks>ARITH-BENCHMARKS.dfasl") (LOAD "{dsk}Gabriel>Benchmarks>IO-BENCHMARKS.LCOM"))) (P (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL")) (P (GABRIEL::RUN-BENCHMARKS GABRIEL::*TAK-TIMERS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-TAK.Results) (GABRIEL::RUN-BENCHMARKS GABRIEL::*MAIKO-IO-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-IO.Results) (GABRIEL::RUN-BENCHMARKS *ARITH-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-ARITH.Results)) (P (LOGOUT T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPR) (NLAML) (LAMA]) (* ;; "This is the INIT file that runs part 1 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started." ) (* ;; "This INIT file runs the TAK, IO, and Arithmetic benchmark sets.") (DEFINEQ (MM [LAMBDA (X) (* ; "Edited 21-Jul-87 18:04 by jds") (COND ((LISTP X) (for V in X collect (FTIMES 60.0 V))) (T (FTIMES 60.0 X]) (PPR [NLAMBDA X (* rrb " 9-JUL-81 15:12") (RESETFORM (OUTPUT T) (MAPC (OR (LISTP X) (LIST X)) (FUNCTION (LAMBDA (R) [PRINTDEF (OR (APPEND (RECLOOK R) (FIELDLOOK R)) (CONS R '(not found] (TERPRI T]) (JDSINIT [LAMBDA NIL (* ; "Edited 17-Jan-88 16:30 by jds") (* ;;; "Machine dependent initialization stuff") (PROG ((MACHINE (MACHINETYPE))) (SETQ LAFITEDISPLAYREGION (create REGION LEFT _ 605 BOTTOM _ 8 HEIGHT _ 300 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITEEDITORREGION (create REGION LEFT _ 605 BOTTOM _ 313 HEIGHT _ 200 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH 200) YCOORD _ (IDIFFERENCE SCREENHEIGHT 30))) (CROCK (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 835) BOTTOM _ (IDIFFERENCE SCREENHEIGHT 80) WIDTH _ 85 HEIGHT _ 72)) (MOVEW PROMPTWINDOW (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 750) WIDTH _ 550 HEIGHT _ 89 BOTTOM _ (IDIFFERENCE SCREENHEIGHT 89))) (AND LOGOW (CLOSEW LOGOW)) (SELECTQ MACHINE (DOVE (* ;; "Daybreak. Set up special key actions for typing convenience.") [KEYACTION 'KEYPAD9 '((57 188 NOLOCKSHIFT) . IGNORE] (* ; "1/4") [KEYACTION 'KEYPAD6 '((174 189 NOLOCKSHIFT) . IGNORE] (* ; "1/2") [KEYACTION 'KEYPAD3 '((51 190 NOLOCKSHIFT) . IGNORE] (* ; "3/4") ) (DORADO (* ;; "Dorado. Set up a meta key and some TEdit commands.") (TTYINMETA T) (TEDIT.SETFUNCTION (CHARCODE %##F) '\TEDIT.FIND) (TEDIT.SETFUNCTION (CHARCODE %##f) '\TEDIT.FIND) (TEDIT.SETSYNTAX 27 'REDO) (TEDIT.SETSYNTAX (CHARCODE %##U) 'UNDO) (TEDIT.SETSYNTAX (CHARCODE %##u) 'UNDO) (FILESLOAD TEDITDORADOKEYS)) (DANDELION) (DOLPHIN) (SHOULDNT]) ) (RPAQQ SYSOUTGAG T) (RPAQQ PROMPT#FLG T) (RPAQQ CLEANUPOPTIONS (RC ST)) (RPAQ **COMMENT**FLG " (* --) ") (RPAQ BREAKDELIMITER ", ") (RPAQQ GRAYSHADE 21930) (RPAQQ WINDOWBACKGROUNDSHADE 14316) (RPAQQ RECOMPILDEFAULT EXPRS) (RPAQQ DEFAULTPRINTINGHOST (TSUNAMI%: TREMOR%: YODA)) (* ; "To defeat the IDLE program") (RPAQQ IDLE.PROFILE (TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (RPAQQ IDLE.TIMEOUT NIL) (RPAQQ IDLE.DEFAULTMODE UNLOCKED) (ADDTOVAR DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (ADDTOVAR DISPLAYFONTEXTENSIONS AC) (ADDTOVAR PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (* ; "Load the benchmark files") (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Benchmarks>GABRIEL-TAK.dfasl") (LOAD "{dsk}Gabriel>Benchmarks>ARITH-BENCHMARKS.dfasl") (LOAD "{dsk}Gabriel>Benchmarks>IO-BENCHMARKS.LCOM") (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL") (GABRIEL::RUN-BENCHMARKS GABRIEL::*TAK-TIMERS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-TAK.Results) (GABRIEL::RUN-BENCHMARKS GABRIEL::*MAIKO-IO-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-IO.Results) (GABRIEL::RUN-BENCHMARKS *ARITH-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-ARITH.Results) (LOGOUT T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA PPR) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (3822 7377 (MM 3832 . 4056) (PPR 4058 . 4517) (JDSINIT 4519 . 7375))))) STOP \ No newline at end of file diff --git a/internal/gabriel/tools/BENCH-1.~1~ b/internal/gabriel/tools/BENCH-1.~1~ deleted file mode 100644 index cf73c991..00000000 --- a/internal/gabriel/tools/BENCH-1.~1~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jun-88 11:05:47" "{ERIS}GABRIEL>TOOLS>BENCH-1.;1" 9194 changes to%: (VARS BENCH-1COMS) previous date%: "22-Apr-88 20:08:12" {ERIS}INIT.;23) (PRETTYCOMPRINT BENCH-1COMS) (RPAQQ BENCH-1COMS [ (* ;; "This is the INIT file that runs part 1 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started.") (* ;; "This INIT file runs the TAK, IO, and Arithmetic benchmark sets.") (FNS MM PPR JDSINIT) [VARS (SYSOUTGAG T) (PROMPT#FLG T) (CLEANUPOPTIONS '(RC ST)) (**COMMENT**FLG " (* --) ") (BREAKDELIMITER ", ") (GRAYSHADE 21930) (WINDOWBACKGROUNDSHADE 14316) (RECOMPILDEFAULT 'EXPRS) (DEFAULTPRINTINGHOST '(TSUNAMI%: TREMOR%: YODA] [COMS (* ; "To defeat the IDLE program") (VARS (IDLE.PROFILE '(TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (IDLE.TIMEOUT NIL) (IDLE.DEFAULTMODE 'UNLOCKED] (ADDVARS (DIRECTORIES {ERIS}Gabriel>Tools> {ERIS}Gabriel>Benchmarks> {DSK}) (DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>") (DISPLAYFONTEXTENSIONS AC) (PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>")) (COMS (* ; "Load the benchmark files") (P (LOAD "{Eris}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{Eris}Gabriel>GABRIEL-TAK.dfasl") (LOAD "{Eris}Gabriel>Tools>ARITH-BENCHMARKS.dfasl") (LOAD "{Eris}Gabriel>Tools>IO-BENCHMARKS.LCOM"))) (P (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL")) (P (GABRIEL::RUN-BENCHMARKS GABRIEL::*TAK-TIMERS* '{Eris}Gabriel>Results>Maiko>SUN-PAV-TAK.Results) (GABRIEL::RUN-BENCHMARKS GABRIEL::*MAIKO-IO-BENCHMARKS* '{Eris}Gabriel>Results>Maiko>SUN-IO.Results) (GABRIEL::RUN-BENCHMARKS *ARITH-BENCHMARKS* '{Eris}Gabriel>Results>Maiko>SUN-PAV-ARITH.Results)) (P (LOGOUT T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPR) (NLAML) (LAMA]) (* ;; "This is the INIT file that runs part 1 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started." ) (* ;; "This INIT file runs the TAK, IO, and Arithmetic benchmark sets.") (DEFINEQ (MM [LAMBDA (X) (* ; "Edited 21-Jul-87 18:04 by jds") (COND ((LISTP X) (for V in X collect (FTIMES 60.0 V))) (T (FTIMES 60.0 X]) (PPR [NLAMBDA X (* rrb " 9-JUL-81 15:12") (RESETFORM (OUTPUT T) (MAPC (OR (LISTP X) (LIST X)) (FUNCTION (LAMBDA (R) [PRINTDEF (OR (APPEND (RECLOOK R) (FIELDLOOK R)) (CONS R '(not found] (TERPRI T]) (JDSINIT [LAMBDA NIL (* ; "Edited 17-Jan-88 16:30 by jds") (* ;;; "Machine dependent initialization stuff") (PROG ((MACHINE (MACHINETYPE))) (SETQ LAFITEDISPLAYREGION (create REGION LEFT _ 605 BOTTOM _ 8 HEIGHT _ 300 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITEEDITORREGION (create REGION LEFT _ 605 BOTTOM _ 313 HEIGHT _ 200 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH 200) YCOORD _ (IDIFFERENCE SCREENHEIGHT 30))) (CROCK (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 835) BOTTOM _ (IDIFFERENCE SCREENHEIGHT 80) WIDTH _ 85 HEIGHT _ 72)) (MOVEW PROMPTWINDOW (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 750) WIDTH _ 550 HEIGHT _ 89 BOTTOM _ (IDIFFERENCE SCREENHEIGHT 89))) (AND LOGOW (CLOSEW LOGOW)) (SELECTQ MACHINE (DOVE (* ;; "Daybreak. Set up special key actions for typing convenience.") [KEYACTION 'KEYPAD9 '((57 188 NOLOCKSHIFT) . IGNORE] (* ; "1/4") [KEYACTION 'KEYPAD6 '((174 189 NOLOCKSHIFT) . IGNORE] (* ; "1/2") [KEYACTION 'KEYPAD3 '((51 190 NOLOCKSHIFT) . IGNORE] (* ; "3/4") ) (DORADO (* ;; "Dorado. Set up a meta key and some TEdit commands.") (TTYINMETA T) (TEDIT.SETFUNCTION (CHARCODE %##F) '\TEDIT.FIND) (TEDIT.SETFUNCTION (CHARCODE %##f) '\TEDIT.FIND) (TEDIT.SETSYNTAX 27 'REDO) (TEDIT.SETSYNTAX (CHARCODE %##U) 'UNDO) (TEDIT.SETSYNTAX (CHARCODE %##u) 'UNDO) (FILESLOAD TEDITDORADOKEYS)) (DANDELION) (DOLPHIN) (SHOULDNT]) ) (RPAQQ SYSOUTGAG T) (RPAQQ PROMPT#FLG T) (RPAQQ CLEANUPOPTIONS (RC ST)) (RPAQ **COMMENT**FLG " (* --) ") (RPAQ BREAKDELIMITER ", ") (RPAQQ GRAYSHADE 21930) (RPAQQ WINDOWBACKGROUNDSHADE 14316) (RPAQQ RECOMPILDEFAULT EXPRS) (RPAQQ DEFAULTPRINTINGHOST (TSUNAMI%: TREMOR%: YODA)) (* ; "To defeat the IDLE program") (RPAQQ IDLE.PROFILE (TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (RPAQQ IDLE.TIMEOUT NIL) (RPAQQ IDLE.DEFAULTMODE UNLOCKED) (ADDTOVAR DIRECTORIES {ERIS}Gabriel>Tools> {ERIS}Gabriel>Benchmarks> {DSK}) (ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>") (ADDTOVAR DISPLAYFONTEXTENSIONS AC) (ADDTOVAR PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>") (* ; "Load the benchmark files") (LOAD "{Eris}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{Eris}Gabriel>GABRIEL-TAK.dfasl") (LOAD "{Eris}Gabriel>Tools>ARITH-BENCHMARKS.dfasl") (LOAD "{Eris}Gabriel>Tools>IO-BENCHMARKS.LCOM") (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL") (GABRIEL::RUN-BENCHMARKS GABRIEL::*TAK-TIMERS* '{Eris}Gabriel>Results>Maiko>SUN-PAV-TAK.Results) (GABRIEL::RUN-BENCHMARKS GABRIEL::*MAIKO-IO-BENCHMARKS* '{Eris}Gabriel>Results>Maiko>SUN-IO.Results) (GABRIEL::RUN-BENCHMARKS *ARITH-BENCHMARKS* '{Eris}Gabriel>Results>Maiko>SUN-PAV-ARITH.Results) (LOGOUT T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA PPR) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (3822 7377 (MM 3832 . 4056) (PPR 4058 . 4517) (JDSINIT 4519 . 7375))))) STOP \ No newline at end of file diff --git a/internal/gabriel/tools/BENCH-1.~2~ b/internal/gabriel/tools/BENCH-1.~2~ deleted file mode 100644 index 20efd13c..00000000 --- a/internal/gabriel/tools/BENCH-1.~2~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jun-88 11:05:47" "{ERIS}GABRIEL>TOOLS>BENCH-1.;1" 9194 changes to%: (VARS BENCH-1COMS) previous date%: "22-Apr-88 20:08:12" {ERIS}INIT.;23) (PRETTYCOMPRINT BENCH-1COMS) (RPAQQ BENCH-1COMS [ (* ;; "This is the INIT file that runs part 1 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started.") (* ;; "This INIT file runs the TAK, IO, and Arithmetic benchmark sets.") (FNS MM PPR JDSINIT) [VARS (SYSOUTGAG T) (PROMPT#FLG T) (CLEANUPOPTIONS '(RC ST)) (**COMMENT**FLG " (* --) ") (BREAKDELIMITER ", ") (GRAYSHADE 21930) (WINDOWBACKGROUNDSHADE 14316) (RECOMPILDEFAULT 'EXPRS) (DEFAULTPRINTINGHOST '(TSUNAMI%: TREMOR%: YODA] [COMS (* ; "To defeat the IDLE program") (VARS (IDLE.PROFILE '(TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (IDLE.TIMEOUT NIL) (IDLE.DEFAULTMODE 'UNLOCKED] (ADDVARS (DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (DISPLAYFONTEXTENSIONS AC) (PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>")) (COMS (* ; "Load the benchmark files") (P (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>GABRIEL-TAK.dfasl") (LOAD "{dsk}Gabriel>Tools>ARITH-BENCHMARKS.dfasl") (LOAD "{dsk}Gabriel>Tools>IO-BENCHMARKS.LCOM"))) (P (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL")) (P (GABRIEL::RUN-BENCHMARKS GABRIEL::*TAK-TIMERS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-TAK.Results) (GABRIEL::RUN-BENCHMARKS GABRIEL::*MAIKO-IO-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-IO.Results) (GABRIEL::RUN-BENCHMARKS *ARITH-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-ARITH.Results)) (P (LOGOUT T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPR) (NLAML) (LAMA]) (* ;; "This is the INIT file that runs part 1 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started." ) (* ;; "This INIT file runs the TAK, IO, and Arithmetic benchmark sets.") (DEFINEQ (MM [LAMBDA (X) (* ; "Edited 21-Jul-87 18:04 by jds") (COND ((LISTP X) (for V in X collect (FTIMES 60.0 V))) (T (FTIMES 60.0 X]) (PPR [NLAMBDA X (* rrb " 9-JUL-81 15:12") (RESETFORM (OUTPUT T) (MAPC (OR (LISTP X) (LIST X)) (FUNCTION (LAMBDA (R) [PRINTDEF (OR (APPEND (RECLOOK R) (FIELDLOOK R)) (CONS R '(not found] (TERPRI T]) (JDSINIT [LAMBDA NIL (* ; "Edited 17-Jan-88 16:30 by jds") (* ;;; "Machine dependent initialization stuff") (PROG ((MACHINE (MACHINETYPE))) (SETQ LAFITEDISPLAYREGION (create REGION LEFT _ 605 BOTTOM _ 8 HEIGHT _ 300 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITEEDITORREGION (create REGION LEFT _ 605 BOTTOM _ 313 HEIGHT _ 200 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH 200) YCOORD _ (IDIFFERENCE SCREENHEIGHT 30))) (CROCK (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 835) BOTTOM _ (IDIFFERENCE SCREENHEIGHT 80) WIDTH _ 85 HEIGHT _ 72)) (MOVEW PROMPTWINDOW (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 750) WIDTH _ 550 HEIGHT _ 89 BOTTOM _ (IDIFFERENCE SCREENHEIGHT 89))) (AND LOGOW (CLOSEW LOGOW)) (SELECTQ MACHINE (DOVE (* ;; "Daybreak. Set up special key actions for typing convenience.") [KEYACTION 'KEYPAD9 '((57 188 NOLOCKSHIFT) . IGNORE] (* ; "1/4") [KEYACTION 'KEYPAD6 '((174 189 NOLOCKSHIFT) . IGNORE] (* ; "1/2") [KEYACTION 'KEYPAD3 '((51 190 NOLOCKSHIFT) . IGNORE] (* ; "3/4") ) (DORADO (* ;; "Dorado. Set up a meta key and some TEdit commands.") (TTYINMETA T) (TEDIT.SETFUNCTION (CHARCODE %##F) '\TEDIT.FIND) (TEDIT.SETFUNCTION (CHARCODE %##f) '\TEDIT.FIND) (TEDIT.SETSYNTAX 27 'REDO) (TEDIT.SETSYNTAX (CHARCODE %##U) 'UNDO) (TEDIT.SETSYNTAX (CHARCODE %##u) 'UNDO) (FILESLOAD TEDITDORADOKEYS)) (DANDELION) (DOLPHIN) (SHOULDNT]) ) (RPAQQ SYSOUTGAG T) (RPAQQ PROMPT#FLG T) (RPAQQ CLEANUPOPTIONS (RC ST)) (RPAQ **COMMENT**FLG " (* --) ") (RPAQ BREAKDELIMITER ", ") (RPAQQ GRAYSHADE 21930) (RPAQQ WINDOWBACKGROUNDSHADE 14316) (RPAQQ RECOMPILDEFAULT EXPRS) (RPAQQ DEFAULTPRINTINGHOST (TSUNAMI%: TREMOR%: YODA)) (* ; "To defeat the IDLE program") (RPAQQ IDLE.PROFILE (TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (RPAQQ IDLE.TIMEOUT NIL) (RPAQQ IDLE.DEFAULTMODE UNLOCKED) (ADDTOVAR DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (ADDTOVAR DISPLAYFONTEXTENSIONS AC) (ADDTOVAR PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (* ; "Load the benchmark files") (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>GABRIEL-TAK.dfasl") (LOAD "{dsk}Gabriel>Tools>ARITH-BENCHMARKS.dfasl") (LOAD "{dsk}Gabriel>Tools>IO-BENCHMARKS.LCOM") (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL") (GABRIEL::RUN-BENCHMARKS GABRIEL::*TAK-TIMERS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-TAK.Results) (GABRIEL::RUN-BENCHMARKS GABRIEL::*MAIKO-IO-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-IO.Results) (GABRIEL::RUN-BENCHMARKS *ARITH-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-ARITH.Results) (LOGOUT T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA PPR) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (3822 7377 (MM 3832 . 4056) (PPR 4058 . 4517) (JDSINIT 4519 . 7375))))) STOP \ No newline at end of file diff --git a/internal/gabriel/tools/BENCH-1.~3~ b/internal/gabriel/tools/BENCH-1.~3~ deleted file mode 100644 index 6a1073d2..00000000 --- a/internal/gabriel/tools/BENCH-1.~3~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jun-88 11:05:47" "{ERIS}GABRIEL>TOOLS>BENCH-1.;1" 9194 changes to%: (VARS BENCH-1COMS) previous date%: "22-Apr-88 20:08:12" {ERIS}INIT.;23) (PRETTYCOMPRINT BENCH-1COMS) (RPAQQ BENCH-1COMS [ (* ;; "This is the INIT file that runs part 1 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started.") (* ;; "This INIT file runs the TAK, IO, and Arithmetic benchmark sets.") (FNS MM PPR JDSINIT) [VARS (SYSOUTGAG T) (PROMPT#FLG T) (CLEANUPOPTIONS '(RC ST)) (**COMMENT**FLG " (* --) ") (BREAKDELIMITER ", ") (GRAYSHADE 21930) (WINDOWBACKGROUNDSHADE 14316) (RECOMPILDEFAULT 'EXPRS) (DEFAULTPRINTINGHOST '(TSUNAMI%: TREMOR%: YODA] [COMS (* ; "To defeat the IDLE program") (VARS (IDLE.PROFILE '(TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (IDLE.TIMEOUT NIL) (IDLE.DEFAULTMODE 'UNLOCKED] (ADDVARS (DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (DISPLAYFONTEXTENSIONS AC) (PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>")) (COMS (* ; "Load the benchmark files") (P (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Benchmarks>GABRIEL-TAK.dfasl") (LOAD "{dsk}Gabriel>Benchmarks>ARITH-BENCHMARKS.dfasl") (LOAD "{dsk}Gabriel>Benchmarks>IO-BENCHMARKS.LCOM"))) (P (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL")) (P (GABRIEL::RUN-BENCHMARKS GABRIEL::*TAK-TIMERS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-TAK.Results) (GABRIEL::RUN-BENCHMARKS GABRIEL::*MAIKO-IO-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-IO.Results) (GABRIEL::RUN-BENCHMARKS *ARITH-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-ARITH.Results)) (P (LOGOUT T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPR) (NLAML) (LAMA]) (* ;; "This is the INIT file that runs part 1 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started." ) (* ;; "This INIT file runs the TAK, IO, and Arithmetic benchmark sets.") (DEFINEQ (MM [LAMBDA (X) (* ; "Edited 21-Jul-87 18:04 by jds") (COND ((LISTP X) (for V in X collect (FTIMES 60.0 V))) (T (FTIMES 60.0 X]) (PPR [NLAMBDA X (* rrb " 9-JUL-81 15:12") (RESETFORM (OUTPUT T) (MAPC (OR (LISTP X) (LIST X)) (FUNCTION (LAMBDA (R) [PRINTDEF (OR (APPEND (RECLOOK R) (FIELDLOOK R)) (CONS R '(not found] (TERPRI T]) (JDSINIT [LAMBDA NIL (* ; "Edited 17-Jan-88 16:30 by jds") (* ;;; "Machine dependent initialization stuff") (PROG ((MACHINE (MACHINETYPE))) (SETQ LAFITEDISPLAYREGION (create REGION LEFT _ 605 BOTTOM _ 8 HEIGHT _ 300 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITEEDITORREGION (create REGION LEFT _ 605 BOTTOM _ 313 HEIGHT _ 200 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH 200) YCOORD _ (IDIFFERENCE SCREENHEIGHT 30))) (CROCK (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 835) BOTTOM _ (IDIFFERENCE SCREENHEIGHT 80) WIDTH _ 85 HEIGHT _ 72)) (MOVEW PROMPTWINDOW (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 750) WIDTH _ 550 HEIGHT _ 89 BOTTOM _ (IDIFFERENCE SCREENHEIGHT 89))) (AND LOGOW (CLOSEW LOGOW)) (SELECTQ MACHINE (DOVE (* ;; "Daybreak. Set up special key actions for typing convenience.") [KEYACTION 'KEYPAD9 '((57 188 NOLOCKSHIFT) . IGNORE] (* ; "1/4") [KEYACTION 'KEYPAD6 '((174 189 NOLOCKSHIFT) . IGNORE] (* ; "1/2") [KEYACTION 'KEYPAD3 '((51 190 NOLOCKSHIFT) . IGNORE] (* ; "3/4") ) (DORADO (* ;; "Dorado. Set up a meta key and some TEdit commands.") (TTYINMETA T) (TEDIT.SETFUNCTION (CHARCODE %##F) '\TEDIT.FIND) (TEDIT.SETFUNCTION (CHARCODE %##f) '\TEDIT.FIND) (TEDIT.SETSYNTAX 27 'REDO) (TEDIT.SETSYNTAX (CHARCODE %##U) 'UNDO) (TEDIT.SETSYNTAX (CHARCODE %##u) 'UNDO) (FILESLOAD TEDITDORADOKEYS)) (DANDELION) (DOLPHIN) (SHOULDNT]) ) (RPAQQ SYSOUTGAG T) (RPAQQ PROMPT#FLG T) (RPAQQ CLEANUPOPTIONS (RC ST)) (RPAQ **COMMENT**FLG " (* --) ") (RPAQ BREAKDELIMITER ", ") (RPAQQ GRAYSHADE 21930) (RPAQQ WINDOWBACKGROUNDSHADE 14316) (RPAQQ RECOMPILDEFAULT EXPRS) (RPAQQ DEFAULTPRINTINGHOST (TSUNAMI%: TREMOR%: YODA)) (* ; "To defeat the IDLE program") (RPAQQ IDLE.PROFILE (TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (RPAQQ IDLE.TIMEOUT NIL) (RPAQQ IDLE.DEFAULTMODE UNLOCKED) (ADDTOVAR DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (ADDTOVAR DISPLAYFONTEXTENSIONS AC) (ADDTOVAR PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (* ; "Load the benchmark files") (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Benchmarks>GABRIEL-TAK.dfasl") (LOAD "{dsk}Gabriel>Benchmarks>ARITH-BENCHMARKS.dfasl") (LOAD "{dsk}Gabriel>Benchmarks>IO-BENCHMARKS.LCOM") (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL") (GABRIEL::RUN-BENCHMARKS GABRIEL::*TAK-TIMERS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-TAK.Results) (GABRIEL::RUN-BENCHMARKS GABRIEL::*MAIKO-IO-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-IO.Results) (GABRIEL::RUN-BENCHMARKS *ARITH-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-ARITH.Results) (LOGOUT T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA PPR) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (3822 7377 (MM 3832 . 4056) (PPR 4058 . 4517) (JDSINIT 4519 . 7375))))) STOP \ No newline at end of file diff --git a/internal/gabriel/tools/BENCH-2 b/internal/gabriel/tools/BENCH-2 deleted file mode 100644 index 84b1b660..00000000 --- a/internal/gabriel/tools/BENCH-2 +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jun-88 11:06:12" "{ERIS}GABRIEL>TOOLS>BENCH-2.;1" 8476 changes to%: (VARS BENCH-1COMS BENCH-2COMS) previous date%: "22-Apr-88 20:08:12" {ERIS}INIT.;23) (PRETTYCOMPRINT BENCH-2COMS) (RPAQQ BENCH-2COMS [ (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started.") (* ;; "This INIT file runs the %"AREFy%" benchmark sets.") (FNS MM PPR JDSINIT) [VARS (SYSOUTGAG T) (PROMPT#FLG T) (CLEANUPOPTIONS '(RC ST)) (**COMMENT**FLG " (* --) ") (BREAKDELIMITER ", ") (GRAYSHADE 21930) (WINDOWBACKGROUNDSHADE 14316) (RECOMPILDEFAULT 'EXPRS) (DEFAULTPRINTINGHOST '(TSUNAMI%: TREMOR%: YODA] [COMS (* ; "To defeat the IDLE program") (VARS (IDLE.PROFILE '(TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (IDLE.TIMEOUT NIL) (IDLE.DEFAULTMODE 'UNLOCKED] (ADDVARS (DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (DISPLAYFONTEXTENSIONS AC) (PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>")) (COMS (* ; "Load the benchmark files") (P (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{dsk}Gabriel>Tools>GABRIEL-OTHER.dfasl"))) (P (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL")) (P (GABRIEL::RUN-BENCHMARKS GABRIEL::*AREFY-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-AREFY.Results)) (P (LOGOUT T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPR) (NLAML) (LAMA]) (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started." ) (* ;; "This INIT file runs the %"AREFy%" benchmark sets.") (DEFINEQ (MM [LAMBDA (X) (* ; "Edited 21-Jul-87 18:04 by jds") (COND ((LISTP X) (for V in X collect (FTIMES 60.0 V))) (T (FTIMES 60.0 X]) (PPR [NLAMBDA X (* rrb " 9-JUL-81 15:12") (RESETFORM (OUTPUT T) (MAPC (OR (LISTP X) (LIST X)) (FUNCTION (LAMBDA (R) [PRINTDEF (OR (APPEND (RECLOOK R) (FIELDLOOK R)) (CONS R '(not found] (TERPRI T]) (JDSINIT [LAMBDA NIL (* ; "Edited 17-Jan-88 16:30 by jds") (* ;;; "Machine dependent initialization stuff") (PROG ((MACHINE (MACHINETYPE))) (SETQ LAFITEDISPLAYREGION (create REGION LEFT _ 605 BOTTOM _ 8 HEIGHT _ 300 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITEEDITORREGION (create REGION LEFT _ 605 BOTTOM _ 313 HEIGHT _ 200 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH 200) YCOORD _ (IDIFFERENCE SCREENHEIGHT 30))) (CROCK (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 835) BOTTOM _ (IDIFFERENCE SCREENHEIGHT 80) WIDTH _ 85 HEIGHT _ 72)) (MOVEW PROMPTWINDOW (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 750) WIDTH _ 550 HEIGHT _ 89 BOTTOM _ (IDIFFERENCE SCREENHEIGHT 89))) (AND LOGOW (CLOSEW LOGOW)) (SELECTQ MACHINE (DOVE (* ;; "Daybreak. Set up special key actions for typing convenience.") [KEYACTION 'KEYPAD9 '((57 188 NOLOCKSHIFT) . IGNORE] (* ; "1/4") [KEYACTION 'KEYPAD6 '((174 189 NOLOCKSHIFT) . IGNORE] (* ; "1/2") [KEYACTION 'KEYPAD3 '((51 190 NOLOCKSHIFT) . IGNORE] (* ; "3/4") ) (DORADO (* ;; "Dorado. Set up a meta key and some TEdit commands.") (TTYINMETA T) (TEDIT.SETFUNCTION (CHARCODE %##F) '\TEDIT.FIND) (TEDIT.SETFUNCTION (CHARCODE %##f) '\TEDIT.FIND) (TEDIT.SETSYNTAX 27 'REDO) (TEDIT.SETSYNTAX (CHARCODE %##U) 'UNDO) (TEDIT.SETSYNTAX (CHARCODE %##u) 'UNDO) (FILESLOAD TEDITDORADOKEYS)) (DANDELION) (DOLPHIN) (SHOULDNT]) ) (RPAQQ SYSOUTGAG T) (RPAQQ PROMPT#FLG T) (RPAQQ CLEANUPOPTIONS (RC ST)) (RPAQ **COMMENT**FLG " (* --) ") (RPAQ BREAKDELIMITER ", ") (RPAQQ GRAYSHADE 21930) (RPAQQ WINDOWBACKGROUNDSHADE 14316) (RPAQQ RECOMPILDEFAULT EXPRS) (RPAQQ DEFAULTPRINTINGHOST (TSUNAMI%: TREMOR%: YODA)) (* ; "To defeat the IDLE program") (RPAQQ IDLE.PROFILE (TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (RPAQQ IDLE.TIMEOUT NIL) (RPAQQ IDLE.DEFAULTMODE UNLOCKED) (ADDTOVAR DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (ADDTOVAR DISPLAYFONTEXTENSIONS AC) (ADDTOVAR PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (* ; "Load the benchmark files") (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{dsk}Gabriel>Tools>GABRIEL-OTHER.dfasl") (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL") (GABRIEL::RUN-BENCHMARKS GABRIEL::*AREFY-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-AREFY.Results) (LOGOUT T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA PPR) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (3386 6941 (MM 3396 . 3620) (PPR 3622 . 4081) (JDSINIT 4083 . 6939))))) STOP \ No newline at end of file diff --git a/internal/gabriel/tools/BENCH-2.~1~ b/internal/gabriel/tools/BENCH-2.~1~ deleted file mode 100644 index e65cab99..00000000 --- a/internal/gabriel/tools/BENCH-2.~1~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jun-88 11:06:12" "{ERIS}GABRIEL>TOOLS>BENCH-2.;1" 8476 changes to%: (VARS BENCH-1COMS BENCH-2COMS) previous date%: "22-Apr-88 20:08:12" {ERIS}INIT.;23) (PRETTYCOMPRINT BENCH-2COMS) (RPAQQ BENCH-2COMS [ (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started.") (* ;; "This INIT file runs the %"AREFy%" benchmark sets.") (FNS MM PPR JDSINIT) [VARS (SYSOUTGAG T) (PROMPT#FLG T) (CLEANUPOPTIONS '(RC ST)) (**COMMENT**FLG " (* --) ") (BREAKDELIMITER ", ") (GRAYSHADE 21930) (WINDOWBACKGROUNDSHADE 14316) (RECOMPILDEFAULT 'EXPRS) (DEFAULTPRINTINGHOST '(TSUNAMI%: TREMOR%: YODA] [COMS (* ; "To defeat the IDLE program") (VARS (IDLE.PROFILE '(TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (IDLE.TIMEOUT NIL) (IDLE.DEFAULTMODE 'UNLOCKED] (ADDVARS (DIRECTORIES {ERIS}Gabriel>Tools> {ERIS}Gabriel>Benchmarks> {DSK}) (DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>") (DISPLAYFONTEXTENSIONS AC) (PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>")) (COMS (* ; "Load the benchmark files") (P (LOAD "{Eris}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{Eris}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{Eris}Gabriel>Tools>GABRIEL-OTHER.dfasl"))) (P (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL")) (P (GABRIEL::RUN-BENCHMARKS GABRIEL::*AREFY-BENCHMARKS* '{Eris}Gabriel>Results>Maiko>SUN-PAV-AREFY.Results)) (P (LOGOUT T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPR) (NLAML) (LAMA]) (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started." ) (* ;; "This INIT file runs the %"AREFy%" benchmark sets.") (DEFINEQ (MM [LAMBDA (X) (* ; "Edited 21-Jul-87 18:04 by jds") (COND ((LISTP X) (for V in X collect (FTIMES 60.0 V))) (T (FTIMES 60.0 X]) (PPR [NLAMBDA X (* rrb " 9-JUL-81 15:12") (RESETFORM (OUTPUT T) (MAPC (OR (LISTP X) (LIST X)) (FUNCTION (LAMBDA (R) [PRINTDEF (OR (APPEND (RECLOOK R) (FIELDLOOK R)) (CONS R '(not found] (TERPRI T]) (JDSINIT [LAMBDA NIL (* ; "Edited 17-Jan-88 16:30 by jds") (* ;;; "Machine dependent initialization stuff") (PROG ((MACHINE (MACHINETYPE))) (SETQ LAFITEDISPLAYREGION (create REGION LEFT _ 605 BOTTOM _ 8 HEIGHT _ 300 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITEEDITORREGION (create REGION LEFT _ 605 BOTTOM _ 313 HEIGHT _ 200 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH 200) YCOORD _ (IDIFFERENCE SCREENHEIGHT 30))) (CROCK (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 835) BOTTOM _ (IDIFFERENCE SCREENHEIGHT 80) WIDTH _ 85 HEIGHT _ 72)) (MOVEW PROMPTWINDOW (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 750) WIDTH _ 550 HEIGHT _ 89 BOTTOM _ (IDIFFERENCE SCREENHEIGHT 89))) (AND LOGOW (CLOSEW LOGOW)) (SELECTQ MACHINE (DOVE (* ;; "Daybreak. Set up special key actions for typing convenience.") [KEYACTION 'KEYPAD9 '((57 188 NOLOCKSHIFT) . IGNORE] (* ; "1/4") [KEYACTION 'KEYPAD6 '((174 189 NOLOCKSHIFT) . IGNORE] (* ; "1/2") [KEYACTION 'KEYPAD3 '((51 190 NOLOCKSHIFT) . IGNORE] (* ; "3/4") ) (DORADO (* ;; "Dorado. Set up a meta key and some TEdit commands.") (TTYINMETA T) (TEDIT.SETFUNCTION (CHARCODE %##F) '\TEDIT.FIND) (TEDIT.SETFUNCTION (CHARCODE %##f) '\TEDIT.FIND) (TEDIT.SETSYNTAX 27 'REDO) (TEDIT.SETSYNTAX (CHARCODE %##U) 'UNDO) (TEDIT.SETSYNTAX (CHARCODE %##u) 'UNDO) (FILESLOAD TEDITDORADOKEYS)) (DANDELION) (DOLPHIN) (SHOULDNT]) ) (RPAQQ SYSOUTGAG T) (RPAQQ PROMPT#FLG T) (RPAQQ CLEANUPOPTIONS (RC ST)) (RPAQ **COMMENT**FLG " (* --) ") (RPAQ BREAKDELIMITER ", ") (RPAQQ GRAYSHADE 21930) (RPAQQ WINDOWBACKGROUNDSHADE 14316) (RPAQQ RECOMPILDEFAULT EXPRS) (RPAQQ DEFAULTPRINTINGHOST (TSUNAMI%: TREMOR%: YODA)) (* ; "To defeat the IDLE program") (RPAQQ IDLE.PROFILE (TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (RPAQQ IDLE.TIMEOUT NIL) (RPAQQ IDLE.DEFAULTMODE UNLOCKED) (ADDTOVAR DIRECTORIES {ERIS}Gabriel>Tools> {ERIS}Gabriel>Benchmarks> {DSK}) (ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>") (ADDTOVAR DISPLAYFONTEXTENSIONS AC) (ADDTOVAR PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>") (* ; "Load the benchmark files") (LOAD "{Eris}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{Eris}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{Eris}Gabriel>Tools>GABRIEL-OTHER.dfasl") (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL") (GABRIEL::RUN-BENCHMARKS GABRIEL::*AREFY-BENCHMARKS* '{Eris}Gabriel>Results>Maiko>SUN-PAV-AREFY.Results) (LOGOUT T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA PPR) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (3386 6941 (MM 3396 . 3620) (PPR 3622 . 4081) (JDSINIT 4083 . 6939))))) STOP \ No newline at end of file diff --git a/internal/gabriel/tools/BENCH-2.~2~ b/internal/gabriel/tools/BENCH-2.~2~ deleted file mode 100644 index 84b1b660..00000000 --- a/internal/gabriel/tools/BENCH-2.~2~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jun-88 11:06:12" "{ERIS}GABRIEL>TOOLS>BENCH-2.;1" 8476 changes to%: (VARS BENCH-1COMS BENCH-2COMS) previous date%: "22-Apr-88 20:08:12" {ERIS}INIT.;23) (PRETTYCOMPRINT BENCH-2COMS) (RPAQQ BENCH-2COMS [ (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started.") (* ;; "This INIT file runs the %"AREFy%" benchmark sets.") (FNS MM PPR JDSINIT) [VARS (SYSOUTGAG T) (PROMPT#FLG T) (CLEANUPOPTIONS '(RC ST)) (**COMMENT**FLG " (* --) ") (BREAKDELIMITER ", ") (GRAYSHADE 21930) (WINDOWBACKGROUNDSHADE 14316) (RECOMPILDEFAULT 'EXPRS) (DEFAULTPRINTINGHOST '(TSUNAMI%: TREMOR%: YODA] [COMS (* ; "To defeat the IDLE program") (VARS (IDLE.PROFILE '(TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (IDLE.TIMEOUT NIL) (IDLE.DEFAULTMODE 'UNLOCKED] (ADDVARS (DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (DISPLAYFONTEXTENSIONS AC) (PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>")) (COMS (* ; "Load the benchmark files") (P (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{dsk}Gabriel>Tools>GABRIEL-OTHER.dfasl"))) (P (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL")) (P (GABRIEL::RUN-BENCHMARKS GABRIEL::*AREFY-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-AREFY.Results)) (P (LOGOUT T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPR) (NLAML) (LAMA]) (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started." ) (* ;; "This INIT file runs the %"AREFy%" benchmark sets.") (DEFINEQ (MM [LAMBDA (X) (* ; "Edited 21-Jul-87 18:04 by jds") (COND ((LISTP X) (for V in X collect (FTIMES 60.0 V))) (T (FTIMES 60.0 X]) (PPR [NLAMBDA X (* rrb " 9-JUL-81 15:12") (RESETFORM (OUTPUT T) (MAPC (OR (LISTP X) (LIST X)) (FUNCTION (LAMBDA (R) [PRINTDEF (OR (APPEND (RECLOOK R) (FIELDLOOK R)) (CONS R '(not found] (TERPRI T]) (JDSINIT [LAMBDA NIL (* ; "Edited 17-Jan-88 16:30 by jds") (* ;;; "Machine dependent initialization stuff") (PROG ((MACHINE (MACHINETYPE))) (SETQ LAFITEDISPLAYREGION (create REGION LEFT _ 605 BOTTOM _ 8 HEIGHT _ 300 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITEEDITORREGION (create REGION LEFT _ 605 BOTTOM _ 313 HEIGHT _ 200 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH 200) YCOORD _ (IDIFFERENCE SCREENHEIGHT 30))) (CROCK (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 835) BOTTOM _ (IDIFFERENCE SCREENHEIGHT 80) WIDTH _ 85 HEIGHT _ 72)) (MOVEW PROMPTWINDOW (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 750) WIDTH _ 550 HEIGHT _ 89 BOTTOM _ (IDIFFERENCE SCREENHEIGHT 89))) (AND LOGOW (CLOSEW LOGOW)) (SELECTQ MACHINE (DOVE (* ;; "Daybreak. Set up special key actions for typing convenience.") [KEYACTION 'KEYPAD9 '((57 188 NOLOCKSHIFT) . IGNORE] (* ; "1/4") [KEYACTION 'KEYPAD6 '((174 189 NOLOCKSHIFT) . IGNORE] (* ; "1/2") [KEYACTION 'KEYPAD3 '((51 190 NOLOCKSHIFT) . IGNORE] (* ; "3/4") ) (DORADO (* ;; "Dorado. Set up a meta key and some TEdit commands.") (TTYINMETA T) (TEDIT.SETFUNCTION (CHARCODE %##F) '\TEDIT.FIND) (TEDIT.SETFUNCTION (CHARCODE %##f) '\TEDIT.FIND) (TEDIT.SETSYNTAX 27 'REDO) (TEDIT.SETSYNTAX (CHARCODE %##U) 'UNDO) (TEDIT.SETSYNTAX (CHARCODE %##u) 'UNDO) (FILESLOAD TEDITDORADOKEYS)) (DANDELION) (DOLPHIN) (SHOULDNT]) ) (RPAQQ SYSOUTGAG T) (RPAQQ PROMPT#FLG T) (RPAQQ CLEANUPOPTIONS (RC ST)) (RPAQ **COMMENT**FLG " (* --) ") (RPAQ BREAKDELIMITER ", ") (RPAQQ GRAYSHADE 21930) (RPAQQ WINDOWBACKGROUNDSHADE 14316) (RPAQQ RECOMPILDEFAULT EXPRS) (RPAQQ DEFAULTPRINTINGHOST (TSUNAMI%: TREMOR%: YODA)) (* ; "To defeat the IDLE program") (RPAQQ IDLE.PROFILE (TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (RPAQQ IDLE.TIMEOUT NIL) (RPAQQ IDLE.DEFAULTMODE UNLOCKED) (ADDTOVAR DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (ADDTOVAR DISPLAYFONTEXTENSIONS AC) (ADDTOVAR PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (* ; "Load the benchmark files") (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{dsk}Gabriel>Tools>GABRIEL-OTHER.dfasl") (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL") (GABRIEL::RUN-BENCHMARKS GABRIEL::*AREFY-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-AREFY.Results) (LOGOUT T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA PPR) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (3386 6941 (MM 3396 . 3620) (PPR 3622 . 4081) (JDSINIT 4083 . 6939))))) STOP \ No newline at end of file diff --git a/internal/gabriel/tools/BENCH-3 b/internal/gabriel/tools/BENCH-3 deleted file mode 100644 index 1c1b5ed7..00000000 --- a/internal/gabriel/tools/BENCH-3 +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jun-88 11:06:35" "{ERIS}GABRIEL>TOOLS>BENCH-3.;1" 8476 changes to%: (VARS BENCH-1COMS BENCH-3COMS) previous date%: "22-Apr-88 20:08:12" {ERIS}INIT.;23) (PRETTYCOMPRINT BENCH-3COMS) (RPAQQ BENCH-3COMS [ (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started.") (* ;; "This INIT file runs the %"CONSy%" benchmark sets.") (FNS MM PPR JDSINIT) [VARS (SYSOUTGAG T) (PROMPT#FLG T) (CLEANUPOPTIONS '(RC ST)) (**COMMENT**FLG " (* --) ") (BREAKDELIMITER ", ") (GRAYSHADE 21930) (WINDOWBACKGROUNDSHADE 14316) (RECOMPILDEFAULT 'EXPRS) (DEFAULTPRINTINGHOST '(TSUNAMI%: TREMOR%: YODA] [COMS (* ; "To defeat the IDLE program") (VARS (IDLE.PROFILE '(TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (IDLE.TIMEOUT NIL) (IDLE.DEFAULTMODE 'UNLOCKED] (ADDVARS (DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (DISPLAYFONTEXTENSIONS AC) (PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>")) (COMS (* ; "Load the benchmark files") (P (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{dsk}Gabriel>Tools>GABRIEL-OTHER.dfasl"))) (P (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL")) (P (GABRIEL::RUN-BENCHMARKS GABRIEL::*CONSY-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-CONSY.Results)) (P (LOGOUT T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPR) (NLAML) (LAMA]) (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started." ) (* ;; "This INIT file runs the %"CONSy%" benchmark sets.") (DEFINEQ (MM [LAMBDA (X) (* ; "Edited 21-Jul-87 18:04 by jds") (COND ((LISTP X) (for V in X collect (FTIMES 60.0 V))) (T (FTIMES 60.0 X]) (PPR [NLAMBDA X (* rrb " 9-JUL-81 15:12") (RESETFORM (OUTPUT T) (MAPC (OR (LISTP X) (LIST X)) (FUNCTION (LAMBDA (R) [PRINTDEF (OR (APPEND (RECLOOK R) (FIELDLOOK R)) (CONS R '(not found] (TERPRI T]) (JDSINIT [LAMBDA NIL (* ; "Edited 17-Jan-88 16:30 by jds") (* ;;; "Machine dependent initialization stuff") (PROG ((MACHINE (MACHINETYPE))) (SETQ LAFITEDISPLAYREGION (create REGION LEFT _ 605 BOTTOM _ 8 HEIGHT _ 300 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITEEDITORREGION (create REGION LEFT _ 605 BOTTOM _ 313 HEIGHT _ 200 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH 200) YCOORD _ (IDIFFERENCE SCREENHEIGHT 30))) (CROCK (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 835) BOTTOM _ (IDIFFERENCE SCREENHEIGHT 80) WIDTH _ 85 HEIGHT _ 72)) (MOVEW PROMPTWINDOW (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 750) WIDTH _ 550 HEIGHT _ 89 BOTTOM _ (IDIFFERENCE SCREENHEIGHT 89))) (AND LOGOW (CLOSEW LOGOW)) (SELECTQ MACHINE (DOVE (* ;; "Daybreak. Set up special key actions for typing convenience.") [KEYACTION 'KEYPAD9 '((57 188 NOLOCKSHIFT) . IGNORE] (* ; "1/4") [KEYACTION 'KEYPAD6 '((174 189 NOLOCKSHIFT) . IGNORE] (* ; "1/2") [KEYACTION 'KEYPAD3 '((51 190 NOLOCKSHIFT) . IGNORE] (* ; "3/4") ) (DORADO (* ;; "Dorado. Set up a meta key and some TEdit commands.") (TTYINMETA T) (TEDIT.SETFUNCTION (CHARCODE %##F) '\TEDIT.FIND) (TEDIT.SETFUNCTION (CHARCODE %##f) '\TEDIT.FIND) (TEDIT.SETSYNTAX 27 'REDO) (TEDIT.SETSYNTAX (CHARCODE %##U) 'UNDO) (TEDIT.SETSYNTAX (CHARCODE %##u) 'UNDO) (FILESLOAD TEDITDORADOKEYS)) (DANDELION) (DOLPHIN) (SHOULDNT]) ) (RPAQQ SYSOUTGAG T) (RPAQQ PROMPT#FLG T) (RPAQQ CLEANUPOPTIONS (RC ST)) (RPAQ **COMMENT**FLG " (* --) ") (RPAQ BREAKDELIMITER ", ") (RPAQQ GRAYSHADE 21930) (RPAQQ WINDOWBACKGROUNDSHADE 14316) (RPAQQ RECOMPILDEFAULT EXPRS) (RPAQQ DEFAULTPRINTINGHOST (TSUNAMI%: TREMOR%: YODA)) (* ; "To defeat the IDLE program") (RPAQQ IDLE.PROFILE (TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (RPAQQ IDLE.TIMEOUT NIL) (RPAQQ IDLE.DEFAULTMODE UNLOCKED) (ADDTOVAR DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (ADDTOVAR DISPLAYFONTEXTENSIONS AC) (ADDTOVAR PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (* ; "Load the benchmark files") (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{dsk}Gabriel>Tools>GABRIEL-OTHER.dfasl") (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL") (GABRIEL::RUN-BENCHMARKS GABRIEL::*CONSY-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-CONSY.Results) (LOGOUT T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA PPR) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (3386 6941 (MM 3396 . 3620) (PPR 3622 . 4081) (JDSINIT 4083 . 6939))))) STOP \ No newline at end of file diff --git a/internal/gabriel/tools/BENCH-3.~1~ b/internal/gabriel/tools/BENCH-3.~1~ deleted file mode 100644 index f920a82a..00000000 --- a/internal/gabriel/tools/BENCH-3.~1~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jun-88 11:06:35" "{ERIS}GABRIEL>TOOLS>BENCH-3.;1" 8476 changes to%: (VARS BENCH-1COMS BENCH-3COMS) previous date%: "22-Apr-88 20:08:12" {ERIS}INIT.;23) (PRETTYCOMPRINT BENCH-3COMS) (RPAQQ BENCH-3COMS [ (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started.") (* ;; "This INIT file runs the %"CONSy%" benchmark sets.") (FNS MM PPR JDSINIT) [VARS (SYSOUTGAG T) (PROMPT#FLG T) (CLEANUPOPTIONS '(RC ST)) (**COMMENT**FLG " (* --) ") (BREAKDELIMITER ", ") (GRAYSHADE 21930) (WINDOWBACKGROUNDSHADE 14316) (RECOMPILDEFAULT 'EXPRS) (DEFAULTPRINTINGHOST '(TSUNAMI%: TREMOR%: YODA] [COMS (* ; "To defeat the IDLE program") (VARS (IDLE.PROFILE '(TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (IDLE.TIMEOUT NIL) (IDLE.DEFAULTMODE 'UNLOCKED] (ADDVARS (DIRECTORIES {ERIS}Gabriel>Tools> {ERIS}Gabriel>Benchmarks> {DSK}) (DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>") (DISPLAYFONTEXTENSIONS AC) (PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>")) (COMS (* ; "Load the benchmark files") (P (LOAD "{Eris}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{Eris}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{Eris}Gabriel>Tools>GABRIEL-OTHER.dfasl"))) (P (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL")) (P (GABRIEL::RUN-BENCHMARKS GABRIEL::*CONSY-BENCHMARKS* '{Eris}Gabriel>Results>Maiko>SUN-PAV-CONSY.Results)) (P (LOGOUT T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPR) (NLAML) (LAMA]) (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started." ) (* ;; "This INIT file runs the %"CONSy%" benchmark sets.") (DEFINEQ (MM [LAMBDA (X) (* ; "Edited 21-Jul-87 18:04 by jds") (COND ((LISTP X) (for V in X collect (FTIMES 60.0 V))) (T (FTIMES 60.0 X]) (PPR [NLAMBDA X (* rrb " 9-JUL-81 15:12") (RESETFORM (OUTPUT T) (MAPC (OR (LISTP X) (LIST X)) (FUNCTION (LAMBDA (R) [PRINTDEF (OR (APPEND (RECLOOK R) (FIELDLOOK R)) (CONS R '(not found] (TERPRI T]) (JDSINIT [LAMBDA NIL (* ; "Edited 17-Jan-88 16:30 by jds") (* ;;; "Machine dependent initialization stuff") (PROG ((MACHINE (MACHINETYPE))) (SETQ LAFITEDISPLAYREGION (create REGION LEFT _ 605 BOTTOM _ 8 HEIGHT _ 300 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITEEDITORREGION (create REGION LEFT _ 605 BOTTOM _ 313 HEIGHT _ 200 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH 200) YCOORD _ (IDIFFERENCE SCREENHEIGHT 30))) (CROCK (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 835) BOTTOM _ (IDIFFERENCE SCREENHEIGHT 80) WIDTH _ 85 HEIGHT _ 72)) (MOVEW PROMPTWINDOW (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 750) WIDTH _ 550 HEIGHT _ 89 BOTTOM _ (IDIFFERENCE SCREENHEIGHT 89))) (AND LOGOW (CLOSEW LOGOW)) (SELECTQ MACHINE (DOVE (* ;; "Daybreak. Set up special key actions for typing convenience.") [KEYACTION 'KEYPAD9 '((57 188 NOLOCKSHIFT) . IGNORE] (* ; "1/4") [KEYACTION 'KEYPAD6 '((174 189 NOLOCKSHIFT) . IGNORE] (* ; "1/2") [KEYACTION 'KEYPAD3 '((51 190 NOLOCKSHIFT) . IGNORE] (* ; "3/4") ) (DORADO (* ;; "Dorado. Set up a meta key and some TEdit commands.") (TTYINMETA T) (TEDIT.SETFUNCTION (CHARCODE %##F) '\TEDIT.FIND) (TEDIT.SETFUNCTION (CHARCODE %##f) '\TEDIT.FIND) (TEDIT.SETSYNTAX 27 'REDO) (TEDIT.SETSYNTAX (CHARCODE %##U) 'UNDO) (TEDIT.SETSYNTAX (CHARCODE %##u) 'UNDO) (FILESLOAD TEDITDORADOKEYS)) (DANDELION) (DOLPHIN) (SHOULDNT]) ) (RPAQQ SYSOUTGAG T) (RPAQQ PROMPT#FLG T) (RPAQQ CLEANUPOPTIONS (RC ST)) (RPAQ **COMMENT**FLG " (* --) ") (RPAQ BREAKDELIMITER ", ") (RPAQQ GRAYSHADE 21930) (RPAQQ WINDOWBACKGROUNDSHADE 14316) (RPAQQ RECOMPILDEFAULT EXPRS) (RPAQQ DEFAULTPRINTINGHOST (TSUNAMI%: TREMOR%: YODA)) (* ; "To defeat the IDLE program") (RPAQQ IDLE.PROFILE (TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (RPAQQ IDLE.TIMEOUT NIL) (RPAQQ IDLE.DEFAULTMODE UNLOCKED) (ADDTOVAR DIRECTORIES {ERIS}Gabriel>Tools> {ERIS}Gabriel>Benchmarks> {DSK}) (ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>") (ADDTOVAR DISPLAYFONTEXTENSIONS AC) (ADDTOVAR PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>") (* ; "Load the benchmark files") (LOAD "{Eris}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{Eris}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{Eris}Gabriel>Tools>GABRIEL-OTHER.dfasl") (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL") (GABRIEL::RUN-BENCHMARKS GABRIEL::*CONSY-BENCHMARKS* '{Eris}Gabriel>Results>Maiko>SUN-PAV-CONSY.Results) (LOGOUT T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA PPR) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (3386 6941 (MM 3396 . 3620) (PPR 3622 . 4081) (JDSINIT 4083 . 6939))))) STOP \ No newline at end of file diff --git a/internal/gabriel/tools/BENCH-3.~2~ b/internal/gabriel/tools/BENCH-3.~2~ deleted file mode 100644 index 1c1b5ed7..00000000 --- a/internal/gabriel/tools/BENCH-3.~2~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jun-88 11:06:35" "{ERIS}GABRIEL>TOOLS>BENCH-3.;1" 8476 changes to%: (VARS BENCH-1COMS BENCH-3COMS) previous date%: "22-Apr-88 20:08:12" {ERIS}INIT.;23) (PRETTYCOMPRINT BENCH-3COMS) (RPAQQ BENCH-3COMS [ (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started.") (* ;; "This INIT file runs the %"CONSy%" benchmark sets.") (FNS MM PPR JDSINIT) [VARS (SYSOUTGAG T) (PROMPT#FLG T) (CLEANUPOPTIONS '(RC ST)) (**COMMENT**FLG " (* --) ") (BREAKDELIMITER ", ") (GRAYSHADE 21930) (WINDOWBACKGROUNDSHADE 14316) (RECOMPILDEFAULT 'EXPRS) (DEFAULTPRINTINGHOST '(TSUNAMI%: TREMOR%: YODA] [COMS (* ; "To defeat the IDLE program") (VARS (IDLE.PROFILE '(TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (IDLE.TIMEOUT NIL) (IDLE.DEFAULTMODE 'UNLOCKED] (ADDVARS (DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (DISPLAYFONTEXTENSIONS AC) (PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>")) (COMS (* ; "Load the benchmark files") (P (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{dsk}Gabriel>Tools>GABRIEL-OTHER.dfasl"))) (P (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL")) (P (GABRIEL::RUN-BENCHMARKS GABRIEL::*CONSY-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-CONSY.Results)) (P (LOGOUT T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPR) (NLAML) (LAMA]) (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started." ) (* ;; "This INIT file runs the %"CONSy%" benchmark sets.") (DEFINEQ (MM [LAMBDA (X) (* ; "Edited 21-Jul-87 18:04 by jds") (COND ((LISTP X) (for V in X collect (FTIMES 60.0 V))) (T (FTIMES 60.0 X]) (PPR [NLAMBDA X (* rrb " 9-JUL-81 15:12") (RESETFORM (OUTPUT T) (MAPC (OR (LISTP X) (LIST X)) (FUNCTION (LAMBDA (R) [PRINTDEF (OR (APPEND (RECLOOK R) (FIELDLOOK R)) (CONS R '(not found] (TERPRI T]) (JDSINIT [LAMBDA NIL (* ; "Edited 17-Jan-88 16:30 by jds") (* ;;; "Machine dependent initialization stuff") (PROG ((MACHINE (MACHINETYPE))) (SETQ LAFITEDISPLAYREGION (create REGION LEFT _ 605 BOTTOM _ 8 HEIGHT _ 300 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITEEDITORREGION (create REGION LEFT _ 605 BOTTOM _ 313 HEIGHT _ 200 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH 200) YCOORD _ (IDIFFERENCE SCREENHEIGHT 30))) (CROCK (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 835) BOTTOM _ (IDIFFERENCE SCREENHEIGHT 80) WIDTH _ 85 HEIGHT _ 72)) (MOVEW PROMPTWINDOW (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 750) WIDTH _ 550 HEIGHT _ 89 BOTTOM _ (IDIFFERENCE SCREENHEIGHT 89))) (AND LOGOW (CLOSEW LOGOW)) (SELECTQ MACHINE (DOVE (* ;; "Daybreak. Set up special key actions for typing convenience.") [KEYACTION 'KEYPAD9 '((57 188 NOLOCKSHIFT) . IGNORE] (* ; "1/4") [KEYACTION 'KEYPAD6 '((174 189 NOLOCKSHIFT) . IGNORE] (* ; "1/2") [KEYACTION 'KEYPAD3 '((51 190 NOLOCKSHIFT) . IGNORE] (* ; "3/4") ) (DORADO (* ;; "Dorado. Set up a meta key and some TEdit commands.") (TTYINMETA T) (TEDIT.SETFUNCTION (CHARCODE %##F) '\TEDIT.FIND) (TEDIT.SETFUNCTION (CHARCODE %##f) '\TEDIT.FIND) (TEDIT.SETSYNTAX 27 'REDO) (TEDIT.SETSYNTAX (CHARCODE %##U) 'UNDO) (TEDIT.SETSYNTAX (CHARCODE %##u) 'UNDO) (FILESLOAD TEDITDORADOKEYS)) (DANDELION) (DOLPHIN) (SHOULDNT]) ) (RPAQQ SYSOUTGAG T) (RPAQQ PROMPT#FLG T) (RPAQQ CLEANUPOPTIONS (RC ST)) (RPAQ **COMMENT**FLG " (* --) ") (RPAQ BREAKDELIMITER ", ") (RPAQQ GRAYSHADE 21930) (RPAQQ WINDOWBACKGROUNDSHADE 14316) (RPAQQ RECOMPILDEFAULT EXPRS) (RPAQQ DEFAULTPRINTINGHOST (TSUNAMI%: TREMOR%: YODA)) (* ; "To defeat the IDLE program") (RPAQQ IDLE.PROFILE (TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (RPAQQ IDLE.TIMEOUT NIL) (RPAQQ IDLE.DEFAULTMODE UNLOCKED) (ADDTOVAR DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (ADDTOVAR DISPLAYFONTEXTENSIONS AC) (ADDTOVAR PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (* ; "Load the benchmark files") (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{dsk}Gabriel>Tools>GABRIEL-OTHER.dfasl") (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL") (GABRIEL::RUN-BENCHMARKS GABRIEL::*CONSY-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-CONSY.Results) (LOGOUT T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA PPR) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (3386 6941 (MM 3396 . 3620) (PPR 3622 . 4081) (JDSINIT 4083 . 6939))))) STOP \ No newline at end of file diff --git a/internal/gabriel/tools/BENCH-386 b/internal/gabriel/tools/BENCH-386 deleted file mode 100644 index ce13aa90..00000000 --- a/internal/gabriel/tools/BENCH-386 +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jun-88 11:05:47" "{ERIS}GABRIEL>TOOLS>BENCH-1.;1" 9194 changes to%: (VARS BENCH-1COMS) previous date%: "22-Apr-88 20:08:12" {ERIS}INIT.;23) (PRETTYCOMPRINT BENCH-1COMS) (RPAQQ BENCH-1COMS [ (* ;; "This is the INIT file that runs part 1 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started.") (* ;; "This INIT file runs the TAK, IO, and Arithmetic benchmark sets.") (FNS MM PPR JDSINIT) [VARS (SYSOUTGAG T) (PROMPT#FLG T) (CLEANUPOPTIONS '(RC ST)) (**COMMENT**FLG " (* --) ") (BREAKDELIMITER ", ") (GRAYSHADE 21930) (WINDOWBACKGROUNDSHADE 14316) (RECOMPILDEFAULT 'EXPRS) (DEFAULTPRINTINGHOST '(TSUNAMI%: TREMOR%: YODA] [COMS (* ; "To defeat the IDLE program") (VARS (IDLE.PROFILE '(TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (IDLE.TIMEOUT NIL) (IDLE.DEFAULTMODE 'UNLOCKED] (ADDVARS (DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (DISPLAYFONTEXTENSIONS AC) (PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>")) (COMS (* ; "Load the benchmark files") (P (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Benchmarks>GABRIEL-TAK.dfasl") (LOAD "{dsk}Gabriel>Benchmarks>ARITH-BENCHMARKS.dfasl") (LOAD "{dsk}Gabriel>Benchmarks>IO-BENCHMARKS.LCOM"))) (P (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL")) (P (GABRIEL::RUN-BENCHMARKS GABRIEL::*TAK-TIMERS* '{dsk}Gabriel>Results>Maiko>486-PAV-TAK.Results) (GABRIEL::RUN-BENCHMARKS GABRIEL::*MAIKO-IO-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>486-IO.Results) (GABRIEL::RUN-BENCHMARKS *ARITH-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>486-PAV-ARITH.Results)) (P (LOGOUT T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPR) (NLAML) (LAMA]) (* ;; "This is the INIT file that runs part 1 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started." ) (* ;; "This INIT file runs the TAK, IO, and Arithmetic benchmark sets.") (DEFINEQ (MM [LAMBDA (X) (* ; "Edited 21-Jul-87 18:04 by jds") (COND ((LISTP X) (for V in X collect (FTIMES 60.0 V))) (T (FTIMES 60.0 X]) (PPR [NLAMBDA X (* rrb " 9-JUL-81 15:12") (RESETFORM (OUTPUT T) (MAPC (OR (LISTP X) (LIST X)) (FUNCTION (LAMBDA (R) [PRINTDEF (OR (APPEND (RECLOOK R) (FIELDLOOK R)) (CONS R '(not found] (TERPRI T]) (JDSINIT [LAMBDA NIL (* ; "Edited 17-Jan-88 16:30 by jds") (* ;;; "Machine dependent initialization stuff") (PROG ((MACHINE (MACHINETYPE))) (SETQ LAFITEDISPLAYREGION (create REGION LEFT _ 605 BOTTOM _ 8 HEIGHT _ 300 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITEEDITORREGION (create REGION LEFT _ 605 BOTTOM _ 313 HEIGHT _ 200 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH 200) YCOORD _ (IDIFFERENCE SCREENHEIGHT 30))) (CROCK (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 835) BOTTOM _ (IDIFFERENCE SCREENHEIGHT 80) WIDTH _ 85 HEIGHT _ 72)) (MOVEW PROMPTWINDOW (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 750) WIDTH _ 550 HEIGHT _ 89 BOTTOM _ (IDIFFERENCE SCREENHEIGHT 89))) (AND LOGOW (CLOSEW LOGOW)) (SELECTQ MACHINE (DOVE (* ;; "Daybreak. Set up special key actions for typing convenience.") [KEYACTION 'KEYPAD9 '((57 188 NOLOCKSHIFT) . IGNORE] (* ; "1/4") [KEYACTION 'KEYPAD6 '((174 189 NOLOCKSHIFT) . IGNORE] (* ; "1/2") [KEYACTION 'KEYPAD3 '((51 190 NOLOCKSHIFT) . IGNORE] (* ; "3/4") ) (DORADO (* ;; "Dorado. Set up a meta key and some TEdit commands.") (TTYINMETA T) (TEDIT.SETFUNCTION (CHARCODE %##F) '\TEDIT.FIND) (TEDIT.SETFUNCTION (CHARCODE %##f) '\TEDIT.FIND) (TEDIT.SETSYNTAX 27 'REDO) (TEDIT.SETSYNTAX (CHARCODE %##U) 'UNDO) (TEDIT.SETSYNTAX (CHARCODE %##u) 'UNDO) (FILESLOAD TEDITDORADOKEYS)) (DANDELION) (DOLPHIN) (SHOULDNT]) ) (RPAQQ SYSOUTGAG T) (RPAQQ PROMPT#FLG T) (RPAQQ CLEANUPOPTIONS (RC ST)) (RPAQ **COMMENT**FLG " (* --) ") (RPAQ BREAKDELIMITER ", ") (RPAQQ GRAYSHADE 21930) (RPAQQ WINDOWBACKGROUNDSHADE 14316) (RPAQQ RECOMPILDEFAULT EXPRS) (RPAQQ DEFAULTPRINTINGHOST (TSUNAMI%: TREMOR%: YODA)) (* ; "To defeat the IDLE program") (RPAQQ IDLE.PROFILE (TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (RPAQQ IDLE.TIMEOUT NIL) (RPAQQ IDLE.DEFAULTMODE UNLOCKED) (ADDTOVAR DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (ADDTOVAR DISPLAYFONTEXTENSIONS AC) (ADDTOVAR PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (* ; "Load the benchmark files") (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Benchmarks>GABRIEL-TAK.dfasl") (LOAD "{dsk}Gabriel>Benchmarks>ARITH-BENCHMARKS.dfasl") (LOAD "{dsk}Gabriel>Benchmarks>IO-BENCHMARKS.LCOM") (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL") (GABRIEL::RUN-BENCHMARKS GABRIEL::*TAK-TIMERS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-TAK.Results) (GABRIEL::RUN-BENCHMARKS GABRIEL::*MAIKO-IO-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-IO.Results) (GABRIEL::RUN-BENCHMARKS *ARITH-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-ARITH.Results) (LOGOUT T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA PPR) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (3822 7377 (MM 3832 . 4056) (PPR 4058 . 4517) (JDSINIT 4519 . 7375))))) STOP \ No newline at end of file diff --git a/internal/gabriel/tools/BENCH-4 b/internal/gabriel/tools/BENCH-4 deleted file mode 100644 index a7730383..00000000 --- a/internal/gabriel/tools/BENCH-4 +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jun-88 11:06:56" "{ERIS}GABRIEL>TOOLS>BENCH-4.;1" 8470 changes to%: (VARS BENCH-1COMS BENCH-4COMS) previous date%: "22-Apr-88 20:08:12" {ERIS}INIT.;23) (PRETTYCOMPRINT BENCH-4COMS) (RPAQQ BENCH-4COMS [ (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started.") (* ;; "This INIT file runs the %"POLY%" benchmark sets.") (FNS MM PPR JDSINIT) [VARS (SYSOUTGAG T) (PROMPT#FLG T) (CLEANUPOPTIONS '(RC ST)) (**COMMENT**FLG " (* --) ") (BREAKDELIMITER ", ") (GRAYSHADE 21930) (WINDOWBACKGROUNDSHADE 14316) (RECOMPILDEFAULT 'EXPRS) (DEFAULTPRINTINGHOST '(TSUNAMI%: TREMOR%: YODA] [COMS (* ; "To defeat the IDLE program") (VARS (IDLE.PROFILE '(TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (IDLE.TIMEOUT NIL) (IDLE.DEFAULTMODE 'UNLOCKED] (ADDVARS (DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (DISPLAYFONTEXTENSIONS AC) (PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>")) (COMS (* ; "Load the benchmark files") (P (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{dsk}Gabriel>Tools>GABRIEL-OTHER.dfasl"))) (P (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL")) (P (GABRIEL::RUN-BENCHMARKS GABRIEL::*POLY-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-POLY.Results)) (P (LOGOUT T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPR) (NLAML) (LAMA]) (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started." ) (* ;; "This INIT file runs the %"POLY%" benchmark sets.") (DEFINEQ (MM [LAMBDA (X) (* ; "Edited 21-Jul-87 18:04 by jds") (COND ((LISTP X) (for V in X collect (FTIMES 60.0 V))) (T (FTIMES 60.0 X]) (PPR [NLAMBDA X (* rrb " 9-JUL-81 15:12") (RESETFORM (OUTPUT T) (MAPC (OR (LISTP X) (LIST X)) (FUNCTION (LAMBDA (R) [PRINTDEF (OR (APPEND (RECLOOK R) (FIELDLOOK R)) (CONS R '(not found] (TERPRI T]) (JDSINIT [LAMBDA NIL (* ; "Edited 17-Jan-88 16:30 by jds") (* ;;; "Machine dependent initialization stuff") (PROG ((MACHINE (MACHINETYPE))) (SETQ LAFITEDISPLAYREGION (create REGION LEFT _ 605 BOTTOM _ 8 HEIGHT _ 300 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITEEDITORREGION (create REGION LEFT _ 605 BOTTOM _ 313 HEIGHT _ 200 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH 200) YCOORD _ (IDIFFERENCE SCREENHEIGHT 30))) (CROCK (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 835) BOTTOM _ (IDIFFERENCE SCREENHEIGHT 80) WIDTH _ 85 HEIGHT _ 72)) (MOVEW PROMPTWINDOW (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 750) WIDTH _ 550 HEIGHT _ 89 BOTTOM _ (IDIFFERENCE SCREENHEIGHT 89))) (AND LOGOW (CLOSEW LOGOW)) (SELECTQ MACHINE (DOVE (* ;; "Daybreak. Set up special key actions for typing convenience.") [KEYACTION 'KEYPAD9 '((57 188 NOLOCKSHIFT) . IGNORE] (* ; "1/4") [KEYACTION 'KEYPAD6 '((174 189 NOLOCKSHIFT) . IGNORE] (* ; "1/2") [KEYACTION 'KEYPAD3 '((51 190 NOLOCKSHIFT) . IGNORE] (* ; "3/4") ) (DORADO (* ;; "Dorado. Set up a meta key and some TEdit commands.") (TTYINMETA T) (TEDIT.SETFUNCTION (CHARCODE %##F) '\TEDIT.FIND) (TEDIT.SETFUNCTION (CHARCODE %##f) '\TEDIT.FIND) (TEDIT.SETSYNTAX 27 'REDO) (TEDIT.SETSYNTAX (CHARCODE %##U) 'UNDO) (TEDIT.SETSYNTAX (CHARCODE %##u) 'UNDO) (FILESLOAD TEDITDORADOKEYS)) (DANDELION) (DOLPHIN) (SHOULDNT]) ) (RPAQQ SYSOUTGAG T) (RPAQQ PROMPT#FLG T) (RPAQQ CLEANUPOPTIONS (RC ST)) (RPAQ **COMMENT**FLG " (* --) ") (RPAQ BREAKDELIMITER ", ") (RPAQQ GRAYSHADE 21930) (RPAQQ WINDOWBACKGROUNDSHADE 14316) (RPAQQ RECOMPILDEFAULT EXPRS) (RPAQQ DEFAULTPRINTINGHOST (TSUNAMI%: TREMOR%: YODA)) (* ; "To defeat the IDLE program") (RPAQQ IDLE.PROFILE (TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (RPAQQ IDLE.TIMEOUT NIL) (RPAQQ IDLE.DEFAULTMODE UNLOCKED) (ADDTOVAR DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (ADDTOVAR DISPLAYFONTEXTENSIONS AC) (ADDTOVAR PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (* ; "Load the benchmark files") (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{dsk}Gabriel>Tools>GABRIEL-OTHER.dfasl") (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL") (GABRIEL::RUN-BENCHMARKS GABRIEL::*POLY-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-POLY.Results) (LOGOUT T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA PPR) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (3382 6937 (MM 3392 . 3616) (PPR 3618 . 4077) (JDSINIT 4079 . 6935))))) STOP \ No newline at end of file diff --git a/internal/gabriel/tools/BENCH-4.~1~ b/internal/gabriel/tools/BENCH-4.~1~ deleted file mode 100644 index a894982e..00000000 --- a/internal/gabriel/tools/BENCH-4.~1~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jun-88 11:06:56" "{ERIS}GABRIEL>TOOLS>BENCH-4.;1" 8470 changes to%: (VARS BENCH-1COMS BENCH-4COMS) previous date%: "22-Apr-88 20:08:12" {ERIS}INIT.;23) (PRETTYCOMPRINT BENCH-4COMS) (RPAQQ BENCH-4COMS [ (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started.") (* ;; "This INIT file runs the %"POLY%" benchmark sets.") (FNS MM PPR JDSINIT) [VARS (SYSOUTGAG T) (PROMPT#FLG T) (CLEANUPOPTIONS '(RC ST)) (**COMMENT**FLG " (* --) ") (BREAKDELIMITER ", ") (GRAYSHADE 21930) (WINDOWBACKGROUNDSHADE 14316) (RECOMPILDEFAULT 'EXPRS) (DEFAULTPRINTINGHOST '(TSUNAMI%: TREMOR%: YODA] [COMS (* ; "To defeat the IDLE program") (VARS (IDLE.PROFILE '(TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (IDLE.TIMEOUT NIL) (IDLE.DEFAULTMODE 'UNLOCKED] (ADDVARS (DIRECTORIES {ERIS}Gabriel>Tools> {ERIS}Gabriel>Benchmarks> {DSK}) (DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>") (DISPLAYFONTEXTENSIONS AC) (PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>")) (COMS (* ; "Load the benchmark files") (P (LOAD "{Eris}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{Eris}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{Eris}Gabriel>Tools>GABRIEL-OTHER.dfasl"))) (P (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL")) (P (GABRIEL::RUN-BENCHMARKS GABRIEL::*POLY-BENCHMARKS* '{Eris}Gabriel>Results>Maiko>SUN-PAV-POLY.Results)) (P (LOGOUT T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPR) (NLAML) (LAMA]) (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started." ) (* ;; "This INIT file runs the %"POLY%" benchmark sets.") (DEFINEQ (MM [LAMBDA (X) (* ; "Edited 21-Jul-87 18:04 by jds") (COND ((LISTP X) (for V in X collect (FTIMES 60.0 V))) (T (FTIMES 60.0 X]) (PPR [NLAMBDA X (* rrb " 9-JUL-81 15:12") (RESETFORM (OUTPUT T) (MAPC (OR (LISTP X) (LIST X)) (FUNCTION (LAMBDA (R) [PRINTDEF (OR (APPEND (RECLOOK R) (FIELDLOOK R)) (CONS R '(not found] (TERPRI T]) (JDSINIT [LAMBDA NIL (* ; "Edited 17-Jan-88 16:30 by jds") (* ;;; "Machine dependent initialization stuff") (PROG ((MACHINE (MACHINETYPE))) (SETQ LAFITEDISPLAYREGION (create REGION LEFT _ 605 BOTTOM _ 8 HEIGHT _ 300 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITEEDITORREGION (create REGION LEFT _ 605 BOTTOM _ 313 HEIGHT _ 200 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH 200) YCOORD _ (IDIFFERENCE SCREENHEIGHT 30))) (CROCK (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 835) BOTTOM _ (IDIFFERENCE SCREENHEIGHT 80) WIDTH _ 85 HEIGHT _ 72)) (MOVEW PROMPTWINDOW (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 750) WIDTH _ 550 HEIGHT _ 89 BOTTOM _ (IDIFFERENCE SCREENHEIGHT 89))) (AND LOGOW (CLOSEW LOGOW)) (SELECTQ MACHINE (DOVE (* ;; "Daybreak. Set up special key actions for typing convenience.") [KEYACTION 'KEYPAD9 '((57 188 NOLOCKSHIFT) . IGNORE] (* ; "1/4") [KEYACTION 'KEYPAD6 '((174 189 NOLOCKSHIFT) . IGNORE] (* ; "1/2") [KEYACTION 'KEYPAD3 '((51 190 NOLOCKSHIFT) . IGNORE] (* ; "3/4") ) (DORADO (* ;; "Dorado. Set up a meta key and some TEdit commands.") (TTYINMETA T) (TEDIT.SETFUNCTION (CHARCODE %##F) '\TEDIT.FIND) (TEDIT.SETFUNCTION (CHARCODE %##f) '\TEDIT.FIND) (TEDIT.SETSYNTAX 27 'REDO) (TEDIT.SETSYNTAX (CHARCODE %##U) 'UNDO) (TEDIT.SETSYNTAX (CHARCODE %##u) 'UNDO) (FILESLOAD TEDITDORADOKEYS)) (DANDELION) (DOLPHIN) (SHOULDNT]) ) (RPAQQ SYSOUTGAG T) (RPAQQ PROMPT#FLG T) (RPAQQ CLEANUPOPTIONS (RC ST)) (RPAQ **COMMENT**FLG " (* --) ") (RPAQ BREAKDELIMITER ", ") (RPAQQ GRAYSHADE 21930) (RPAQQ WINDOWBACKGROUNDSHADE 14316) (RPAQQ RECOMPILDEFAULT EXPRS) (RPAQQ DEFAULTPRINTINGHOST (TSUNAMI%: TREMOR%: YODA)) (* ; "To defeat the IDLE program") (RPAQQ IDLE.PROFILE (TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (RPAQQ IDLE.TIMEOUT NIL) (RPAQQ IDLE.DEFAULTMODE UNLOCKED) (ADDTOVAR DIRECTORIES {ERIS}Gabriel>Tools> {ERIS}Gabriel>Benchmarks> {DSK}) (ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>") (ADDTOVAR DISPLAYFONTEXTENSIONS AC) (ADDTOVAR PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>") (* ; "Load the benchmark files") (LOAD "{Eris}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{Eris}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{Eris}Gabriel>Tools>GABRIEL-OTHER.dfasl") (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL") (GABRIEL::RUN-BENCHMARKS GABRIEL::*POLY-BENCHMARKS* '{Eris}Gabriel>Results>Maiko>SUN-PAV-POLY.Results) (LOGOUT T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA PPR) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (3382 6937 (MM 3392 . 3616) (PPR 3618 . 4077) (JDSINIT 4079 . 6935))))) STOP \ No newline at end of file diff --git a/internal/gabriel/tools/BENCH-4.~2~ b/internal/gabriel/tools/BENCH-4.~2~ deleted file mode 100644 index a7730383..00000000 --- a/internal/gabriel/tools/BENCH-4.~2~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jun-88 11:06:56" "{ERIS}GABRIEL>TOOLS>BENCH-4.;1" 8470 changes to%: (VARS BENCH-1COMS BENCH-4COMS) previous date%: "22-Apr-88 20:08:12" {ERIS}INIT.;23) (PRETTYCOMPRINT BENCH-4COMS) (RPAQQ BENCH-4COMS [ (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started.") (* ;; "This INIT file runs the %"POLY%" benchmark sets.") (FNS MM PPR JDSINIT) [VARS (SYSOUTGAG T) (PROMPT#FLG T) (CLEANUPOPTIONS '(RC ST)) (**COMMENT**FLG " (* --) ") (BREAKDELIMITER ", ") (GRAYSHADE 21930) (WINDOWBACKGROUNDSHADE 14316) (RECOMPILDEFAULT 'EXPRS) (DEFAULTPRINTINGHOST '(TSUNAMI%: TREMOR%: YODA] [COMS (* ; "To defeat the IDLE program") (VARS (IDLE.PROFILE '(TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (IDLE.TIMEOUT NIL) (IDLE.DEFAULTMODE 'UNLOCKED] (ADDVARS (DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (DISPLAYFONTEXTENSIONS AC) (PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>")) (COMS (* ; "Load the benchmark files") (P (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{dsk}Gabriel>Tools>GABRIEL-OTHER.dfasl"))) (P (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL")) (P (GABRIEL::RUN-BENCHMARKS GABRIEL::*POLY-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-POLY.Results)) (P (LOGOUT T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPR) (NLAML) (LAMA]) (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started." ) (* ;; "This INIT file runs the %"POLY%" benchmark sets.") (DEFINEQ (MM [LAMBDA (X) (* ; "Edited 21-Jul-87 18:04 by jds") (COND ((LISTP X) (for V in X collect (FTIMES 60.0 V))) (T (FTIMES 60.0 X]) (PPR [NLAMBDA X (* rrb " 9-JUL-81 15:12") (RESETFORM (OUTPUT T) (MAPC (OR (LISTP X) (LIST X)) (FUNCTION (LAMBDA (R) [PRINTDEF (OR (APPEND (RECLOOK R) (FIELDLOOK R)) (CONS R '(not found] (TERPRI T]) (JDSINIT [LAMBDA NIL (* ; "Edited 17-Jan-88 16:30 by jds") (* ;;; "Machine dependent initialization stuff") (PROG ((MACHINE (MACHINETYPE))) (SETQ LAFITEDISPLAYREGION (create REGION LEFT _ 605 BOTTOM _ 8 HEIGHT _ 300 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITEEDITORREGION (create REGION LEFT _ 605 BOTTOM _ 313 HEIGHT _ 200 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH 200) YCOORD _ (IDIFFERENCE SCREENHEIGHT 30))) (CROCK (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 835) BOTTOM _ (IDIFFERENCE SCREENHEIGHT 80) WIDTH _ 85 HEIGHT _ 72)) (MOVEW PROMPTWINDOW (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 750) WIDTH _ 550 HEIGHT _ 89 BOTTOM _ (IDIFFERENCE SCREENHEIGHT 89))) (AND LOGOW (CLOSEW LOGOW)) (SELECTQ MACHINE (DOVE (* ;; "Daybreak. Set up special key actions for typing convenience.") [KEYACTION 'KEYPAD9 '((57 188 NOLOCKSHIFT) . IGNORE] (* ; "1/4") [KEYACTION 'KEYPAD6 '((174 189 NOLOCKSHIFT) . IGNORE] (* ; "1/2") [KEYACTION 'KEYPAD3 '((51 190 NOLOCKSHIFT) . IGNORE] (* ; "3/4") ) (DORADO (* ;; "Dorado. Set up a meta key and some TEdit commands.") (TTYINMETA T) (TEDIT.SETFUNCTION (CHARCODE %##F) '\TEDIT.FIND) (TEDIT.SETFUNCTION (CHARCODE %##f) '\TEDIT.FIND) (TEDIT.SETSYNTAX 27 'REDO) (TEDIT.SETSYNTAX (CHARCODE %##U) 'UNDO) (TEDIT.SETSYNTAX (CHARCODE %##u) 'UNDO) (FILESLOAD TEDITDORADOKEYS)) (DANDELION) (DOLPHIN) (SHOULDNT]) ) (RPAQQ SYSOUTGAG T) (RPAQQ PROMPT#FLG T) (RPAQQ CLEANUPOPTIONS (RC ST)) (RPAQ **COMMENT**FLG " (* --) ") (RPAQ BREAKDELIMITER ", ") (RPAQQ GRAYSHADE 21930) (RPAQQ WINDOWBACKGROUNDSHADE 14316) (RPAQQ RECOMPILDEFAULT EXPRS) (RPAQQ DEFAULTPRINTINGHOST (TSUNAMI%: TREMOR%: YODA)) (* ; "To defeat the IDLE program") (RPAQQ IDLE.PROFILE (TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (RPAQQ IDLE.TIMEOUT NIL) (RPAQQ IDLE.DEFAULTMODE UNLOCKED) (ADDTOVAR DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (ADDTOVAR DISPLAYFONTEXTENSIONS AC) (ADDTOVAR PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (* ; "Load the benchmark files") (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{dsk}Gabriel>Tools>GABRIEL-OTHER.dfasl") (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL") (GABRIEL::RUN-BENCHMARKS GABRIEL::*POLY-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-POLY.Results) (LOGOUT T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA PPR) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (3382 6937 (MM 3392 . 3616) (PPR 3618 . 4077) (JDSINIT 4079 . 6935))))) STOP \ No newline at end of file diff --git a/internal/gabriel/tools/BENCH-5 b/internal/gabriel/tools/BENCH-5 deleted file mode 100644 index c0c0b0ac..00000000 --- a/internal/gabriel/tools/BENCH-5 +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jun-88 13:30:52" "{ERIS}GABRIEL>TOOLS>BENCH-5.;1" 8462 changes to%: (VARS BENCH-5COMS) previous date%: "22-Apr-88 20:08:12" {ERIS}INIT.;23) (PRETTYCOMPRINT BENCH-5COMS) (RPAQQ BENCH-5COMS [ (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started.") (* ;; "This INIT file runs the %"MISC%" benchmark sets.") (FNS MM PPR JDSINIT) [VARS (SYSOUTGAG T) (PROMPT#FLG T) (CLEANUPOPTIONS '(RC ST)) (**COMMENT**FLG " (* --) ") (BREAKDELIMITER ", ") (GRAYSHADE 21930) (WINDOWBACKGROUNDSHADE 14316) (RECOMPILDEFAULT 'EXPRS) (DEFAULTPRINTINGHOST '(TSUNAMI%: TREMOR%: YODA] [COMS (* ; "To defeat the IDLE program") (VARS (IDLE.PROFILE '(TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (IDLE.TIMEOUT NIL) (IDLE.DEFAULTMODE 'UNLOCKED] (ADDVARS (DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (DISPLAYFONTEXTENSIONS AC) (PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>")) (COMS (* ; "Load the benchmark files") (P (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{dsk}Gabriel>Tools>MISC-BENCHMARKS.dfasl"))) (P (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL")) (P (GABRIEL::RUN-BENCHMARKS GABRIEL::*MISC-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-MISC.Results)) (P (LOGOUT T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPR) (NLAML) (LAMA]) (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started." ) (* ;; "This INIT file runs the %"MISC%" benchmark sets.") (DEFINEQ (MM [LAMBDA (X) (* ; "Edited 21-Jul-87 18:04 by jds") (COND ((LISTP X) (for V in X collect (FTIMES 60.0 V))) (T (FTIMES 60.0 X]) (PPR [NLAMBDA X (* rrb " 9-JUL-81 15:12") (RESETFORM (OUTPUT T) (MAPC (OR (LISTP X) (LIST X)) (FUNCTION (LAMBDA (R) [PRINTDEF (OR (APPEND (RECLOOK R) (FIELDLOOK R)) (CONS R '(not found] (TERPRI T]) (JDSINIT [LAMBDA NIL (* ; "Edited 17-Jan-88 16:30 by jds") (* ;;; "Machine dependent initialization stuff") (PROG ((MACHINE (MACHINETYPE))) (SETQ LAFITEDISPLAYREGION (create REGION LEFT _ 605 BOTTOM _ 8 HEIGHT _ 300 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITEEDITORREGION (create REGION LEFT _ 605 BOTTOM _ 313 HEIGHT _ 200 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH 200) YCOORD _ (IDIFFERENCE SCREENHEIGHT 30))) (CROCK (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 835) BOTTOM _ (IDIFFERENCE SCREENHEIGHT 80) WIDTH _ 85 HEIGHT _ 72)) (MOVEW PROMPTWINDOW (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 750) WIDTH _ 550 HEIGHT _ 89 BOTTOM _ (IDIFFERENCE SCREENHEIGHT 89))) (AND LOGOW (CLOSEW LOGOW)) (SELECTQ MACHINE (DOVE (* ;; "Daybreak. Set up special key actions for typing convenience.") [KEYACTION 'KEYPAD9 '((57 188 NOLOCKSHIFT) . IGNORE] (* ; "1/4") [KEYACTION 'KEYPAD6 '((174 189 NOLOCKSHIFT) . IGNORE] (* ; "1/2") [KEYACTION 'KEYPAD3 '((51 190 NOLOCKSHIFT) . IGNORE] (* ; "3/4") ) (DORADO (* ;; "Dorado. Set up a meta key and some TEdit commands.") (TTYINMETA T) (TEDIT.SETFUNCTION (CHARCODE %##F) '\TEDIT.FIND) (TEDIT.SETFUNCTION (CHARCODE %##f) '\TEDIT.FIND) (TEDIT.SETSYNTAX 27 'REDO) (TEDIT.SETSYNTAX (CHARCODE %##U) 'UNDO) (TEDIT.SETSYNTAX (CHARCODE %##u) 'UNDO) (FILESLOAD TEDITDORADOKEYS)) (DANDELION) (DOLPHIN) (SHOULDNT]) ) (RPAQQ SYSOUTGAG T) (RPAQQ PROMPT#FLG T) (RPAQQ CLEANUPOPTIONS (RC ST)) (RPAQ **COMMENT**FLG " (* --) ") (RPAQ BREAKDELIMITER ", ") (RPAQQ GRAYSHADE 21930) (RPAQQ WINDOWBACKGROUNDSHADE 14316) (RPAQQ RECOMPILDEFAULT EXPRS) (RPAQQ DEFAULTPRINTINGHOST (TSUNAMI%: TREMOR%: YODA)) (* ; "To defeat the IDLE program") (RPAQQ IDLE.PROFILE (TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (RPAQQ IDLE.TIMEOUT NIL) (RPAQQ IDLE.DEFAULTMODE UNLOCKED) (ADDTOVAR DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (ADDTOVAR DISPLAYFONTEXTENSIONS AC) (ADDTOVAR PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (* ; "Load the benchmark files") (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{dsk}Gabriel>Tools>MISC-BENCHMARKS.dfasl") (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL") (GABRIEL::RUN-BENCHMARKS GABRIEL::*MISC-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-MISC.Results) (LOGOUT T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA PPR) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (3372 6927 (MM 3382 . 3606) (PPR 3608 . 4067) (JDSINIT 4069 . 6925))))) STOP \ No newline at end of file diff --git a/internal/gabriel/tools/BENCH-5.~1~ b/internal/gabriel/tools/BENCH-5.~1~ deleted file mode 100644 index faf96d85..00000000 --- a/internal/gabriel/tools/BENCH-5.~1~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jun-88 13:30:52" "{ERIS}GABRIEL>TOOLS>BENCH-5.;1" 8462 changes to%: (VARS BENCH-5COMS) previous date%: "22-Apr-88 20:08:12" {ERIS}INIT.;23) (PRETTYCOMPRINT BENCH-5COMS) (RPAQQ BENCH-5COMS [ (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started.") (* ;; "This INIT file runs the %"MISC%" benchmark sets.") (FNS MM PPR JDSINIT) [VARS (SYSOUTGAG T) (PROMPT#FLG T) (CLEANUPOPTIONS '(RC ST)) (**COMMENT**FLG " (* --) ") (BREAKDELIMITER ", ") (GRAYSHADE 21930) (WINDOWBACKGROUNDSHADE 14316) (RECOMPILDEFAULT 'EXPRS) (DEFAULTPRINTINGHOST '(TSUNAMI%: TREMOR%: YODA] [COMS (* ; "To defeat the IDLE program") (VARS (IDLE.PROFILE '(TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (IDLE.TIMEOUT NIL) (IDLE.DEFAULTMODE 'UNLOCKED] (ADDVARS (DIRECTORIES {ERIS}Gabriel>Tools> {ERIS}Gabriel>Benchmarks> {DSK}) (DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>") (DISPLAYFONTEXTENSIONS AC) (PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>")) (COMS (* ; "Load the benchmark files") (P (LOAD "{Eris}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{Eris}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{Eris}Gabriel>Tools>MISC-BENCHMARKS.dfasl"))) (P (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL")) (P (GABRIEL::RUN-BENCHMARKS GABRIEL::*MISC-BENCHMARKS* '{Eris}Gabriel>Results>Maiko>SUN-PAV-MISC.Results)) (P (LOGOUT T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPR) (NLAML) (LAMA]) (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started." ) (* ;; "This INIT file runs the %"MISC%" benchmark sets.") (DEFINEQ (MM [LAMBDA (X) (* ; "Edited 21-Jul-87 18:04 by jds") (COND ((LISTP X) (for V in X collect (FTIMES 60.0 V))) (T (FTIMES 60.0 X]) (PPR [NLAMBDA X (* rrb " 9-JUL-81 15:12") (RESETFORM (OUTPUT T) (MAPC (OR (LISTP X) (LIST X)) (FUNCTION (LAMBDA (R) [PRINTDEF (OR (APPEND (RECLOOK R) (FIELDLOOK R)) (CONS R '(not found] (TERPRI T]) (JDSINIT [LAMBDA NIL (* ; "Edited 17-Jan-88 16:30 by jds") (* ;;; "Machine dependent initialization stuff") (PROG ((MACHINE (MACHINETYPE))) (SETQ LAFITEDISPLAYREGION (create REGION LEFT _ 605 BOTTOM _ 8 HEIGHT _ 300 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITEEDITORREGION (create REGION LEFT _ 605 BOTTOM _ 313 HEIGHT _ 200 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH 200) YCOORD _ (IDIFFERENCE SCREENHEIGHT 30))) (CROCK (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 835) BOTTOM _ (IDIFFERENCE SCREENHEIGHT 80) WIDTH _ 85 HEIGHT _ 72)) (MOVEW PROMPTWINDOW (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 750) WIDTH _ 550 HEIGHT _ 89 BOTTOM _ (IDIFFERENCE SCREENHEIGHT 89))) (AND LOGOW (CLOSEW LOGOW)) (SELECTQ MACHINE (DOVE (* ;; "Daybreak. Set up special key actions for typing convenience.") [KEYACTION 'KEYPAD9 '((57 188 NOLOCKSHIFT) . IGNORE] (* ; "1/4") [KEYACTION 'KEYPAD6 '((174 189 NOLOCKSHIFT) . IGNORE] (* ; "1/2") [KEYACTION 'KEYPAD3 '((51 190 NOLOCKSHIFT) . IGNORE] (* ; "3/4") ) (DORADO (* ;; "Dorado. Set up a meta key and some TEdit commands.") (TTYINMETA T) (TEDIT.SETFUNCTION (CHARCODE %##F) '\TEDIT.FIND) (TEDIT.SETFUNCTION (CHARCODE %##f) '\TEDIT.FIND) (TEDIT.SETSYNTAX 27 'REDO) (TEDIT.SETSYNTAX (CHARCODE %##U) 'UNDO) (TEDIT.SETSYNTAX (CHARCODE %##u) 'UNDO) (FILESLOAD TEDITDORADOKEYS)) (DANDELION) (DOLPHIN) (SHOULDNT]) ) (RPAQQ SYSOUTGAG T) (RPAQQ PROMPT#FLG T) (RPAQQ CLEANUPOPTIONS (RC ST)) (RPAQ **COMMENT**FLG " (* --) ") (RPAQ BREAKDELIMITER ", ") (RPAQQ GRAYSHADE 21930) (RPAQQ WINDOWBACKGROUNDSHADE 14316) (RPAQQ RECOMPILDEFAULT EXPRS) (RPAQQ DEFAULTPRINTINGHOST (TSUNAMI%: TREMOR%: YODA)) (* ; "To defeat the IDLE program") (RPAQQ IDLE.PROFILE (TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (RPAQQ IDLE.TIMEOUT NIL) (RPAQQ IDLE.DEFAULTMODE UNLOCKED) (ADDTOVAR DIRECTORIES {ERIS}Gabriel>Tools> {ERIS}Gabriel>Benchmarks> {DSK}) (ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>") (ADDTOVAR DISPLAYFONTEXTENSIONS AC) (ADDTOVAR PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{Eris}XeroxPrivate>Fonts>") (* ; "Load the benchmark files") (LOAD "{Eris}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{Eris}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{Eris}Gabriel>Tools>MISC-BENCHMARKS.dfasl") (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL") (GABRIEL::RUN-BENCHMARKS GABRIEL::*MISC-BENCHMARKS* '{Eris}Gabriel>Results>Maiko>SUN-PAV-MISC.Results) (LOGOUT T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA PPR) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (3372 6927 (MM 3382 . 3606) (PPR 3608 . 4067) (JDSINIT 4069 . 6925))))) STOP \ No newline at end of file diff --git a/internal/gabriel/tools/BENCH-5.~2~ b/internal/gabriel/tools/BENCH-5.~2~ deleted file mode 100644 index c0c0b0ac..00000000 --- a/internal/gabriel/tools/BENCH-5.~2~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "30-Jun-88 13:30:52" "{ERIS}GABRIEL>TOOLS>BENCH-5.;1" 8462 changes to%: (VARS BENCH-5COMS) previous date%: "22-Apr-88 20:08:12" {ERIS}INIT.;23) (PRETTYCOMPRINT BENCH-5COMS) (RPAQQ BENCH-5COMS [ (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started.") (* ;; "This INIT file runs the %"MISC%" benchmark sets.") (FNS MM PPR JDSINIT) [VARS (SYSOUTGAG T) (PROMPT#FLG T) (CLEANUPOPTIONS '(RC ST)) (**COMMENT**FLG " (* --) ") (BREAKDELIMITER ", ") (GRAYSHADE 21930) (WINDOWBACKGROUNDSHADE 14316) (RECOMPILDEFAULT 'EXPRS) (DEFAULTPRINTINGHOST '(TSUNAMI%: TREMOR%: YODA] [COMS (* ; "To defeat the IDLE program") (VARS (IDLE.PROFILE '(TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (IDLE.TIMEOUT NIL) (IDLE.DEFAULTMODE 'UNLOCKED] (ADDVARS (DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (DISPLAYFONTEXTENSIONS AC) (PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>")) (COMS (* ; "Load the benchmark files") (P (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{dsk}Gabriel>Tools>MISC-BENCHMARKS.dfasl"))) (P (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL")) (P (GABRIEL::RUN-BENCHMARKS GABRIEL::*MISC-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-MISC.Results)) (P (LOGOUT T)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA PPR) (NLAML) (LAMA]) (* ;; "This is the INIT file that runs part 2 of the benchmarks on a SUN. It is put in place as INIT.LISP by a shell script, then Lisp is started." ) (* ;; "This INIT file runs the %"MISC%" benchmark sets.") (DEFINEQ (MM [LAMBDA (X) (* ; "Edited 21-Jul-87 18:04 by jds") (COND ((LISTP X) (for V in X collect (FTIMES 60.0 V))) (T (FTIMES 60.0 X]) (PPR [NLAMBDA X (* rrb " 9-JUL-81 15:12") (RESETFORM (OUTPUT T) (MAPC (OR (LISTP X) (LIST X)) (FUNCTION (LAMBDA (R) [PRINTDEF (OR (APPEND (RECLOOK R) (FIELDLOOK R)) (CONS R '(not found] (TERPRI T]) (JDSINIT [LAMBDA NIL (* ; "Edited 17-Jan-88 16:30 by jds") (* ;;; "Machine dependent initialization stuff") (PROG ((MACHINE (MACHINETYPE))) (SETQ LAFITEDISPLAYREGION (create REGION LEFT _ 605 BOTTOM _ 8 HEIGHT _ 300 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITEEDITORREGION (create REGION LEFT _ 605 BOTTOM _ 313 HEIGHT _ 200 WIDTH _ (IDIFFERENCE SCREENWIDTH 608))) (SETQ LAFITESTATUSWINDOWPOSITION (create POSITION XCOORD _ (IDIFFERENCE SCREENWIDTH 200) YCOORD _ (IDIFFERENCE SCREENHEIGHT 30))) (CROCK (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 835) BOTTOM _ (IDIFFERENCE SCREENHEIGHT 80) WIDTH _ 85 HEIGHT _ 72)) (MOVEW PROMPTWINDOW (create REGION LEFT _ (IDIFFERENCE SCREENWIDTH 750) WIDTH _ 550 HEIGHT _ 89 BOTTOM _ (IDIFFERENCE SCREENHEIGHT 89))) (AND LOGOW (CLOSEW LOGOW)) (SELECTQ MACHINE (DOVE (* ;; "Daybreak. Set up special key actions for typing convenience.") [KEYACTION 'KEYPAD9 '((57 188 NOLOCKSHIFT) . IGNORE] (* ; "1/4") [KEYACTION 'KEYPAD6 '((174 189 NOLOCKSHIFT) . IGNORE] (* ; "1/2") [KEYACTION 'KEYPAD3 '((51 190 NOLOCKSHIFT) . IGNORE] (* ; "3/4") ) (DORADO (* ;; "Dorado. Set up a meta key and some TEdit commands.") (TTYINMETA T) (TEDIT.SETFUNCTION (CHARCODE %##F) '\TEDIT.FIND) (TEDIT.SETFUNCTION (CHARCODE %##f) '\TEDIT.FIND) (TEDIT.SETSYNTAX 27 'REDO) (TEDIT.SETSYNTAX (CHARCODE %##U) 'UNDO) (TEDIT.SETSYNTAX (CHARCODE %##u) 'UNDO) (FILESLOAD TEDITDORADOKEYS)) (DANDELION) (DOLPHIN) (SHOULDNT]) ) (RPAQQ SYSOUTGAG T) (RPAQQ PROMPT#FLG T) (RPAQQ CLEANUPOPTIONS (RC ST)) (RPAQ **COMMENT**FLG " (* --) ") (RPAQ BREAKDELIMITER ", ") (RPAQQ GRAYSHADE 21930) (RPAQQ WINDOWBACKGROUNDSHADE 14316) (RPAQQ RECOMPILDEFAULT EXPRS) (RPAQQ DEFAULTPRINTINGHOST (TSUNAMI%: TREMOR%: YODA)) (* ; "To defeat the IDLE program") (RPAQQ IDLE.PROFILE (TIMEOUT NIL FORGET NIL ALLOWED.LOGINS NIL)) (RPAQQ IDLE.TIMEOUT NIL) (RPAQQ IDLE.DEFAULTMODE UNLOCKED) (ADDTOVAR DIRECTORIES {dsk}Gabriel>Tools> {dsk}Gabriel>Benchmarks> {DSK}) (ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (ADDTOVAR DISPLAYFONTEXTENSIONS AC) (ADDTOVAR PRESSFONTWIDTHSFILES {ERIS}SD>FONTS.WIDTHS) (ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}FONTS>" "{dsk}XeroxPrivate>Fonts>") (* ; "Load the benchmark files") (LOAD "{dsk}Gabriel>Tools>GABRIEL-TIMERS.LCOM") (LOAD "{dsk}Gabriel>Tools>IO-BENCHMARKS.LCOM") (LOAD "{dsk}Gabriel>Tools>MISC-BENCHMARKS.dfasl") (RAISE NIL) (GCGAG 500) (CHANGESLICE 100) (XCL:SET-DEFAULT-EXEC-TYPE "IL") (XCL:SET-EXEC-TYPE "IL") (GABRIEL::RUN-BENCHMARKS GABRIEL::*MISC-BENCHMARKS* '{dsk}Gabriel>Results>Maiko>SUN-PAV-MISC.Results) (LOGOUT T) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA PPR) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY (FILEMAP (NIL (3372 6927 (MM 3382 . 3606) (PPR 3608 . 4067) (JDSINIT 4069 . 6925))))) STOP \ No newline at end of file diff --git a/internal/gabriel/tools/GABRIEL-TIMERS b/internal/gabriel/tools/GABRIEL-TIMERS deleted file mode 100644 index a56beeae..00000000 --- a/internal/gabriel/tools/GABRIEL-TIMERS +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "GABRIEL")) (IL:FILECREATED "12-Aug-88 10:32:50" IL:{ERIS}GABRIEL>TOOLS>GABRIEL-TIMERS.\;7 17901 IL:|changes| IL:|to:| (IL:FUNCTIONS RUN-BENCHMARKS) IL:|previous| IL:|date:| "28-Jul-88 03:21:26" IL:{ERIS}GABRIEL>TOOLS>GABRIEL-TIMERS.\;6 ) ; Copyright (c) 1987, 1988 by Xerox Corporation. All rights reserved. (IL:PRETTYCOMPRINT IL:GABRIEL-TIMERSCOMS) (IL:RPAQQ IL:GABRIEL-TIMERSCOMS ( (IL:* IL:|;;| "Main file for running [Gabriel] Benchmark suites in Xerox Lisp:") (IL:COMS (IL:* IL:|;;| "Definitions for the TIMERS type, and the definer for them:") (IL:DEFINE-TYPES TIMERS) (IL:FUNCTIONS DEFINE-TIMER)) (IL:COMS (IL:* IL:|;;| "CONTROL VARIABLES") (IL:* IL:|;;|  " *ALL-TIMERS* - List of all the benchmark definitions you've loaded.") (IL:* IL:|;;|  " *MINIMUM-TESTS* - Min # of times to run each test, defaults to 2.") (IL:VARIABLES *ALL-TIMERS* *MINIMUM-TESTS* *MOST-TIMERS*)) (IL:COMS (IL:* IL:|;;| "Functions for running benchmarks. RUN-BENCHMARKS is the main entry; DESCRIBE-IMPLEMENTATION is a sub-function.") (IL:FUNCTIONS RUN-BENCHMARKS DESCRIBE-IMPLEMENTATION)) (IL:COMS (IL:* IL:|;;| "Functions for running benchmarks and saving the results in a database of benchmarks. RUN-BENCHMARKS-TO-DATABASE is the main entry; DESCRIBE-IMPLEMENTATION is a sub-function.") (IL:FUNCTIONS RUN-BENCHMARKS-TO-DATABASE TIME-CALL ALL-TIME-INDICATORS)) (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:LOCALVARS . T)) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:GABRIEL-TIMERS))) (IL:* IL:|;;| "Main file for running [Gabriel] Benchmark suites in Xerox Lisp:") (IL:* IL:|;;| "Definitions for the TIMERS type, and the definer for them:") (XCL:DEF-DEFINE-TYPE TIMERS "Gabriel Benchmarks") (XCL:DEFDEFINER (DEFINE-TIMER (:NAME (LAMBDA (WHOLE) (IF (CONSP (SECOND WHOLE)) (CAR (SECOND WHOLE)) (SECOND WHOLE))))) TIMERS (NAME-AND-OPTIONS DOCUMENTATION &BODY BODY) (LET ((NAME (IF (CONSP NAME-AND-OPTIONS) (CAR NAME-AND-OPTIONS) NAME-AND-OPTIONS)) (SETUPFORM (CADR (ASSOC ':SETUP NAME-AND-OPTIONS))) (AFTER-EVERY-FORM (CADR (ASSOC ':AFTER-EVERY NAME-AND-OPTIONS))) (AFTERFORM (CADR (ASSOC ':AFTER NAME-AND-OPTIONS)))) (LET ((TIMER (GENTEMP))) `(PROGN (PUSHNEW ',NAME *ALL-TIMERS*) (DEFUN ,TIMER () ,@BODY) (SETF (GET ',NAME 'TIMING-FUNCTION) ',TIMER) ,@(IF SETUPFORM (LET ((SETUP (GENTEMP))) `((DEFUN ,SETUP () ,SETUPFORM) (SETF (GET ',NAME 'SETUP-FUNCTION) ',SETUP)))) ,@(IF AFTER-EVERY-FORM (LET ((AFTER-EVERY (GENTEMP))) `((DEFUN ,AFTER-EVERY () ,AFTER-EVERY-FORM) (SETF (GET ',NAME 'AFTER-EVERY-FUNCTION) ',AFTER-EVERY)))) ,@(IF AFTERFORM (LET ((AFTER (GENTEMP))) `((DEFUN ,AFTER () ,AFTERFORM) (SETF (GET ',NAME 'AFTER-FUNCTION) ',AFTER)))) (SETF (GET ',NAME 'TIMING-DOCUMENTATION) ,DOCUMENTATION))))) (IL:* IL:|;;| "CONTROL VARIABLES") (IL:* IL:|;;| " *ALL-TIMERS* - List of all the benchmark definitions you've loaded.") (IL:* IL:|;;| " *MINIMUM-TESTS* - Min # of times to run each test, defaults to 2.") (DEFVAR *ALL-TIMERS* NIL) (DEFPARAMETER *MINIMUM-TESTS* 2 "Run each test at least this many times") (DEFVAR *MOST-TIMERS* '(TAKR TAKL TAK STAK CTAK TRIANG TRAVERSE-INIT TRAVERSE TPRINT PUZZLE FPRINT FREAD FFT DIV2-2 DIV2-1 DESTRU DERIV DDERIV BROWSE BOYER TRAVERSE-INIT* TRAVERSE* BROWSE*)) (IL:* IL:|;;| "Functions for running benchmarks. RUN-BENCHMARKS is the main entry; DESCRIBE-IMPLEMENTATION is a sub-function." ) (DEFUN RUN-BENCHMARKS (&OPTIONAL (BENCHMARKS *ALL-TIMERS*) (DRIBBLE-FILE '{DSK}GABRIEL.BENCHMARKS) (NUMBER-OF-ITERATIONS *MINIMUM-TESTS*) (APPEND-DRIBBLE-FILE NIL)) (IL:* IL:|;;| "Run the benchmarks named in BENCHMARKS (defaulting to all known timers)") (IL:* IL:|;;| "Dribble the timings to DRIBBLE-FILE") (IL:* IL:|;;| "Run each test NUMBER-OF-ITERATIONS times.") (LET ((OLD-PACKAGE (PACKAGE-NAME *PACKAGE*)) (*MINIMUM-TESTS* NUMBER-OF-ITERATIONS)) (UNWIND-PROTECT (PROGN (IL:* IL:|;;|  "Set up so we're in the GABRIEL package, and the type-out won't pause on screen-full:") (IN-PACKAGE "GABRIEL") (IL:WINDOWPROP (IL:WFROMDS *STANDARD-OUTPUT*) 'IL:PAGEFULLFN 'IL:NILL) (IL:* IL:|;;|  "Set up the dribble file, and describe the machine we're running on:") (DRIBBLE DRIBBLE-FILE APPEND-DRIBBLE-FILE) (DESCRIBE-IMPLEMENTATION) (LET (TIMING-FUNCTION SETUP-FUNCTION AFTER-EVERY-FUNCTION AFTER-FUNCTION DOCUMENTATION) (DOLIST (BENCHMARK BENCHMARKS) (FORMAT *STANDARD-OUTPUT* "~%~%***** ~A Benchmark ***~%" BENCHMARK) (SETQ TIMING-FUNCTION (GET BENCHMARK 'TIMING-FUNCTION)) (SETQ SETUP-FUNCTION (GET BENCHMARK 'SETUP-FUNCTION)) (SETQ AFTER-EVERY-FUNCTION (GET BENCHMARK 'AFTER-EVERY-FUNCTION)) (SETQ AFTER-FUNCTION (GET BENCHMARK 'AFTER-FUNCTION)) (SETQ DOCUMENTATION (GET BENCHMARK 'TIMING-DOCUMENTATION)) (IF DOCUMENTATION (FORMAT *STANDARD-OUTPUT* "~%~A~%~%" DOCUMENTATION)) (IL:* IL:|;;| "Set up for the test:") (IF SETUP-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating setup for ~a~%" BENCHMARK) (FUNCALL SETUP-FUNCTION))) (IL:* IL:|;;| "Run the test the right number of times:") (DOTIMES (I *MINIMUM-TESTS*) (FORMAT *STANDARD-OUTPUT* "~%Iteration ~s of ~a~%" I BENCHMARK) (IL:* IL:|;;| "Run the timing:") (CL::TIME-CALL #'(LAMBDA NIL (FUNCALL TIMING-FUNCTION)) :TIMED-FORM BENCHMARK :OUTPUT *STANDARD-OUTPUT*) (IL:* IL:|;;| "Run the cleanup-after-each-iteration function:") (IF AFTER-EVERY-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating after every function for ~a~%" BENCHMARK) (FUNCALL AFTER-EVERY-FUNCTION))) (DOTIMES (J 10) (IL:RECLAIM))) (IL:* IL:|;;| "Now clean up after the test:") (IF AFTER-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating after function for ~a~%" BENCHMARK) (FUNCALL AFTER-FUNCTION)))))) (IL:* IL:|;;| "Now clean up: Set the package back as it was, close the dribble file, and restore the page-full function on the main window:") (DRIBBLE) (IN-PACKAGE OLD-PACKAGE) (IL:WINDOWPROP (IL:WFROMDS *STANDARD-OUTPUT*) 'IL:PAGEFULLFN 'NIL)) (FORMAT *STANDARD-OUTPUT* "~%~%Output on ~s~%" DRIBBLE-FILE))) (DEFUN DESCRIBE-IMPLEMENTATION (&OPTIONAL (STREAM *STANDARD-OUTPUT*)) (FORMAT STREAM "~&Lisp Type:~20T~A" (LISP-IMPLEMENTATION-TYPE)) (FORMAT STREAM "~&Lisp Version:~20T~A" (LISP-IMPLEMENTATION-VERSION)) (FORMAT STREAM "~&Software Type:~20T~A" (SOFTWARE-TYPE)) (FORMAT STREAM "~&Software Version:~20T~A" (SOFTWARE-VERSION)) (FORMAT STREAM "~&Machine Type:~20T~A" (MACHINE-TYPE)) (FORMAT STREAM "~&Machine Version:~20T~A" (MACHINE-VERSION)) (FORMAT STREAM "~&Machine Instance:~20T~A" (MACHINE-INSTANCE)) (FORMAT STREAM "~&Site:~20T~A" (LONG-SITE-NAME)) (FORMAT STREAM "~&Features:~20T~S" *FEATURES*)) (IL:* IL:|;;| "Functions for running benchmarks and saving the results in a database of benchmarks. RUN-BENCHMARKS-TO-DATABASE is the main entry; DESCRIBE-IMPLEMENTATION is a sub-function." ) (DEFUN RUN-BENCHMARKS-TO-DATABASE (&OPTIONAL (BENCHMARKS *ALL-TIMERS*) (DRIBBLE-FILE '{DSK}GABRIEL.BENCHMARKS) (NUMBER-OF-ITERATIONS *MINIMUM-TESTS*) (TOTAL-TIMES-FILE '{DSK} GABRIEL.TOTALTIMES)) (IL:* IL:|;;| "Run the benchmarks named in BENCHMARKS (defaulting to all known timers)") (IL:* IL:|;;| "Dribble the timings to DRIBBLE-FILE") (IL:* IL:|;;| "Run each test NUMBER-OF-ITERATIONS times.") (LET ((OLD-PACKAGE (PACKAGE-NAME *PACKAGE*)) (*MINIMUM-TESTS* NUMBER-OF-ITERATIONS) TOTALTIMES TIMES AVG-TIMES) (UNWIND-PROTECT (PROGN (IL:* IL:|;;|  "Set up so we're in the GABRIEL package, and the type-out won't pause on screen-full:") (IN-PACKAGE "GABRIEL") (IL:WINDOWPROP (IL:WFROMDS *STANDARD-OUTPUT*) 'IL:PAGEFULLFN 'IL:NILL) (IL:* IL:|;;| "Set up the dribble file, and describe the machine we're running on:") (DRIBBLE DRIBBLE-FILE) (DESCRIBE-IMPLEMENTATION) (LET (TIMING-FUNCTION SETUP-FUNCTION AFTER-EVERY-FUNCTION AFTER-FUNCTION DOCUMENTATION) (WITH-OPEN-FILE (RESULT-STREAM TOTAL-TIMES-FILE :DIRECTION :OUTPUT :IF-EXISTS :NEW-VERSION) (DOLIST (BENCHMARK BENCHMARKS) (FORMAT *STANDARD-OUTPUT* "~%~%***** ~A Benchmark ***~%" BENCHMARK) (SETQ TIMING-FUNCTION (GET BENCHMARK 'TIMING-FUNCTION)) (SETQ SETUP-FUNCTION (GET BENCHMARK 'SETUP-FUNCTION)) (SETQ AFTER-EVERY-FUNCTION (GET BENCHMARK 'AFTER-EVERY-FUNCTION)) (SETQ AFTER-FUNCTION (GET BENCHMARK 'AFTER-FUNCTION)) (SETQ DOCUMENTATION (GET BENCHMARK 'TIMING-DOCUMENTATION)) (IF DOCUMENTATION (FORMAT *STANDARD-OUTPUT* "~%~A~%~%" DOCUMENTATION)) (IL:* IL:|;;| "Set up for the test:") (IF SETUP-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating setup for ~a~%" BENCHMARK) (FUNCALL SETUP-FUNCTION))) (IL:* IL:|;;| "Run the test the right number of times:") (DOTIMES (I *MINIMUM-TESTS*) (FORMAT *STANDARD-OUTPUT* "~%Iteration ~s of ~a~%" I BENCHMARK) (IL:* IL:|;;| "Run the timing:") (SETQ TIMES (CONS (TIME-CALL #'(LAMBDA NIL (FUNCALL TIMING-FUNCTION)) :TIMED-FORM BENCHMARK :OUTPUT *STANDARD-OUTPUT*) TIMES)) (IL:* IL:|;;| "Run the cleanup-after-each-iteration function:") (IF AFTER-EVERY-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating after every function for ~a~%" BENCHMARK) (FUNCALL AFTER-EVERY-FUNCTION))) (DOTIMES (J 10) (IL:RECLAIM))) (IL:* IL:|;;| "Now clean up after the test:") (IF AFTER-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating after function for ~a~%" BENCHMARK) (FUNCALL AFTER-FUNCTION))) (IL:* IL:|;;| "Now compute the average times for this group of runs:") (DOLIST (INDICATOR (ALL-TIME-INDICATORS TIMES)) (IL:* IL:|;;| "TOTAL THE TIMES") (IL:* IL:|;;| "COMPUTE THE AVERAGE") (IL:* IL:|;;| "ADD TO TOTALTIMES FOR THIS TIMING.") (SETQ AVG-TIMES (APPEND (LIST INDICATOR (/ (IL:FOR TIME-LIST IL:IN TIMES IL:SUM (OR (IL:LISTGET TIME-LIST INDICATOR) 0)) *MINIMUM-TESTS*)) AVG-TIMES))) (PRINT (LIST BENCHMARK (IL:DATE) AVG-TIMES (REVERSE TIMES)) RESULT-STREAM))))) (IL:* IL:|;;| "Now clean up: Set the package back as it was, close the dribble file, and restore the page-full function on the main window:") (DRIBBLE) (IN-PACKAGE OLD-PACKAGE) (IL:WINDOWPROP (IL:WFROMDS *STANDARD-OUTPUT*) 'IL:PAGEFULLFN 'NIL)) (FORMAT *STANDARD-OUTPUT* "~%~%Output on ~s~%" DRIBBLE-FILE))) (DEFUN TIME-CALL (CL::TIMED-FUNCTION &KEY (CL::OUTPUT *TRACE-OUTPUT*) (CL::TIMED-FORM NIL CL::TIMED-FORM-P) (CL::DATA-TYPES (IL:DATATYPES)) (CL::REPEAT 1)) (LET ((VALUES NIL) (CL::TIME-BEFORE (CL::MAKE-STATS-OBJECT)) (CL::TIME-AFTER (CL::MAKE-STATS-OBJECT)) (CL::TIME-DO-NOTHING (CL::MAKE-STATS-OBJECT))) (IL:* IL:|;;| "Calibrate") (CL::%GET-TIMING-INFO #'(LAMBDA NIL NIL) CL::TIME-BEFORE CL::TIME-DO-NOTHING) (SETQ VALUES (MULTIPLE-VALUE-LIST (CL::%GET-TIMING-INFO CL::TIMED-FUNCTION CL::TIME-BEFORE CL::TIME-AFTER CL::REPEAT))) (CL::%STATS-OBJECT-DIFFERENCE CL::TIME-DO-NOTHING CL::TIME-AFTER) (IF CL::TIMED-FORM-P (CL::TIME-FORMAT CL::OUTPUT "Timing for ~[~;~:;~:* ~D x~]:~20T ~S~&" CL::REPEAT CL::TIMED-FORM)) (CL::%PRINT-TIMING-ITEM CL::OUTPUT "Elapsed time" (CL::STATS-OBJECT-ELAPSED-TIME CL::TIME-AFTER) T T) (CL::%PRINT-TIMING-INFO CL::OUTPUT CL::TIME-AFTER CL::DATA-TYPES) (LIST ':TOTAL (CL::STATS-OBJECT-ELAPSED-TIME CL::TIME-AFTER) :GC (IL:|fetch| (IL:MISCSTATS IL:GCTIME) IL:|of| (CL::STATS-OBJECT-TIME-BLOCK CL::TIME-AFTER)) :SWAP (IL:|fetch| (IL:MISCSTATS IL:SWAPWAITTIME) IL:|of| (CL::STATS-OBJECT-TIME-BLOCK CL::TIME-AFTER)) :I/O (IL:|fetch| (IL:MISCSTATS IL:DISKIOTIME) IL:|of| (CL::STATS-OBJECT-TIME-BLOCK CL::TIME-AFTER))))) (DEFUN ALL-TIME-INDICATORS (TIME-LIST) (LET (ALL-INDICATORS) (DOLIST (TIMES TIME-LIST) (SETQ ALL-INDICATORS (UNION ALL-INDICATORS (IL:FOR IND IL:IN TIMES IL:BY CDDR IL:COLLECT IND)))) ALL-INDICATORS)) (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:DECLARE\: IL:DOEVAL@COMPILE IL:DONTCOPY (IL:LOCALVARS . T) ) ) (IL:PUTPROPS IL:GABRIEL-TIMERS IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:GABRIEL-TIMERS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (XCL:DEFPACKAGE "GABRIEL"))) (IL:PUTPROPS IL:GABRIEL-TIMERS IL:COPYRIGHT ("Xerox Corporation" 1987 1988)) (IL:DECLARE\: IL:DONTCOPY (IL:FILEMAP (NIL))) IL:STOP \ No newline at end of file diff --git a/internal/gabriel/tools/GABRIEL-TIMERS.LCOM b/internal/gabriel/tools/GABRIEL-TIMERS.LCOM deleted file mode 100644 index 29adca17..00000000 --- a/internal/gabriel/tools/GABRIEL-TIMERS.LCOM +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "GABRIEL")) (IL:FILECREATED "20-Oct-2020 02:46:56" ("compiled on " IL:|{DSK}larry>ilisp>envos>lispcore>gabriel>tools>GABRIEL-TIMERS.;1|) " 9-Apr-2000 18:01:32" IL:|bcompl'd| IL:|in| "Medley 3.5 Full Sysout 13-Aug-2020 ..." IL:|dated| "13-Aug-2020 12:39:12") (IL:FILECREATED "12-Aug-88 10:32:50" IL:{ERIS}GABRIEL>TOOLS>GABRIEL-TIMERS.\;7 17901 IL:|changes| IL:|to:| (IL:FUNCTIONS RUN-BENCHMARKS) IL:|previous| IL:|date:| "28-Jul-88 03:21:26" IL:{ERIS}GABRIEL>TOOLS>GABRIEL-TIMERS.\;6) (IL:PRETTYCOMPRINT IL:GABRIEL-TIMERSCOMS) (IL:RPAQQ IL:GABRIEL-TIMERSCOMS ((IL:* IL:|;;| "Main file for running [Gabriel] Benchmark suites in Xerox Lisp:") (IL:COMS (IL:* IL:|;;| "Definitions for the TIMERS type, and the definer for them:") (IL:DEFINE-TYPES TIMERS) (IL:FUNCTIONS DEFINE-TIMER)) (IL:COMS (IL:* IL:|;;| "CONTROL VARIABLES") (IL:* IL:|;;| " *ALL-TIMERS* - List of all the benchmark definitions you've loaded.") (IL:* IL:|;;| " *MINIMUM-TESTS* - Min # of times to run each test, defaults to 2.") (IL:VARIABLES *ALL-TIMERS* *MINIMUM-TESTS* *MOST-TIMERS*)) (IL:COMS (IL:* IL:|;;| "Functions for running benchmarks. RUN-BENCHMARKS is the main entry; DESCRIBE-IMPLEMENTATION is a sub-function." ) (IL:FUNCTIONS RUN-BENCHMARKS DESCRIBE-IMPLEMENTATION)) (IL:COMS (IL:* IL:|;;| "Functions for running benchmarks and saving the results in a database of benchmarks. RUN-BENCHMARKS-TO-DATABASE is the main entry; DESCRIBE-IMPLEMENTATION is a sub-function." ) (IL:FUNCTIONS RUN-BENCHMARKS-TO-DATABASE TIME-CALL ALL-TIME-INDICATORS)) (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:LOCALVARS . T)) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:GABRIEL-TIMERS ))) (XCL:DEF-DEFINE-TYPE TIMERS "Gabriel Benchmarks") (XCL:DEFDEFINER (DEFINE-TIMER (:NAME (LAMBDA (WHOLE) (IF (CONSP (SECOND WHOLE)) (CAR (SECOND WHOLE)) ( SECOND WHOLE))))) TIMERS (NAME-AND-OPTIONS DOCUMENTATION &BODY BODY) (LET ((NAME (IF (CONSP NAME-AND-OPTIONS) (CAR NAME-AND-OPTIONS) NAME-AND-OPTIONS)) (SETUPFORM (CADR (ASSOC (QUOTE :SETUP) NAME-AND-OPTIONS))) (AFTER-EVERY-FORM (CADR (ASSOC (QUOTE :AFTER-EVERY) NAME-AND-OPTIONS))) (AFTERFORM (CADR (ASSOC (QUOTE :AFTER) NAME-AND-OPTIONS)))) (LET ((TIMER (GENTEMP))) (IL:BQUOTE (PROGN (PUSHNEW (QUOTE (IL:\\\, NAME)) *ALL-TIMERS*) (DEFUN (IL:\\\, TIMER) NIL (IL:\\\,@ BODY)) (SETF (GET (QUOTE ( IL:\\\, NAME)) (QUOTE TIMING-FUNCTION)) (QUOTE (IL:\\\, TIMER))) (IL:\\\,@ (IF SETUPFORM (LET ((SETUP (GENTEMP))) (IL:BQUOTE ((DEFUN (IL:\\\, SETUP) NIL (IL:\\\, SETUPFORM)) (SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE SETUP-FUNCTION)) (QUOTE (IL:\\\, SETUP)))))))) (IL:\\\,@ (IF AFTER-EVERY-FORM (LET (( AFTER-EVERY (GENTEMP))) (IL:BQUOTE ((DEFUN (IL:\\\, AFTER-EVERY) NIL (IL:\\\, AFTER-EVERY-FORM)) (SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE AFTER-EVERY-FUNCTION)) (QUOTE (IL:\\\, AFTER-EVERY)))))))) (IL:\\\,@ (IF AFTERFORM (LET ((AFTER (GENTEMP))) (IL:BQUOTE ((DEFUN (IL:\\\, AFTER) NIL (IL:\\\, AFTERFORM)) ( SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE AFTER-FUNCTION)) (QUOTE (IL:\\\, AFTER)))))))) (SETF (GET ( QUOTE (IL:\\\, NAME)) (QUOTE TIMING-DOCUMENTATION)) (IL:\\\, DOCUMENTATION))))))) (DEFVAR *ALL-TIMERS* NIL) (DEFPARAMETER *MINIMUM-TESTS* 2 "Run each test at least this many times") (DEFVAR *MOST-TIMERS* (QUOTE (TAKR TAKL TAK STAK CTAK TRIANG TRAVERSE-INIT TRAVERSE TPRINT PUZZLE FPRINT FREAD FFT DIV2-2 DIV2-1 DESTRU DERIV DDERIV BROWSE BOYER TRAVERSE-INIT* TRAVERSE* BROWSE*))) (DEFUN RUN-BENCHMARKS (&OPTIONAL (BENCHMARKS *ALL-TIMERS*) (DRIBBLE-FILE (QUOTE {DSK}GABRIEL.BENCHMARKS)) (NUMBER-OF-ITERATIONS *MINIMUM-TESTS*) (APPEND-DRIBBLE-FILE NIL)) (IL:* IL:|;;| "Run the benchmarks named in BENCHMARKS (defaulting to all known timers)") (IL:* IL:|;;| "Dribble the timings to DRIBBLE-FILE") (IL:* IL:|;;| "Run each test NUMBER-OF-ITERATIONS times.") (LET ((OLD-PACKAGE (PACKAGE-NAME *PACKAGE*)) (*MINIMUM-TESTS* NUMBER-OF-ITERATIONS)) (UNWIND-PROTECT ( PROGN (IL:* IL:|;;| "Set up so we're in the GABRIEL package, and the type-out won't pause on screen-full:") (IN-PACKAGE "GABRIEL") (IL:WINDOWPROP (IL:WFROMDS *STANDARD-OUTPUT*) (QUOTE IL:PAGEFULLFN) (QUOTE IL:NILL)) (IL:* IL:|;;| "Set up the dribble file, and describe the machine we're running on:") (DRIBBLE DRIBBLE-FILE APPEND-DRIBBLE-FILE) (DESCRIBE-IMPLEMENTATION) (LET (TIMING-FUNCTION SETUP-FUNCTION AFTER-EVERY-FUNCTION AFTER-FUNCTION DOCUMENTATION) (DOLIST (BENCHMARK BENCHMARKS) (FORMAT *STANDARD-OUTPUT* "~%~%***** ~A Benchmark ***~%" BENCHMARK) (SETQ TIMING-FUNCTION (GET BENCHMARK ( QUOTE TIMING-FUNCTION))) (SETQ SETUP-FUNCTION (GET BENCHMARK (QUOTE SETUP-FUNCTION))) (SETQ AFTER-EVERY-FUNCTION (GET BENCHMARK (QUOTE AFTER-EVERY-FUNCTION))) (SETQ AFTER-FUNCTION (GET BENCHMARK (QUOTE AFTER-FUNCTION))) (SETQ DOCUMENTATION (GET BENCHMARK (QUOTE TIMING-DOCUMENTATION))) (IF DOCUMENTATION (FORMAT *STANDARD-OUTPUT* "~%~A~%~%" DOCUMENTATION)) (IL:* IL:|;;| "Set up for the test:") (IF SETUP-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating setup for ~a~%" BENCHMARK) (FUNCALL SETUP-FUNCTION))) (IL:* IL:|;;| "Run the test the right number of times:") (DOTIMES (I *MINIMUM-TESTS*) (FORMAT *STANDARD-OUTPUT* "~%Iteration ~s of ~a~%" I BENCHMARK) (IL:* IL:|;;| "Run the timing:") (CL::TIME-CALL (FUNCTION ( LAMBDA NIL (FUNCALL TIMING-FUNCTION))) :TIMED-FORM BENCHMARK :OUTPUT *STANDARD-OUTPUT*) (IL:* IL:|;;| "Run the cleanup-after-each-iteration function:") (IF AFTER-EVERY-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating after every function for ~a~%" BENCHMARK) (FUNCALL AFTER-EVERY-FUNCTION))) (DOTIMES (J 10) (IL:RECLAIM))) (IL:* IL:|;;| "Now clean up after the test:") ( IF AFTER-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating after function for ~a~%" BENCHMARK) ( FUNCALL AFTER-FUNCTION)))))) (IL:* IL:|;;| "Now clean up: Set the package back as it was, close the dribble file, and restore the page-full function on the main window:" ) (DRIBBLE) (IN-PACKAGE OLD-PACKAGE) (IL:WINDOWPROP (IL:WFROMDS *STANDARD-OUTPUT*) (QUOTE IL:PAGEFULLFN ) (QUOTE NIL))) (FORMAT *STANDARD-OUTPUT* "~%~%Output on ~s~%" DRIBBLE-FILE))) (DEFUN DESCRIBE-IMPLEMENTATION (&OPTIONAL (STREAM *STANDARD-OUTPUT*)) (FORMAT STREAM "~&Lisp Type:~20T~A" (LISP-IMPLEMENTATION-TYPE)) (FORMAT STREAM "~&Lisp Version:~20T~A" ( LISP-IMPLEMENTATION-VERSION)) (FORMAT STREAM "~&Software Type:~20T~A" (SOFTWARE-TYPE)) (FORMAT STREAM "~&Software Version:~20T~A" (SOFTWARE-VERSION)) (FORMAT STREAM "~&Machine Type:~20T~A" (MACHINE-TYPE)) (FORMAT STREAM "~&Machine Version:~20T~A" (MACHINE-VERSION)) (FORMAT STREAM "~&Machine Instance:~20T~A" (MACHINE-INSTANCE)) (FORMAT STREAM "~&Site:~20T~A" (LONG-SITE-NAME)) ( FORMAT STREAM "~&Features:~20T~S" *FEATURES*)) (DEFUN RUN-BENCHMARKS-TO-DATABASE (&OPTIONAL (BENCHMARKS *ALL-TIMERS*) (DRIBBLE-FILE (QUOTE {DSK}GABRIEL.BENCHMARKS)) (NUMBER-OF-ITERATIONS *MINIMUM-TESTS*) (TOTAL-TIMES-FILE (QUOTE {DSK}) GABRIEL.TOTALTIMES)) (IL:* IL:|;;| "Run the benchmarks named in BENCHMARKS (defaulting to all known timers)") (IL:* IL:|;;| "Dribble the timings to DRIBBLE-FILE") (IL:* IL:|;;| "Run each test NUMBER-OF-ITERATIONS times.") (LET ((OLD-PACKAGE (PACKAGE-NAME *PACKAGE*)) (*MINIMUM-TESTS* NUMBER-OF-ITERATIONS) TOTALTIMES TIMES AVG-TIMES) (UNWIND-PROTECT (PROGN (IL:* IL:|;;| "Set up so we're in the GABRIEL package, and the type-out won't pause on screen-full:") (IN-PACKAGE "GABRIEL") (IL:WINDOWPROP (IL:WFROMDS *STANDARD-OUTPUT*) (QUOTE IL:PAGEFULLFN) (QUOTE IL:NILL)) (IL:* IL:|;;| "Set up the dribble file, and describe the machine we're running on:") (DRIBBLE DRIBBLE-FILE) (DESCRIBE-IMPLEMENTATION) (LET (TIMING-FUNCTION SETUP-FUNCTION AFTER-EVERY-FUNCTION AFTER-FUNCTION DOCUMENTATION) (WITH-OPEN-FILE (RESULT-STREAM TOTAL-TIMES-FILE :DIRECTION :OUTPUT :IF-EXISTS :NEW-VERSION) (DOLIST (BENCHMARK BENCHMARKS) (FORMAT *STANDARD-OUTPUT* "~%~%***** ~A Benchmark ***~%" BENCHMARK) (SETQ TIMING-FUNCTION (GET BENCHMARK (QUOTE TIMING-FUNCTION))) (SETQ SETUP-FUNCTION (GET BENCHMARK (QUOTE SETUP-FUNCTION))) (SETQ AFTER-EVERY-FUNCTION (GET BENCHMARK (QUOTE AFTER-EVERY-FUNCTION))) (SETQ AFTER-FUNCTION (GET BENCHMARK (QUOTE AFTER-FUNCTION))) (SETQ DOCUMENTATION (GET BENCHMARK (QUOTE TIMING-DOCUMENTATION))) (IF DOCUMENTATION (FORMAT *STANDARD-OUTPUT* "~%~A~%~%" DOCUMENTATION)) (IL:* IL:|;;| "Set up for the test:") (IF SETUP-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating setup for ~a~%" BENCHMARK) (FUNCALL SETUP-FUNCTION))) ( IL:* IL:|;;| "Run the test the right number of times:") (DOTIMES (I *MINIMUM-TESTS*) (FORMAT *STANDARD-OUTPUT* "~%Iteration ~s of ~a~%" I BENCHMARK) (IL:* IL:|;;| "Run the timing:") (SETQ TIMES ( CONS (TIME-CALL (FUNCTION (LAMBDA NIL (FUNCALL TIMING-FUNCTION))) :TIMED-FORM BENCHMARK :OUTPUT *STANDARD-OUTPUT*) TIMES)) (IL:* IL:|;;| "Run the cleanup-after-each-iteration function:") (IF AFTER-EVERY-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating after every function for ~a~%" BENCHMARK) (FUNCALL AFTER-EVERY-FUNCTION))) (DOTIMES (J 10) (IL:RECLAIM))) (IL:* IL:|;;| "Now clean up after the test:") (IF AFTER-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating after function for ~a~%" BENCHMARK) (FUNCALL AFTER-FUNCTION))) (IL:* IL:|;;| "Now compute the average times for this group of runs:") (DOLIST (INDICATOR (ALL-TIME-INDICATORS TIMES )) (IL:* IL:|;;| "TOTAL THE TIMES") (IL:* IL:|;;| "COMPUTE THE AVERAGE") (IL:* IL:|;;| "ADD TO TOTALTIMES FOR THIS TIMING.") (SETQ AVG-TIMES (APPEND (LIST INDICATOR (/ (IL:FOR TIME-LIST IL:IN TIMES IL:SUM (OR (IL:LISTGET TIME-LIST INDICATOR) 0)) *MINIMUM-TESTS*)) AVG-TIMES))) (PRINT (LIST BENCHMARK (IL:DATE) AVG-TIMES (REVERSE TIMES)) RESULT-STREAM))))) (IL:* IL:|;;| "Now clean up: Set the package back as it was, close the dribble file, and restore the page-full function on the main window:" ) (DRIBBLE) (IN-PACKAGE OLD-PACKAGE) (IL:WINDOWPROP (IL:WFROMDS *STANDARD-OUTPUT*) (QUOTE IL:PAGEFULLFN ) (QUOTE NIL))) (FORMAT *STANDARD-OUTPUT* "~%~%Output on ~s~%" DRIBBLE-FILE))) (DEFUN TIME-CALL (CL::TIMED-FUNCTION &KEY (CL::OUTPUT *TRACE-OUTPUT*) (CL::TIMED-FORM NIL CL::TIMED-FORM-P) (CL::DATA-TYPES (IL:DATATYPES)) (CL::REPEAT 1)) (LET ((VALUES NIL) (CL::TIME-BEFORE (CL::MAKE-STATS-OBJECT)) (CL::TIME-AFTER (CL::MAKE-STATS-OBJECT)) (CL::TIME-DO-NOTHING ( CL::MAKE-STATS-OBJECT))) (IL:* IL:|;;| "Calibrate") (CL::%GET-TIMING-INFO (FUNCTION (LAMBDA NIL NIL)) CL::TIME-BEFORE CL::TIME-DO-NOTHING) (SETQ VALUES (MULTIPLE-VALUE-LIST (CL::%GET-TIMING-INFO CL::TIMED-FUNCTION CL::TIME-BEFORE CL::TIME-AFTER CL::REPEAT))) (CL::%STATS-OBJECT-DIFFERENCE CL::TIME-DO-NOTHING CL::TIME-AFTER) (IF CL::TIMED-FORM-P (CL::TIME-FORMAT CL::OUTPUT "Timing for ~[~;~:;~:* ~D x~]:~20T ~S~&" CL::REPEAT CL::TIMED-FORM)) (CL::%PRINT-TIMING-ITEM CL::OUTPUT "Elapsed time" (CL::STATS-OBJECT-ELAPSED-TIME CL::TIME-AFTER) T T) (CL::%PRINT-TIMING-INFO CL::OUTPUT CL::TIME-AFTER CL::DATA-TYPES) (LIST (QUOTE :TOTAL) (CL::STATS-OBJECT-ELAPSED-TIME CL::TIME-AFTER) :GC (IL:|fetch| (IL:MISCSTATS IL:GCTIME) IL:|of| (CL::STATS-OBJECT-TIME-BLOCK CL::TIME-AFTER)) :SWAP ( IL:|fetch| (IL:MISCSTATS IL:SWAPWAITTIME) IL:|of| (CL::STATS-OBJECT-TIME-BLOCK CL::TIME-AFTER)) :I/O ( IL:|fetch| (IL:MISCSTATS IL:DISKIOTIME) IL:|of| (CL::STATS-OBJECT-TIME-BLOCK CL::TIME-AFTER))))) (DEFUN ALL-TIME-INDICATORS (TIME-LIST) (LET (ALL-INDICATORS) (DOLIST (TIMES TIME-LIST) (SETQ ALL-INDICATORS (UNION ALL-INDICATORS (IL:FOR IND IL:IN TIMES IL:BY CDDR IL:COLLECT IND)))) ALL-INDICATORS)) (IL:PUTPROPS IL:GABRIEL-TIMERS IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:GABRIEL-TIMERS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (XCL:DEFPACKAGE "GABRIEL"))) (IL:PUTPROPS IL:GABRIEL-TIMERS IL:COPYRIGHT ("Xerox Corporation" 1987 1988)) NIL \ No newline at end of file diff --git a/internal/gabriel/tools/GABRIEL-TIMERS.LCOM.~1~ b/internal/gabriel/tools/GABRIEL-TIMERS.LCOM.~1~ deleted file mode 100644 index dcb5d18f..00000000 Binary files a/internal/gabriel/tools/GABRIEL-TIMERS.LCOM.~1~ and /dev/null differ diff --git a/internal/gabriel/tools/GABRIEL-TIMERS.LCOM.~2~ b/internal/gabriel/tools/GABRIEL-TIMERS.LCOM.~2~ deleted file mode 100644 index 35802167..00000000 --- a/internal/gabriel/tools/GABRIEL-TIMERS.LCOM.~2~ +++ /dev/null @@ -1,132 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "GABRIEL")) -(IL:FILECREATED "21-Oct-91 23:28:45" ("compiled on " -IL:|{DSK}local>lde>lispcore>gabriel>TOOLS>GABRIEL-TIMERS.;1|) "27-Aug-91 19:40:51" IL:|bcompl'd| -IL:|in| "Medley 28-Aug-91 ..." IL:|dated| "28-Aug-91 09:16:07") -(IL:FILECREATED "12-Aug-88 10:32:50" IL:{ERIS}GABRIEL>TOOLS>GABRIEL-TIMERS.\;7 17901 -IL:|changes| IL:|to:| (IL:FUNCTIONS RUN-BENCHMARKS) IL:|previous| IL:|date:| "28-Jul-88 03:21:26" -IL:{ERIS}GABRIEL>TOOLS>GABRIEL-TIMERS.\;6) -(IL:PRETTYCOMPRINT IL:GABRIEL-TIMERSCOMS) -(IL:RPAQQ IL:GABRIEL-TIMERSCOMS ((IL:* IL:|;;| -"Main file for running [Gabriel] Benchmark suites in Xerox Lisp:") (IL:COMS (IL:* IL:|;;| -"Definitions for the TIMERS type, and the definer for them:") (IL:DEFINE-TYPES TIMERS) (IL:FUNCTIONS -DEFINE-TIMER)) (IL:COMS (IL:* IL:|;;| "CONTROL VARIABLES") (IL:* IL:|;;| -" *ALL-TIMERS* - List of all the benchmark definitions you've loaded.") (IL:* IL:|;;| -" *MINIMUM-TESTS* - Min # of times to run each test, defaults to 2.") (IL:VARIABLES *ALL-TIMERS* -*MINIMUM-TESTS* *MOST-TIMERS*)) (IL:COMS (IL:* IL:|;;| -"Functions for running benchmarks. RUN-BENCHMARKS is the main entry; DESCRIBE-IMPLEMENTATION is a sub-function." -) (IL:FUNCTIONS RUN-BENCHMARKS DESCRIBE-IMPLEMENTATION)) (IL:COMS (IL:* IL:|;;| -"Functions for running benchmarks and saving the results in a database of benchmarks. RUN-BENCHMARKS-TO-DATABASE is the main entry; DESCRIBE-IMPLEMENTATION is a sub-function." -) (IL:FUNCTIONS RUN-BENCHMARKS-TO-DATABASE TIME-CALL ALL-TIME-INDICATORS)) (IL:DECLARE\: IL:DONTCOPY -IL:DOEVAL@COMPILE (IL:LOCALVARS . T)) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:GABRIEL-TIMERS -))) -(XCL:DEF-DEFINE-TYPE TIMERS "Gabriel Benchmarks") -(XCL:DEFDEFINER (DEFINE-TIMER (:NAME (LAMBDA (WHOLE) (IF (CONSP (SECOND WHOLE)) (CAR (SECOND WHOLE)) ( -SECOND WHOLE))))) TIMERS (NAME-AND-OPTIONS DOCUMENTATION &BODY BODY) (LET ((NAME (IF (CONSP -NAME-AND-OPTIONS) (CAR NAME-AND-OPTIONS) NAME-AND-OPTIONS)) (SETUPFORM (CADR (ASSOC (QUOTE :SETUP) -NAME-AND-OPTIONS))) (AFTER-EVERY-FORM (CADR (ASSOC (QUOTE :AFTER-EVERY) NAME-AND-OPTIONS))) (AFTERFORM - (CADR (ASSOC (QUOTE :AFTER) NAME-AND-OPTIONS)))) (LET ((TIMER (GENTEMP))) (IL:BQUOTE (PROGN (PUSHNEW -(QUOTE (IL:\\\, NAME)) *ALL-TIMERS*) (DEFUN (IL:\\\, TIMER) NIL (IL:\\\,@ BODY)) (SETF (GET (QUOTE ( -IL:\\\, NAME)) (QUOTE TIMING-FUNCTION)) (QUOTE (IL:\\\, TIMER))) (IL:\\\,@ (IF SETUPFORM (LET ((SETUP -(GENTEMP))) (IL:BQUOTE ((DEFUN (IL:\\\, SETUP) NIL (IL:\\\, SETUPFORM)) (SETF (GET (QUOTE (IL:\\\, -NAME)) (QUOTE SETUP-FUNCTION)) (QUOTE (IL:\\\, SETUP)))))))) (IL:\\\,@ (IF AFTER-EVERY-FORM (LET (( -AFTER-EVERY (GENTEMP))) (IL:BQUOTE ((DEFUN (IL:\\\, AFTER-EVERY) NIL (IL:\\\, AFTER-EVERY-FORM)) (SETF - (GET (QUOTE (IL:\\\, NAME)) (QUOTE AFTER-EVERY-FUNCTION)) (QUOTE (IL:\\\, AFTER-EVERY)))))))) (IL:\\\,@ - (IF AFTERFORM (LET ((AFTER (GENTEMP))) (IL:BQUOTE ((DEFUN (IL:\\\, AFTER) NIL (IL:\\\, AFTERFORM)) ( -SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE AFTER-FUNCTION)) (QUOTE (IL:\\\, AFTER)))))))) (SETF (GET ( -QUOTE (IL:\\\, NAME)) (QUOTE TIMING-DOCUMENTATION)) (IL:\\\, DOCUMENTATION))))))) -(DEFVAR *ALL-TIMERS* NIL) -(DEFPARAMETER *MINIMUM-TESTS* 2 "Run each test at least this many times") -(DEFVAR *MOST-TIMERS* (QUOTE (TAKR TAKL TAK STAK CTAK TRIANG TRAVERSE-INIT TRAVERSE TPRINT PUZZLE -FPRINT FREAD FFT DIV2-2 DIV2-1 DESTRU DERIV DDERIV BROWSE BOYER TRAVERSE-INIT* TRAVERSE* BROWSE*))) -(DEFUN RUN-BENCHMARKS (&OPTIONAL (BENCHMARKS *ALL-TIMERS*) (DRIBBLE-FILE (QUOTE -{DSK}GABRIEL.BENCHMARKS)) (NUMBER-OF-ITERATIONS *MINIMUM-TESTS*) (APPEND-DRIBBLE-FILE NIL)) (IL:* -IL:|;;| "Run the benchmarks named in BENCHMARKS (defaulting to all known timers)") (IL:* IL:|;;| -"Dribble the timings to DRIBBLE-FILE") (IL:* IL:|;;| "Run each test NUMBER-OF-ITERATIONS times.") (LET - ((OLD-PACKAGE (PACKAGE-NAME *PACKAGE*)) (*MINIMUM-TESTS* NUMBER-OF-ITERATIONS)) (UNWIND-PROTECT ( -PROGN (IL:* IL:|;;| -"Set up so we're in the GABRIEL package, and the type-out won't pause on screen-full:") (IN-PACKAGE -"GABRIEL") (IL:WINDOWPROP (IL:WFROMDS *STANDARD-OUTPUT*) (QUOTE IL:PAGEFULLFN) (QUOTE IL:NILL)) (IL:* -IL:|;;| "Set up the dribble file, and describe the machine we're running on:") (DRIBBLE DRIBBLE-FILE -APPEND-DRIBBLE-FILE) (DESCRIBE-IMPLEMENTATION) (LET (TIMING-FUNCTION SETUP-FUNCTION -AFTER-EVERY-FUNCTION AFTER-FUNCTION DOCUMENTATION) (DOLIST (BENCHMARK BENCHMARKS) (FORMAT -*STANDARD-OUTPUT* "~%~%***** ~A Benchmark ***~%" BENCHMARK) (SETQ TIMING-FUNCTION (GET BENCHMARK ( -QUOTE TIMING-FUNCTION))) (SETQ SETUP-FUNCTION (GET BENCHMARK (QUOTE SETUP-FUNCTION))) (SETQ -AFTER-EVERY-FUNCTION (GET BENCHMARK (QUOTE AFTER-EVERY-FUNCTION))) (SETQ AFTER-FUNCTION (GET BENCHMARK - (QUOTE AFTER-FUNCTION))) (SETQ DOCUMENTATION (GET BENCHMARK (QUOTE TIMING-DOCUMENTATION))) (IF -DOCUMENTATION (FORMAT *STANDARD-OUTPUT* "~%~A~%~%" DOCUMENTATION)) (IL:* IL:|;;| -"Set up for the test:") (IF SETUP-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* -"~%Evaluating setup for ~a~%" BENCHMARK) (FUNCALL SETUP-FUNCTION))) (IL:* IL:|;;| -"Run the test the right number of times:") (DOTIMES (I *MINIMUM-TESTS*) (FORMAT *STANDARD-OUTPUT* -"~%Iteration ~s of ~a~%" I BENCHMARK) (IL:* IL:|;;| "Run the timing:") (CL::TIME-CALL (FUNCTION ( -LAMBDA NIL (FUNCALL TIMING-FUNCTION))) :TIMED-FORM BENCHMARK :OUTPUT *STANDARD-OUTPUT*) (IL:* IL:|;;| -"Run the cleanup-after-each-iteration function:") (IF AFTER-EVERY-FUNCTION (PROGN (FORMAT -*STANDARD-OUTPUT* "~%Evaluating after every function for ~a~%" BENCHMARK) (FUNCALL -AFTER-EVERY-FUNCTION))) (DOTIMES (J 10) (IL:RECLAIM))) (IL:* IL:|;;| "Now clean up after the test:") ( -IF AFTER-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating after function for ~a~%" BENCHMARK) ( -FUNCALL AFTER-FUNCTION)))))) (IL:* IL:|;;| -"Now clean up: Set the package back as it was, close the dribble file, and restore the page-full function on the main window:" -) (DRIBBLE) (IN-PACKAGE OLD-PACKAGE) (IL:WINDOWPROP (IL:WFROMDS *STANDARD-OUTPUT*) (QUOTE IL:PAGEFULLFN -) (QUOTE NIL))) (FORMAT *STANDARD-OUTPUT* "~%~%Output on ~s~%" DRIBBLE-FILE))) -(DEFUN DESCRIBE-IMPLEMENTATION (&OPTIONAL (STREAM *STANDARD-OUTPUT*)) (FORMAT STREAM -"~&Lisp Type:~20T~A" (LISP-IMPLEMENTATION-TYPE)) (FORMAT STREAM "~&Lisp Version:~20T~A" ( -LISP-IMPLEMENTATION-VERSION)) (FORMAT STREAM "~&Software Type:~20T~A" (SOFTWARE-TYPE)) (FORMAT STREAM -"~&Software Version:~20T~A" (SOFTWARE-VERSION)) (FORMAT STREAM "~&Machine Type:~20T~A" (MACHINE-TYPE)) - (FORMAT STREAM "~&Machine Version:~20T~A" (MACHINE-VERSION)) (FORMAT STREAM -"~&Machine Instance:~20T~A" (MACHINE-INSTANCE)) (FORMAT STREAM "~&Site:~20T~A" (LONG-SITE-NAME)) ( -FORMAT STREAM "~&Features:~20T~S" *FEATURES*)) -(DEFUN RUN-BENCHMARKS-TO-DATABASE (&OPTIONAL (BENCHMARKS *ALL-TIMERS*) (DRIBBLE-FILE (QUOTE -{DSK}GABRIEL.BENCHMARKS)) (NUMBER-OF-ITERATIONS *MINIMUM-TESTS*) (TOTAL-TIMES-FILE (QUOTE {DSK}) -GABRIEL.TOTALTIMES)) (IL:* IL:|;;| -"Run the benchmarks named in BENCHMARKS (defaulting to all known timers)") (IL:* IL:|;;| -"Dribble the timings to DRIBBLE-FILE") (IL:* IL:|;;| "Run each test NUMBER-OF-ITERATIONS times.") (LET - ((OLD-PACKAGE (PACKAGE-NAME *PACKAGE*)) (*MINIMUM-TESTS* NUMBER-OF-ITERATIONS) TOTALTIMES TIMES -AVG-TIMES) (UNWIND-PROTECT (PROGN (IL:* IL:|;;| -"Set up so we're in the GABRIEL package, and the type-out won't pause on screen-full:") (IN-PACKAGE -"GABRIEL") (IL:WINDOWPROP (IL:WFROMDS *STANDARD-OUTPUT*) (QUOTE IL:PAGEFULLFN) (QUOTE IL:NILL)) (IL:* -IL:|;;| "Set up the dribble file, and describe the machine we're running on:") (DRIBBLE DRIBBLE-FILE) -(DESCRIBE-IMPLEMENTATION) (LET (TIMING-FUNCTION SETUP-FUNCTION AFTER-EVERY-FUNCTION AFTER-FUNCTION -DOCUMENTATION) (WITH-OPEN-FILE (RESULT-STREAM TOTAL-TIMES-FILE :DIRECTION :OUTPUT :IF-EXISTS -:NEW-VERSION) (DOLIST (BENCHMARK BENCHMARKS) (FORMAT *STANDARD-OUTPUT* "~%~%***** ~A Benchmark ***~%" -BENCHMARK) (SETQ TIMING-FUNCTION (GET BENCHMARK (QUOTE TIMING-FUNCTION))) (SETQ SETUP-FUNCTION (GET -BENCHMARK (QUOTE SETUP-FUNCTION))) (SETQ AFTER-EVERY-FUNCTION (GET BENCHMARK (QUOTE -AFTER-EVERY-FUNCTION))) (SETQ AFTER-FUNCTION (GET BENCHMARK (QUOTE AFTER-FUNCTION))) (SETQ -DOCUMENTATION (GET BENCHMARK (QUOTE TIMING-DOCUMENTATION))) (IF DOCUMENTATION (FORMAT -*STANDARD-OUTPUT* "~%~A~%~%" DOCUMENTATION)) (IL:* IL:|;;| "Set up for the test:") (IF SETUP-FUNCTION -(PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating setup for ~a~%" BENCHMARK) (FUNCALL SETUP-FUNCTION))) ( -IL:* IL:|;;| "Run the test the right number of times:") (DOTIMES (I *MINIMUM-TESTS*) (FORMAT -*STANDARD-OUTPUT* "~%Iteration ~s of ~a~%" I BENCHMARK) (IL:* IL:|;;| "Run the timing:") (SETQ TIMES ( -CONS (TIME-CALL (FUNCTION (LAMBDA NIL (FUNCALL TIMING-FUNCTION))) :TIMED-FORM BENCHMARK :OUTPUT -*STANDARD-OUTPUT*) TIMES)) (IL:* IL:|;;| "Run the cleanup-after-each-iteration function:") (IF -AFTER-EVERY-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating after every function for ~a~%" -BENCHMARK) (FUNCALL AFTER-EVERY-FUNCTION))) (DOTIMES (J 10) (IL:RECLAIM))) (IL:* IL:|;;| -"Now clean up after the test:") (IF AFTER-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* -"~%Evaluating after function for ~a~%" BENCHMARK) (FUNCALL AFTER-FUNCTION))) (IL:* IL:|;;| -"Now compute the average times for this group of runs:") (DOLIST (INDICATOR (ALL-TIME-INDICATORS TIMES -)) (IL:* IL:|;;| "TOTAL THE TIMES") (IL:* IL:|;;| "COMPUTE THE AVERAGE") (IL:* IL:|;;| -"ADD TO TOTALTIMES FOR THIS TIMING.") (SETQ AVG-TIMES (APPEND (LIST INDICATOR (/ (IL:FOR TIME-LIST IL:IN - TIMES IL:SUM (OR (IL:LISTGET TIME-LIST INDICATOR) 0)) *MINIMUM-TESTS*)) AVG-TIMES))) (PRINT (LIST -BENCHMARK (IL:DATE) AVG-TIMES (REVERSE TIMES)) RESULT-STREAM))))) (IL:* IL:|;;| -"Now clean up: Set the package back as it was, close the dribble file, and restore the page-full function on the main window:" -) (DRIBBLE) (IN-PACKAGE OLD-PACKAGE) (IL:WINDOWPROP (IL:WFROMDS *STANDARD-OUTPUT*) (QUOTE IL:PAGEFULLFN -) (QUOTE NIL))) (FORMAT *STANDARD-OUTPUT* "~%~%Output on ~s~%" DRIBBLE-FILE))) -(DEFUN TIME-CALL (CL::TIMED-FUNCTION &KEY (CL::OUTPUT *TRACE-OUTPUT*) (CL::TIMED-FORM NIL -CL::TIMED-FORM-P) (CL::DATA-TYPES (IL:DATATYPES)) (CL::REPEAT 1)) (LET ((VALUES NIL) (CL::TIME-BEFORE -(CL::MAKE-STATS-OBJECT)) (CL::TIME-AFTER (CL::MAKE-STATS-OBJECT)) (CL::TIME-DO-NOTHING ( -CL::MAKE-STATS-OBJECT))) (IL:* IL:|;;| "Calibrate") (CL::%GET-TIMING-INFO (FUNCTION (LAMBDA NIL NIL)) -CL::TIME-BEFORE CL::TIME-DO-NOTHING) (SETQ VALUES (MULTIPLE-VALUE-LIST (CL::%GET-TIMING-INFO -CL::TIMED-FUNCTION CL::TIME-BEFORE CL::TIME-AFTER CL::REPEAT))) (CL::%STATS-OBJECT-DIFFERENCE -CL::TIME-DO-NOTHING CL::TIME-AFTER) (IF CL::TIMED-FORM-P (CL::TIME-FORMAT CL::OUTPUT -"Timing for ~[~;~:;~:* ~D x~]:~20T ~S~&" CL::REPEAT CL::TIMED-FORM)) (CL::%PRINT-TIMING-ITEM CL::OUTPUT - "Elapsed time" (CL::STATS-OBJECT-ELAPSED-TIME CL::TIME-AFTER) T T) (CL::%PRINT-TIMING-INFO CL::OUTPUT - CL::TIME-AFTER CL::DATA-TYPES) (LIST (QUOTE :TOTAL) (CL::STATS-OBJECT-ELAPSED-TIME CL::TIME-AFTER) -:GC (IL:|fetch| (IL:MISCSTATS IL:GCTIME) IL:|of| (CL::STATS-OBJECT-TIME-BLOCK CL::TIME-AFTER)) :SWAP ( -IL:|fetch| (IL:MISCSTATS IL:SWAPWAITTIME) IL:|of| (CL::STATS-OBJECT-TIME-BLOCK CL::TIME-AFTER)) :I/O ( -IL:|fetch| (IL:MISCSTATS IL:DISKIOTIME) IL:|of| (CL::STATS-OBJECT-TIME-BLOCK CL::TIME-AFTER))))) -(DEFUN ALL-TIME-INDICATORS (TIME-LIST) (LET (ALL-INDICATORS) (DOLIST (TIMES TIME-LIST) (SETQ -ALL-INDICATORS (UNION ALL-INDICATORS (IL:FOR IND IL:IN TIMES IL:BY CDDR IL:COLLECT IND)))) -ALL-INDICATORS)) -(IL:PUTPROPS IL:GABRIEL-TIMERS IL:FILETYPE COMPILE-FILE) -(IL:PUTPROPS IL:GABRIEL-TIMERS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (XCL:DEFPACKAGE -"GABRIEL"))) -(IL:PUTPROPS IL:GABRIEL-TIMERS IL:COPYRIGHT ("Xerox Corporation" 1987 1988)) -NIL diff --git a/internal/gabriel/tools/GABRIEL-TIMERS.LCOM.~3~ b/internal/gabriel/tools/GABRIEL-TIMERS.LCOM.~3~ deleted file mode 100644 index 29adca17..00000000 --- a/internal/gabriel/tools/GABRIEL-TIMERS.LCOM.~3~ +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "GABRIEL")) (IL:FILECREATED "20-Oct-2020 02:46:56" ("compiled on " IL:|{DSK}larry>ilisp>envos>lispcore>gabriel>tools>GABRIEL-TIMERS.;1|) " 9-Apr-2000 18:01:32" IL:|bcompl'd| IL:|in| "Medley 3.5 Full Sysout 13-Aug-2020 ..." IL:|dated| "13-Aug-2020 12:39:12") (IL:FILECREATED "12-Aug-88 10:32:50" IL:{ERIS}GABRIEL>TOOLS>GABRIEL-TIMERS.\;7 17901 IL:|changes| IL:|to:| (IL:FUNCTIONS RUN-BENCHMARKS) IL:|previous| IL:|date:| "28-Jul-88 03:21:26" IL:{ERIS}GABRIEL>TOOLS>GABRIEL-TIMERS.\;6) (IL:PRETTYCOMPRINT IL:GABRIEL-TIMERSCOMS) (IL:RPAQQ IL:GABRIEL-TIMERSCOMS ((IL:* IL:|;;| "Main file for running [Gabriel] Benchmark suites in Xerox Lisp:") (IL:COMS (IL:* IL:|;;| "Definitions for the TIMERS type, and the definer for them:") (IL:DEFINE-TYPES TIMERS) (IL:FUNCTIONS DEFINE-TIMER)) (IL:COMS (IL:* IL:|;;| "CONTROL VARIABLES") (IL:* IL:|;;| " *ALL-TIMERS* - List of all the benchmark definitions you've loaded.") (IL:* IL:|;;| " *MINIMUM-TESTS* - Min # of times to run each test, defaults to 2.") (IL:VARIABLES *ALL-TIMERS* *MINIMUM-TESTS* *MOST-TIMERS*)) (IL:COMS (IL:* IL:|;;| "Functions for running benchmarks. RUN-BENCHMARKS is the main entry; DESCRIBE-IMPLEMENTATION is a sub-function." ) (IL:FUNCTIONS RUN-BENCHMARKS DESCRIBE-IMPLEMENTATION)) (IL:COMS (IL:* IL:|;;| "Functions for running benchmarks and saving the results in a database of benchmarks. RUN-BENCHMARKS-TO-DATABASE is the main entry; DESCRIBE-IMPLEMENTATION is a sub-function." ) (IL:FUNCTIONS RUN-BENCHMARKS-TO-DATABASE TIME-CALL ALL-TIME-INDICATORS)) (IL:DECLARE\: IL:DONTCOPY IL:DOEVAL@COMPILE (IL:LOCALVARS . T)) (IL:PROP (IL:FILETYPE IL:MAKEFILE-ENVIRONMENT) IL:GABRIEL-TIMERS ))) (XCL:DEF-DEFINE-TYPE TIMERS "Gabriel Benchmarks") (XCL:DEFDEFINER (DEFINE-TIMER (:NAME (LAMBDA (WHOLE) (IF (CONSP (SECOND WHOLE)) (CAR (SECOND WHOLE)) ( SECOND WHOLE))))) TIMERS (NAME-AND-OPTIONS DOCUMENTATION &BODY BODY) (LET ((NAME (IF (CONSP NAME-AND-OPTIONS) (CAR NAME-AND-OPTIONS) NAME-AND-OPTIONS)) (SETUPFORM (CADR (ASSOC (QUOTE :SETUP) NAME-AND-OPTIONS))) (AFTER-EVERY-FORM (CADR (ASSOC (QUOTE :AFTER-EVERY) NAME-AND-OPTIONS))) (AFTERFORM (CADR (ASSOC (QUOTE :AFTER) NAME-AND-OPTIONS)))) (LET ((TIMER (GENTEMP))) (IL:BQUOTE (PROGN (PUSHNEW (QUOTE (IL:\\\, NAME)) *ALL-TIMERS*) (DEFUN (IL:\\\, TIMER) NIL (IL:\\\,@ BODY)) (SETF (GET (QUOTE ( IL:\\\, NAME)) (QUOTE TIMING-FUNCTION)) (QUOTE (IL:\\\, TIMER))) (IL:\\\,@ (IF SETUPFORM (LET ((SETUP (GENTEMP))) (IL:BQUOTE ((DEFUN (IL:\\\, SETUP) NIL (IL:\\\, SETUPFORM)) (SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE SETUP-FUNCTION)) (QUOTE (IL:\\\, SETUP)))))))) (IL:\\\,@ (IF AFTER-EVERY-FORM (LET (( AFTER-EVERY (GENTEMP))) (IL:BQUOTE ((DEFUN (IL:\\\, AFTER-EVERY) NIL (IL:\\\, AFTER-EVERY-FORM)) (SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE AFTER-EVERY-FUNCTION)) (QUOTE (IL:\\\, AFTER-EVERY)))))))) (IL:\\\,@ (IF AFTERFORM (LET ((AFTER (GENTEMP))) (IL:BQUOTE ((DEFUN (IL:\\\, AFTER) NIL (IL:\\\, AFTERFORM)) ( SETF (GET (QUOTE (IL:\\\, NAME)) (QUOTE AFTER-FUNCTION)) (QUOTE (IL:\\\, AFTER)))))))) (SETF (GET ( QUOTE (IL:\\\, NAME)) (QUOTE TIMING-DOCUMENTATION)) (IL:\\\, DOCUMENTATION))))))) (DEFVAR *ALL-TIMERS* NIL) (DEFPARAMETER *MINIMUM-TESTS* 2 "Run each test at least this many times") (DEFVAR *MOST-TIMERS* (QUOTE (TAKR TAKL TAK STAK CTAK TRIANG TRAVERSE-INIT TRAVERSE TPRINT PUZZLE FPRINT FREAD FFT DIV2-2 DIV2-1 DESTRU DERIV DDERIV BROWSE BOYER TRAVERSE-INIT* TRAVERSE* BROWSE*))) (DEFUN RUN-BENCHMARKS (&OPTIONAL (BENCHMARKS *ALL-TIMERS*) (DRIBBLE-FILE (QUOTE {DSK}GABRIEL.BENCHMARKS)) (NUMBER-OF-ITERATIONS *MINIMUM-TESTS*) (APPEND-DRIBBLE-FILE NIL)) (IL:* IL:|;;| "Run the benchmarks named in BENCHMARKS (defaulting to all known timers)") (IL:* IL:|;;| "Dribble the timings to DRIBBLE-FILE") (IL:* IL:|;;| "Run each test NUMBER-OF-ITERATIONS times.") (LET ((OLD-PACKAGE (PACKAGE-NAME *PACKAGE*)) (*MINIMUM-TESTS* NUMBER-OF-ITERATIONS)) (UNWIND-PROTECT ( PROGN (IL:* IL:|;;| "Set up so we're in the GABRIEL package, and the type-out won't pause on screen-full:") (IN-PACKAGE "GABRIEL") (IL:WINDOWPROP (IL:WFROMDS *STANDARD-OUTPUT*) (QUOTE IL:PAGEFULLFN) (QUOTE IL:NILL)) (IL:* IL:|;;| "Set up the dribble file, and describe the machine we're running on:") (DRIBBLE DRIBBLE-FILE APPEND-DRIBBLE-FILE) (DESCRIBE-IMPLEMENTATION) (LET (TIMING-FUNCTION SETUP-FUNCTION AFTER-EVERY-FUNCTION AFTER-FUNCTION DOCUMENTATION) (DOLIST (BENCHMARK BENCHMARKS) (FORMAT *STANDARD-OUTPUT* "~%~%***** ~A Benchmark ***~%" BENCHMARK) (SETQ TIMING-FUNCTION (GET BENCHMARK ( QUOTE TIMING-FUNCTION))) (SETQ SETUP-FUNCTION (GET BENCHMARK (QUOTE SETUP-FUNCTION))) (SETQ AFTER-EVERY-FUNCTION (GET BENCHMARK (QUOTE AFTER-EVERY-FUNCTION))) (SETQ AFTER-FUNCTION (GET BENCHMARK (QUOTE AFTER-FUNCTION))) (SETQ DOCUMENTATION (GET BENCHMARK (QUOTE TIMING-DOCUMENTATION))) (IF DOCUMENTATION (FORMAT *STANDARD-OUTPUT* "~%~A~%~%" DOCUMENTATION)) (IL:* IL:|;;| "Set up for the test:") (IF SETUP-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating setup for ~a~%" BENCHMARK) (FUNCALL SETUP-FUNCTION))) (IL:* IL:|;;| "Run the test the right number of times:") (DOTIMES (I *MINIMUM-TESTS*) (FORMAT *STANDARD-OUTPUT* "~%Iteration ~s of ~a~%" I BENCHMARK) (IL:* IL:|;;| "Run the timing:") (CL::TIME-CALL (FUNCTION ( LAMBDA NIL (FUNCALL TIMING-FUNCTION))) :TIMED-FORM BENCHMARK :OUTPUT *STANDARD-OUTPUT*) (IL:* IL:|;;| "Run the cleanup-after-each-iteration function:") (IF AFTER-EVERY-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating after every function for ~a~%" BENCHMARK) (FUNCALL AFTER-EVERY-FUNCTION))) (DOTIMES (J 10) (IL:RECLAIM))) (IL:* IL:|;;| "Now clean up after the test:") ( IF AFTER-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating after function for ~a~%" BENCHMARK) ( FUNCALL AFTER-FUNCTION)))))) (IL:* IL:|;;| "Now clean up: Set the package back as it was, close the dribble file, and restore the page-full function on the main window:" ) (DRIBBLE) (IN-PACKAGE OLD-PACKAGE) (IL:WINDOWPROP (IL:WFROMDS *STANDARD-OUTPUT*) (QUOTE IL:PAGEFULLFN ) (QUOTE NIL))) (FORMAT *STANDARD-OUTPUT* "~%~%Output on ~s~%" DRIBBLE-FILE))) (DEFUN DESCRIBE-IMPLEMENTATION (&OPTIONAL (STREAM *STANDARD-OUTPUT*)) (FORMAT STREAM "~&Lisp Type:~20T~A" (LISP-IMPLEMENTATION-TYPE)) (FORMAT STREAM "~&Lisp Version:~20T~A" ( LISP-IMPLEMENTATION-VERSION)) (FORMAT STREAM "~&Software Type:~20T~A" (SOFTWARE-TYPE)) (FORMAT STREAM "~&Software Version:~20T~A" (SOFTWARE-VERSION)) (FORMAT STREAM "~&Machine Type:~20T~A" (MACHINE-TYPE)) (FORMAT STREAM "~&Machine Version:~20T~A" (MACHINE-VERSION)) (FORMAT STREAM "~&Machine Instance:~20T~A" (MACHINE-INSTANCE)) (FORMAT STREAM "~&Site:~20T~A" (LONG-SITE-NAME)) ( FORMAT STREAM "~&Features:~20T~S" *FEATURES*)) (DEFUN RUN-BENCHMARKS-TO-DATABASE (&OPTIONAL (BENCHMARKS *ALL-TIMERS*) (DRIBBLE-FILE (QUOTE {DSK}GABRIEL.BENCHMARKS)) (NUMBER-OF-ITERATIONS *MINIMUM-TESTS*) (TOTAL-TIMES-FILE (QUOTE {DSK}) GABRIEL.TOTALTIMES)) (IL:* IL:|;;| "Run the benchmarks named in BENCHMARKS (defaulting to all known timers)") (IL:* IL:|;;| "Dribble the timings to DRIBBLE-FILE") (IL:* IL:|;;| "Run each test NUMBER-OF-ITERATIONS times.") (LET ((OLD-PACKAGE (PACKAGE-NAME *PACKAGE*)) (*MINIMUM-TESTS* NUMBER-OF-ITERATIONS) TOTALTIMES TIMES AVG-TIMES) (UNWIND-PROTECT (PROGN (IL:* IL:|;;| "Set up so we're in the GABRIEL package, and the type-out won't pause on screen-full:") (IN-PACKAGE "GABRIEL") (IL:WINDOWPROP (IL:WFROMDS *STANDARD-OUTPUT*) (QUOTE IL:PAGEFULLFN) (QUOTE IL:NILL)) (IL:* IL:|;;| "Set up the dribble file, and describe the machine we're running on:") (DRIBBLE DRIBBLE-FILE) (DESCRIBE-IMPLEMENTATION) (LET (TIMING-FUNCTION SETUP-FUNCTION AFTER-EVERY-FUNCTION AFTER-FUNCTION DOCUMENTATION) (WITH-OPEN-FILE (RESULT-STREAM TOTAL-TIMES-FILE :DIRECTION :OUTPUT :IF-EXISTS :NEW-VERSION) (DOLIST (BENCHMARK BENCHMARKS) (FORMAT *STANDARD-OUTPUT* "~%~%***** ~A Benchmark ***~%" BENCHMARK) (SETQ TIMING-FUNCTION (GET BENCHMARK (QUOTE TIMING-FUNCTION))) (SETQ SETUP-FUNCTION (GET BENCHMARK (QUOTE SETUP-FUNCTION))) (SETQ AFTER-EVERY-FUNCTION (GET BENCHMARK (QUOTE AFTER-EVERY-FUNCTION))) (SETQ AFTER-FUNCTION (GET BENCHMARK (QUOTE AFTER-FUNCTION))) (SETQ DOCUMENTATION (GET BENCHMARK (QUOTE TIMING-DOCUMENTATION))) (IF DOCUMENTATION (FORMAT *STANDARD-OUTPUT* "~%~A~%~%" DOCUMENTATION)) (IL:* IL:|;;| "Set up for the test:") (IF SETUP-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating setup for ~a~%" BENCHMARK) (FUNCALL SETUP-FUNCTION))) ( IL:* IL:|;;| "Run the test the right number of times:") (DOTIMES (I *MINIMUM-TESTS*) (FORMAT *STANDARD-OUTPUT* "~%Iteration ~s of ~a~%" I BENCHMARK) (IL:* IL:|;;| "Run the timing:") (SETQ TIMES ( CONS (TIME-CALL (FUNCTION (LAMBDA NIL (FUNCALL TIMING-FUNCTION))) :TIMED-FORM BENCHMARK :OUTPUT *STANDARD-OUTPUT*) TIMES)) (IL:* IL:|;;| "Run the cleanup-after-each-iteration function:") (IF AFTER-EVERY-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating after every function for ~a~%" BENCHMARK) (FUNCALL AFTER-EVERY-FUNCTION))) (DOTIMES (J 10) (IL:RECLAIM))) (IL:* IL:|;;| "Now clean up after the test:") (IF AFTER-FUNCTION (PROGN (FORMAT *STANDARD-OUTPUT* "~%Evaluating after function for ~a~%" BENCHMARK) (FUNCALL AFTER-FUNCTION))) (IL:* IL:|;;| "Now compute the average times for this group of runs:") (DOLIST (INDICATOR (ALL-TIME-INDICATORS TIMES )) (IL:* IL:|;;| "TOTAL THE TIMES") (IL:* IL:|;;| "COMPUTE THE AVERAGE") (IL:* IL:|;;| "ADD TO TOTALTIMES FOR THIS TIMING.") (SETQ AVG-TIMES (APPEND (LIST INDICATOR (/ (IL:FOR TIME-LIST IL:IN TIMES IL:SUM (OR (IL:LISTGET TIME-LIST INDICATOR) 0)) *MINIMUM-TESTS*)) AVG-TIMES))) (PRINT (LIST BENCHMARK (IL:DATE) AVG-TIMES (REVERSE TIMES)) RESULT-STREAM))))) (IL:* IL:|;;| "Now clean up: Set the package back as it was, close the dribble file, and restore the page-full function on the main window:" ) (DRIBBLE) (IN-PACKAGE OLD-PACKAGE) (IL:WINDOWPROP (IL:WFROMDS *STANDARD-OUTPUT*) (QUOTE IL:PAGEFULLFN ) (QUOTE NIL))) (FORMAT *STANDARD-OUTPUT* "~%~%Output on ~s~%" DRIBBLE-FILE))) (DEFUN TIME-CALL (CL::TIMED-FUNCTION &KEY (CL::OUTPUT *TRACE-OUTPUT*) (CL::TIMED-FORM NIL CL::TIMED-FORM-P) (CL::DATA-TYPES (IL:DATATYPES)) (CL::REPEAT 1)) (LET ((VALUES NIL) (CL::TIME-BEFORE (CL::MAKE-STATS-OBJECT)) (CL::TIME-AFTER (CL::MAKE-STATS-OBJECT)) (CL::TIME-DO-NOTHING ( CL::MAKE-STATS-OBJECT))) (IL:* IL:|;;| "Calibrate") (CL::%GET-TIMING-INFO (FUNCTION (LAMBDA NIL NIL)) CL::TIME-BEFORE CL::TIME-DO-NOTHING) (SETQ VALUES (MULTIPLE-VALUE-LIST (CL::%GET-TIMING-INFO CL::TIMED-FUNCTION CL::TIME-BEFORE CL::TIME-AFTER CL::REPEAT))) (CL::%STATS-OBJECT-DIFFERENCE CL::TIME-DO-NOTHING CL::TIME-AFTER) (IF CL::TIMED-FORM-P (CL::TIME-FORMAT CL::OUTPUT "Timing for ~[~;~:;~:* ~D x~]:~20T ~S~&" CL::REPEAT CL::TIMED-FORM)) (CL::%PRINT-TIMING-ITEM CL::OUTPUT "Elapsed time" (CL::STATS-OBJECT-ELAPSED-TIME CL::TIME-AFTER) T T) (CL::%PRINT-TIMING-INFO CL::OUTPUT CL::TIME-AFTER CL::DATA-TYPES) (LIST (QUOTE :TOTAL) (CL::STATS-OBJECT-ELAPSED-TIME CL::TIME-AFTER) :GC (IL:|fetch| (IL:MISCSTATS IL:GCTIME) IL:|of| (CL::STATS-OBJECT-TIME-BLOCK CL::TIME-AFTER)) :SWAP ( IL:|fetch| (IL:MISCSTATS IL:SWAPWAITTIME) IL:|of| (CL::STATS-OBJECT-TIME-BLOCK CL::TIME-AFTER)) :I/O ( IL:|fetch| (IL:MISCSTATS IL:DISKIOTIME) IL:|of| (CL::STATS-OBJECT-TIME-BLOCK CL::TIME-AFTER))))) (DEFUN ALL-TIME-INDICATORS (TIME-LIST) (LET (ALL-INDICATORS) (DOLIST (TIMES TIME-LIST) (SETQ ALL-INDICATORS (UNION ALL-INDICATORS (IL:FOR IND IL:IN TIMES IL:BY CDDR IL:COLLECT IND)))) ALL-INDICATORS)) (IL:PUTPROPS IL:GABRIEL-TIMERS IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:GABRIEL-TIMERS IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (XCL:DEFPACKAGE "GABRIEL"))) (IL:PUTPROPS IL:GABRIEL-TIMERS IL:COPYRIGHT ("Xerox Corporation" 1987 1988)) NIL \ No newline at end of file diff --git a/internal/gabriel/tools/GABRIEL-TIMERS.dfasl b/internal/gabriel/tools/GABRIEL-TIMERS.dfasl deleted file mode 100644 index a1f70e99..00000000 Binary files a/internal/gabriel/tools/GABRIEL-TIMERS.dfasl and /dev/null differ diff --git a/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~1~ b/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~1~ deleted file mode 100644 index de3f95f8..00000000 Binary files a/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~1~ and /dev/null differ diff --git a/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~2~ b/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~2~ deleted file mode 100644 index 1b850727..00000000 Binary files a/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~2~ and /dev/null differ diff --git a/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~3~ b/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~3~ deleted file mode 100644 index f78a8ae5..00000000 Binary files a/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~3~ and /dev/null differ diff --git a/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~4~ b/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~4~ deleted file mode 100644 index a1f70e99..00000000 Binary files a/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~4~ and /dev/null differ diff --git a/internal/gabriel/tools/TESTVARS b/internal/gabriel/tools/TESTVARS deleted file mode 100644 index 84f0fcd4..00000000 --- a/internal/gabriel/tools/TESTVARS +++ /dev/null @@ -1 +0,0 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "26-May-87 10:00:50" {ERIS}GABRIEL>TESTVARS.;3 1687 changes to%: (VARS TESTVARSCOMS GABRIEL::SUBSET) previous date%: "22-May-87 15:36:25" {ERIS}GABRIEL>TESTVARS.;2) (* " Copyright (c) 1987 by Xerox Corporation. All rights reserved. ") (PRETTYCOMPRINT TESTVARSCOMS) (RPAQQ TESTVARSCOMS ((VARS GABRIEL::BENCHMARKS GABRIEL::SUBSET))) (RPAQQ GABRIEL::BENCHMARKS (GABRIEL::TAK GABRIEL::TAKR GABRIEL::TAKL GABRIEL::STAK GABRIEL::CTAK GABRIEL::DIV2-2 GABRIEL::DIV2-1 GABRIEL::DESTRU GABRIEL::DERIV GABRIEL::DDERIV GABRIEL::BOYER GABRIEL::BROWSE GABRIEL::BROWSE* GABRIEL::TRIANG GABRIEL::PUZZLE GABRIEL::FFT GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT GABRIEL::TRAVERSE* GABRIEL::TRAVERSE-INIT* GABRIEL::FRPOLY5R3 GABRIEL::FRPOLY5R2 GABRIEL::FRPOLY5R GABRIEL::FRPOLY2R3 GABRIEL::FRPOLY2R2 GABRIEL::FRPOLY2R GABRIEL::FRPOLY15R3 GABRIEL::FRPOLY15R2 GABRIEL::FRPOLY15R GABRIEL::FRPOLY10R3 GABRIEL::FRPOLY10R2 GABRIEL::FRPOLY10R)) (RPAQQ GABRIEL::SUBSET (GABRIEL::TAK GABRIEL::TAKR GABRIEL::TAKL GABRIEL::STAK GABRIEL::CTAK GABRIEL::DIV2-1 GABRIEL::DIV2-2 GABRIEL::DESTRU GABRIEL::DERIV GABRIEL::DDERIV GABRIEL::BOYER GABRIEL::BROWSE GABRIEL::BROWSE* GABRIEL::TRIANG GABRIEL::PUZZLE GABRIEL::FFT GABRIEL::FPRINT GABRIEL::FREAD GABRIEL::TPRINT GABRIEL::TRAVERSE-INIT* GABRIEL::TRAVERSE*)) (PUTPROPS TESTVARS COPYRIGHT ("Xerox Corporation" 1987)) (DECLARE%: DONTCOPY (FILEMAP (NIL))) STOP \ No newline at end of file diff --git a/loadups/xfull35.dribble b/loadups/xfull35.dribble index e0327355..682a00ae 100644 --- a/loadups/xfull35.dribble +++ b/loadups/xfull35.dribble @@ -1 +1 @@ - Full loadup started at 11-Dec-2020 18:51:08 while connected to {DSK}larry>ilisp>medley> {DSK}larry>ilisp>medley>library>POSTSCRIPTSTREAM.LCOM;1 compiled on 14-May-2018 10:53:32 File created 14-May-2018 10:52:48 POSTSCRIPTSTREAMCOMS Loading FULL fonts... Loading CLASSIC 8 10 12 Loading MODERN 8 10 12 Loading TERMINAL 8 10 12 Loading postscript fonts FULL fonts loaded {DSK}larry>ilisp>medley>library>CHAT.LCOM;1 compiled on 25-Oct-93 12:23:25 File created 20-Jan-93 13:46:52 CHATCOMS {DSK}larry>ilisp>medley>library>DMCHAT.LCOM;1 compiled on 25-Feb-93 18:08:53 File created 20-Jan-93 13:49:09 DMCHATCOMS {DSK}larry>ilisp>medley>library>CHATTERMINAL.LCOM;1 compiled on 24-Feb-93 19:37:23 File created 4-Jul-90 02:21:01 CHATTERMINALCOMS {DSK}larry>ilisp>medley>library>TEDIT.LCOM;1 compiled on 18-May-2018 09:16:24 File created 19-Apr-2018 12:22:03 TEDITCOMS {DSK}larry>ilisp>medley>library>TEDITDCL.LCOM;1 compiled on 18-May-2018 09:17:04 File created 25-Aug-94 10:53:00 TEDITDCLCOMS {DSK}larry>ilisp>medley>library>PCTREE.LCOM;1 compiled on 18-May-2018 09:19:35 File created 19-Apr-2018 12:19:49 PCTREECOMS {DSK}larry>ilisp>medley>library>TEXTOFD.LCOM;1 compiled on 11-Feb-2001 12:06:43 File created 11-Feb-2001 12:06:42 TEXTOFDCOMS {DSK}larry>ilisp>medley>library>TEDITCOMMAND.LCOM;1 compiled on 18-May-2018 09:16:59 File created 20-Apr-2018 08:07:35 TEDITCOMMANDCOMS {DSK}larry>ilisp>medley>library>TEDITSCREEN.LCOM;1 compiled on 18-May-2018 09:18:38 File created 25-Aug-94 13:26:23 TEDITSCREENCOMS {DSK}larry>ilisp>medley>library>TEDITABBREV.LCOM;1 compiled on 6-Aug-2020 14:52:14 File created 6-Aug-2020 14:52:14 TEDITABBREVCOMS {DSK}larry>ilisp>medley>library>TEDITLOOKS.LCOM;1 compiled on 18-May-2018 09:17:44 File created 29-Jan-99 17:33:35 TEDITLOOKSCOMS {DSK}larry>ilisp>medley>library>TEDITFIND.LCOM;1 compiled on 18-May-2018 09:17:21 File created 6-May-2018 17:34:44 TEDITFINDCOMS {DSK}larry>ilisp>medley>library>TEDITHISTORY.LCOM;1 compiled on 18-May-2018 09:17:41 File created 29-Jan-99 17:34:39 TEDITHISTORYCOMS {DSK}larry>ilisp>medley>library>TEDITFILE.LCOM;1 compiled on 18-May-2018 09:17:06 File created 19-May-2001 11:45:53 TEDITFILECOMS {DSK}larry>ilisp>medley>library>TEDITWINDOW.LCOM;1 compiled on 18-May-2018 09:18:51 File created 21-Jun-99 20:00:42 TEDITWINDOWCOMS {DSK}larry>ilisp>medley>library>TEDITSELECTION.LCOM;1 compiled on 18-May-2018 09:18:43 File created 25-Aug-94 10:56:07 TEDITSELECTIONCOMS {DSK}larry>ilisp>medley>library>IMAGEOBJ.LCOM;1 compiled on 8-Feb-97 11:26:32 File created 7-Dec-95 13:21:56 IMAGEOBJCOMS {DSK}larry>ilisp>medley>library>EDITBITMAP.LCOM;1 compiled on 25-Feb-93 18:10:27 File created 11-Jun-90 15:42:25 EDITBITMAPCOMS {DSK}larry>ilisp>medley>library>READNUMBER.LCOM;1 compiled on 16-Aug-95 11:18:52 File created 25-May-93 00:28:30 READNUMBERCOMS {DSK}larry>ilisp>medley>library>TFBRAVO.LCOM;1 compiled on 19-Apr-2018 12:19:55 File created 19-Apr-2018 12:19:55 TFBRAVOCOMS {DSK}larry>ilisp>medley>library>TEDITHCPY.LCOM;1 compiled on 18-May-2018 09:17:32 File created 25-Aug-94 10:54:07 TEDITHCPYCOMS {DSK}larry>ilisp>medley>library>TEDITPAGE.LCOM;1 compiled on 18-May-2018 09:18:32 File created 25-Aug-94 10:55:28 TEDITPAGECOMS {DSK}larry>ilisp>medley>library>TEDITMENU.LCOM;1 compiled on 18-May-2018 09:18:07 File created 24-Apr-95 12:05:29 TEDITMENUCOMS {DSK}larry>ilisp>medley>library>TEDITFNKEYS.LCOM;1 compiled on 18-May-2018 09:17:25 File created 6-May-2018 17:15:13 TEDITFNKEYSCOMS {DSK}larry>ilisp>medley>library>HRULE.LCOM;1 compiled on 26-Feb-93 11:26:19 File created 8-Oct-92 16:50:21 HRULECOMS {DSK}larry>ilisp>medley>library>TEDITCHAT.LCOM;1 compiled on 18-May-2018 09:16:55 File created 28-Mar-94 16:05:24 IL:TEDITCHATCOMS {DSK}larry>ilisp>medley>library>FILEBROWSER.LCOM;1 compiled on 11-Sep-2001 09:26:17 File created 11-Sep-2001 09:26:14 {DSK}larry>ilisp>medley>library>TABLEBROWSER.LCOM;1 compiled on 1-Dec-2018 17:25:13 File created 1-Dec-2018 17:25:13 TABLEBROWSERCOMS {DSK}larry>ilisp>medley>lispusers>THINFILES.LCOM;1 compiled on 26-Jun-99 00:47:00 File created 1-May-92 16:49:39 THINFILESCOMS {DSK}larry>ilisp>medley>library>GRAPHER.LCOM;1 compiled on 14-May-2018 10:24:43 File created 14-May-2018 10:24:38 GRAPHERCOMS {DSK}larry>ilisp>medley>library>SPY.LCOM;1 compiled on 23-Aug-94 16:33:38 File created 29-Apr-94 14:13:52 SPYCOMS {DSK}larry>ilisp>medley>library>WHERE-IS.DFASL;1 XCL Compiler output for source file {DSK}lde>lispcore>library>WHERE-IS.;1 Source file created Wednesday, 13 June 1990, 1:16:15. FASL file created Thursday, 21 January 1993, 18:52:55. {DSK}larry>ilisp>medley>library>HASH-FILE.dfasl;1 XCL Compiler output for source file {PELE:MV:ENVOS}LIBRARY>HASH-FILE.;2 Source file created Monday, 11 June 1990, 16:16:54. FASL file created Friday, 26 February 1993, 11:23:40. {DSK}larry>ilisp>medley>library>CASH-FILE.DFASL;5 XCL Compiler output for source file {DSK}local>lde>lispcore>library>CASH-FILE.;2 Source file created 11-Jun-90 14:33:44 FASL file created Saturday, 19 September 2020, 22:04:31 {DSK}larry>ilisp>medley>library>COPYFILES.LCOM;1 compiled on 6-Apr-2018 21:14:29 File created 6-Apr-2018 21:14:29 COPYFILESCOMS {DSK}larry>ilisp>medley>library>MSANALYZE.DFASL;1 XCL Compiler output for source file {PELE:MV:ENVOS}LIBRARY>MSANALYZE.;5 Source file created Wednesday, 15 August 1990, 13:11:23. FASL file created Sunday, 28 February 1993, 23:16:46. {DSK}larry>ilisp>medley>library>MSPARSE.DFASL;1 XCL Compiler output for source file {PELE:MV:ENVOS}LIBRARY>MSPARSE.;5 Source file created Wednesday, 15 August 1990, 13:00:12. FASL file created Sunday, 28 February 1993, 23:24:50. {DSK}larry>ilisp>medley>library>MASTERSCOPE.DFASL;4 XCL Compiler output for source file {DSK}kaplan>Local>medley3.5>lispcore>library>MASTERSCOPE.;4 Source file created Saturday, 19 September 2020, 9:54:51. FASL file created Saturday, 19 September 2020, 9:54:51. {DSK}larry>ilisp>medley>library>MSCOMMON.DFASL;1 XCL Compiler output for source file {PELE:MV:ENVOS}LIBRARY>MSCOMMON.;3 Source file created Monday, 4 May 1992, 13:19:40. FASL file created Sunday, 28 February 1993, 23:23:14. {DSK}larry>ilisp>medley>library>UNIXPRINT.DFASL;1 XCL Compiler output for source file {DSK}kaplan>Local>medley3.5>lispcore>library>UNIXPRINT.;8 Source file created Friday, 4 May 2018, 17:18:00. FASL file created Friday, 4 May 2018, 17:18:00. {DSK}larry>ilisp>medley>library>UNIXCOMM.LCOM;1 compiled on 25-Apr-2018 07:31:56 File created 25-Apr-2018 07:31:56 UNIXCOMMCOMS {DSK}larry>ilisp>medley>library>UNICODE.LCOM;18 compiled on 29-Nov-2020 10:50:35 File created 29-Nov-2020 10:50:18 UNICODECOMS {DSK}larry>ilisp>medley>lispusers>ISO8859IO.LCOM;1 compiled on 9-Mar-99 18:20:33 File created 9-Mar-99 18:20:26 ISO8859IOCOMS {DSK}larry>ilisp>medley>lispusers>HELPSYS.LCOM;1 compiled on 27-Nov-2020 11:23:11 File created 27-Nov-2020 09:47:44 HELPSYSCOMS {DSK}larry>ilisp>medley>lispusers>DINFO.LCOM;1 compiled on 27-Nov-2020 09:16:14 File created 27-Nov-2020 09:14:02 DINFOCOMS {DSK}larry>ilisp>medley>library>HASH.LCOM;1 compiled on 26-Feb-93 11:22:10 File created 11-Jun-90 16:23:11 HASHCOMS Reading IRM graph...OK. {DSK}larry>ilisp>medley>library>CLIPBOARD.LCOM;1 compiled on 8-Aug-2020 15:48:08 File created 8-Aug-2020 15:48:08 CLIPBOARDCOMS {DSK}larry>ilisp>medley>lispusers>MACINTERFACE.LCOM;47 compiled on 8-Aug-2020 15:48:17 File created 8-Aug-2020 15:48:17 MACINTERFACECOMS {DSK}larry>ilisp>medley>lispusers>PRETTYFILEINDEX.LCOM;3 compiled on 28-Jun-99 17:13:58 File created 28-Jun-99 17:13:51 PRETTYFILEINDEXCOMS {DSK}larry>ilisp>medley>lispusers>WHO-LINE.LCOM;1 compiled on 19-Feb-2001 11:57:34 File created 19-Feb-2001 11:53:32 WHO-LINECOMS {DSK}larry>ilisp>medley>library>UNIXCHAT.LCOM;1 compiled on 21-Jan-93 18:45:15 File created 15-Aug-90 11:05:53 UNIXCHATCOMS {DSK}larry>ilisp>medley>library>UNIXTELNET.LCOM;1 compiled on 18-Jul-94 23:29:48 File created 16-Feb-90 17:00:31 UNIXTELNETCOMS {DSK}larry>ilisp>medley>lispusers>SETDEFAULTPRINTER.LCOM;3 compiled on 12-Nov-98 17:41:28 File created 7-Jun-93 15:34:58 SETDEFAULTPRINTERCOMS {DSK}larry>ilisp>medley>lispusers>DEFAULTSUBITEMFN.LCOM;1 compiled on 8-Sep-94 20:23:23 File created 4-Mar-87 15:59:01 DEFAULTSUBITEMFNCOMS {DSK}larry>ilisp>medley>lispusers>LoadPatches.;1 File created 16-Nov-88 14:11:42 LOADPATCHESCOMS About to end loadup Creating FULL sysout on {DSK}larry>ilisp>medley>loadups>xfull35.sysout \ No newline at end of file + Full loadup started at 12-Dec-2020 16:18:52 while connected to {DSK}larry>ilisp>medley> {DSK}larry>ilisp>medley>library>POSTSCRIPTSTREAM.LCOM;1 compiled on 14-May-2018 10:53:32 File created 14-May-2018 10:52:48 POSTSCRIPTSTREAMCOMS Loading FULL fonts... Loading CLASSIC 8 10 12 Loading MODERN 8 10 12 Loading TERMINAL 8 10 12 Loading postscript fonts FULL fonts loaded {DSK}larry>ilisp>medley>library>CHAT.LCOM;1 compiled on 25-Oct-93 12:23:25 File created 20-Jan-93 13:46:52 CHATCOMS {DSK}larry>ilisp>medley>library>DMCHAT.LCOM;1 compiled on 25-Feb-93 18:08:53 File created 20-Jan-93 13:49:09 DMCHATCOMS {DSK}larry>ilisp>medley>library>CHATTERMINAL.LCOM;1 compiled on 24-Feb-93 19:37:23 File created 4-Jul-90 02:21:01 CHATTERMINALCOMS {DSK}larry>ilisp>medley>library>TEDIT.LCOM;1 compiled on 18-May-2018 09:16:24 File created 19-Apr-2018 12:22:03 TEDITCOMS {DSK}larry>ilisp>medley>library>TEDITDCL.LCOM;1 compiled on 18-May-2018 09:17:04 File created 25-Aug-94 10:53:00 TEDITDCLCOMS {DSK}larry>ilisp>medley>library>PCTREE.LCOM;1 compiled on 18-May-2018 09:19:35 File created 19-Apr-2018 12:19:49 PCTREECOMS {DSK}larry>ilisp>medley>library>TEXTOFD.LCOM;1 compiled on 11-Feb-2001 12:06:43 File created 11-Feb-2001 12:06:42 TEXTOFDCOMS {DSK}larry>ilisp>medley>library>TEDITCOMMAND.LCOM;1 compiled on 18-May-2018 09:16:59 File created 20-Apr-2018 08:07:35 TEDITCOMMANDCOMS {DSK}larry>ilisp>medley>library>TEDITSCREEN.LCOM;1 compiled on 18-May-2018 09:18:38 File created 25-Aug-94 13:26:23 TEDITSCREENCOMS {DSK}larry>ilisp>medley>library>TEDITABBREV.LCOM;1 compiled on 6-Aug-2020 14:52:14 File created 6-Aug-2020 14:52:14 TEDITABBREVCOMS {DSK}larry>ilisp>medley>library>TEDITLOOKS.LCOM;1 compiled on 18-May-2018 09:17:44 File created 29-Jan-99 17:33:35 TEDITLOOKSCOMS {DSK}larry>ilisp>medley>library>TEDITFIND.LCOM;1 compiled on 18-May-2018 09:17:21 File created 6-May-2018 17:34:44 TEDITFINDCOMS {DSK}larry>ilisp>medley>library>TEDITHISTORY.LCOM;1 compiled on 18-May-2018 09:17:41 File created 29-Jan-99 17:34:39 TEDITHISTORYCOMS {DSK}larry>ilisp>medley>library>TEDITFILE.LCOM;1 compiled on 18-May-2018 09:17:06 File created 19-May-2001 11:45:53 TEDITFILECOMS {DSK}larry>ilisp>medley>library>TEDITWINDOW.LCOM;1 compiled on 18-May-2018 09:18:51 File created 21-Jun-99 20:00:42 TEDITWINDOWCOMS {DSK}larry>ilisp>medley>library>TEDITSELECTION.LCOM;1 compiled on 18-May-2018 09:18:43 File created 25-Aug-94 10:56:07 TEDITSELECTIONCOMS {DSK}larry>ilisp>medley>library>IMAGEOBJ.LCOM;1 compiled on 8-Feb-97 11:26:32 File created 7-Dec-95 13:21:56 IMAGEOBJCOMS {DSK}larry>ilisp>medley>library>EDITBITMAP.LCOM;1 compiled on 25-Feb-93 18:10:27 File created 11-Jun-90 15:42:25 EDITBITMAPCOMS {DSK}larry>ilisp>medley>library>READNUMBER.LCOM;1 compiled on 16-Aug-95 11:18:52 File created 25-May-93 00:28:30 READNUMBERCOMS {DSK}larry>ilisp>medley>library>TFBRAVO.LCOM;1 compiled on 19-Apr-2018 12:19:55 File created 19-Apr-2018 12:19:55 TFBRAVOCOMS {DSK}larry>ilisp>medley>library>TEDITHCPY.LCOM;1 compiled on 18-May-2018 09:17:32 File created 25-Aug-94 10:54:07 TEDITHCPYCOMS {DSK}larry>ilisp>medley>library>TEDITPAGE.LCOM;1 compiled on 18-May-2018 09:18:32 File created 25-Aug-94 10:55:28 TEDITPAGECOMS {DSK}larry>ilisp>medley>library>TEDITMENU.LCOM;1 compiled on 18-May-2018 09:18:07 File created 24-Apr-95 12:05:29 TEDITMENUCOMS {DSK}larry>ilisp>medley>library>TEDITFNKEYS.LCOM;1 compiled on 18-May-2018 09:17:25 File created 6-May-2018 17:15:13 TEDITFNKEYSCOMS {DSK}larry>ilisp>medley>library>HRULE.LCOM;1 compiled on 26-Feb-93 11:26:19 File created 8-Oct-92 16:50:21 HRULECOMS {DSK}larry>ilisp>medley>library>TEDITCHAT.LCOM;1 compiled on 18-May-2018 09:16:55 File created 28-Mar-94 16:05:24 IL:TEDITCHATCOMS {DSK}larry>ilisp>medley>library>FILEBROWSER.LCOM;1 compiled on 11-Sep-2001 09:26:17 File created 11-Sep-2001 09:26:14 {DSK}larry>ilisp>medley>library>TABLEBROWSER.LCOM;1 compiled on 1-Dec-2018 17:25:13 File created 1-Dec-2018 17:25:13 TABLEBROWSERCOMS {DSK}larry>ilisp>medley>lispusers>THINFILES.LCOM;1 compiled on 26-Jun-99 00:47:00 File created 1-May-92 16:49:39 THINFILESCOMS {DSK}larry>ilisp>medley>library>GRAPHER.LCOM;1 compiled on 14-May-2018 10:24:43 File created 14-May-2018 10:24:38 GRAPHERCOMS {DSK}larry>ilisp>medley>library>SPY.LCOM;1 compiled on 23-Aug-94 16:33:38 File created 29-Apr-94 14:13:52 SPYCOMS {DSK}larry>ilisp>medley>library>WHERE-IS.DFASL;1 XCL Compiler output for source file {DSK}lde>lispcore>library>WHERE-IS.;1 Source file created Wednesday, 13 June 1990, 1:16:15. FASL file created Thursday, 21 January 1993, 18:52:55. {DSK}larry>ilisp>medley>library>HASH-FILE.dfasl;1 XCL Compiler output for source file {PELE:MV:ENVOS}LIBRARY>HASH-FILE.;2 Source file created Monday, 11 June 1990, 16:16:54. FASL file created Friday, 26 February 1993, 11:23:40. {DSK}larry>ilisp>medley>library>CASH-FILE.DFASL;5 XCL Compiler output for source file {DSK}local>lde>lispcore>library>CASH-FILE.;2 Source file created 11-Jun-90 14:33:44 FASL file created Saturday, 19 September 2020, 22:04:31 {DSK}larry>ilisp>medley>library>COPYFILES.LCOM;1 compiled on 6-Apr-2018 21:14:29 File created 6-Apr-2018 21:14:29 COPYFILESCOMS {DSK}larry>ilisp>medley>library>MSANALYZE.DFASL;1 XCL Compiler output for source file {PELE:MV:ENVOS}LIBRARY>MSANALYZE.;5 Source file created Wednesday, 15 August 1990, 13:11:23. FASL file created Sunday, 28 February 1993, 23:16:46. {DSK}larry>ilisp>medley>library>MSPARSE.DFASL;1 XCL Compiler output for source file {PELE:MV:ENVOS}LIBRARY>MSPARSE.;5 Source file created Wednesday, 15 August 1990, 13:00:12. FASL file created Sunday, 28 February 1993, 23:24:50. {DSK}larry>ilisp>medley>library>MASTERSCOPE.DFASL;4 XCL Compiler output for source file {DSK}kaplan>Local>medley3.5>lispcore>library>MASTERSCOPE.;4 Source file created Saturday, 19 September 2020, 9:54:51. FASL file created Saturday, 19 September 2020, 9:54:51. {DSK}larry>ilisp>medley>library>MSCOMMON.DFASL;1 XCL Compiler output for source file {PELE:MV:ENVOS}LIBRARY>MSCOMMON.;3 Source file created Monday, 4 May 1992, 13:19:40. FASL file created Sunday, 28 February 1993, 23:23:14. {DSK}larry>ilisp>medley>library>UNIXPRINT.DFASL;1 XCL Compiler output for source file {DSK}kaplan>Local>medley3.5>lispcore>library>UNIXPRINT.;8 Source file created Friday, 4 May 2018, 17:18:00. FASL file created Friday, 4 May 2018, 17:18:00. {DSK}larry>ilisp>medley>library>UNIXCOMM.LCOM;1 compiled on 25-Apr-2018 07:31:56 File created 25-Apr-2018 07:31:56 UNIXCOMMCOMS {DSK}larry>ilisp>medley>library>UNICODE.LCOM;18 compiled on 29-Nov-2020 10:50:35 File created 29-Nov-2020 10:50:18 UNICODECOMS {DSK}larry>ilisp>medley>lispusers>ISO8859IO.LCOM;1 compiled on 9-Mar-99 18:20:33 File created 9-Mar-99 18:20:26 ISO8859IOCOMS {DSK}larry>ilisp>medley>lispusers>HELPSYS.LCOM;1 compiled on 27-Nov-2020 11:23:11 File created 27-Nov-2020 09:47:44 HELPSYSCOMS {DSK}larry>ilisp>medley>lispusers>DINFO.LCOM;1 compiled on 27-Nov-2020 09:16:14 File created 27-Nov-2020 09:14:02 DINFOCOMS {DSK}larry>ilisp>medley>library>HASH.LCOM;1 compiled on 26-Feb-93 11:22:10 File created 11-Jun-90 16:23:11 HASHCOMS Reading IRM graph...OK. {DSK}larry>ilisp>medley>library>CLIPBOARD.LCOM;1 compiled on 8-Aug-2020 15:48:08 File created 8-Aug-2020 15:48:08 CLIPBOARDCOMS {DSK}larry>ilisp>medley>lispusers>MACINTERFACE.LCOM;47 compiled on 8-Aug-2020 15:48:17 File created 8-Aug-2020 15:48:17 MACINTERFACECOMS {DSK}larry>ilisp>medley>lispusers>PRETTYFILEINDEX.LCOM;3 compiled on 28-Jun-99 17:13:58 File created 28-Jun-99 17:13:51 PRETTYFILEINDEXCOMS {DSK}larry>ilisp>medley>lispusers>WHO-LINE.LCOM;1 compiled on 19-Feb-2001 11:57:34 File created 19-Feb-2001 11:53:32 WHO-LINECOMS {DSK}larry>ilisp>medley>library>UNIXCHAT.LCOM;1 compiled on 21-Jan-93 18:45:15 File created 15-Aug-90 11:05:53 UNIXCHATCOMS {DSK}larry>ilisp>medley>library>UNIXTELNET.LCOM;1 compiled on 18-Jul-94 23:29:48 File created 16-Feb-90 17:00:31 UNIXTELNETCOMS {DSK}larry>ilisp>medley>lispusers>SETDEFAULTPRINTER.LCOM;3 compiled on 12-Nov-98 17:41:28 File created 7-Jun-93 15:34:58 SETDEFAULTPRINTERCOMS {DSK}larry>ilisp>medley>lispusers>DEFAULTSUBITEMFN.LCOM;1 compiled on 8-Sep-94 20:23:23 File created 4-Mar-87 15:59:01 DEFAULTSUBITEMFNCOMS {DSK}larry>ilisp>medley>lispusers>LoadPatches.;1 File created 16-Nov-88 14:11:42 LOADPATCHESCOMS About to end loadup Creating FULL sysout on {DSK}larry>ilisp>medley>loadups>xfull35.sysout \ No newline at end of file diff --git a/loadups/xfull35.sysout b/loadups/xfull35.sysout index 8062274e..03e52777 100644 Binary files a/loadups/xfull35.sysout and b/loadups/xfull35.sysout differ diff --git a/loadups/xlisp.dribble b/loadups/xlisp.dribble index 2fd316b1..bc45d832 100644 --- a/loadups/xlisp.dribble +++ b/loadups/xlisp.dribble @@ -1,7 +1,7 @@ -Synchronizing Lisp sysout at 11-Dec-2020 18:48:25 - {DSK}larry>ilisp>medley>makesysout>SYNCLISPFILES.;55 - created 11-Dec-2020 18:47:32 +Synchronizing Lisp sysout at 12-Dec-2020 16:15:04 + {DSK}larry>ilisp>medley>makesysout>SYNCLISPFILES.;56 + created 12-Dec-2020 16:12:05 {DSK}larry>ilisp>medley>sources>FASLOAD.DFASL;1 @@ -180,4 +180,4 @@ NOXNSPATCHCOMS 3 files loaded Creating updated LISP sysout on -{DSK}larry>ilisp>medley>loadups>xlisp.sysout;13 +{DSK}larry>ilisp>medley>loadups>xlisp.sysout;16 diff --git a/loadups/xlisp.sysout b/loadups/xlisp.sysout index 1c311388..fbc33dba 100644 Binary files a/loadups/xlisp.sysout and b/loadups/xlisp.sysout differ diff --git a/makesysout/SYNCLISPFILES b/makesysout/SYNCLISPFILES index 33719af4..b95f2668 100644 --- a/makesysout/SYNCLISPFILES +++ b/makesysout/SYNCLISPFILES @@ -1,4 +1,4 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "11-Dec-2020 18:47:32" {DSK}larry>ilisp>medley>makesysout>SYNCLISPFILES.;55 17030 changes to%: (FNS MEDLEY-INIT-VARS) previous date%: "10-Dec-2020 22:16:59" {DSK}larry>ilisp>medley>makesysout>SYNCLISPFILES.;54) (PRETTYCOMPRINT SYNCLISPFILESCOMS) (RPAQQ SYNCLISPFILESCOMS [(FNS MEDLEYDIR INTERLISPMODE MEDLEY-INIT-VARS) (COMMANDS cd pwd) (FNS shell) (VARS (* ;; "MEDLEY-INIT-VARS is a list of variables that need initialization ") (MEDLEY-INIT-VARS '((LISPUSERSDIRECTORIES "lispusers" "library" "internal/library") (LISPSOURCEDIRECTORIES "sources") (LISPSOURCEDIRECTORY . "sources") (IRM.HOST&DIR . "docs/dinfo") (DIRECTORIES LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES) [LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME"] [USERGREETFILES `((,LOGINDIR "INIT" COM) (,LOGINDIR "INIT"] (DISPLAYFONTDIRECTORIES "fonts/displayfonts" "fonts/altofonts")) (INTERPRESSFONTDIRECTORIES "fonts/ipfonts") POSTSCRIPTFONTDIRECTORIES "fonts/postscriptfonts")) (FNS SYNCLISPFILES ENDLOADUP MEDLEYVERSION NOPUPPATCH) (INITVARS (WRITELISPSYSOUTFLAG T)) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE)) (SYNCLISPFILES))) (PROP FILETYPE SYNCLISPFILES) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA shell) (NLAML) (LAMA]) (DEFINEQ (MEDLEYDIR +(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "12-Dec-2020 16:12:05" {DSK}larry>ilisp>medley>makesysout>SYNCLISPFILES.;56 17148 changes to%: (VARS SYNCLISPFILESCOMS) previous date%: "11-Dec-2020 18:47:32" {DSK}larry>ilisp>medley>makesysout>SYNCLISPFILES.;55) (PRETTYCOMPRINT SYNCLISPFILESCOMS) (RPAQQ SYNCLISPFILESCOMS [(FNS MEDLEYDIR INTERLISPMODE MEDLEY-INIT-VARS) (COMMANDS cd pwd) (FNS shell) (VARS (* ;; "MEDLEY-INIT-VARS is a list of variables that need initialization ") (MEDLEY-INIT-VARS '((LISPUSERSDIRECTORIES "lispusers" "library" "internal/library") (LISPSOURCEDIRECTORIES "sources") (LISPSOURCEDIRECTORY . "sources") (IRM.HOST&DIR . "docs/dinfo") (IRM.DINFOGRAPH) (DIRECTORIES LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES) [LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME"] [USERGREETFILES `((,LOGINHOST/DIR "INIT" COM) (,LOGINHOST/DIR "INIT"] (DISPLAYFONTDIRECTORIES "fonts/displayfonts" "fonts/altofonts")) (INTERPRESSFONTDIRECTORIES "fonts/ipfonts") POSTSCRIPTFONTDIRECTORIES "fonts/postscriptfonts")) (FNS SYNCLISPFILES ENDLOADUP MEDLEYVERSION NOPUPPATCH) (INITVARS (WRITELISPSYSOUTFLAG T)) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (P (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE)) (SYNCLISPFILES))) (PROP FILETYPE SYNCLISPFILES) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA shell) (NLAML) (LAMA]) (DEFINEQ (MEDLEYDIR [LAMBDA (DIRNAME FILENAME OUTPUT) (* ; "Edited 5-Dec-2020 20:24 by larry") (if (NULL DIRNAME) then (if (OR (NOT (BOUNDP 'MEDLEYDIR)) @@ -18,4 +18,4 @@ (ERROR "No such medley file" FILENAME))) else (OR (DIRECTORYNAME (CONCAT (MEDLEYDIR) DIRNAME)) - (ERROR "No such medley directory" DIRNAME]) (INTERLISPMODE [LAMBDA (OLD?) (* N.H.Briggs " 2-Feb-88 14:26") (PROCESSPROP 'EXEC 'PROFILE (XCL:COPY-PROFILE (if OLD? then "OLD-INTERLISP-T" else "INTERLISP"))) (XCL:SET-DEFAULT-EXEC-TYPE (if OLD? then "OLD-INTERLISP-T" else "INTERLISP")) (SETQ *DEFAULT-MAKEFILE-ENVIRONMENT* (LIST :READTABLE (if OLD? then "OLD-INTERLISP-FILE" else "INTERLISP") :PACKAGE "INTERLISP"]) (MEDLEY-INIT-VARS [LAMBDA (CLEAR) (* ; "Edited 10-Dec-2020 21:44 by larry") (* ;; "MEDLEY-INIT-VARS are a compact structure for variables that might need to get reset. ") (if CLEAR then (SETQ MEDLEYDIR NIL) (SETQ XCL::*WHERE-IS-CASH-FILES* NIL) (for X in MEDLEY-INIT-VARS do (SET (CAR X))) elseif [OR (NOT (BOUNDP 'MEDLEYDIR)) (AND (NULL MEDLEYDIR) (NULL (MEDLEYDIR] then (PRINTOUT T "WARNING: MEDLEYDIR not set correctly" " set it and call (MEDLEY-INIT-VARS) again" T) else [for X in MEDLEY-INIT-VARS do (SET (CAR X) (COND ((STRINGP (CDR X)) (MEDLEYDIR (CDR X))) ((NLISTP (CDR X)) (EVAL (CDR X))) (T (for Y in (CDR X) join (if (STRINGP Y) then (LIST (MEDLEYDIR Y)) else (APPEND (EVAL Y] (* ;; "WHEREIS doesn't follow conventions") (CL:WHEN (GETD 'XCL::ADD-WHERE-IS-DATABASE) (SETQ XCL::*WHERE-IS-CASH-FILES* NIL) (XCL::ADD-WHERE-IS-DATABASE (MEDLEYDIR "loadups" "WHEREIS.HASH")) (XCL::ADD-WHERE-IS-DATABASE (MEDLEYDIR "loadups" "system.hash")))]) ) (DEFCOMMAND cd (DIR) (/CNDIR DIR)) (DEFCOMMAND pwd NIL (DIRECTORYNAME T)) (DEFINEQ (shell [NLAMBDA LINE (* ;  "Edited 7-Sep-2020 13:28 by rmk:") [SETQ LINE (CONCATLIST (for X in LINE join (LIST X " "] (CL:WITH-OPEN-FILE (STREAM "{NODIRCORE}shell-dribble.txt" :DIRECTION :IO) (ShellCommand LINE STREAM) (SETFILEPTR STREAM 0) (until (EOFP STREAM) collect (CL:READ-LINE STREAM :EOF-ERROR-P NIL :EOF-VALUE NIL]) ) (RPAQQ MEDLEY-INIT-VARS ((LISPUSERSDIRECTORIES "lispusers" "library" "internal/library") (LISPSOURCEDIRECTORIES "sources") (LISPSOURCEDIRECTORY . "sources") (IRM.HOST&DIR . "docs/dinfo") (DIRECTORIES LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES) [LOGINDIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME"] [USERGREETFILES `((,LOGINDIR "INIT" COM) (,LOGINDIR "INIT"] (DISPLAYFONTDIRECTORIES "fonts/displayfonts" "fonts/altofonts"))) (DEFINEQ (SYNCLISPFILES [LAMBDA (NODRIBBLE KEEPPUP) (* ; "Edited 5-Dec-2020 12:34 by larry") (* ;  "Edited 23-Oct-2020 23:51 by rmk:") (* ;  "Edited 20-Apr-2018 18:28 by rmk:") (* ;; "This ensures that files in the xlisp.sysout are as up-to-date as possible with respect to lispcore/sources. Reload (compiled, if possible) files that correspond to symbolic files whose filedates are later than the filedate in the system. If you want a new compilation of a file that has not been modified to be included, then you must make a trivial update of the symbolic file and recompile it, to give it a new, later date. This is because it is unsafe as a general default to load compiled files with dates later than the sysout, and the sysout doesn't record the dates of loaded compiled files, just their symbolic versions.") (* ;; " Should be run while connected to MEDLEYDIR") (CLRPROMPT) (MEDLEY-INIT-VARS) (if (WINDOWP LOGOW) then (CLOSEW LOGOW)) (MOVD 'NILL 'LOGOW) (SETQ LISPMAKESYSDATE MAKESYSDATE) (LET (SKIPFILES (SOURCEDIR (MEDLEYDIR "sources"))) (SETQ MAKESYSFILENAME (MEDLEYDIR "loadups" "xlisp.sysout" T)) (* ;;  "FASLOAD has to come first, unconditionally, to get the DFASL file dates converted properly.") (CL:UNLESS NODRIBBLE (DRIBBLE (MEDLEYDIR "loadups" "xlisp.dribble" T))) (BKSYSBUF " ") (PRINTOUT T T "Synchronizing Lisp sysout at " (DATE) T) (PRINTOUT T 5 (CDAR (GETP 'SYNCLISPFILES 'FILEDATES)) T 5 "created " (CAAR (GETP 'SYNCLISPFILES 'FILEDATES)) T T) (push SKIPFILES 'FASLOAD) (LOAD (MEDLEYDIR "sources" "FASLOAD.DFASL") 'SYSLOAD) (push SKIPFILES 'ATBL) (* ;  "Whole file can't be reloaded--smashes readtabl") (LOADFNS '(\ATBLSET \MAPCHARTABLE RESETREADTABLE) (MEDLEYDIR "sources" "ATBL.LCOM") 'SYSLOAD) (LOADVARS '\KEYNAMES (MEDLEYDIR "sources" "LLKEY") 'SYSLOAD) (* ; "Extended keynames for Mac/PC") (push SKIPFILES 'LLKEY) (* ; "Loading whole file freezes") (push SKIPFILES 'MAIKOLOADUPFNS) (* ;  "Can't reload even if compiled files are later") (push SKIPFILES 'SUNFONT) (* ;  "Old font organization, not relevant") (for LF FF CFILE LOADEDDATE FILEDATE IFILEDATE NOCOMPILEDFILES CFILES (COUNT _ 0) in (LDIFFERENCE SYSFILES SKIPFILES) do [[SETQ LOADEDDATE (CAAR (GETP LF 'FILEDATES] (* ;  "Date of symbolic file whose compile file was loaded") (CL:UNLESS LOADEDDATE (PRINTOUT T T LF " does not have a loaded filedate, probably not a Lisp file; skipped" T) (GO $$ITERATE)) (SETQ FF (PACKFILENAME.STRING 'NAME LF 'BODY SOURCEDIR)) (SETQ FILEDATE (FILEDATE FF)) (* ; "Date of current source file") (CL:UNLESS FILEDATE (PRINTOUT T LF " does not have a file-directory date, not updated" T) (GO $$ITERATE)) (SETQ CFILES (for EXT in *COMPILED-EXTENSIONS* when (SETQ CFILE (INFILEP (PACKFILENAME.STRING 'EXTENSION EXT 'BODY FF))) collect CFILE)) (SETQ CFILE (COND [CFILES (* ;;  "If more than one (LCOM, DFASL), pick the newest one.") (for CF in CFILES largest (IDATE (FILEDATE CF T] (T (PRINTOUT T "Note: No compiled file for " LF T) (push NOTCOMPILEDFILES LF) FF))) (SETQ IFILEDATE (IDATE FILEDATE)) (CL:UNLESS (IGREATERP IFILEDATE 0) (PRINTOUT T "Funny file date " FILEDATE " for " LF ", not updated" T) (GO $$ITERATE)) (* ;; "Load the compiled file if the date of the symbolic file is later than the symbolic file-date in the sysout. If an updated source and compiled file were copied from another directory, we update the FILEDATES property to point to the new location. If the loaded and file dates are the same, then update the FILEDATES property to point to the possibly new path name and version even if we don't need to load.") (SETQ LOADEDDATE (IDATE LOADEDDATE)) (if (IGREATERP IFILEDATE LOADEDDATE) then (add COUNT 1) (LOAD CFILE 'SYSLOAD) (CL:WHEN [STREQUAL FILEDATE (CAAR (GETP LF 'FILEDATES] (* ;; "If copied, the compiled file may install the original location. Not sure what happens with copied DFASLs") (RPLACD (CAR (GETP LF 'FILEDATES)) (INFILEP FF))) elseif (IEQP IFILEDATE LOADEDDATE) then (RPLACD (CAR (GETP LF 'FILEDATES)) (INFILEP FF] finally (PRINTOUT T T T COUNT " files loaded" T) (CL:WHEN NOCOMPILEDFILES (PRINTOUT T "Symbolic files loaded: " .PPVTL NOCOMPILEDFILES T T))) (* ;; "Load from patch directory") (for PF (COUNT _ 0) in (FILDIR (PACKFILENAME.STRING 'NAME "*.;" 'BODY (MEDLEYDIR "/patches/"))) do (for EXT CFILE in *COMPILED-EXTENSIONS* when (SETQ CFILE (INFILEP (PACKFILENAME.STRING 'EXTENSION EXT 'BODY PF))) do (add COUNT 1) (LOAD CFILE 'SYSLOAD) (* ; "symbolic file date") (RETURN) finally (PRINTOUT T "Note: No compiled file for " PF T) (add COUNT 1) (LOAD PF 'SYSLOAD)) finally (PRINTOUT T T T COUNT " files loaded" T)) (CL:UNLESS KEEPPUP (NOPUPPATCH)) (ENDLOADUP) (CL:WHEN WRITELISPSYSOUTFLAG (* ;; "So we print out the new version number") (SETQ MAKESYSFILENAME (OUTFILEP MAKESYSFILENAME)) (PRINTOUT T "Creating updated LISP sysout on " MAKESYSFILENAME T) (CLRPROMPT) (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley Lisp Sysout%")"))) (CL:UNLESS NODRIBBLE (DRIBBLE]) (ENDLOADUP [LAMBDA NIL (* ; "Edited 10-Dec-2020 21:49 by larry") (* ; "Edited 11-Oct-90 11:02 by jds") (* ;; "set up for NONET configuration; sites with ethernet can load in init from other places") (* ;; "All records existing at this point in time have been loaded as part of the system.") [MAPC USERRECLST (FUNCTION (LAMBDA (R) (RECORDPRIORITY R 'SYSTEM] (MEDLEY-INIT-VARS T) (for X in SYSTEMINITVARS when (NOT (ASSOC X MEDLEY-INIT-VARS)) do (SETTOPVAL (CAR X) (COPY (CDR X]) (MEDLEYVERSION [LAMBDA NIL (* ;  "Edited 25-Mar-2018 22:07 by rmk:") (* ; "Edited 11-Nov-98 22:02 by rmk:") (SELECTQ (LISPVERSION) (39424 '|1.1|) (39539 '|1.15|) (40960 '|1.2|) (4928 '|2.0|) (21000 '|2.1|) (35000 '|3.5|) (35010 '|3.5|) (HELP "UNRECOGNIZED MEDLEY VERSION" (LISPVERSION]) (NOPUPPATCH [LAMBDA NIL (* ;  "Edited 14-May-2018 12:22 by rmk:") (* ;; "Fix it so pup stuff never gets run") (SETQ \PROCESSES (DREMOVE (FIND.PROCESS '\PUPGATELISTENER) \PROCESSES)) (SETQ \FILEDEVICES (for F in \FILEDEVICES unless (STRPOS "LEAF" F) collect F)) (MOVD 'NILL '\CANONICALIZE.PUP.HOSTNAME]) ) (RPAQ? WRITELISPSYSOUTFLAG T) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE)) (SYNCLISPFILES) ) (PUTPROPS SYNCLISPFILES FILETYPE :TCOMPL) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA shell) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (PUTPROPS SYNCLISPFILES COPYRIGHT (NONE)) (DECLARE%: DONTCOPY (FILEMAP (NIL (2130 5751 (MEDLEYDIR 2140 . 3269) (INTERLISPMODE 3271 . 4084) (MEDLEY-INIT-VARS 4086 . 5749)) (5828 6344 (shell 5838 . 6342)) (6921 16626 (SYNCLISPFILES 6931 . 14881) (ENDLOADUP 14883 . 15593) (MEDLEYVERSION 15595 . 16134) (NOPUPPATCH 16136 . 16624))))) STOP \ No newline at end of file + (ERROR "No such medley directory" DIRNAME]) (INTERLISPMODE [LAMBDA (OLD?) (* N.H.Briggs " 2-Feb-88 14:26") (PROCESSPROP 'EXEC 'PROFILE (XCL:COPY-PROFILE (if OLD? then "OLD-INTERLISP-T" else "INTERLISP"))) (XCL:SET-DEFAULT-EXEC-TYPE (if OLD? then "OLD-INTERLISP-T" else "INTERLISP")) (SETQ *DEFAULT-MAKEFILE-ENVIRONMENT* (LIST :READTABLE (if OLD? then "OLD-INTERLISP-FILE" else "INTERLISP") :PACKAGE "INTERLISP"]) (MEDLEY-INIT-VARS [LAMBDA (CLEAR) (* ; "Edited 10-Dec-2020 21:44 by larry") (* ;; "MEDLEY-INIT-VARS are a compact structure for variables that might need to get reset. ") (if CLEAR then (SETQ MEDLEYDIR NIL) (SETQ XCL::*WHERE-IS-CASH-FILES* NIL) (for X in MEDLEY-INIT-VARS do (SET (CAR X))) elseif [OR (NOT (BOUNDP 'MEDLEYDIR)) (AND (NULL MEDLEYDIR) (NULL (MEDLEYDIR] then (PRINTOUT T "WARNING: MEDLEYDIR not set correctly" " set it and call (MEDLEY-INIT-VARS) again" T) else [for X in MEDLEY-INIT-VARS do (SET (CAR X) (COND ((STRINGP (CDR X)) (MEDLEYDIR (CDR X))) ((NLISTP (CDR X)) (EVAL (CDR X))) (T (for Y in (CDR X) join (if (STRINGP Y) then (LIST (MEDLEYDIR Y)) else (APPEND (EVAL Y] (* ;; "WHEREIS doesn't follow conventions") (CL:WHEN (GETD 'XCL::ADD-WHERE-IS-DATABASE) (SETQ XCL::*WHERE-IS-CASH-FILES* NIL) (XCL::ADD-WHERE-IS-DATABASE (MEDLEYDIR "loadups" "WHEREIS.HASH")) (XCL::ADD-WHERE-IS-DATABASE (MEDLEYDIR "loadups" "system.hash")))]) ) (DEFCOMMAND cd (DIR) (/CNDIR DIR)) (DEFCOMMAND pwd NIL (DIRECTORYNAME T)) (DEFINEQ (shell [NLAMBDA LINE (* ;  "Edited 7-Sep-2020 13:28 by rmk:") [SETQ LINE (CONCATLIST (for X in LINE join (LIST X " "] (CL:WITH-OPEN-FILE (STREAM "{NODIRCORE}shell-dribble.txt" :DIRECTION :IO) (ShellCommand LINE STREAM) (SETFILEPTR STREAM 0) (until (EOFP STREAM) collect (CL:READ-LINE STREAM :EOF-ERROR-P NIL :EOF-VALUE NIL]) ) (RPAQQ MEDLEY-INIT-VARS ((LISPUSERSDIRECTORIES "lispusers" "library" "internal/library") (LISPSOURCEDIRECTORIES "sources") (LISPSOURCEDIRECTORY . "sources") (IRM.HOST&DIR . "docs/dinfo") (IRM.DINFOGRAPH) (DIRECTORIES LISPUSERSDIRECTORIES LISPSOURCEDIRECTORIES) [LOGINHOST/DIR (DIRECTORYNAME (OR (UNIX-GETENV "LOGINDIR") (UNIX-GETENV "HOME"] [USERGREETFILES `((,LOGINHOST/DIR "INIT" COM) (,LOGINHOST/DIR "INIT"] (DISPLAYFONTDIRECTORIES "fonts/displayfonts" "fonts/altofonts"))) (DEFINEQ (SYNCLISPFILES [LAMBDA (NODRIBBLE KEEPPUP) (* ; "Edited 5-Dec-2020 12:34 by larry") (* ;  "Edited 23-Oct-2020 23:51 by rmk:") (* ;  "Edited 20-Apr-2018 18:28 by rmk:") (* ;; "This ensures that files in the xlisp.sysout are as up-to-date as possible with respect to lispcore/sources. Reload (compiled, if possible) files that correspond to symbolic files whose filedates are later than the filedate in the system. If you want a new compilation of a file that has not been modified to be included, then you must make a trivial update of the symbolic file and recompile it, to give it a new, later date. This is because it is unsafe as a general default to load compiled files with dates later than the sysout, and the sysout doesn't record the dates of loaded compiled files, just their symbolic versions.") (* ;; " Should be run while connected to MEDLEYDIR") (CLRPROMPT) (MEDLEY-INIT-VARS) (if (WINDOWP LOGOW) then (CLOSEW LOGOW)) (MOVD 'NILL 'LOGOW) (SETQ LISPMAKESYSDATE MAKESYSDATE) (LET (SKIPFILES (SOURCEDIR (MEDLEYDIR "sources"))) (SETQ MAKESYSFILENAME (MEDLEYDIR "loadups" "xlisp.sysout" T)) (* ;;  "FASLOAD has to come first, unconditionally, to get the DFASL file dates converted properly.") (CL:UNLESS NODRIBBLE (DRIBBLE (MEDLEYDIR "loadups" "xlisp.dribble" T))) (BKSYSBUF " ") (PRINTOUT T T "Synchronizing Lisp sysout at " (DATE) T) (PRINTOUT T 5 (CDAR (GETP 'SYNCLISPFILES 'FILEDATES)) T 5 "created " (CAAR (GETP 'SYNCLISPFILES 'FILEDATES)) T T) (push SKIPFILES 'FASLOAD) (LOAD (MEDLEYDIR "sources" "FASLOAD.DFASL") 'SYSLOAD) (push SKIPFILES 'ATBL) (* ;  "Whole file can't be reloaded--smashes readtabl") (LOADFNS '(\ATBLSET \MAPCHARTABLE RESETREADTABLE) (MEDLEYDIR "sources" "ATBL.LCOM") 'SYSLOAD) (LOADVARS '\KEYNAMES (MEDLEYDIR "sources" "LLKEY") 'SYSLOAD) (* ; "Extended keynames for Mac/PC") (push SKIPFILES 'LLKEY) (* ; "Loading whole file freezes") (push SKIPFILES 'MAIKOLOADUPFNS) (* ;  "Can't reload even if compiled files are later") (push SKIPFILES 'SUNFONT) (* ;  "Old font organization, not relevant") (for LF FF CFILE LOADEDDATE FILEDATE IFILEDATE NOCOMPILEDFILES CFILES (COUNT _ 0) in (LDIFFERENCE SYSFILES SKIPFILES) do [[SETQ LOADEDDATE (CAAR (GETP LF 'FILEDATES] (* ;  "Date of symbolic file whose compile file was loaded") (CL:UNLESS LOADEDDATE (PRINTOUT T T LF " does not have a loaded filedate, probably not a Lisp file; skipped" T) (GO $$ITERATE)) (SETQ FF (PACKFILENAME.STRING 'NAME LF 'BODY SOURCEDIR)) (SETQ FILEDATE (FILEDATE FF)) (* ; "Date of current source file") (CL:UNLESS FILEDATE (PRINTOUT T LF " does not have a file-directory date, not updated" T) (GO $$ITERATE)) (SETQ CFILES (for EXT in *COMPILED-EXTENSIONS* when (SETQ CFILE (INFILEP (PACKFILENAME.STRING 'EXTENSION EXT 'BODY FF))) collect CFILE)) (SETQ CFILE (COND [CFILES (* ;;  "If more than one (LCOM, DFASL), pick the newest one.") (for CF in CFILES largest (IDATE (FILEDATE CF T] (T (PRINTOUT T "Note: No compiled file for " LF T) (push NOTCOMPILEDFILES LF) FF))) (SETQ IFILEDATE (IDATE FILEDATE)) (CL:UNLESS (IGREATERP IFILEDATE 0) (PRINTOUT T "Funny file date " FILEDATE " for " LF ", not updated" T) (GO $$ITERATE)) (* ;; "Load the compiled file if the date of the symbolic file is later than the symbolic file-date in the sysout. If an updated source and compiled file were copied from another directory, we update the FILEDATES property to point to the new location. If the loaded and file dates are the same, then update the FILEDATES property to point to the possibly new path name and version even if we don't need to load.") (SETQ LOADEDDATE (IDATE LOADEDDATE)) (if (IGREATERP IFILEDATE LOADEDDATE) then (add COUNT 1) (LOAD CFILE 'SYSLOAD) (CL:WHEN [STREQUAL FILEDATE (CAAR (GETP LF 'FILEDATES] (* ;; "If copied, the compiled file may install the original location. Not sure what happens with copied DFASLs") (RPLACD (CAR (GETP LF 'FILEDATES)) (INFILEP FF))) elseif (IEQP IFILEDATE LOADEDDATE) then (RPLACD (CAR (GETP LF 'FILEDATES)) (INFILEP FF] finally (PRINTOUT T T T COUNT " files loaded" T) (CL:WHEN NOCOMPILEDFILES (PRINTOUT T "Symbolic files loaded: " .PPVTL NOCOMPILEDFILES T T))) (* ;; "Load from patch directory") (for PF (COUNT _ 0) in (FILDIR (PACKFILENAME.STRING 'NAME "*.;" 'BODY (MEDLEYDIR "/patches/"))) do (for EXT CFILE in *COMPILED-EXTENSIONS* when (SETQ CFILE (INFILEP (PACKFILENAME.STRING 'EXTENSION EXT 'BODY PF))) do (add COUNT 1) (LOAD CFILE 'SYSLOAD) (* ; "symbolic file date") (RETURN) finally (PRINTOUT T "Note: No compiled file for " PF T) (add COUNT 1) (LOAD PF 'SYSLOAD)) finally (PRINTOUT T T T COUNT " files loaded" T)) (CL:UNLESS KEEPPUP (NOPUPPATCH)) (ENDLOADUP) (CL:WHEN WRITELISPSYSOUTFLAG (* ;; "So we print out the new version number") (SETQ MAKESYSFILENAME (OUTFILEP MAKESYSFILENAME)) (PRINTOUT T "Creating updated LISP sysout on " MAKESYSFILENAME T) (CLRPROMPT) (BKSYSBUF (CONCAT "(IL:MAKESYS %"" MAKESYSFILENAME "%" %"Medley Lisp Sysout%")"))) (CL:UNLESS NODRIBBLE (DRIBBLE]) (ENDLOADUP [LAMBDA NIL (* ; "Edited 10-Dec-2020 21:49 by larry") (* ; "Edited 11-Oct-90 11:02 by jds") (* ;; "set up for NONET configuration; sites with ethernet can load in init from other places") (* ;; "All records existing at this point in time have been loaded as part of the system.") [MAPC USERRECLST (FUNCTION (LAMBDA (R) (RECORDPRIORITY R 'SYSTEM] (MEDLEY-INIT-VARS T) (for X in SYSTEMINITVARS when (NOT (ASSOC X MEDLEY-INIT-VARS)) do (SETTOPVAL (CAR X) (COPY (CDR X]) (MEDLEYVERSION [LAMBDA NIL (* ;  "Edited 25-Mar-2018 22:07 by rmk:") (* ; "Edited 11-Nov-98 22:02 by rmk:") (SELECTQ (LISPVERSION) (39424 '|1.1|) (39539 '|1.15|) (40960 '|1.2|) (4928 '|2.0|) (21000 '|2.1|) (35000 '|3.5|) (35010 '|3.5|) (HELP "UNRECOGNIZED MEDLEY VERSION" (LISPVERSION]) (NOPUPPATCH [LAMBDA NIL (* ;  "Edited 14-May-2018 12:22 by rmk:") (* ;; "Fix it so pup stuff never gets run") (SETQ \PROCESSES (DREMOVE (FIND.PROCESS '\PUPGATELISTENER) \PROCESSES)) (SETQ \FILEDEVICES (for F in \FILEDEVICES unless (STRPOS "LEAF" F) collect F)) (MOVD 'NILL '\CANONICALIZE.PUP.HOSTNAME]) ) (RPAQ? WRITELISPSYSOUTFLAG T) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE DOCOPY (KEYACTION 'LOCK '(LOCKTOGGLE . IGNORE)) (SYNCLISPFILES) ) (PUTPROPS SYNCLISPFILES FILETYPE :TCOMPL) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA shell) (ADDTOVAR NLAML ) (ADDTOVAR LAMA ) ) (PUTPROPS SYNCLISPFILES COPYRIGHT (NONE)) (DECLARE%: DONTCOPY (FILEMAP (NIL (2203 5824 (MEDLEYDIR 2213 . 3342) (INTERLISPMODE 3344 . 4157) (MEDLEY-INIT-VARS 4159 . 5822)) (5901 6417 (shell 5911 . 6415)) (7039 16744 (SYNCLISPFILES 7049 . 14999) (ENDLOADUP 15001 . 15711) (MEDLEYVERSION 15713 . 16252) (NOPUPPATCH 16254 . 16742))))) STOP \ No newline at end of file diff --git a/makesysout/SYNCLISPFILES.LCOM b/makesysout/SYNCLISPFILES.LCOM index a3b074db..4f697fe6 100644 Binary files a/makesysout/SYNCLISPFILES.LCOM and b/makesysout/SYNCLISPFILES.LCOM differ diff --git a/run-medley b/run-medley index c20418e0..928482ff 100755 --- a/run-medley +++ b/run-medley @@ -18,7 +18,7 @@ inferred_medleydir=false if [ -z "$MEDLEYDIR" ] ; then # the user is usually running this script from medley, so let's try that - export MEDLEYDIR=${PWD} + export MEDLEYDIR="${PWD}" inferred_medleydir=true fi @@ -38,8 +38,18 @@ geometry="-g 1440x900" screensize="-sc 1440x900" passthrough_args="" -export LDEDESTSYSOUT=${HOME}/lisp.virtualmem -export LDEINIT="$MEDLEYDIR/greetfiles/SIMPLE-INIT" +if [ -z "$LDEDESTSYSOUT" ] ; then + if [ -z "$LOGINDIR" ] ; then + export LDEDESTSYSOUT="${HOME}/lisp.virtualmem" + else + export LDEDESTSYSOUT="${LOGINDIR}/lisp.virtualmem" + fi +fi + +if [ -z "$LDEINIT" ] ; then + export LDEINIT="$MEDLEYDIR/greetfiles/SIMPLE-INIT" +fi + export LDEKBDTYPE=x while [ "$#" -ne 0 ]; do @@ -132,7 +142,7 @@ oldpath="$PATH" export PATH=.:"$PATH" cd "$MAIKODIR"/bin -export PATH=$MAIKODIR/`osversion`.`machinetype`:"$oldpath" +export PATH="$MAIKODIR"/`osversion`.`machinetype`:"$oldpath" cd "$OLDPWD"