From f3691a7b6dd79d4dc3ca940714d285eb6ac98f61 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Mon, 14 Dec 2020 11:56:09 -0800 Subject: [PATCH] gabriel folder needs EOL swap tr handling --- internal/gabriel/00-README.txt | 211 ------------------ internal/gabriel/00-README.txt.~1~ | 209 ----------------- .../gabriel/Results/KOTO-DANDELION.BENCHMARKS | 1 - .../gabriel/Results/KOTO-DORADO.BENCHMARKS | 1 - internal/gabriel/Results/KOTO-DOVE.BENCHMARKS | 1 - .../gabriel/Results/Lyric/ALL-PAV.BENCHMARKS | 1 - .../Results/Lyric/AREFY-PAV.BENCHMARKS | 1 - .../Results/Lyric/CONSY-BYTE.BENCHMARKS | 1 - .../Results/Lyric/CONSY-PAV.BENCHMARKS | 1 - .../Results/Lyric/EXTRAS-BYTE.BENCHMARKS | 1 - .../Results/Lyric/EXTRAS-PAV.BENCHMARKS | 1 - .../gabriel/Results/Lyric/File-Servers.TEdit | Bin 20604 -> 0 bytes .../gabriel/Results/Lyric/IO-BYTE.BENCHMARKS | 1 - .../gabriel/Results/Lyric/IO-PAV.BENCHMARKS | 1 - internal/gabriel/Results/Lyric/RESULTS.TEDIT | Bin 6367 -> 0 bytes .../gabriel/Results/Lyric/SUMMARY-5-27.TEDIT | Bin 9686 -> 0 bytes .../gabriel/Results/Lyric/TAK-BYTE.BENCHMARKS | 1 - .../gabriel/Results/Lyric/TAK-PAV.BENCHMARKS | 1 - .../gabriel/Results/Lyric/all-byte.benchmarks | 1 - .../Results/Lyric/arefy-byte.benchmarks | 1 - .../Results/Lyric/byte-5-24.benchmarks | 1 - .../Results/Lyric/byte-5-26.benchmarks | 1 - .../gabriel/Results/Lyric/lyric-results.tedit | Bin 2480 -> 0 bytes .../gabriel/Results/Lyric/pav-5-25.benchmarks | 1 - .../gabriel/Results/Lyric/pav-5-26.benchmarks | 1 - internal/gabriel/Results/Lyric/summary.tedit | Bin 5005 -> 0 bytes .../Results/Maiko-Pav-06-14-88.benchmarks | 1 - .../Results/Maiko/1132-BYTE-TAK.Results | 1 - .../Results/Maiko/1132-PAV-TAK.Results | 1 - .../Results/Maiko/1186-BYTE-CONSY.Results | 1 - .../gabriel/Results/Maiko/1186-IO.Results | 1 - .../Results/Maiko/1186-PAV-AREFY.Results | 1 - .../Results/Maiko/1186-PAV-CONSY.Results | 1 - .../Results/Maiko/1186-PAV-TAK.Results | 1 - .../Results/Maiko/SUN-BYTE-AREFY.RESULTS | 1 - .../Results/Maiko/SUN-BYTE-ARITH.RESULTS | 1 - .../Results/Maiko/SUN-BYTE-CONSY.RESULTS | 1 - .../Results/Maiko/SUN-BYTE-TAK.RESULTS | 1 - internal/gabriel/Results/Maiko/SUN-IO.Results | 1 - .../gabriel/Results/Maiko/SUN-IO.Results.~14~ | 1 - .../gabriel/Results/Maiko/SUN-IO.Results.~1~ | 1 - .../Results/Maiko/SUN-PAV-AREFY.Results | 1 - .../Results/Maiko/SUN-PAV-ARITH.Results | 1 - .../Results/Maiko/SUN-PAV-ARITH.Results.~10~ | 1 - .../Results/Maiko/SUN-PAV-ARITH.Results.~1~ | 1 - .../Results/Maiko/SUN-PAV-CONSY.Results | 1 - .../Results/Maiko/SUN-PAV-MISC.Results | 1 - .../Results/Maiko/SUN-PAV-POLY.Results | 1 - .../gabriel/Results/Maiko/SUN-PAV-TAK.Results | 1 - .../Results/Maiko/SUN-PAV-TAK.Results.~16~ | 1 - .../Results/Maiko/SUN-PAV-TAK.Results.~1~ | 1 - .../gabriel/Results/Maiko/win-tak.results | 1 - .../gabriel/Results/Maiko/win-tak.results.~1~ | 1 - .../gabriel/Results/Maiko/win-tak.results.~2~ | 1 - .../gabriel/Results/Maiko/x86-arefy.results | 1 - .../gabriel/Results/Maiko/x86-arith.results | 1 - .../Results/Maiko/x86-byte-tak.results | 1 - .../gabriel/Results/Maiko/x86-consy.results | 1 - .../gabriel/Results/Maiko/x86-poly.results | 1 - .../Results/Medley/BYTE-AREFY-1186.RESULTS | 1 - .../Results/Medley/BYTE-CONSY-1186.RESULTS | 1 - .../Results/Medley/BYTE-IO-1186.RESULTS | 1 - .../Results/Medley/BYTE-TAK-1186.RESULTS | 1 - .../Results/SUMMARY-TIME-SERIES2.tedit | Bin 7448 -> 0 bytes .../Results/SUMMARY-TIME-SERIES3.tedit | Bin 7954 -> 0 bytes .../Results/SUMMARY-TIME-SERIES4.Tedit | Bin 7614 -> 0 bytes .../gabriel/Results/Summary-Time-Series.TEdit | Bin 8370 -> 0 bytes internal/gabriel/Results/koto-1108.benchmarks | 1 - internal/gabriel/admin/Result-Log-Form.TEdit | Bin 3551 -> 0 bytes internal/gabriel/aux/1000-SYMBOLS | 1 - internal/gabriel/aux/2000-FLOATS-TO-READ | 1 - internal/gabriel/benchmarks/ARITH-BENCHMARKS | 1 - .../gabriel/benchmarks/ARITH-BENCHMARKS.DFASL | Bin 4416 -> 0 bytes .../benchmarks/ARITH-BENCHMARKS.DFASL.~1~ | Bin 4138 -> 0 bytes .../benchmarks/ARITH-BENCHMARKS.DFASL.~2~ | Bin 2538 -> 0 bytes .../benchmarks/ARITH-BENCHMARKS.DFASL.~3~ | Bin 4242 -> 0 bytes .../benchmarks/ARITH-BENCHMARKS.DFASL.~4~ | Bin 4416 -> 0 bytes .../benchmarks/ARITH-BENCHMARKS.DFASL.~5~ | Bin 4416 -> 0 bytes .../gabriel/benchmarks/ARITH-BENCHMARKS.LCOM | Bin 4889 -> 0 bytes internal/gabriel/benchmarks/GABRIEL-OTHER | 1 - .../gabriel/benchmarks/GABRIEL-OTHER.LCOM | Bin 43889 -> 0 bytes .../gabriel/benchmarks/GABRIEL-OTHER.dfasl | Bin 47097 -> 0 bytes .../benchmarks/GABRIEL-OTHER.dfasl.~1~ | Bin 44664 -> 0 bytes .../benchmarks/GABRIEL-OTHER.dfasl.~2~ | Bin 45996 -> 0 bytes .../benchmarks/GABRIEL-OTHER.dfasl.~3~ | Bin 47090 -> 0 bytes .../benchmarks/GABRIEL-OTHER.dfasl.~4~ | Bin 47097 -> 0 bytes internal/gabriel/benchmarks/GABRIEL-TAK | 1 - internal/gabriel/benchmarks/GABRIEL-TAK.LCOM | Bin 16484 -> 0 bytes internal/gabriel/benchmarks/GABRIEL-TAK.dfasl | Bin 15218 -> 0 bytes .../gabriel/benchmarks/GABRIEL-TAK.dfasl.~1~ | Bin 13986 -> 0 bytes .../gabriel/benchmarks/GABRIEL-TAK.dfasl.~2~ | Bin 14666 -> 0 bytes .../gabriel/benchmarks/GABRIEL-TAK.dfasl.~3~ | Bin 15218 -> 0 bytes .../gabriel/benchmarks/GABRIEL-TAK.dfasl.~4~ | Bin 15218 -> 0 bytes internal/gabriel/benchmarks/IO-BENCHMARKS | 1 - .../gabriel/benchmarks/IO-BENCHMARKS.DFASL | Bin 14045 -> 0 bytes .../benchmarks/IO-BENCHMARKS.DFASL.~1~ | Bin 14051 -> 0 bytes .../benchmarks/IO-BENCHMARKS.DFASL.~2~ | Bin 14045 -> 0 bytes .../gabriel/benchmarks/IO-BENCHMARKS.LCOM | 1 - .../gabriel/benchmarks/IO-BENCHMARKS.LCOM.~1~ | Bin 17977 -> 0 bytes .../gabriel/benchmarks/IO-BENCHMARKS.LCOM.~2~ | Bin 17909 -> 0 bytes .../gabriel/benchmarks/IO-BENCHMARKS.LCOM.~3~ | Bin 17907 -> 0 bytes .../gabriel/benchmarks/IO-BENCHMARKS.LCOM.~5~ | 140 ------------ .../gabriel/benchmarks/IO-BENCHMARKS.LCOM.~6~ | Bin 18045 -> 0 bytes .../gabriel/benchmarks/IO-BENCHMARKS.LCOM.~7~ | 1 - .../gabriel/benchmarks/IO-BENCHMARKS.LCOM.~8~ | 1 - internal/gabriel/benchmarks/IO-BENCHMARKS.~1~ | 1 - internal/gabriel/benchmarks/IO-BENCHMARKS.~2~ | 1 - internal/gabriel/benchmarks/IO-BENCHMARKS.~3~ | 1 - internal/gabriel/benchmarks/IO-BENCHMARKS.~4~ | 1 - internal/gabriel/benchmarks/MISC-BENCHMARKS | 1 - .../gabriel/benchmarks/MISC-BENCHMARKS.DFASL | Bin 4051 -> 0 bytes .../benchmarks/MISC-BENCHMARKS.DFASL.~1~ | Bin 3798 -> 0 bytes .../benchmarks/MISC-BENCHMARKS.DFASL.~2~ | Bin 3895 -> 0 bytes .../benchmarks/MISC-BENCHMARKS.DFASL.~3~ | Bin 4051 -> 0 bytes .../gabriel/benchmarks/MISC-BENCHMARKS.LCOM | 22 -- .../benchmarks/Medley/GABRIEL-OTHER.DFASL | Bin 48275 -> 0 bytes .../benchmarks/Medley/GABRIEL-OTHER.LCOM | Bin 47258 -> 0 bytes .../benchmarks/Medley/GABRIEL-TAK.DFASL | Bin 13986 -> 0 bytes .../benchmarks/Medley/GABRIEL-TAK.LCOM | Bin 16484 -> 0 bytes .../benchmarks/Medley/GABRIEL-TIMERS.LCOM | Bin 12280 -> 0 bytes .../benchmarks/RUNNING-BENCHMARKS.DRIBBLE | 1 - internal/gabriel/interlisp/1186BENCHMARKS | 0 internal/gabriel/interlisp/BENCHMARK | 1 - internal/gabriel/interlisp/BOYER | 5 - internal/gabriel/interlisp/BROWSE | 1 - internal/gabriel/interlisp/CTAK | 1 - internal/gabriel/interlisp/DDERIV | 1 - internal/gabriel/interlisp/DERIV | 1 - internal/gabriel/interlisp/DERIV.LCOM | Bin 1533 -> 0 bytes internal/gabriel/interlisp/DESTRUCTIVE | 1 - internal/gabriel/interlisp/DESTRUCTIVE.LCOM | Bin 1091 -> 0 bytes internal/gabriel/interlisp/DIV2 | 1 - internal/gabriel/interlisp/DIV2.LCOM | Bin 1259 -> 0 bytes internal/gabriel/interlisp/FFT | 1 - internal/gabriel/interlisp/FPRINT | 1 - internal/gabriel/interlisp/FPRINT.TST | 1 - internal/gabriel/interlisp/FREAD | 1 - internal/gabriel/interlisp/POLY | 1 - internal/gabriel/interlisp/PUZZLE | 1 - internal/gabriel/interlisp/STAK | 1 - internal/gabriel/interlisp/TAK | 1 - internal/gabriel/interlisp/TAKL | 1 - internal/gabriel/interlisp/TAKR | 1 - internal/gabriel/interlisp/TESTPATTERN | 1 - internal/gabriel/interlisp/TPRINT | 1 - internal/gabriel/interlisp/TRAVERSE | 1 - internal/gabriel/interlisp/TRAVERSE.LCOM | Bin 3120 -> 0 bytes internal/gabriel/interlisp/TRIANG | 1 - .../gabriel/interlisp/benchmarkmemo.tedit | Bin 8737 -> 0 bytes internal/gabriel/interlisp/dderiv.lcom | Bin 2294 -> 0 bytes internal/gabriel/tools/BENCH-1 | 1 - internal/gabriel/tools/BENCH-1.~1~ | 1 - internal/gabriel/tools/BENCH-1.~2~ | 1 - internal/gabriel/tools/BENCH-1.~3~ | 1 - internal/gabriel/tools/BENCH-2 | 1 - internal/gabriel/tools/BENCH-2.~1~ | 1 - internal/gabriel/tools/BENCH-2.~2~ | 1 - internal/gabriel/tools/BENCH-3 | 1 - internal/gabriel/tools/BENCH-3.~1~ | 1 - internal/gabriel/tools/BENCH-3.~2~ | 1 - internal/gabriel/tools/BENCH-386 | 1 - internal/gabriel/tools/BENCH-4 | 1 - internal/gabriel/tools/BENCH-4.~1~ | 1 - internal/gabriel/tools/BENCH-4.~2~ | 1 - internal/gabriel/tools/BENCH-5 | 1 - internal/gabriel/tools/BENCH-5.~1~ | 1 - internal/gabriel/tools/BENCH-5.~2~ | 1 - internal/gabriel/tools/GABRIEL-TIMERS | 1 - internal/gabriel/tools/GABRIEL-TIMERS.LCOM | 1 - .../gabriel/tools/GABRIEL-TIMERS.LCOM.~1~ | Bin 12280 -> 0 bytes .../gabriel/tools/GABRIEL-TIMERS.LCOM.~2~ | 132 ----------- .../gabriel/tools/GABRIEL-TIMERS.LCOM.~3~ | 1 - internal/gabriel/tools/GABRIEL-TIMERS.dfasl | Bin 10847 -> 0 bytes .../gabriel/tools/GABRIEL-TIMERS.dfasl.~1~ | Bin 10042 -> 0 bytes .../gabriel/tools/GABRIEL-TIMERS.dfasl.~2~ | Bin 10456 -> 0 bytes .../gabriel/tools/GABRIEL-TIMERS.dfasl.~3~ | Bin 10847 -> 0 bytes .../gabriel/tools/GABRIEL-TIMERS.dfasl.~4~ | Bin 10847 -> 0 bytes internal/gabriel/tools/TESTVARS | 1 - 178 files changed, 833 deletions(-) delete mode 100644 internal/gabriel/00-README.txt delete mode 100644 internal/gabriel/00-README.txt.~1~ delete mode 100644 internal/gabriel/Results/KOTO-DANDELION.BENCHMARKS delete mode 100644 internal/gabriel/Results/KOTO-DORADO.BENCHMARKS delete mode 100644 internal/gabriel/Results/KOTO-DOVE.BENCHMARKS delete mode 100644 internal/gabriel/Results/Lyric/ALL-PAV.BENCHMARKS delete mode 100644 internal/gabriel/Results/Lyric/AREFY-PAV.BENCHMARKS delete mode 100644 internal/gabriel/Results/Lyric/CONSY-BYTE.BENCHMARKS delete mode 100644 internal/gabriel/Results/Lyric/CONSY-PAV.BENCHMARKS delete mode 100644 internal/gabriel/Results/Lyric/EXTRAS-BYTE.BENCHMARKS delete mode 100644 internal/gabriel/Results/Lyric/EXTRAS-PAV.BENCHMARKS delete mode 100644 internal/gabriel/Results/Lyric/File-Servers.TEdit delete mode 100644 internal/gabriel/Results/Lyric/IO-BYTE.BENCHMARKS delete mode 100644 internal/gabriel/Results/Lyric/IO-PAV.BENCHMARKS delete mode 100644 internal/gabriel/Results/Lyric/RESULTS.TEDIT delete mode 100644 internal/gabriel/Results/Lyric/SUMMARY-5-27.TEDIT delete mode 100644 internal/gabriel/Results/Lyric/TAK-BYTE.BENCHMARKS delete mode 100644 internal/gabriel/Results/Lyric/TAK-PAV.BENCHMARKS delete mode 100644 internal/gabriel/Results/Lyric/all-byte.benchmarks delete mode 100644 internal/gabriel/Results/Lyric/arefy-byte.benchmarks delete mode 100644 internal/gabriel/Results/Lyric/byte-5-24.benchmarks delete mode 100644 internal/gabriel/Results/Lyric/byte-5-26.benchmarks delete mode 100644 internal/gabriel/Results/Lyric/lyric-results.tedit delete mode 100644 internal/gabriel/Results/Lyric/pav-5-25.benchmarks delete mode 100644 internal/gabriel/Results/Lyric/pav-5-26.benchmarks delete mode 100644 internal/gabriel/Results/Lyric/summary.tedit delete mode 100644 internal/gabriel/Results/Maiko-Pav-06-14-88.benchmarks delete mode 100644 internal/gabriel/Results/Maiko/1132-BYTE-TAK.Results delete mode 100644 internal/gabriel/Results/Maiko/1132-PAV-TAK.Results delete mode 100644 internal/gabriel/Results/Maiko/1186-BYTE-CONSY.Results delete mode 100644 internal/gabriel/Results/Maiko/1186-IO.Results delete mode 100644 internal/gabriel/Results/Maiko/1186-PAV-AREFY.Results delete mode 100644 internal/gabriel/Results/Maiko/1186-PAV-CONSY.Results delete mode 100644 internal/gabriel/Results/Maiko/1186-PAV-TAK.Results delete mode 100644 internal/gabriel/Results/Maiko/SUN-BYTE-AREFY.RESULTS delete mode 100644 internal/gabriel/Results/Maiko/SUN-BYTE-ARITH.RESULTS delete mode 100644 internal/gabriel/Results/Maiko/SUN-BYTE-CONSY.RESULTS delete mode 100644 internal/gabriel/Results/Maiko/SUN-BYTE-TAK.RESULTS delete mode 100644 internal/gabriel/Results/Maiko/SUN-IO.Results delete mode 100644 internal/gabriel/Results/Maiko/SUN-IO.Results.~14~ delete mode 100644 internal/gabriel/Results/Maiko/SUN-IO.Results.~1~ delete mode 100644 internal/gabriel/Results/Maiko/SUN-PAV-AREFY.Results delete mode 100644 internal/gabriel/Results/Maiko/SUN-PAV-ARITH.Results delete mode 100644 internal/gabriel/Results/Maiko/SUN-PAV-ARITH.Results.~10~ delete mode 100644 internal/gabriel/Results/Maiko/SUN-PAV-ARITH.Results.~1~ delete mode 100644 internal/gabriel/Results/Maiko/SUN-PAV-CONSY.Results delete mode 100644 internal/gabriel/Results/Maiko/SUN-PAV-MISC.Results delete mode 100644 internal/gabriel/Results/Maiko/SUN-PAV-POLY.Results delete mode 100644 internal/gabriel/Results/Maiko/SUN-PAV-TAK.Results delete mode 100644 internal/gabriel/Results/Maiko/SUN-PAV-TAK.Results.~16~ delete mode 100644 internal/gabriel/Results/Maiko/SUN-PAV-TAK.Results.~1~ delete mode 100644 internal/gabriel/Results/Maiko/win-tak.results delete mode 100644 internal/gabriel/Results/Maiko/win-tak.results.~1~ delete mode 100644 internal/gabriel/Results/Maiko/win-tak.results.~2~ delete mode 100644 internal/gabriel/Results/Maiko/x86-arefy.results delete mode 100644 internal/gabriel/Results/Maiko/x86-arith.results delete mode 100644 internal/gabriel/Results/Maiko/x86-byte-tak.results delete mode 100644 internal/gabriel/Results/Maiko/x86-consy.results delete mode 100644 internal/gabriel/Results/Maiko/x86-poly.results delete mode 100644 internal/gabriel/Results/Medley/BYTE-AREFY-1186.RESULTS delete mode 100644 internal/gabriel/Results/Medley/BYTE-CONSY-1186.RESULTS delete mode 100644 internal/gabriel/Results/Medley/BYTE-IO-1186.RESULTS delete mode 100644 internal/gabriel/Results/Medley/BYTE-TAK-1186.RESULTS delete mode 100644 internal/gabriel/Results/SUMMARY-TIME-SERIES2.tedit delete mode 100644 internal/gabriel/Results/SUMMARY-TIME-SERIES3.tedit delete mode 100644 internal/gabriel/Results/SUMMARY-TIME-SERIES4.Tedit delete mode 100644 internal/gabriel/Results/Summary-Time-Series.TEdit delete mode 100644 internal/gabriel/Results/koto-1108.benchmarks delete mode 100644 internal/gabriel/admin/Result-Log-Form.TEdit delete mode 100644 internal/gabriel/aux/1000-SYMBOLS delete mode 100644 internal/gabriel/aux/2000-FLOATS-TO-READ delete mode 100644 internal/gabriel/benchmarks/ARITH-BENCHMARKS delete mode 100644 internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL delete mode 100644 internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~1~ delete mode 100644 internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~2~ delete mode 100644 internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~3~ delete mode 100644 internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~4~ delete mode 100644 internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~5~ delete mode 100644 internal/gabriel/benchmarks/ARITH-BENCHMARKS.LCOM delete mode 100644 internal/gabriel/benchmarks/GABRIEL-OTHER delete mode 100644 internal/gabriel/benchmarks/GABRIEL-OTHER.LCOM delete mode 100644 internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl delete mode 100644 internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~1~ delete mode 100644 internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~2~ delete mode 100644 internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~3~ delete mode 100644 internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~4~ delete mode 100644 internal/gabriel/benchmarks/GABRIEL-TAK delete mode 100644 internal/gabriel/benchmarks/GABRIEL-TAK.LCOM delete mode 100644 internal/gabriel/benchmarks/GABRIEL-TAK.dfasl delete mode 100644 internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~1~ delete mode 100644 internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~2~ delete mode 100644 internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~3~ delete mode 100644 internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~4~ delete mode 100644 internal/gabriel/benchmarks/IO-BENCHMARKS delete mode 100644 internal/gabriel/benchmarks/IO-BENCHMARKS.DFASL delete mode 100644 internal/gabriel/benchmarks/IO-BENCHMARKS.DFASL.~1~ delete mode 100644 internal/gabriel/benchmarks/IO-BENCHMARKS.DFASL.~2~ delete mode 100644 internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM delete mode 100644 internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~1~ delete mode 100644 internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~2~ delete mode 100644 internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~3~ delete mode 100644 internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~5~ delete mode 100644 internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~6~ delete mode 100644 internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~7~ delete mode 100644 internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~8~ delete mode 100644 internal/gabriel/benchmarks/IO-BENCHMARKS.~1~ delete mode 100644 internal/gabriel/benchmarks/IO-BENCHMARKS.~2~ delete mode 100644 internal/gabriel/benchmarks/IO-BENCHMARKS.~3~ delete mode 100644 internal/gabriel/benchmarks/IO-BENCHMARKS.~4~ delete mode 100644 internal/gabriel/benchmarks/MISC-BENCHMARKS delete mode 100644 internal/gabriel/benchmarks/MISC-BENCHMARKS.DFASL delete mode 100644 internal/gabriel/benchmarks/MISC-BENCHMARKS.DFASL.~1~ delete mode 100644 internal/gabriel/benchmarks/MISC-BENCHMARKS.DFASL.~2~ delete mode 100644 internal/gabriel/benchmarks/MISC-BENCHMARKS.DFASL.~3~ delete mode 100644 internal/gabriel/benchmarks/MISC-BENCHMARKS.LCOM delete mode 100644 internal/gabriel/benchmarks/Medley/GABRIEL-OTHER.DFASL delete mode 100644 internal/gabriel/benchmarks/Medley/GABRIEL-OTHER.LCOM delete mode 100644 internal/gabriel/benchmarks/Medley/GABRIEL-TAK.DFASL delete mode 100644 internal/gabriel/benchmarks/Medley/GABRIEL-TAK.LCOM delete mode 100644 internal/gabriel/benchmarks/Medley/GABRIEL-TIMERS.LCOM delete mode 100644 internal/gabriel/benchmarks/RUNNING-BENCHMARKS.DRIBBLE delete mode 100644 internal/gabriel/interlisp/1186BENCHMARKS delete mode 100644 internal/gabriel/interlisp/BENCHMARK delete mode 100644 internal/gabriel/interlisp/BOYER delete mode 100644 internal/gabriel/interlisp/BROWSE delete mode 100644 internal/gabriel/interlisp/CTAK delete mode 100644 internal/gabriel/interlisp/DDERIV delete mode 100644 internal/gabriel/interlisp/DERIV delete mode 100644 internal/gabriel/interlisp/DERIV.LCOM delete mode 100644 internal/gabriel/interlisp/DESTRUCTIVE delete mode 100644 internal/gabriel/interlisp/DESTRUCTIVE.LCOM delete mode 100644 internal/gabriel/interlisp/DIV2 delete mode 100644 internal/gabriel/interlisp/DIV2.LCOM delete mode 100644 internal/gabriel/interlisp/FFT delete mode 100644 internal/gabriel/interlisp/FPRINT delete mode 100644 internal/gabriel/interlisp/FPRINT.TST delete mode 100644 internal/gabriel/interlisp/FREAD delete mode 100644 internal/gabriel/interlisp/POLY delete mode 100644 internal/gabriel/interlisp/PUZZLE delete mode 100644 internal/gabriel/interlisp/STAK delete mode 100644 internal/gabriel/interlisp/TAK delete mode 100644 internal/gabriel/interlisp/TAKL delete mode 100644 internal/gabriel/interlisp/TAKR delete mode 100644 internal/gabriel/interlisp/TESTPATTERN delete mode 100644 internal/gabriel/interlisp/TPRINT delete mode 100644 internal/gabriel/interlisp/TRAVERSE delete mode 100644 internal/gabriel/interlisp/TRAVERSE.LCOM delete mode 100644 internal/gabriel/interlisp/TRIANG delete mode 100644 internal/gabriel/interlisp/benchmarkmemo.tedit delete mode 100644 internal/gabriel/interlisp/dderiv.lcom delete mode 100644 internal/gabriel/tools/BENCH-1 delete mode 100644 internal/gabriel/tools/BENCH-1.~1~ delete mode 100644 internal/gabriel/tools/BENCH-1.~2~ delete mode 100644 internal/gabriel/tools/BENCH-1.~3~ delete mode 100644 internal/gabriel/tools/BENCH-2 delete mode 100644 internal/gabriel/tools/BENCH-2.~1~ delete mode 100644 internal/gabriel/tools/BENCH-2.~2~ delete mode 100644 internal/gabriel/tools/BENCH-3 delete mode 100644 internal/gabriel/tools/BENCH-3.~1~ delete mode 100644 internal/gabriel/tools/BENCH-3.~2~ delete mode 100644 internal/gabriel/tools/BENCH-386 delete mode 100644 internal/gabriel/tools/BENCH-4 delete mode 100644 internal/gabriel/tools/BENCH-4.~1~ delete mode 100644 internal/gabriel/tools/BENCH-4.~2~ delete mode 100644 internal/gabriel/tools/BENCH-5 delete mode 100644 internal/gabriel/tools/BENCH-5.~1~ delete mode 100644 internal/gabriel/tools/BENCH-5.~2~ delete mode 100644 internal/gabriel/tools/GABRIEL-TIMERS delete mode 100644 internal/gabriel/tools/GABRIEL-TIMERS.LCOM delete mode 100644 internal/gabriel/tools/GABRIEL-TIMERS.LCOM.~1~ delete mode 100644 internal/gabriel/tools/GABRIEL-TIMERS.LCOM.~2~ delete mode 100644 internal/gabriel/tools/GABRIEL-TIMERS.LCOM.~3~ delete mode 100644 internal/gabriel/tools/GABRIEL-TIMERS.dfasl delete mode 100644 internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~1~ delete mode 100644 internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~2~ delete mode 100644 internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~3~ delete mode 100644 internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~4~ delete mode 100644 internal/gabriel/tools/TESTVARS 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 fe5a05cece296172c272b48f39ab5ca5c904b076..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 20604 zcmd5@TXP#nc7|kUtAKcuRBbMsds|-HpiRzla3KMdtqny&64$($fMhG1P1O(>5VHhk zkePufZYp_9Zy;EQM^M#01vi66i8<3xy`Orr4orxiy#raO6*U9X%Kqx71mGY6KFOPNi@wfNc|+GS;HuVuA$iTt{%m{cOkrRDE1Bl zki2s*2$NLo9-nsC#a{1=b>WGVXD6mzh;-B|P-unjKEz}-NlK+CL_CY53qJ(g%TNSi z8bN`1EM{JuCXNuSQ4oVEQM5{D-r(Xqj^`E*JqRSaQd2=Fp*(|JM`C3BHQ zJ;SEbHAxEby?6+tK|*#3WF1T}FA5XkokjChT#mhzbsBo9C#K$&nEGC*Z3AOL2UEE; znu&@3(w~SyG$cI4JbT1e9Fd4*oFoIyzVK$V*dGLl1ITfOY1646rpY?yMf3A9eM{!& z=L8TE3#v$&B3?-g4?2W8nfP8pK>~%~h^c@_KO3kJd$=wjjr`g1f+R$kjUSREl@oIB zKI7w2-n(oT!^JvSCKJ|+l@VU-i_17jQ$Q&Q#V%BUm7j6>>tW z5Ynu2Sr%XfxP5>LXakqrL~VO%?F|AFZv zF9`-f9)v)|4HA)fSClW{4Wyl^2jJVnLg!&XaVAHu>)bXD&au3I9{WC*Fyxm}FeJGs zyx}!(Izv&@W`(YUNkmAH=AK0y43t^b5D3^?h~`a_NL)tq$xuv!3#=n1UJNkGWsx^f zW?*>4Nw#cbb6uPvuOT1v48w7gaKIUWnU`~0M%%HQ~x_IKJ8_zuQlD?)4m`shR8Zul~YqmYV_>9OQ0p?b)|lGLQz6{l5R#m~}jH)7?Gou`h z=_sPPECrLGpVMuTs3KfQxUUYjDK+ymWMO(El zPPzx(jB?bI!XNJJJ>U5{Bhz=+{o!_VlTtQ|k6sG}3o9IScOGjCipQ!EfKX@L*l|in z767a?4J{GneljsiVU(nRAW919B6EJW2+OZlKw~4-fobu*ADsK~Vj(e{$7IySB7HKA z9K|chvFCn>LYBgJXNdL`{eYeY=OIOr2hfKEKolSd!A5Zap&({VTEjTpE;T!wo5Gvo z=O~33#Fg4b;9=}xX-dRYQzkw*!Jl7^WoCxfgsBNy2;vnXZbcebxd=~lyM;WXc zULViXIpz)nbWq$WG4hh6|JmGDT+ zqaX~DF{G9v98;ez%TVaQqJTtVAOdxF+G~n4l`!r|$R1gp=YBqG5TV{>6r+(bH#wJM z`gMj5i6lhgxDsREdr5*Rs~E%Kk!T7zs3Do4D#RCXqwKR(M4>D|U*sJ!tYh=GDUMINM?DSZ$K1@4J%L=gO<^QeCLT z%?f@rYD9J$3%Uxsa?NSA%VOKv-lk_w`lwYX{P1L}PER)ZNsXSk6&Zu&rnA{DyLD%) zP2`rGRXI}SM+ODU)zN~rSpq4PT#6)fo$V$`)^>?T|5dbLO{Wg_O{c}2x8xiatnSqC zr0z89L}Z;Z!CFqUQ5J2d&a+r@x3UmS#vXhU667-B8t!tdu`yj{Bl&CLYRqO!S(FF3 znbn}_mQ!bqSh$*w9r7-AYZNv{a_uOu18&rWa8r&X1Ru*llAXA&LX0}ytRRdl$1^pK zo~(<(*dJVAvcerzJnCUE1EomjQPq$z)FwWsc3SXiASFQMrF{Wqv@}YAXUIx8WPcJz z2~s(D=&O7J9VL8KH!Sgs+)VOed%@ivngailf(b3qQbcop&fHQ5GM9lF9tN0~xTWE2 zm))AnfNO zEHq}eoEBiV?eKVJq#)CDwxQ^jg0e!o3N#vyIj{tvt|k?vyAIQAB|8(aO<9IKq#Ljp z0*81Yyoj5&9W3p-&KAvadE(mxG!>>Cz9OIpP*mp?8G52{9X&HakLz57E?gmf5dmm@ z75KAaamhJe#g+_%K%SN$0Pt@HeQF5}_yfig{W;k*_6hm#@e{ezlF;9M+THy^^iiO0 zfpp|&1#~uWU8ik8lQJ#5p$xCVR3pr6IosqZ=@bR^np0~dJvZe#JX0raPW4+(o3f&w zQ^3-qxygdCfzVOKgjTC5(U5$v6%Dx_XqF(7b2x7!&2N<(&L$&V1&4w;LZ(?p5i%bY zM7tj5%fzF^D~n3OZ~$_n40bFReYg_luG82CUDgd2?rtboT{r`_w$(&F_F`{ND00!eR)?v82+ce!7b zsNNY4(P8gWk+}t|TS&(eJDiO*c3SKmb^(1urqQr=k*I5`cGHdkl~wwRdZ=$VH|@p1l3U4 zT`)IvB1p{gOdb1EI*C@h0pR=0r*>N@7a+^eLkK|3(KI1oaGRmq{i3q6MyPOLJ>+7n z3bix5zu-RPjCR1ZoMfbIn`^hS;LM_y4Y|nqyb;<9hT+G&GiUq6-gJnK01g0r98>Tq zG})QBnxJOYrBs(t6?F-B< z3Q%=5UKxQhJV55C;UH7NsR7$`wy1(oE_OLc>M}(lYjW!3jLMlBDU!`_eRR4`J&R72 zRb}5VD;|fx#U90p3j+94%+xe{G*{S^FlWVHl@GLU4OEsb)`mY2VtL7K3~6kEmgXsH z729lrf{Zl>H4gg_ekPTWLe{8^pg7Ad5l8&%1pC=Mz%3OcnNBAdr@Xh#gFOQ*Um5A6 zdOkao{gR4qhODkSxzI*Dq+?tp;f$0cLatFPQMidg*y$q0n^hUe=%}bbQLLIGsB%SQ zN*Ba&QIj-Pi;D=mt}-FY7yZ`jg(a-rrxJ@ZHyty(V{b+$BDMN0N){R?z2{KilRIdH z18q9UqtdH7T6n96O-F-pS7R(Rir}-_Dxj^E@uBs&t7n6 z3F8@fuEZRgb_myUS~SCzosI7KTC^B85KUf^r@mfjGr%jnxLcf=0ez|I|9|d>(kr>oj*>5fM7I3Xs?uSY1otb70&2= zYz#h5%&Rb*fC0(?1t0ly>ZMx9RdDLz^gf|IIezoe&5{Ei1RRUPQvqD6xVWUILtZTw zj{N<}2uVLoaal}(wh_n$PCvlsI;j+3DAFnAdZ=eP>F z!l*KBuK8o*=y|!1a4VxhE2Bu1d$?Mt=+jMk2*bGM4@!3WKO!*t$e(&=4H_W~p2Rms zz{0^m6Ap{yHk)@K+^})M;4qM&pb$xSzJM<}Huwlpy1;Su%;;8Ctr_73)sk8Ud_ z8hg3PW-;+WQbKf!oD7HZ=m=uCax(%c+p?^15Gg776iM#Au`_9wWr5*f(vr&4BrJqY zIB!ut*AzwzI zYf^cuLBsg)oJOexp1rC-I~uAEfOK{@AQx6wJ^Zo`HTvF!E_DRT0Legq^UEoG&ZC0@ zN&eW7>xQ{BEt{`9oy8jzBo>ER*6`!LjxV?JF9?xf5q2e^Wti+L%)FG)bxCJ+Y{ZR| zc1X_~3wlom+qEf*5M8490}q#4WR&doL*Mw({gin@g}XwCqWTSz4fS>C!`SLI9ooVW zd4wx<6rcC>yDQI$Gg#zbzac#E8!W>h8Sr~O01l12=6<7k(CvRBs?~n?@MPm;r~mY5 z=ddfPhdW<%7e6~sk9&RbxWB=FclNr^_jkMWTYi&OlS`-Q?Cqa+cl*buFZg-(qa)Yt z^>Od`L{y*Pa^=P0+M4L}Uz~KsgI+L2QGKwsrq_}JVR(1vP*mwMM&w0Qj8MNs=lEIw zJ z)X?hg!ErDDgqNu99ryPSaf4dj2PmH%_4UftUbp|Hxzcj+_m3cQCXSq>CE7XK6Y9H` zR)}i%OW{IVdltE0yIy zI@&+b5p+;7e*rEX zw`MqXR)vtkL}TdY%#q_)NFrJSD|48W7(3T_PIOd|i|VI%wa;AygIEQ6IzU0IOX+mazU@O$yfWh+Nd2Hy#+$A zN}b_dfD1apqB8*$@McXUGY>CCEl$h1oT2o~ckAd41-u}FeU+^DuW)z!;Qc@O;0GUm z_|YfTwNL-@uYU5=&mMYb128%t2S2-*OgG(Hz0us-Znck&Prf|u^`AZe>gyMO`asD@ zg-E>&N%i5;v;Bj;jehs*zRbT#IvOqL z>1E*C@!F{4WHRNwBllZ){b`mvzR`!mB!s>s!%j0H0~O@XMo zQp=kG*)(zT&G!Y_5?T*4JuJb8!O2K}$ZodmOY)I9n^jvh11s*NzD*z-*Y1q6{o}0o zb54B?gy~-H+P;unc^jB9<0`eI8z;xT{XU_>aE$2m`a7ptxA{u|WKkxwt{W0w&$oND zx3VWL_Li!bE`UkyNA&dyYL0!s@+|=r1iLesDTQ* zUK0~2P>ioE@79ny7!tW=#lWDHD@zXF>(U{_2yd1q3I5N3@0IA!uaw>`Rr#CxxPQ<5 zmHYm=`Rg5w`%bA}D*d8V`mfTx_0qkxbnoBH5&7@i=1-dZF8s|cw{nB@Nzju0kxN}tcu3QYeCkO$G$XteJLrzuhUnPzy>r4{GC32U(b1` zIHyu1u+z;&*xQ;w^O?X4L6D_{AJL*WjaGWbn`<$Vi<)}j_$%cd5=g2Th2Uw%;}aJ-m+u@+rTU`5R}*n}p* zTEnusWgv@S`NdkpG9j}y-C)_&;$jir1lu!+bj~SMVrMD>qUY!Wi`Qy{Rb-- zwUBI?&>~pQw$@-tO~2eB)K_z{Mp$fD!=Oy62ox14RQVR5k*wbrowVzIr0vn{rkV3tiSg5~UgFZ$M+ViByk zwE$yHu?VdGwaz9Ef&|l^qrb~Vf+!MlHl-z>SdH~bk*%eEP#j@R`J3X1 z)q+{-Th2Z#E^2w7E076(D_%Y~gLmenmITe{rAKvqOq_V{s8xrar9r9L+krnZ*omVv$~E_$6z;4>gwwH|0)g!>Z85=mq*V}!u{u`2Oq!K zdwKk+QlLLAdO5Dcqv>K?UytwZX5nah86M9Tv!~(B)p8!* zEMHws=5NQBVLhHNuNL!gFg)7r^`C~vyN&w6?!j`gz~4AjNVQoXrwhQayh3uSawsYnL<%nKC_K3y=8>MBOG8uFYk zr3MEwnN=D^l}C12o@i9X+?6t^HezWtM9nfL>$T0A-HNQ4+@F0pu2og)Ql&=cDl2rR zl1LRPA8D#nHQ29b@8)B5dUUe!-xR4bajpi>#`8tJyjV-l&%nNAkls!UNfI?3cM<}J=tT51W2$$RB`Io(zUlT0+vQqIY~_2gD1 z2}W=T;haB7GrbpY`0NMtti7dx`j$gCRvJ$6$c(Xo7~333HhSgDk2zh%)`V) zlt&>JOI5Bk>+!{sbD*1Hhe-(qdzu85IPG)~56@Luim_-FI=1Jikv5#*Y}-rWah0VS3aA(u45 zi|(o(0<}=Z|3M9~nfl~@>T`tHpG|=yxK?ZzwY=D0~AIJ$oq#Qny zv}=boTG)ncN-+nM2zPWRZpRfp*j&aP&MYjC2lr|UO~fTZOwh8CUcc9s(T*@OQwd?f z8hJ*t007sjTchDUAq)n$EVtZ{x3#e^#EHPZ+q$X0#0*)MlR#AE7Vwf&l$U#fcd2@zvDRLYe`psE`o_pduOjzh1ei zr>VGasPy>Ol*m{N131tjs7u+PtDcE46%bFlSa9(5l1U8(rcLdq-Wdr_qtI7MIVxKi z$`qWGV{jn#F(<)I-Y0I45o5%~?o#o;tA~anq0_#Y^mUN@(n)G#M4?M?rLBRP&MK*a z(ve6pj0wzIu1j!9rUsO4(IdN4%T?X=+gd2qjz*7aSFVE5ERgg~G7bZzR!h2M&65)Q z6sy&gSJlXR=^Ys)Ng1StOky`xH~LANw-jf=rZ;q1EZ2%#_Sr>~`$X8(Gq}uFtCFPQ z-9BuyCA84?mK;|uqaP$*RDBjU*{&^iD5xeB!XolA0Dv~}ZEVR9`YG8CeA_mSH(`26 zmi5JdEjf**QjIc_FF19}qJ22sGmM$@)taIv(S)LqV-OAVpm z0_jq))OM+swE+p&WxGy_Y?m++BdfjvJWeZhj9jEc$fOgbUP-TA$R|fmn9WiLi`0Kv zMZZ8VEY1-gA>2ar>HMVC&2tM+!%q?T)uU|kiL)g-O4a}?+_B2=-f`PY_V`WMM8`>2 z(^h(M#$CjwLvyUb0H6`hlL5R-lF?>MoLgMug-un~ArxTB5v*^PoV)Hem#ZY$7AYK4 z{Dc#@siwmP?1tnaXCvF0blKL9t5U}9(3>{&*_7LY4&`1=;et}Cl5I^$32Bcjze1gL z{9rQq%|%1rK;)i)4+c9s;rZFiqto;7Rrk{~yq;Z7UQhTTJLgC4JY3Ae`C?Qr!qFmJ zydCp>6V6_Tqww8idO3R+PNwq(KM6!8)30WW#q2tKJ*&fG`y2VFH$B&Z{Cz8UKPcp7 z>nnK%!FyW)qQ3{he}b(t*!o8!z3+J-!u4g}mSz8xmBD}Q;?HIM*1zvt+{nJ+&ck(! zPjL8a{@xF^g1-c2`0V-N-rr8n4?iKkCLDgWckuCE$USziC2!}?U%ogx-8%`(?d{+@ z8%CcH6izF$X1@mnA3Un@xQ#!%HX>K>^)}u^{SWI)p78NwSMU>8@JmRyGkeKT>Zji>2s^`q|#WOnJh1@(rFgWqXfI&PYRR8H0+di)VzVBUX23S z*brHcmFiafz^dc|JGCx#LqRB#Mjk^xj z!}}-dF-*p{a6IZC94am$8f0an&ZAe&5HFF(b8CEv*M>|@F+#ViiIvzlB#@VCK2LUAYY$V;VN_NjdU@|LUP(kmG`Y+ z1Q&C+xz0}YoZ*j|yYM12ErkI53;Xb+%u5|R`dRyA3&~2XLc>+#hROrG(F$6vV{#Um zPVz|>t&rGNxix8&Hz}{-QGKSPSf9oy%jCUQ>({7|{L>HWoo>!;o!zXeD@r8;Kc)D0*240MHo}2tVaqWqI zre=B>fyFIpaXdnYf@c88)o3e8Folt4@cx+r>-hpTqVj@8fef6L$wX>tf~|$S4*!|X zB5_olrq9Zijqa_?%&uQlTI?*w?RAzRKVgDNa_m?~K256pxP!N=SICht%pNF{PHaIk zji+W!SSQZ?8y{b#NtCS0;s|AfKaL7P%eR3zg-wSWDE%sES;8um_yp<$KT!6AIYBNY4#`L;=2{I4q z2#e+#vKdw`b5`rLJdIKS{VLN)lZnX#bqp?IJJKTuys;=%N+C3bWQw(IrmXEI0F^N@ zkqAUc6k9F#b*`OG%SoZi1c?f4Mjpb;MMeOb^40nn>q1HHBjQLzlVyUKEEc027X|1= z@S&dav(>Fpr$K{NjMiru1>61B8`YXfrJzB8tLd8TUA2$icY-UXAzDEDGQrkB6!;5m zuCS;Fu`-$I$n~8xV5(lPP9c~q&BHp{Jl9JoYF+yDlSdo#gWDOONXDpr+a-Ql0wcmu zn%>|*Y$P}^!?4}2O4vMYc9m{e+aw)}-B9$XhYhT207bS%RxJU!4<11(^q92FkcN|V zYS8s0C%DsYGcdCmx&nX!3IgxgE7RF5XnnPsU+TWPcCGY}JdWmz0y5I6A;jXr-ZpoP z;7ztP(}-z2iLyxvZP`EyWb6rDEMS5DZk-P#-)0i@m;O$y5O#z)$ zq3Uw$Edi{^WlU5^*F06wg1vAg=g8-5~-UC?{&x ztcP~Xqv|(8N?v3gPiFhm(w1GK9-cA02kPhuYoHh~nb>)H-B$IvW@1Ymt3%os4yC_; zXH_0ZD63ZqrG0NbE?>Nejo(ACM)k8BjJtkMo`@#H-0rnba9&L2{t$5*4CPNa@`vp~ zFdWFAPG3SVkJj<=i64%72(CXA{t$n<;O|nnUbNrBV93<0TE_p$q`T2s=jguQwJ9nI z)y2NB1KBoWa*0WumM}i?yMv$)<#Bh@^Si@f*k*lXW!m zJ6Ioe&=10%a0x$HaT@mrgJ2Z;oi4u(M!~Sl_u;r%a@e|S8At7)JMg<$w(G-Rz0mJ= zf>0Qx40^5G>4iakf!y!-<6baAiQxwd1V3!OL8GAEZrS@Rlu(a~cSeJtJ@WhQaWLxp zo#8m>NO7_n+ntK}UB5H#FoGcz!Jp1}jPk{=4&x5n#a&}tySOHkD>8pL3PPj++%`t& zgF&A*jvy90i|ldAi+1?S%*W z8IfEyWp9z765_34sFr$?@hpi$0c$w9&iOvcSyqySyl?nFW#GvQy$;!eK(y;8{D3gX z6MmHlk6Xu<5m?xU=a8y!V#wIy*`Y&8X1I=d-u1(F&>Q&(C_c4={(!HNCS!87Sx)Rt z?%DlkDSG?56E#SW8)jDCGk&fQsB%1pyny|6fjqpGPPrKP74 zJlNjk*=DHtusyC1u<+$!yIs%5nlOnL8MbOP4j~N{<>?|bFaY_4M~%jv5cSvV0gLdr zy#>wy3389y0>>lf9)O8_8_*2Y8Tliw%nofq5$M@w;~ocnAd&;5NL?`qm`Icbcmmg~ z-7buRtwZ<##@5go0wR#todC$`peUFGXvitZiOmSD;|&b0*XujDDT+aJ2SHf`@FWJ1 z3N_oZ)1Vsw@m&NJumf@pWy+|4vkPvB59#|&5Jjyq)(Go<_n?7JmwyvRS+X>L;P3Y^ z^sIri8+803ihTn@YZtJ`Hn1rP(6dh$Lcv^NN2^8|aj85Uys13~=&%?wCb*1)P-4)a z4IIJcM#vFCm_7jo`HiAkV~s!!9{67X;0>g&3u)T-{tY-@Jy zPun8f99~g#)Z6TRx2DwF?8t;Q$CvrSkTf2Ugdyd({N&mrtGKb)A;`v8a&Rrtu}%RJ z-r_E`2npZVCVYFF@Xc+)ceV)|igD4|Hpd^f2|FS?gm+#lLiRQ}YU4;aAfYyngrjZ3 zzDr;>kgE|PVIxKO^=X`TX(eHbFRcM6M*zV;l8A`JFW`_n5n=nC}vPNX1;j&Y~NUxA}I6)g_>o)1;LFhdb1`pEX__0MF7y< kNm%4_RadVj{G9u|R78sPr5rC_xyH?knQlzgDIi0u3x?WN*?}#Yh_VLYJE90vZz{ zj+%gSs>}$sDp$p11K(d5m9_)0CoDSFl_{sVRfd_QRN8XnEt?XFkt{LkRLz0Vis9Jk z97wUVqLe06cE(gb%VaK#5)%|C(i$P#@IEwhytlaJX<20pzMto}8OAMPEF{S48{G@)8wtXgaItBwb&eLGqdk9`&dT zOBmFPz`g6dD!~_UKLTUGz1rmlwd)vNVaNp-LyvdcKFF9+;c*OGExgGHE(7u11|Kyk zm(`B+LK+(RJfMCA8GAj*5V}}`N6;7V`cCsM=*3yT{`#Uzy;!XNJ15eXrbIf7hjx7+C-B<^ASl5D=#0D3Eznd&hl-$<2c0N_ zsFgU8M$M@wc#rznF>n)}3*jCX^L^*!X#?>EG!(?#r^4+~f#kV|#eCN}QFCu!!NKMo z+T)?19?%60CJi7Ax&}3Qv_!)7te}192vvsK&`K9}eh4~4B&G)J>FIz*5%d}XEf?yB zE+`UU-@>`9uCFtYNg$^XqmfiEu1O7yN{R`%J<)Y34}3@v`_N1+l)#2W00-`@U=vwL zlVr^_fcM+JX?T(GPFff@4d7T8cKtTyRXSx?8t5FJQ(WxHcaDo{C zP2dHBI*vnco^yW52|l}IhjekX^$-3Mva?0V6Y_?TKgm{1wti`>_x&EDu^sjfhW(0> zMbL*=(TPslcTpX@$AJpT5OyxRb`eyv$89qc5;vL*PE(US;miha^ z9DhBC=)V=Q1Ku@ucMRzLw4DPveXwcx=t0BB{~z(?X2@rohWe1KM8>tViTGmE@cE|U yPL;1W5eJ)wPaZUU)kfUW^o{{VzHW!00l#Y}Xwo*^$?-VDd&?ZVe~=%qfBO$*!OBkn 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 1c552d3d17ad0c6271a4f52dc9e6daa0dbb27ae6..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 5005 zcmb_eO^@SB6?JCjA(izIi-(Xv2-V|jlA%-MZ#(EQQg@?%jF=I_O#c8XPIY39V+Vhv zNuww6Ls%kUgT#UrOIG|07W@E~EIGGqrxUwpdY(iU75n<_WX;cgYDZ6_5bw0G2BwNX{{^4#v3z{7DUz%@;TMIHixYmSUneJAW(&P? z=YNx@yDVQPGCiDrtqR4nyy8g~r}YByjIWcFAbg=@TJh_oS|QktEM%q9-9+%qLT*)2 zs%erXm0qT^aP4hT@3C9ru)*-DVNl`L1hlJiuRdhJ4G3q-@KWSwM~hO@znvbxs zQcm>N3$-coMIDn2O8JU!L)z&N8g2H<;qo;~d~} zSLSs^m0>&6m#43%QAj>7YBC+Utda$Dlq?f!*n`b^JX zj7t@l6Gl{NA74wHxd|uC7U2v-;9{^XG8K4=Jo-R`6_{_3A7(oum@!ZIGvi zbT<@Z)^KRON!1!9hO$mFT^H|>1}w!-(`uF1OH}loG7`5k!WTKpeXgoX6(k-MJ5_nJ zh7PlXo-}GSZQmCSHqNsW9>$9re9S5Mms`|XHR01K93>?vR;R?-ZdcfXyp}uEu0F`q zLR~%HefU|j@%g51&a!>fXW2ZPuj-qdR533ScGQl3AOeduqa`9A#}WDFWs%5i$-)Sf z^Yot+ve3gRI{3p0+jRE69?Xl2O9qZo0YtWNEN0Je=n(@0y%7Fp7{(n3A zX|i>u&zb8B57D3q9p=o0?XgJAs6HLkp73l_<6bjYf3rP=!(2}U0ad0)7+Y63fU1#7 z=GeMqePLPp89VlcOJsln`w0Opk}V4@;rh(+h2yfo6QM?^6qb(bUycY?gS!QKgcv^F?x%pgO4s z5%Jm{JlAm?sQ&dTiB}vAi24LiI%+m-Z70PmS=f9n<02m)L0ZTt z>Imd&2QA1LPz!X(Gp|$Skcv(ZTAwlCYoLclq&?vV&}a;eTsI@?myoXZ1HlG~+M$td zJ+|c$*?axANyPO4CHH2+rG<1MJ7y;|HkbxE(Bq-#I7BTPI-zlF(8%*ZH2hmV-GST? zIt;baM4+0*f`D*Gs)L$$Sb#3oRB)#ZmT+t~0}YNuqLsSP-zx)X)@=JwBLJfWM&7M1 z*by}?WGOn52!M#0(9VYKfi0j4wwN6W1OTLnxLbCjU?GR33G7fF^tqAHbdq2JhD}4O zdh!6q5^W)S)InQOZ~;ehLQ4LzK#&{&?t5(Pc5vvz0sdGcx&lH@Jv3-73y^zWZWKzp z-f%EtiR&qE8{9eprQ>{o`&hl%_ncDUQFRh7ix19fAqdz$+Y zjgGie+(%1XSW9Z@njQeVla`ywQh%ZwG~MR(WsdHPn%(HFuj)C3Vuc`W+lu&BrZqf4 zmFR|0R=BbY{${tH=jk+)Yr5&`Mh)$!I9K>im)mY-iqpfb;VwOE1yIYF+~&zbFGKQp z;NPI%N5&)LC-gA-FO7!raAX)?F@9wjzc-A38zXLvR>tTL`0$S3-IM=p82>Rwkumz6 zG5Y5_X2KlOr^A&W8NbmpvF2ajJ?)}DjTxUAH1ltI@<|)>=wHTzZ@=3MeR*U&G(Ist z`uz0#XQ#$j_t+0GJ!rrW;KDFg^zu+!8UvDeZ1`H=pb?D|J!O;<;=o|^5yqQ)5#PTT z;r0<;-*7)-5ZHJ6K8_HSmnVei5=8%>kfGZx8NS{(e6w%(M&IzQzG1NJRUh%EzF{zB zVEFXCQwVMmqT3u9CS>R~M}}$NFg`R8l2H38cN#u@FM{R|;y7A`5QD&ebm){2_fI+L zPZ=1TK7t(YH%BjD^bG@q&fZ}Pk1B}ZgDHQx*QpNd@SwiipYpxF;Rp8`jyQK`V1ulS zzSF@m3^q47m&bh{IzfjS`(Yn3m@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 7eb773cc77e2aef12354935d2ebeda85f124f3ce..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 7448 zcmeHKJ!~V_5q`USch0V3r$_>%aPe#-hU1!CNM}KKKlA3z z&o?uVvj<^(KjrNxJ4v%qIPOQhH_T?d7mp%M>kT7*nuZBaPk26zr+gY^aWtjvaWw7^ zM`3oKXVG+)izyUhXP;!EMQ~qJS)9C){O%mQuv*_*p z@EE2hZ+B-SSb2U^@6`u!&f%rF^r!Ot@ru}RJP@bhWRj(mEDrMsH`08Z=1?)eo5Hnh z=^k9@5jcaiKO05koD)zvj2Li0@?kxTr&k-cMM!UT1+ImSnx=MVV{YHFT;q9Gn(E#% zom;+7vtP`XSxot?S&Plt9$Osc1bi2FN8t1Y3m4G=`>lKs8+Dd zV%d7&%^6h7()|lNv4a_l(J>Z$YDt|7-Vs)thHe?qX_&g{s-C4Az8W|*`i5>Aud0Es z2af7Hx^K{dB@XC{8sLhfdY&G*n%15@dXz+};~Bc+Y^#nN=z+1VdcN+NG`gnhyM#MN z2V+2L%h4czq0R^0C{-h#olnIQrG;J9t5D;Zh6BIF0uK4x zs%5ygZWuH}q@kKs12J=HHej%7ItUTa!EEV)5750pcO9BN-Sf4*y&jx_Zm<9&+;D92 zbX#>zy&Al#+O|n9m?YLw?W&>M#m>Rbv2@GASylH8GMA!f8XhUI5gV|W23Q&lAzzk8c6`-0R!~FF0lrL(1{cgsjTfr(>$B? zbJewU7uZ0eLDCJ1J#0oyst}JrK!T6J*fu$DRdoaw$RWRg12D1;n5tSP#Rgdp*DOP? zI#7_sXK;!{iu8wvZdI5klF$>dTRuRf6!F32>kg7exBy9@AfkYT=#~n8(n$boyQS~| z8Q`jj4o0)c<|+lBa+Gj|AIM0LB7-%|4=A@N4uM74kE8&davE8P$Rcj8b~`=C6Ker1 zSb*#z6fIcp2ZaMboNNTBfP@m!#{&f-BtfbvFjP&HxP>#1L}G_LLUfSHK-okD0!zD{ zr4ObN3KO*j7-0@@3;-vbbv&WgMaBVE8wrK5x|A)HjR6_!T6mIRGqA&TC!lB}N+=@} zIbIC}fHvj2QL4IWBc!Nm#0i!I6VgKVpt>C@2v`Zh77~$ST!esjWFF-uLP3utOejjv zqVn)j+Tqz&V;twmh$2YPLbU{&9Au6eAa#&W77~VP-9p9&pa;MPPm(Ac_ynAQGF(zc z9wHmDvo56H#KHUzj}&mBIul8P#6Xd_1#^@ERVq@{fQ`IF;aNWAu$WMQ7P5mL76cuc zZ^3(Fp@)tp*i32WQEubKgkO(s2JA)2IVv}}rnmz6G-69Vo*6Q-)G_0X`4bF~T% zUyLX;IO>%n(cO{`X90RKf{q-ZkzQ$sV4%@;wY@?hqJWae&rH=7h?IE41E@wl!W@*k zk29RmTZJOTczn9l09MvCP;&(hJIy!V5?yhaJP6OH zd@>v7ba9eJXK^~4Cg+=coIc$%CB{=YsQOC5Hd?x2mB<9B7PR)7xg%ac#@{~XOnHA>|UvC`;xW_TH-~Y zH{}`P2td;b8h)}M8=!yQ7)Hrt%8Q3-yP|2DsnYkx?Q=BU^X8L4j!t5HU7Td;h=-++ z_)+nJfWDjzO(JT$fgzO8XGilqi~A&Fgai?v8*_P@rPh*sn9fdzS8(>rwin$za_TtB zbJz+o)c@cLEFcZS$T{m~p>V6*4+>sN6G+$?%JP)rFguNsb6)x}igAsqk56ZlNtzX( zRC`GZ6_nd4-XM-_$%msTkNdh-RmE?d5Du&6AZ_)Nl)e+E6f_Yq%~kKDKANL(?b$J~9Ku4hTRze=nL!fVrW}~&czSf+Js%yX$<{a=QDKWWU*~3pZy4O*USM(8w6NO{GUm!UwdUdB zoi5*a@2IxRcj~QPy;I+<@SS&Ro${o6L>BFI8tongHClHY-Nx-^ogeP)@ov3Y-|4ks zQcvvLox>go_1)r>+%OHkS377l-{%L1yY)_sAKtBZnvGT|px0^KsUIE{*NiBep;VtkrlnLU)*$1?j&W?#q>m!-BW<+AjVEPX0VpUd(q zvfPyAiF}2~g1k%9vc)g36PZ1hrI%&tSeE`G%P-0D2hWyqurA{z^7=Old#td3D$>h} zCAWp6U}kg-2A_8%r~GHJ-9kC^liCci?gSO2xyH{EZZHAs)A+#sZFYUX zhE{-;S4-tGyN;Cza1j(4c>uKN_yro6Ou>}SXo&^>1fk%V6X@zbogrBGlZ7P#Etd&D zTP9GZQ=k_d#3?k=Lg=4Mrwthexs1$}#X`XMWhiuA+@giJwL%eitWf4K3XOCkSiX#^ z%RDQBzmoD7VZf^Am(96M5qPaAzf2L5S9mUYep&hDKwPGLmrPy}e1$6FA?Ij5D3%ul zaY%^HIeuO&F9^R}C!DSmF3I@GI>%4f3E?{75{Jm+Wy6N+SMIM9L}JqwVGxzv-F21^ z)(Klg5d0-Vm;5)@Io?~B@zy%w&1C}RqfjufG%{0|x=d)$m1V;5Iw4*s^wtT#T_>!l zeX1P`r20?2OBnuoej>`7OyqM4fpTkupG11uhI+es3u1>uxVW4mMJF3(lK2 zZ{El6y*HZK13$bU^KOuw#>v>93zR#X%hNbfE{r*i8Gie_QnV; zS=omWJOXDJ4`$!; zJd`$1rRMqfRa-a9>f^`kAK!b-HYbL&x?-(N)>f{Vkop8FZFgm3dDWP0tgNh0R*l(f zlZ67UpTU3A){(Fx0L)gxF)h8a+-sV8Z5a?|*2T z-Hf&J(jm-N;K9sX8pUiGw6;sp)J*cfS|v|w@ZM0Xt`5vxSFc)XwW3!X)h*L%6=n>g z4aguCK_ep2WlPAQj4j>LwC?QT!zfUzW%7%@FyQEw{EH0^DVl$)!c6`x>s29-NS&H) zIpPc2(Q9S;qUt?#{NxNdsMd6+Oe40s7|jYP!f5Lb&8?bl)4Ek9)G-Pr7-7UwO{)yI z#3*9Myh5;H6!|nQ0}*1sS%V{n)@*vJO*n&PAjYz4+ZEk}A;>|WZMu35W(*XcrP_w8 zyCjLM8dx*PRVcDa5ECF>BkQ(-!4PteqiK8LxwX?$ZFmY#Y@rvqfB-5E(ufpvSy-rw zD9gI#5+At$A9(>yQGzV@{I+XCwL|J41J`cTh+4rq zf?cCgdoV#pwY?zClGz|rfi|khGAPNQ=?mIXE%*vF0 zRUpZe@+3T0tF~@Hrm7n#ALIyng!@#Dkax&Ql7TJoA!89Tpb;EsAO;%fp$uK@1%{5c zm#cPB+(@KDn7E=$kW;8biKCQk6g}DiGJv(ByWkh{Km;@;5PL!Ad#S>;JMkq>W79!* zBaR$h)4@hW3(N?N3W|ef&`&dDj3jMQKQu#9DB)NuizYCQib!?^wFODk4B1KIi!@Lx zC?vpUJ0`j5z@7uosZ|`Tfr+(>h`a)i0kd5u1k{R)HbGqIf|`L@nc}d~0|>kV*no&A zaA$7lrmd>rhy@GYK`-V80-`J;36MuXC?5;$fs&eP?5_4+Gz$yNCe^1fDDL%Bt@fG$Un-82777hCXArAsd@n;6*}6O zH014r+>>PtH5YX@fM+5B97iks+PT#WD%oU=Q>C8kTNFh3a>N-E9M7}}8Gy0;C zs)QtJ7|`KM2Os(lG)l?Qnn~afiBE^1=m_X5q{xQoMXVs@#HZd8wnguvIO){F!HBO7 z-I~^+8{_L*zqrV8=axx#F22L-y+)JAxTOy1COzR>;TX5gb4>D|w$e7=t@rTR>*4y# zqi_=FYl2|TBmpQ0`e@M@sf$i@YHL#Iu5S$IFkb;wVXAmHade%()^ zfJbqBe>S}>j2+L7-G0Ja3Ag&iMK$FK5(z}(Dc&sPK{CV>U~3da)0F4OJv(?#K+iT5pwW6D+@i@TSBMrtU(IqD@ zxA{ekgN4r(Xqu_gIKo1|0Op zYhNbefOL#e%i?WU=+i8<9%Z9=b~d^~axi~k;OT_&pMwN7ba})Uct93}lZEJZZg6Kl zALg=D(a^9poZ;aalj{fPQJ7|>`Au3pUI+0k8p2AR#qc4$&rsI7W~+G$Z_>-n=i_)7 zo`zUOwWafSDEVU(@^t6Sf1 z@J_4EL3JCwe(U`PZ|B|8u6OqOyWrmD9&aADTZgSq^N?@Vd-Xf5UHOHU3*(a5+akIp?3~umh&Ek$}VYVf76vle>_Tk~(KHqxhsJ_Q{8y&CFYwVTy?pyWV ze5HRx9_{v8T@Q*{op)RP)}3~PA2yr3-)J{>y)Inx#Jt-(^uTEB<*O8iY4B$Kpw+&| z4-WSly$(Nox6y02I&%eHuXVR^c$9BH>Of+#);R9gJN?#ShxZ!$N9}r#_uGfv#$xtf zqqYB*#}68Nt)l~StkEkhANBE%5Q2#??R)p&E~pal>mAgA&NBc6L{`P(R+(EkKW(R! z@7(el$DU9p(qucl?DDE*@QUT;A|>qn(()+0|2mUjXEN{BuX~cZ`M>GOQc0Y&FEEwe zW7pYr`Ojj`6p68ynWwM^3j0`LpDFAMMdFIoRisRjK2oGl73p(DenpYniab^FO;>!M zrdVbVWcIPlK9kuOvczSnD@&OyeI!et%F^eu{E95MWqB%Jp)zOh(Xi_A4R$KCN3!&? zES<>GA7%L^S^nVJIu15{tnkdq573oik^!H~+`u3VK$g1oO z#vU;C2gd%%q-`dRnDh~o{>tQ6Nc8HzF8k(6XxA8f5!qosRoHJtGX5o!@wOuUT9H0c zq`xTgwP$;E) zp6nY7qtE7jHVDqhW<1%{zlt^%%6d82@v}pMT zeV9zil+K9+fj_~>B?<;@-KRAq3xBfkM8Lkv_%W>&461ZW^nyVP!XgpEexaQvYu4=S8@*j*h@<4V^EK^8`A=ov+CFlVJ&W$a+yJ$2qxV zh(*d?A@QS}Trw^;8N*G+f7bEd<`z-^t7hNdlz76A(WXSW$q+3=N`*tz%y&0MKGWvdQ?_Cd1og{A!c2v&q1( z+PancCS%Rhr@AgA2;9L__tMHQiWN-qBa#;!Vo>l4Ef23;>0G%|x^m^UVr5}jBnQBL KD`CHX_~_rWHBO-b diff --git a/internal/gabriel/Results/SUMMARY-TIME-SERIES4.Tedit b/internal/gabriel/Results/SUMMARY-TIME-SERIES4.Tedit deleted file mode 100644 index 7e030b234db27b092566e1e43702514b34401aac..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 7614 zcmeHLJ&fbV73R;`4(Zq_>>`DWfsMecgO)3j5=A+VFIug%mQSmdC9ZQ0kRPtZT`@)TvUW43JcT3j>$$4M{Cmw|jPCr1Ro1oO$!! z_kL&e<_=u{e#Ayzd=kYAH=KIRna3;U_zO=}ow>(OBR62t2}|dG!V)j`y@Zy>UO1gE z-1t6=y<`=n2|ITamPTyhxydT_!0)kT2^KQPI1|@xz&a=Fe8JVXZN#vS}2OQm*6#atZsOJMK?@`X+%-qu6_E-#vz@ z!CRBn0#;t!)|~FlPZ_-ALch!RA6#=e_+kciSSN}-~Vjo?~bl7kBl z1!opbR|_vp83ihZ5i^F6e9(>k!F zr)K0|lfL_%!QtWEqtR_;=%$(zyP?+FG3tt5+rdBER+XW5&N|UziO|NhxN~Lor55UL zQ8|herEZ{fMn~7qhE$N*c4>NzjGE_Cb=>=ksnsmy@nhki-+C<2!oGf?wX8deVrUJU z##XK1B8(VvX1$=$qKsJD(ONA<(Mbm|>@|}*Nnway)0%4%txAF$E3H-|9Me>kmew>1 z&16fU7=~u9&Eu;}muS!CG>hy2ilG@a)--8r2if==+EVb8j6tmXS>OiU0 zKv9eq9IGjIOS5Z=sY48fZ)*($Fj<;(1O_3{!DJ(8s=DW&8QXouw7C&=!Z&rTj#xt4 zP)vhr33I)OE@BK@3|q5cEFx%S5M!mTQ$X}4d1clq@w!P7Hyb>(rdGcUa1BmD4fzRU z40X>-(s(sZ3AX`vT2zjPr6H=AqiT$%R?Frbq)st`6N=H`{5EPCAhCa@H0zXA@WTMh z(CU!o*|torfjKYqtWGGGN&_JUS*H~3We7H0fal16ozM)6OoeMrI6`41%o2iSQ*aE# z+*Ws^3tSd@1LuX3(jo}GjwsPer-ITECR7Y1i~_6GkP(a)Mj#_}tp@B@cjM?h@n9Xo z1O130J`ErtmnIxScp7zH&?ZWJU3NrQ8i*;1*{s=@NViR_xkow_v=AU0-oOAj3#$y2 z4303ZD6RQn_H``QWi%{J&pt4PRyb4i0Sm0- zh9SFv!P$WnJ~eoVAI>mUOxT43fU!;^tjb0d3t?icWhXP-ad9BvKjj*AsrE7e9mRko z!6A%DA5sJg{K&jP0ptLPE}7EcW+5rI+KWARhH~Q(go`j2Cj+7;KUJt}KBqb*A&e+= z&JR^4@}a6j`pJJoUH=j@Ye%>7+sL+Ad))1@2yMoUTA`3_`3tlQXINxcWu?kG?JOm?S8t8W)rgjEze1|t?ZgB2iBy70~QxaUp-kBe*lHj7s!swix_z%#nTso3n*i}~C zO;xt8+f7ZaOHEbQd(VwSSWZ4)1DANHGioO{I;agylbR4%pT~8^PGZkvXD)t4jsuSc zQFMQ`yu+2<%az@ELR$rG*}Bz8Sd5km5sj8;I>~}~h8}Kf?gh()Wf#t!N-0Uro!Y(3 zh$Qs`YCh8x0_0z={|d9-d^&Tr0C?N!^@n>`WO2#64UUviN|tCVf6 z5>)i=!0Ei*9KOOKaKxQvu)4As^X`J4Nqv(@S$8LZkIA!zn1U-C78Cp*2 zI1@-_b|uUOf5^K%{~?v(+&`rb8*TK7n;`5JdI@-eyG*c4kA^Cv`)Y;v1|Au^oo)%f z=wS&S&Wt+D4gAxP_vKseDvh@Na2k8G#yLF+$<8W5m#%o>u7h61Y_Tr9Jm+l7vhOl~ z=0^(%=QWXgsH(c+kU1B4G!(rvctY>Q$Lr`Mjuy<#3($X^SB>^%SN2F?l}sr*pz z59(G+7P#@LheMS6vG8#S=;}sEFPBlAJqde31Qm2KM)>VQLHg-@;idjmQyU6zY&baL zQ3Ppw8btKYO(p-C6W@)OFj+gEv|oBbIYmsOvQwS6i?G z65OU5K*_r^jZH2V$5F5yy0{ARWS~*xXA1j><65&O(4V|D=uaHBwKZz*ciFH%V3>`% z<4OPfT{g(>uR(jbH|cJQ)RPx`xqE<5b?*rYq?cAODRa`<{QK6F6n?q$2=hF)X6_CbH}K07$v>yC%)@V)MM z&>!Xi&bWWKdw7(I9}U5=-s|2QwTF}b;gF5H`$q#@X_LX>sJmW$uiM{$+hGUYz5dYw z8P**anvW*Io*2>hvR87 zEmpT#)2OkAVP`BANdDjQ$gTe>lV4>rJFQ=xNjlA6B;g}T z__HK@CW%ZEN0OLI;)jy>i6nk1Nv}xKK$4cy4Uidmk3MCKpA$|b;gKZ1D2d0C_ybc};dj2Fo3U&z8ES@^pwz9@^fEQYf98(I9LEdJx^p1yMh47`f)rXV~Jgx?Fo zzXY)=h;u>wP!RtnNUsp<&3_}|>m}E23BvQpj__ky_%%<)zj-p=k;Pxh;>WW1S6RCC zbjwCib(!2RkN0gdUHmk2fQsc7xd|WP;Kv#DrjZA!Ec!nOi8S02o)cacp3Qzdg|DrZ zKArZ>j1Q%8$@juFv}Xk#*6aAd{gUv^ejBZTkc;NZCE*#&c!IN}NT>rui?*MmL69h! z;u%db!5=4N90h?y_h}Ew!k@$~d4r~9!Vk&>s`PQ0K%877O}PF7ofc#ia0N0~;@doY zwDlCq%OrJ$hdas9a~K|u{~GwE&j)^P@HdD)Pq+#o9GC)D&Z?rbDB zUap)!2gxp1V#o0*(CgO zld!!>z|DRYl>1WF!ZTGSn42Q}JeN6sw8`=FO~MuTuZ;)ipo~qgm8G4Z6+2jDcMmHl lM4*VSQ6Ap7!?Rhoel1hEQRcN`XRZ0&obru73BP^#=szfnK-2&L diff --git a/internal/gabriel/Results/Summary-Time-Series.TEdit b/internal/gabriel/Results/Summary-Time-Series.TEdit deleted file mode 100644 index d7b98d6cefc98937b547d0e2aae3412c35e66958..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 8370 zcmeHLNsJ@a8LnlR@G60f#6(FX4lf`=_lT~peMu0bo^E$z#_euwHw+O{aNE`6%GfTe zT<)13Ktd79G0G{*kpl;m6Ne~59652|kXxi2A`Ur53a5xeq{;Wca+Q}}*u)L1=hdsf z{`LEpsyDZyG`YuX@p#1dqx2|A2kl`e;;mjf;jMTOXGm)hc6x($dWWacc+$_t{BC>9vxE<#_IQ#;;E(udPAz0^%?u{TQOYwI(K+8vQr?ZS zcHED;Ji0gPw}a(mtKjHR8kZkmS1n7eNI>w#Zh?RC>#4+7?`8y;PQb;HJ$-({w; zjz6&lF~Ck^H%<`wW-=H7+jQx!9^L&?j~4jOz0p`J$=ZFkxqt9AcDLqa7WUdSzgnw( zhncz;7K`h!2M?tGJoP{#N-%$8pM7KN#*EF-U7J~YXq3FV>w#cdCBe{ro6M##;QPhm z%@{y7OK#kp^TgKenXj;G!c5>XrX%N;?#`qP#Gy4a1nTIvS1gt}Gvey5Us`l@H=Mh1 zX2F@pqDjYQA-TtN$76wR%@o2NmtyQQ)6%`!G6$ifdoz9$!MLSS+&QynmZjS>9}o<} zGjxu{q;8L;)WO$ya@b#uCyx-*A{1A$qvfu%bk%U9Ra{h1SiO*VXlY%xNR z`5vW`>Au4}OuAEEgi-I%V9t%o+7uE028PQH4&0$*)j$!I1kTk=P{1U+;44+_!ZHooIa631?z1@POiy%GEpiq6m=-Xt@3>@7= zRzSm@Ww-=D2rqF1g{B27K-6cpDQpJ;6)Lh8GRwDglY$LV$W}-WqBo2{)3)McYpu#` zgDNbfLbqXz9M%z>Za_OsYvF&JJ`NO^xdFm~H6>iV*BrbrZG%9sPzqI>-!k zA8~@k$t^WVJwlK7|DJ-h=8 zSqcyp^*i=KsBJ~#ES+>RG9Q2!t&2QTi9it~P~iXriVzBA3xJewk$&2vQbdJV2-%`)2g2|k zQw>3d%tgjUP^cxKlEY`&+E#8UfbSGIv^eA^;0NZQV)*14!XC|!B!?~wp$t4?G@;IH zgG5o)!V+9X&aj6i2lLpaMA?pZBRRo)$20^=@DJ>;5?U<8SfK>a0EBKwfQx(roe%*d zXAVXdE)b>qfKs?mcT^!_fq4rkio~IGQFGXPo^~Tm?v5iwkn{S~=dOWb1FSxvvzUuQ z2~p_*+7?PZm@CtutJm<-JzQR8H!j8NfTKmtOM}EOn}Cu(xeijIuLn(LhAGYPcgGBOcbh41dJ(#3-W@h zcf~6L4S@NERb&&h9@u~adw4gM_O8M2{D=C3*MJq%0KsDB`^XMeg#nxJQq&)!a0|#> zPw0tKO+bR%m{=Ej8+Sw zBhzpP?M4-ZNsS1xQa1_|sJ=-(rXdLVs|mG(T%k~*-qyC$sNH2QH3fzd8VtdbA>5Oq zfVNZJVp2N>M>6QOgINbWa^1)txsGNbAFvg=tLuBbIf=7K6JNV~qiDFciO=ZS$3gKK z0Ptp?KU3mNh;KD-mR}5|hzI9aeh!-c`M>3uinrSls!taK+hC?@3k?r}dJXRFh6iNj_mne@A` zQiMh4sk`kHU9(v}tFO^XtIY>VH$IB-lzMb}ZX`br#Xz57%kTE$PLEH>GAx$Zl!r|c z>h#*F$p`IDnovZU2zB^$CXSrC<}iF8@$o2vxygw4+v)A7f5NA63}T3Nl5WJulhG(i z^Yi9*KY-XO~2j;^^(yy=8;cvXP3*6Am7h#phY1b&()4u$+EzAfmK z-1c!hZXfpPh?;V0nJIYtlS5$HgNOJS3;1!nKY=EMO*Jsi(7-xxo(v9?{@SoTK*)JA z@WDb(_V64ymX>vie(FlC+HCQamHmyK3a?jd9J~EWqgnk`h1c>zsBP4@nwy|r=Pkay zSF7$->)U&LWuviiqq@nTctEGFCyMJTZ?-lXt!jOTR6fbgRlZ_ygZrVyJ=4P7iqKIQ zYi!i^_HH)$%8LgZTYR%pZ&ezVtyRAH{6=H?q{e^9@ZG(wN~6yAUaB-|)%sLHt5LmK**nO^ z59;73pH*({Z`7OBy*h7Hb`EMA4c@Hn?N`dXmn+qs=UaTYvQ<6UCC4g_!ty~A|8YSu z5vI-7D{vRPRp8gy-2gfl00@XI*W#ALEu7wMZ#9=(X;p5uggTKX+v85aeaqmk733_d zko?y2D7^nJliy`B@7C{nlDhfJ^yKQQn6wW`k4Qb~vUFMbo4A)$S&|-;o>ipR6zOe6 zdQXu)QKZil`KlrZiu|e~zop3UD)PsQ{HdZ`Q4~i}YKroPqP(LhA1JwwbJnx$sM2ey z^tLL!r%Iow(r2oCRh0u(epQvWti`{)`85T`ysnWf|*Z-+9SLJ`U3Tsf(h3AVRHc8Z@}naBp(_7Ll|NGDe_yQZg#~5cWzw^fbWf80B1xY~@-vd$ zljL_L`BO=G{6ep!edz~tm|c>j?<0E3%^yT!{wsogL6v`}%I~Z4KUC$?#h&fM+^nX) zxxQbL`|{^`5LBa=C``nN0N>B4=dA*ydC{*85?Qz;eNVb7UC!Ux(!-_Ei)lZ}`A~2( zzDLfWU6ur_XYqmiG3lY54Sa#1XXk$krAqo4k@BP{f&m~&aF%`wUFBoi66=&8366q5 zqBrOnl7*ilbX}+IJfS~NAo-W)2@l~$SR|1J?bK?I5i4!LrijM^KH?J;dL$?%&jplH ziZ&Yl35BI*RPz$0v_-~A@l|3eO_7?C6F&r6fyX-0!y;YBHD9- z~Qj#l%x6zLIaJLiFSukH4zoAATE(DHj6c;_X09D@tdc5R&PF zaHfdR0hpxDJS!pbyYT=-IVpw33VjWRN}DJ>U7xcYb!&qW zw6N7yoI|mL$nn5-F}giCoNt2Bi2Bi3DMwRn=S2AxpV^C&|QIMht4UU2i-7yHY;R;mGwJZ-WzD;aC)vi|H@iafF@?YdZQZ@Wz>Rpji(E@aNFQ>zziK7_|GQp2N++ zoP5}^plabK6Zqb=mJ{|KLT}=E_{jy&gfKoBXlhyxY8|$6P}?}rtsGo49tr3^_3>^E znf5*Cbo)&kn&FW+teAtD3OPJ)Aq%Tm%9-_Q89i~}ggqQ8!8L;p;7ZrD!-IvnE_K*BCE8+-7>&L(U(YK(@Utv|MT1g{1u+YPAK_n@(}mrvQo zglSF>-P!gkVI@)cWGBtjJOyG-85u=NnSsJE4IRJYZGC zkGwM9m1<-b`tQ35Rmh9AcN2<5m#q~X@)fdn(ARXcN4}WRz2x3N$Q8Gabriel>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 0c9c6c1dd15bbb414d4b5236fcbed7345f35190b..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 4416 zcmb`K&utBv%xO5H(lGQ z5Q>BaNFh5iw=e*@}|OWQkrGwbZyV22RM!I^!#GxO#%@B8M> zCew8#8b?vBv{oppI?`&@wOSReYC5WDH9e=IRj{L5F=b)nLS8GWkz!WYZ$=8mLS-!? zB`znGNL*G@(PUbR%!xB;S&Bzyq(pRnQA{r=5iu=i<^{*#KR?#1G!2~7)ofK=L799_ zudHNmj-qf7U8TucC^(A7r^8{V^OV2$`M2iR+>pk=-*x-POj_T>4Ii=OioL*GxwfZ-$N|mM=T@G z#3j?+!tFQfd(Aoz?^z%GaOcmP#<5gQS5a0kRP!aZTF9Ym zYB`rLW%U~szxC}N(ifVzAHQoFA7%0?DudIgsA+3RTSa5R1yn7R)C#KR_1Y-7idM6* zw=_T-U#+WpUd^t+h@APQ;mXL1Qd%)LO=Djp4#A!7#Bw|?#FNPsxQPK}W5z-1;c8LK zRtx3pXiY1Wt4&^#kI9C0&&HEtMi65$=OHFvb{>@F8F+A8pAiq7MGa;2Y`KzC%PVTR znuW-ym2=gCR&JUGf$Mah9%}#vf@5pyzBwr&rR6A@T%fOEBHIW~ylez#Y~!J=?$oJ< znQl|}W!Og&M+ywMCnX0a;QvA2i<|3X&3cz<91KkfAV*Ooid>s365C^b;eRvp; zU@soTLu6yYMetX_hsf52a2Su1xMq(mJ)#0$I=(r7m$v4Q<~R?-vk(gVeIjhS6%Rf< zU>YYH0Wm$@5FmYr?AT!0t;lD%UOdR-L56uqrp|=M&k_~oALW0!@%U2tl;__~*>mI3 zr5jHl|NIYwCEnHyQ4dkv87HyO7R@eC93xdBHF_94LwZ@7GL54o2T-Amf|!EACN;eR zAQn3Uv(?ZFY>3B04zLM;aFVXF1=>6{J+sjL#o(o8bX@+{cJoede&IaK`7--GW3N7R;E`KvT4=2YuZ>M>d6ka?GyBjV|g%am&$~HbX zUZ-4qgv&9)C5Up_ViAfM4MpSAFyDu3g}}t=9psu*?RjjS>UL4kibdeD;9wcsE@qzE zF$2dkbNi*Z*?l(N=nyx88`G&MBY`kFVKJIh%c>4l;u-WgRE&sLWl%j{-$_n>1t+^s zYUSkTvESho+Ibct3%KX7f=qPZ;Jg7xYP(C-WZ1hMu=y=)_b4`h8*G8MkIk+mTd@Ur z9B{COw+pY|TEeUDAZw(h-G>)p^`HZ*fW@j#Sq0j#5_ZAr^!8FDwWMMd*sZjJJPtav z#5B4fQ)B*9?aa*9Wq3%_Nr-v6Ks%T~PBz@wfJ?|X1nf`GpZ^cPji?m> diff --git a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~1~ b/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~1~ deleted file mode 100644 index 1cf1692b926133b7893d5a3a742789ba258a6c9b..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 4138 zcmb`KT~FIq7{~nrgqOlXp=#Fxb;V294Ce(X1G;rGi30}Xgg9xZUM)=w@yOc}hiR%R zRTG+2$x=(BO+Hh1w@tg6cG>l&`w-ne!?bFewC%oojved-k`mTQD7KG}&w0-8{Gb1M z*e6^c1VtuT$Q9MBQep}ftys~RtwM<@7b>Nc!fZi1bBB)!^4)huwOkAqO3L+>OOMw}0@5`@^FR3>R1VL<@e|-coI7s5> z9)fTa6lr{+4}=Ag55{;d&WFTEkRpr+y4xeiIVr@&LaZP~6LF8By910?D6&~)SIJ@& zISNKG9_roUgcOVm5y_~M_oy>4pgY8e1&L?zxbS&6(g!1UM54Szb;Ac;kwhGZ?1bB% zkPzd|kEubU+JRdjj!>Li7I{ObVH2Rq73G5K+zK@G2vVGniGmy@4ZZ7*RLN%V60kyI zu(qOS_<9zv%+LpC4#iuBcLbtwm}Dn}*;lu2vKJbL5ARkmvLRDFMzzzZ((s=2zz=op znxS8aR!Rz!EU8*1r)X-5xovN`*XrAWzlB>gjLsPPd-06I5%0kCYHa zR*XcV5GFcj&p2jAxRos=H8sD@6bouztBVqM9>t%B#RwN?xlqV?2njcw2RX3}4}DfQ z9D%c_@pvhjFQ=4zTFGlk&_pGl($qq}ZW;zcH|OcM29QA(2U8EO@De0Y5KqpUuVEs) z5rR0{2*KEmLkFLmLDibgZR)uJ`-l}J!+;%8!8Z@r)1Jed>miM5x1pb&S!5yK*oB3I zTw5^o`Tv&MpAp2sKQNgql}YBel``DYT4Bkk_MuVaMSkQ%Eb^cUG=(P77#hbL3n4gPPJhL8f%E6PHK+CwBm0;94i~+Jd8jD2xk((0~Seq8|ID2)InX*6jAxatQ0mzpb}A7o)>$_oOe90cT95Pnw} zbe@ojlgi=47BnVZC}q-^#5Al7I3$O1<+fIW1EdWgmzog=ivrdJPK`Efkyc2t%T>c65vQA?j2FX2`ut% z3pKDVWR7j(U@?x17LFAquaux9dz<+L$}`3+fuK~|KF%nQL1GsqjYzyS@;XT7+Vcw> z_ zotlB1Kr$H1!xmV47M7}s#n%K2dqON%UY$v}7?Z8)v=NM-Mt%p(d}}bjHh_721k4GX z6@x)7!1ygNk4-TCCSW{G!Cb(nBlsRJ2C@CE?ytIWlU1*xSwkNHTY}0Iid+WQ;tmDs z6v)17Ig*e<(N4JShFUQwa>54LgJ!AWz4yENA3=>y!7G;><%0qzqFK||j+u1M&_|p} zn-u=GD^sUT6ZxjoynG82&r!ohwI3JfP@+#ksm?;t?uX(X|GPk$-M)ho{VR;}hnFw^ E1x5s&i2wiq diff --git a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~2~ b/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~2~ deleted file mode 100644 index 34ce95aa0a55046345c762bbba863fcf363ec344..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 2538 zcmbVO-EZ4e6t|szcdfFm-AC85yN%D%v`ve;HXE6o#A)5SP8KI)5v0Litx{PxG#gn}r(AW=s%4{!RkiaPS_L`UNGMA;FIOve)UfiZ5j6^0)X*#C zyk%?AHFd?-H6t3+%zUw=+Uu1lpAoYQp_m}Y7nb?Vk}`fN+@mz{4Fm z>8Z%{#qpkJpW{!t5sP7%wdYSS{2o2ZQc*WNL55@TL$^OENTd1b5r7g0^f7Hk~uk^6;m?aW^Zw)fH0U4lA5?MYb3D^xlRY264=HpBJ zJP5i)IV)r&QAxAd?bwj3hH;aDDA`XKhW(}%))Tro3D1)*_@aM`JH_4gy+!l2;9pzf z?e(3-_5Hoaf6{E!Ar!V#+*{ujJ=CJRKqbHIi0k{ikAH6gZ4mm<-+b0q&<5*WkF}55 z@`#@vg7|4GVu+~0dPkwv^cnv+1mk`y#)Ap?Kd%087-BzNKQ?7H$OHm#Y}(S|#0++i zg{KZ2v`TlCf@*Z97BeF3 zfGnVhGO#f}1Gvv~Cj=6KihlA@d$7~%?|4qrt*`v8N3hkATo&b=LZvSJ?S9UYi&4pK zGN?9$;N*K`aHb&ur^00LI2Fh_NeW4+RJtAh^)}sowjTro2fJ20wX6(-1@_VAm0M#U z&=rOi!_d_O?4Auz!UxT3re^DTG>Sgdog!K_EY(4(y;h;HkLwDhP4LxI)n8BzwNkxW zw|Zq$`0_hX_0kKf6RlKVty>+aTMfRT`eqAN=2z^V@#BI-)_>KG6HhOwsNhZi7cHhnx zHDuOIAZrzjEH&8}qj_G1Kwov-L*I^+QYRh^2CJ0vgF( zw=11V#U)-`X8TBxJF$7CqwhXM&%suwk{043FOlHk%*L=g+%VfBsZCChtL-EMCSx4b cq>lzn>kHuz(K10ohN%-ofsj9Y_t~?50sK1=lK=n! diff --git a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~3~ b/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~3~ deleted file mode 100644 index 06d099abe4968b173c676d4053b54699859f9f05..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 4242 zcmb`KTTdHD6vy|10YjkXl8X{>wl$E(WqkpHz)6V~dkqW5HeNf4@>F9l*v0m`zED*W zQdFgtBCV7VtJO}GzO_}Ksy?Q9Nk2r|&rqdmAKJdBXLjwi4L0DW53u9enK@^EbN*+} z9uU2EyaC25XY=WdRAA(CDPJxz+j4;^%H={rVz!~5x#ttt_ivPog{6#~h-a2ENogsQ zF6I+*L0a00Zxzx~W@%ZK zQZgqMlkrccnVCgqt(=n>_u|6BG~-_IxZIvOm!r?mi2>b-+N2FRr_XRRp+rgE0=M0Z zi*8tA)-yZrx#o8Cz5ZJLk{Xu@g4n74^}};$h{RoH__GicseYjh`h@`RjqqHQ_XR>; ziclXZ7P}bbf<7+dV})Qi7PYI2#m$uDJe!gBqzq=0rCNRMQG9`*`rqa(KvD-7jhyN+0g`=LX*gfZ1`ZoMetWdBlzfM&@7t6 zF-@M`e1>(qIexJE8E&jzOi&hrCLs{c*f}_IJsRw2OjRyd!@=XJN>6*o7?DAewYVp! zGssFKD?vO3!&Gzu)N?-dEcMgw^R?U+%ijlrW%t?I?#t&t{zV|3HuM4wO=-4TF2PTn zPhQkIu<~$+g+R;jsOpTeVj3X#a3mD&LxSlX_&*Bn3BeWC7xKn7_+XU7=>v@oBdZzl zCK&KmbwDk(pfM6z$&0FT5o=x(2c$=r%hjNuW1%6gEhHoUn<3d~WUE111W1?h{+c+g z;-24hSbq>`vk?|G^5Euuf*>EjkPg5F@n}6kQC1{qywKV(vYFAQ39XaJh9Qh=JNH+W z&FadICzENcz2cj30M#{fn4r;w&Vi1)UF|{qZh*LZ1jO`5WS3 zuuPg!Lc=nNvFOS;6d%R%R;d8@%c;n`-8!E%+yTvOrf4)}u$gHeB(IDh$=1OTIt?5o zSTmc(7)qnb5GX z7|UfH%Zikf3Q)?u$9xQB9ix>_P~z>JoKjCfW0W$@XdEt43t%*>Dua-@pwxxBnZf0Kodz`sdgxvb z#e%-D37Wl7cX|Vyut5%>S?b(_o81FXpzNpMRgW0vy#g0Nvs&sq(d?Y6jMdGy_?j>> zI5ntcm~Twl<6AI2N1anE1GwUcx_=7le-^$3T<}GJzdi)1L}`U+dF+T>+ITKhY-lYnSHx6^X4<}`{vCC zv-fH&fnr*DtyofZq}6L{^%`2ybX3*qdR|2)t9#Y|j~lj+5*&on$CRMXaklDe*z2)Hr_LzoYYy)%o+SXNFY%?5j$ zI}QVS;?j(qlms#^be~CiV8mUiw3OuB(7}~j%)*c^X!gYAj6^$g@0pEV!~%ZAv*L6@ zG7TQK3`~2{Vr*WV1w)UV%t{%u53FgpZYJxc(k%wo${cYP^@KK$SnD&5zVHiPSIHa9 z6K7c$IO}d%J=+I{{ulQ$mReA_eP&~~+2G+l>w_Qe{CU$jmagk6%IU>gp{&-5d9%Yrc%H>W1j%vAVWz2h!P0zgdAUebS$$I~pvZPA!#o~#sGQx3%AYosYcEk5 z{fxaM{rKw+sC?Xo%CH+>qf~~wQdusp7prfB3Z$fVDqbFY9V+8M#oH}bdWruQnP&{n zJ7n1RK`O2pP{yLdykY2k(gl*&jq?q|8q4yA2!I@vi1wHzJoq(*o= z;*dJGRs8&6$4}Xz#8_xZ{19!uzN$X$f@Z{x%M{HBK{M1zRpolAR$MC;^KiUwPg`g! zI^lFx3Jx#*!&%^1>Qb3yOM0j7T|Hf z!4}#oynbs7uZDxHnU;1QUWC7c}=m%^ORI@&daLN4TSRF1mWZgzER diff --git a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~5~ b/internal/gabriel/benchmarks/ARITH-BENCHMARKS.DFASL.~5~ deleted file mode 100644 index 0c9c6c1dd15bbb414d4b5236fcbed7345f35190b..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 4416 zcmb`K&utBv%xO5H(lGQ z5Q>BaNFh5iw=e*@}|OWQkrGwbZyV22RM!I^!#GxO#%@B8M> zCew8#8b?vBv{oppI?`&@wOSReYC5WDH9e=IRj{L5F=b)nLS8GWkz!WYZ$=8mLS-!? zB`znGNL*G@(PUbR%!xB;S&Bzyq(pRnQA{r=5iu=i<^{*#KR?#1G!2~7)ofK=L799_ zudHNmj-qf7U8TucC^(A7r^8{V^OV2$`M2iR+>pk=-*x-POj_T>4Ii=OioL*GxwfZ-$N|mM=T@G z#3j?+!tFQfd(Aoz?^z%GaOcmP#<5gQS5a0kRP!aZTF9Ym zYB`rLW%U~szxC}N(ifVzAHQoFA7%0?DudIgsA+3RTSa5R1yn7R)C#KR_1Y-7idM6* zw=_T-U#+WpUd^t+h@APQ;mXL1Qd%)LO=Djp4#A!7#Bw|?#FNPsxQPK}W5z-1;c8LK zRtx3pXiY1Wt4&^#kI9C0&&HEtMi65$=OHFvb{>@F8F+A8pAiq7MGa;2Y`KzC%PVTR znuW-ym2=gCR&JUGf$Mah9%}#vf@5pyzBwr&rR6A@T%fOEBHIW~ylez#Y~!J=?$oJ< znQl|}W!Og&M+ywMCnX0a;QvA2i<|3X&3cz<91KkfAV*Ooid>s365C^b;eRvp; zU@soTLu6yYMetX_hsf52a2Su1xMq(mJ)#0$I=(r7m$v4Q<~R?-vk(gVeIjhS6%Rf< zU>YYH0Wm$@5FmYr?AT!0t;lD%UOdR-L56uqrp|=M&k_~oALW0!@%U2tl;__~*>mI3 zr5jHl|NIYwCEnHyQ4dkv87HyO7R@eC93xdBHF_94LwZ@7GL54o2T-Amf|!EACN;eR zAQn3Uv(?ZFY>3B04zLM;aFVXF1=>6{J+sjL#o(o8bX@+{cJoede&IaK`7--GW3N7R;E`KvT4=2YuZ>M>d6ka?GyBjV|g%am&$~HbX zUZ-4qgv&9)C5Up_ViAfM4MpSAFyDu3g}}t=9psu*?RjjS>UL4kibdeD;9wcsE@qzE zF$2dkbNi*Z*?l(N=nyx88`G&MBY`kFVKJIh%c>4l;u-WgRE&sLWl%j{-$_n>1t+^s zYUSkTvESho+Ibct3%KX7f=qPZ;Jg7xYP(C-WZ1hMu=y=)_b4`h8*G8MkIk+mTd@Ur z9B{COw+pY|TEeUDAZw(h-G>)p^`HZ*fW@j#Sq0j#5_ZAr^!8FDwWMMd*sZjJJPtav z#5B4fQ)B*9?aa*9Wq3%_Nr-v6Ks%T~PBz@wfJ?|X1nf`GpZ^cPji?m> diff --git a/internal/gabriel/benchmarks/ARITH-BENCHMARKS.LCOM b/internal/gabriel/benchmarks/ARITH-BENCHMARKS.LCOM deleted file mode 100644 index dadbb4b66688639b460c0c8d5de516dad83c65e6..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 4889 zcmb`L-)`bY6vo-@RV}sJz3k2EtgEVqF2pu}0!|glfFVvCLu|9!t$O2t6D)|0z-%j( zK1AOnmu+wQ5^0~IYNe`brC#@pZ43+8IN6O93C80y-~8sAIdfo|QcG5)d`niOysWl5 z@Jy4$rXki93Fuc1g@$Kcv2iB0@vE#FlBURdm(EfQd82`S4XFtN`o3_3ytV0U8}mI&O<~O_r47x}-Kv&PDA^KNdCFILWUX z3SS>_S)h3q!#gBAR})xPC>Cj;8=dnmQB8ylXjs_J0x0^GHFduQ#hy(7B2k4x0Xqy# z&l)UHNz~4>0$&tLhg7$}jURr6U?q3+bS5wCTNi z*g`E|6r0Vk$$vesP=VZLw_FzOp>@TJ3)p-_A^^kWU~zPWE76@#Eik9HH@vYtyAPKU$pVc71---0 z6m1MGaOUGNj9qsE?iFzC8F==MH3M%roxcFjg)6h~xl?fGUfAo6H62>!z>l{{JeqrU zH5j!n?P~0rp6y)2#I+r7O&(FV87&}<{I-}A&cRckKE9h<4r5GBXV$lzf#rDS7_R0{ z-?MSMtVlroSY&~T^i3r@9I^Dswz*bDTJ~A98wN)!tgkk;Yq@c~b;-DZNJvgZSCKfH zp2Kxi1hIMAkyT(WdL2VrnJ&Bg6*Q2+RY7Q$DOFY=^Kl0MMg!;bC;$F1d@{Pb{V#*< z@%CeRccy3LEf6 z;0i1hfi1AxQ(qfBJ;T}#hWi6;GW5Z2`PhUoAo;(}NGbvCSo&)=hJ$nb9cxWW?W zr)PtGoywrTj`TpeSfELP(g2;!FTE+|o_Amx=7#93T0cWkx54u(s)?KZkG(F%jUTt= zLlxlLv2u{=w18%WxUX6np44j^2F_vXwqz#llNf!F%c#JnA zH%#=rX+rLyo!dnl_bgU54MmjCmt_j6r1Y-TkVPfPR76%s1E${Tsm-VW zB4xQ>(qeB?mic8m(;}sgjKvBR3tWjS*Z4!gZWv+DNHG=P_PDz``qiJWV*6<{t*8)R u{Rjb6P&uHJ*K6ms+IqR9QD%yMFNxeAwXCfXMAdP04241c97}+Zy7GT%%nOJB 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 d5201f3e5358a5fe625c37a344f8fc6cf78d239f..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 43889 zcmdsgeQ;dYb>Hp-MahVWEI@>&AX&bFWqAp4DeNx3ttk7jSa2V(*tgtW5CEl^p|G$4 zEJUgx<*%q}^U+SzY1+tkY|B1 z{z*F(`a9>|``&%~1@I%8Ooqh1`|jtt=bU@)x#ymHUvw%n?c_7DX(yM7Ir(W0G~fv|y)a?V}kHMP425KWa}FolLI((4o$#lbfLOX_PEyrbK^YEH?Av z>Dbtqh>uPr#wHS@{UX}GeCGKV);3lu;>>B$FFH}^M>0jH^!K02Ii*6{EoPopbv`|r z$)~e(c5$|(qhfA3n<*Z7_M;<*Q2nS^{n*6d;6!|+U-YNlxdQcp0IBo~)c(@i>6b)j z|KiH#nNN${+SwO`57&_+M`WJLsdFopmrRfc$0w5G6N#bz9XmEMkxX(echV0rGBiFk z#AtYFdG*xkPpq7MiJ?AsX5uA5C_Qc$9U?| zD$-wqev~DnYZv1pUC7M?8$7aOdC{pt9@PY3 zn*;3>2=WoL=NE+(EQ}3=32y#XX|e+6IFL%HEr{u9VA;t}#Rx~82$scBm;MPSkFb+J zo+*``qYyB{DQAjy8D(Qr&hbRuE3k>)f`;W-!7Vw2IWcFK(^=s{%q`eUF~+dy47|pJ zsc}XNgi>ajkjjAq9*hk6h~rguT|E&oFfS@{{Wi$_b|%YswRO0GfNd|opa2bpx86a>aNRSqH}7%RIhcfr~a|D{ZMz94^f zMI05IE*9L}64-uHl*)FoEXwwL+0D5}m%#oA7DOi#uM7?>#oXx_@RP%E#n=c|-D zM2LQ7ynyCjl_8@s*Xc!+GMK5*HiT=AfAdErhG+!RI9!tBj^rpyr~wwHAN?pzCUa*h zYad_39QMhT&9iHm$j*FRJhyq~Q)gGir&iaNS4HK_%GuK&IVYCSoIWego)OQ#xV+k5 zKahE74XE*k>V4iG5S`4dB;bh?&_y{a2M*mPROdEN5sWLbwbN_o#JMv7bLCW3EU#@Y zzqoN~bM4&P%GpN1v97=X=otpe)yAH zCk^6QPIk|aZk+QV>5Cc2Mq?U;hzCcRF+Kp3?h?s#DcU-wRfLeBBa=Ef?4=L;>BGgO=#+UAIz8bfCy*)=y~2K3Dyn7+jkX}x6rZAVG?Pzd zFh>;#Ds~L;!<36@-rb{lkzbnAH(u7f@+Gh zhcJ;(OibBjoBNq}a)SQ)x%L>eQopT35~>)a5SM}IpU;(j*kgqvi*aZKg(U?Z)iua9 zMm{K;FF#l34KY z#H~))>2#)4a*JZ3P|Qp@X=qL!P&|rD&cwury`dRXQYGdMmf%=bZ=|yCx-$k;ci3H$ zSW;v}qY~voPKqkx1&52u8sq~N8Kkm`43ber2AH-JfGCb87aOrL!FXa3u0nwn3wQi z)j<}Qx>XU{8w!QOsecy=MM7Yz&S+9e?#`$Z^3b)hM0HA8NJqtFx+`40-;9#ufyPu8 z5qf~zL2GX}Ye@pia&o8QRue!~@qDnOP1@emvak}NJGH*IeFcdfA$XvD1<4&N*w?;- zp&cuDuzdx?J66!uzJie*D~PnLfMxJbH0WtkoYf1TRiT+omtq(wF_)HGSV2KO3P`&{ z(84_(B+w$n-%GJmo1ZuvdkF*Adj3$z3axa9Lu=jdM!Ii)u=}T@+3K6uW-Bwde*S!T zwYIwS?X|bE)stPd@3>u+yo&sxlaU%Cduu0qYHn}E?UC^q1t$;G)=nOz#7Al;`)ckZ z6}OKPmussh51xD!iGmUztDWqxxsO%ceoFip62-~Kkr<`K!?lwGHTQ7E9iYS|Bt}mj zLE<1K4%JR3YVJ_QO;BPPiGwFckT^z(Pt{IN)ZC{k?gS;eNE|!)G!j#kI8{42S#zf< z?j$A7ATf1v8i`p-%+*fL)ZARf<$h<7m_3=V{ctGs!IOoW^D}NC*Bh$MebFtrkzT8Y z$AR8G?m>Egw0CdK6%=~B_ko%lrO=VyeKmKGLLA^lG6KTz?#GPm1H z@xABYds)Rl!tt-Vk5K$0=imEr75^B=f6aZ2;vYNz-ak?ChdKW1?qP~QeEz+kQt?9^ z|4ny@;)l+^_c;~+6vzLv`xM1Lb^g6CsrV_5zu-<${M7mPUQ_Woj=$pOC_Z=oz1Kt0 z(IHwvL;enrkBbQ&6T_nzmn@@3#PD!jg@?s(VpN5P#PA@b2j@wOp;45SN}CuO)@9>j zD2cLAFNX$Ej^%A~3ejsF!}NUJJi_diUUWZ|`3GKG6FBe)sk6!|#K=58}70w+p|K-UxnsdV8{w zHBdc^ztztBLZRnE`?r2B6dmWOIi1aDz{0VOi@rxQ0 z?Ex;z23rpsnErQw8T$e|4;>e^i-z?!*qHOh|Wbg9_Na zrl9q}(xt6R*x`dM-LvVz>N-oN*jZTd@q<5@F6`N&w%04OJ=y0>GuaO4I=&M=7kA14 zdsX{3c+v?)&IL93O$))c+s{QAIm($J<3Mno()08GZ|Let_qt zIG-RALE^_?S(PTZL9Sgh9@j#1QnD#j=9Hwf?$80+$7;V z`z0rTly;tB4y8RiNypA6gghci*%B(=QfvX3N>i}O&BykAB-Ie603ui82+)bDKKV*E ztG3MUZ*#V&*36))_M-ymBzf;Ks76{7oE_@i86pgacJOer2@MS&leEFPr~No=Njy0L zw1R{8f<4w!lSMrYddh2~2Oir&cGBi;3m9aQ!UMgC1cY0gwu+fnH6cOQ0~`I{>>#22 zVTP+ECG-Y+3+Vl1)dw9B?8#6&rfiEhSlubTanMnMZZp4wgz`KCxGpXI*-N0@lxU{p zr)=$UG`|BMnQjQ^jCMT;EbwgfCiLVUEbg!ltEBqyo9d2tWH0TT?de+6ez-xms9 zo&Ca$^Z2!&a8~X^$PTBH@&6 z?F)tafG&{VaONRTm1a${2TPz?@&eMWqAUB+70Z5oH3G_`X1{)*tge2ns*M=0HMO^{ z8=+qC93w&>KnFq_-?tpvsBG-p*hB0AnuGEbLSxhmY{d9}4b%KADo1f7ya5WbkGmpZ3tAnP>|l}g<>X2(EgzKL5!9t@*lzzZ-|5~BO0Z`wwP4^ z2jb0?X;%)Z3+j-k!_Ae1ct?X&NdZN7PXCr(?2BZyYKmmth1tq{X(y7K-G z?n?LfTiNi{tQEdS(ql%7N*-=7{zxgWY$D3j_ZHIa-8u}1u z*~ZQGi zi(rVStZG(ozCpP1G)bz0s&qswGGcta%M>l(0OIj32nU+OQxMhA5J*l$M-1&lJSpp7 zpK)o&KTmP7S>*DD84^7^>czFHU^sS5EpIY$e`}%d z&4mNkvRBt;XPiH;<*L`Werpatzn;g>e_D7HJ8ugIupO6jBW~A~+QK8)g+oM7E$jBW zJ%~84@!<9^EF7p_Up^374Jbp>8fNrYA?1>!(Kz8`dj6ijbkBsy0h=?If3T+%Z`xE#DJ3!4F#V@kN zNYKPY0y;ct1y8{0uh`gYvymVzxR^>1JRTEEKMV3fHtL8A(#=@ne+Poq>W+jq_Ceym z2Fh^{GZkOeDtv*zH2$?LmXX|I(F67HsZy;goe?rtl0>Cgu*oR)1 z%jA!ivjQ83GH!fGM~z@~<|dwfHjfRhG!azZ>VWSe^ zUw@2)qV- zH)pEXujOZMUHs|l$?3UUpF1CZ--hK*BlRRUs_7A_5qR(hScf+N1>FcHbEE)b_yyF* zJW|8{e8r7mXFl}HHTQtq_l|qeedL`R=n38)p|`$wuA@ipH00nvb0gPT&354_{J zcpT)sSsCP*1Drn#j{&y_J_A{I^0NEr4R^>*P%p| z>+VzT1m#Up?9(dmbvNZc4ZKXcUDr=evP;DFS@;!Hub_?9oHZI#QKZRaityJItiZrY6&eh=Z>GgC){2xF z3u!ehM!{3qhQe6_nA=M@E-UExLNDe=OYPpxc{_xQO_ojHP~r>`Fc z*dA6QspimVdyMpXo7VAAKvR)ah4s7FQ^Xo?hr(EkW~(6a5m?9*sj*wMMU4|;WzLdT7%37q9a{lZ~W!t%a z`IXg(0|xtJQz=%*IE+?xiv?IQ*yvB_Enw`cgE&0(kI3^l==YJm;ZS%Zvfka_k#%l; z?f9F{wd(8)IIDX7>eip{KMstnXE*M9} z3;=Uu>*gFJ;AFPD=Y4J$iF3E7hm!2vjT3l%e71TcM^b&DW^Y9y!`+@fascXru#Q+5 z@+Z5te$}gQrn>d3)f=e&t#3cG^-m$l!GuS_pi6U*m(qby8BF4sU{wmHWx}LN7z$*= z7}Dj(bttKvnc>P0zJ>x1WMJgb5IEFnF3%0r;fxAlZjeqY!GRg{d6E}rgf3VU>=PG0 znDw;NrPpS{PFNzy+PXD^*^o?tzXAIeP)^5kXtWIm+XV#1@gAdTSaqm9eyhfQ?B(rOvXN}{`r_7~nPW_zaME>P(VCFvB~%7~ zUJwg3Bh>vNNY#=0y1jZc!loaoe14-6w!=4HwQTD-tM*)I>$j!C_(;mKC&9p%eggrE zL%+sZwrZ(x$LG$6eiX_p5Vn4q=A(%Vk0W~W;Y;tQ+$q%9H`({xo|>%kpIa%b4^{tT zqre+SD1YTENWz$VE_8l-&F-_id#vmm9Y1z{yOOe;RCorp00u~z88A{GGG;Buy85ka zTmQojcdXuAz4^xfqQ(fkH-3|v<_6Die}EJaTIbT)uQ*nT7#Ui>!CWz}Q-;{MmBDrh zjVsd}f;{FcrVd#d?2Vdrq5VQz9foO%j3&t;@u6qoWHF2fVge`3f>IZJG?yURj%VDn z0h&g4f!Q8bz}00~=A=j)tvjRUF;bu%cyRgtywcX#wjn|b@tkRYjD@U_Wp`XWU>6=< zw!V-$W_>qer}_$g%b~Rh?7e$dBg8OoypPZ=fg4KHK^L$~1|e)}nj|2hSz<>@gdPGr zS<=eNw#hgC%A@Pn|Ar_WtZU1|gm+@kz(GR5e@moMJ?&bBx>0wBos9gKf14TiR|JI7LX2b+O}qQPdMfP<#24ka2LhJZ$A z)6`jMdN!(i29-sg(1ib;qOFbyjuEeKyqvKsKgTsHqc{Oh9pUAS2QC&gUR^M3 z$WxnsGx{KC0Qe=KkXKC*nIVfrCIYBe*=kg2c((PwfJ25KU)fBE4|Ib=n=n&sTz+WO5< z6w0hrg`pv+)2I-HDx}n8ziWJ=H2{XGL5@mujT9=VL>_@=5i@Qcl9oaT;0N?gU=nAx z(INN#`$E=2FLcaPd)J@I-n#hE!hzK6pM7;9a?PH-esyiexl)^jp7{q0J#Q^^r7nMa zp@$xqu{_RQso5Vp9p1i$`EntWzx;YWLZ+X{{zxXUHz7^wZV`4AkQPdOT@*3`d2qgIW#Lw*bB-1og@)H% zk{dMIg5$tr&=N6ds^c4S=CM1zVH3}QlSt}+6(gD_Y>M&}J=+W2`YNVlFM~~kA2}&A zb~-?DKJ`3`QOc*O<6;DC!f_+RUK|X!QE}Y|V@*+WC_xBgIvf z2r#MFw>j?H>o)WsT0)^m+ZP^&;sP-(#TJZUQe4rfNAj(&aUw;d6OdsIB5l+I5-Ngf zJPCH!$H%p7gR`ef_lFbrJOC+4BX)ojq4yK4_N6`Rkq!V%!u9ij5p$NBN3>L919A&m zu5f>okqApFfieMg1cSqfEP04YhBm)JnVm;Hq_u7l3Nq~EfodGFm zu%PzjH7(9nR?ryOl{AK3z@V|JK7cx$+{V}_V7jOK9XN<(3WvxXjSC+jTOJ}|*)760 zr0?QV4Rn1j^m;ZzuUogIl;^t1!&t)Ro5R$*iRwWiTczDk*#K>RhErGy6~d|T^#Ykx zc`mUmG@+&vVrF%@0CqQZwU7rg=<|mH#ptHrAeQH{o6}f2(`^6CmFL7-fd!L^AS~^_lH2a@V(hyY!`Or4+seW8-|5w$woU<-N=MBxbh$Z3zQp zaHgb7UO0%N7xvGW!ie&7|9HuoIjD;Ki;`viY^efca`x62Eo*u2*1IL^s#CGPT*FT| z`~PlzIXmN6eSHsYJ&sIdCk03szHi;pZ`)r)M$3BWClP~c@v8{M3xh;mf37*!g|BnX zw=TSftXqEpGA1wp8F?^1s__XK0uE)l7azo=t!HWI`7#zqA=L1N>9U>@JeBF|1Ppq_ zg*gF&u>MsbOpp30F)-te8+#uZ3fjanwwLC=2hv&aup8r<8`S19*Y2JJ5 zxSaj2=jN^iwk*7fj_!@Pt4R)XT*z7vRKC+ZL~Sp^%kOSa(n1a5Fi3j@#DTtu0-%nkwRJXqdW~V6P|A%T@zgE5BSX+OHH4j#@E|#cC zZLl8?Uf1GDjNsiLO@QIukrXSrERkrB4=bu*xfa#kD?3WCF_QQ7G4%k^B0HGJ08!p- zVvI?-uqM^`Vel<&&XG<}^0zPLO==(kY4t;>S6+!?-h#py@o!22f51v5{f(GibQ!)z zCD1bY1xS|nqtA;UonyTSL9-GH?lxOCCX z^I8D`4gr)18A!HZ&hk4BW4h_zL*pZ`VE1A3uZAIzpnizZM=|(9>tv%k-SLOC98?P% z-lIT!EuU<}`p;N?cw5x4A*ju2=mIK)oop4t@RcD24!M0rpMb9qR!oanSW(FKLX#AO z^ZwAoc9AK*bEZyqL)x)Du<4HNL0AwXc_;PW;*qN)G;)Bj$N@qk2MC80_&b6^aA{D$ zVZ!xJ=jt`+0G-d9!p&YW7k2S^+(08j^ACjOvEAya?o;<~SlM?!w-EWU4eQhi;$BDl zRzO+v!eC|meyQe?vmU7u+fYOGVJQ)MqQg>1&c6Ff=|_R;Zp#4<^oY9-`%L0?H_4-P`r z)BRyDH*%F5n9ncJWn=ImFXM&$w6>BkpySC7G)jlx ztJ!zIKm!Lf1_byI7}mNi3n7UX2ca26D%@Zwn79GUGq5xc(1wpC6HOXkNl+}B+(L%- zsbEBu{S(-qX-@wHxj{|H(N8v)i75xF1dTizLYVFPi-n`HbnZwwvslJJ;9JZz%NSm* zdoi)HS8G5GhA9Tuoq2K`9hPpck_|?D$6&)Ejwve|l|IW+eOnWIZHj0yLl>LjR7D!s z1YyHYMD-;FEF&<@f!E<_ih!yhbF6@Ak8Ukf5z~&G59zsN<~#}xrop7L<7&xLK`gOR zQkSJTzrsAOD~uZ1{5DioO|#auI_bJJpm>U=GZ7L>oWLPH$$x{}hyNbMO?nDSI;axW zH^Iq%>Nf`6t0M}`<>TCpGcBT0*XJ9_ki~_6VKg42z8bCYjg5s;OyuAmkeNb09Rrt{ zf{K+@nZ>5h5SNQhOdrW1J8DmIUmp$$(q7~M92aECUy5erN)K}%Dpgh<+G|%Bv``iMg}uxA;F*jA z_JE9W>tEp)&C|S>qa_ff)b)}Y#m$zSq{7g;+7^NMhf^}u#XP{wsHsW~5OaFW1P4;o zN6C`HTo~NYgz8jVK^#LB;1isq$L}#h7`q#7Un*CQEuqI$^+e4taRqaK`;1An%d#LkbH!d{npr`Sn9BF#YqB#lrE5p!(H z`W2G>rp?Z%=X`e2b@Q3-VJTp{W>@B|(qILXu~doq?FR zDSl;NNlN?R%t2a00hHL3_bf(n{(`osS+v4eS7AEZBrBSt^d>2oBIt~QhmR&%m~gnL z6V21elT{JEy!sY{btt$@_&{}xSPicZ)iHxN&8dvU5PmT&Kbc%QYXEj>+5=onXRci1 zL?_XVsKWt9l#yN<@)5*3s|wV?t5`&5qPjH;5?v)3iON1fJv?U?Gid`OC|j5+;g-VV zaI`@tO2sV*{9H7XWDd&0r<=Sv_dh-3m-Ic5?y zjhDcf^Rjr<;L5#dvnl0R>g6QXf#Sg4rX1E?kRahW4d10$f*QsW3%Pl`sLG{y@LmFg zH4g_?iF=-bH5F6?aPAY1;)EG7OJFE+%aj>J$Pm&fEK#e9$*igz#i_g~#Z{@?iX-)e zPRyW5p_vt|VB)8)gq$2b&45Rm28A^cxo9|n!=ljKV>zj@p&90Osif#E#B_l&XxHeN z?4Q8^9;`MAL5%^LHoORDPFrP!G+T4g4uw7I9&69ZiW990MG)kY)uCiHT|!H=<@V!FX(| z7fnOjwI)=dKZ-I(({f%EQ3?f@Gb}7j=4S-UxhYDCHlv(EILv2E;*KZ2XxcGaGxA9O zWj-MEQqLKs3a*Bnto-gOC)cT~$J`YFO-**H6+I)Fz^BDRT^S_=)2vO)A`2vSd@TCh z>dl0h6=`Culduil0^$s1%hOGQ62&YfRdr+HW`%+DcN2Yzk2zZ-K4fYT6{>{Bh(D>T zZ1w!lh&5T=V<}y`CP9;t;$x1u&cvAtt41X>kmQ<84V<$PghsQmZX*22c-FK$kQBL% zsa`JjAddA)OZJb;jxwrn2$enuI+c!^4r zMGz>IVS%?3NSsO6MB~P2fGI3zW32`-&NWj=evlc6EJpqS?s&!8v>t}eNTynh*FY^2 z1>iTycnh=!)1qH3MrdFV`n{~0Ffw96&L}!v;jIW$k0xZp9O32F1W>IjJot@yM6CnK zXIJI{1G^1!iKQs&H{LKM41qFR~-MR*-3r*jLE;O|?bZUjo8EP|AB_H)x8U`lCgyev-(g0!se-I_DCijSiQbqjQ?5JeT`5N>*^d1T?oeTp?;yxYZSN zBDF@A5|7}-V8%S97+H74uSHd6^jgX~BjSXd)~I%WvQgZpCmJ54ehw;9m%}8aRJSEE zQPM<5vo*cPFw{%pU24c!#s#zsZ=uham(~XWL&bF6YGTr_^%)J~ND9yb)SKPwk*vv} zvoa;rdcsFD>v1&CF^Q=T8h=ne2~8C34_`$QI$eQwrK+c_3yff%9%-y{4hs0u)Jtag zXqs%OoP!QVBUfN)tlMA%Iuo2^D%ayjDMl-^5+zGalQc$7RUYPZ4MYSWWcbZV-tQ#IT29t8IJ1@~{uFFFF`AwNCj6RoKRqpj({*mHN@9>J zl+-c%Tt7TLaZUhAqI$yJ6BjJpZ5-OT!jThfQvMz`Ddk1) z>WCFiF*P1+^=>!f?Inm;eWj6ZUf-sqE)Ig10yz!DaFpap4^sKD5N~&m-3#$8E9{Ta zX$}6Q6^C)8nr^TZp_veTv;Z;wR{^mMZCHM=13~Jc{=>#A{x63r6hR@YphLI`J&M!U z%7G3CF;xg>Wu&JZE^&|nAb_?76*{obX1t9XFF*zMbfqIFHt$Z5KaYHaOUx3^0jeZS zUD%VuaZNfyiBp(y?BC+52OQ^%q6{<>_UM3;z(LGUbhsmqol&TKowye{fH3;}Md*Io zwJYE}KXzq7bA1#58`zjA^)4TsM3i^xF;bg(@p%^(z=ts4)=r-p<5KV$qFV?>_!!*x z;1h!bapZ{pEAU#!eFWsQ$38EAy1&|O@4V@0BX2S2wKn3eu6?qVy^XSa@z&)e61i$@!65rF^KZLQgt` zxzU+jzrx2cH#)La8LHx-ffwqyvVWngQoa68_4<0HyW_rfy3FKf`1dE*6z|n?7;&%i z+Z-4+qT|7lNsK+^Tal#myVA`f2~Lt9b4r2$I+FZ5`KUqy&d7A=HNh7Z;IwH*-djNq zqUI;c5^#bFyki4D@Q$lT%=h>>U3}oz7at4O7at4O7atAQ7l*rhpgerX1Me7X!S_IY z+Jh&F0oecYho?`iZM?X-f{z*|(GNtFUR+*YIeS*Dofa<-O^I`xYo|8OQZjB!s_9WVZr6QlO(bxC4U2Rx89@boY|c4EznGE1>6-!MBNd zd;4_zmnl9gR1qq{NHQ&!Wk@2kBr{eFbzAJ7y(?Ik>jSkYt&<#(b|KzqKf{PxZU6 zQd3p-Ek=l%uil_jaD8|ZPsp2da4$eJ0C2aKh5%l@L~6Lb1Oef1+Zmmuv(otfkiH8* zO*c5aO;`7d&`;o;uqCep=&^5Jd>)=?c5lxy%z0J{VfuS}@9NFoz24gcczeKm+lRM( z-rIwCd(eC9!dsX37QtJD-rlyzj>cEJ;t{);%CgHq@4A8NDzV!)yoiYG1t^&Gd2yT^GJ~efvUya5pA0^}q zjWKuA=@9-lr<}(b+w>J3900;u4)ShI9b3J*Y@w%F8t>laSH7T-oyPYDK~UU}rJFI_ zhjzUAO(D+vW}&VF{3ow;WR9Pw<7RN^#Zjy;*w6H`0#Kv6ezH3#MW z@Hw+^eIU*nQk|biom}5lu!5m#$=TVcVvx5wNRv&NS{Dw&)SaCm$1tpMK!_;|$640- z%888!Z+)={-o`0pd=d2W<@N20k2{qVXmjC%@^s@O#^Bd+Nrud}7U3h0bX~;OzlT)N z=PdMD4!$aazOg`OwpeGtoC=k}pe^0$9`t?R<<%9VxVj>=%d0Ck4$$2dr2d@lxPKdL z1~)lnvLUBX<2DO90~!d`Ug5O-`s=xr2W}}4$4eexGfz%s3fMS-)~h_x6Y3MXJc{tW zL;1N}qB9&r(@IOm4W_mVj^NTp6&&?Hi_4|Q)LkIx&s*00VEB!$?F%1z0Jm^}y-OeX zMz++qytf8*62cc)!(o}e<;Ys3TAar*&}}*<6#7Ti;&FcYk@aGk1Di!K5Heg{&pKE3 z(+e{AFUWMYN+}CnNV2b{D7Z7JhuJKY=yj4FC4CMS*nP$>x#S=s)(AvJyE!* z;XguP;PMW_9$XZ0?5l`x!h*EsCu$+1uxcbjJWDHmI3`Ws;2pTD!!eDQK$4=(cYDe8 z5N-pc`2-dgYK^=O0USN}21CD`1 zT^Nd67ygdi7;0RzGT@4sRkl$#WgaKfXBsI zG^?;_3?__F2m%)q5#&05Mi)Fp)4Dn>r;R@Km8y5FFU(U6o?Jj9N|x-dg5a44(Lc$b zTgKA0{<75oC#x&`e*FGWsPVSdPqesg^(hGQ!j$vlUhMmirc?(^#V%MK|b6I z^;4uWk`C{EQx0TmqZtHS~0-QYe< zph_!(?&GzF7N+*l@o>3>ig$2ePx)%a`M~FD&W}2M%e*XG#fQ;OT>2hLUG24S-Oe*q zU{Cpxe@O;uIxmA0e7Li*9te0*f!*wfZ`b-QwyWz#1g+^5r_&K7FN`VQ5Bu@$q>|1L zz;~2O!z=>*FI19#g0JC0Ds#tZrOsiT;lwv6WSDMH!y;V13}N8#H&^KD1~LKT0`%`& zw$_*Tt}Z{YLDnK#v_Kf(bPl^P_}^n~D_R>nA$K$Mb=-d6M)7qvh;cgOB0uWNIu?B~ zgFfa8lF&INKtN){=j+=;pgoN(TqnzVHgNcz$-q@`w59&bg#ujqW1+onE8v; zT%rhr0*8im;&4$X4i}R_f*E>kgYrxCXq?7yHBocbm$m@f2}q`|F9lm^y<_w_g))qt z&0ArCzWZic$^S9EPOp=}O@XYJzmsP^v$DBckt-Rx2_EHv)mBT0wq4{!#x76^2cTvX zjRq+wNgH~p*AKgzS=5yS4O$OwGipvqKH6^{vTq8it~Lm2<9t2_z6RH{T9!#R2waP> zo90?_Pm7gVb7<=kJ2kbkx%SE3@{dGOBVMI8*~mVOSL5!2=KbUhS{k)nfsT=;N93;? zB?_h>Q5w2=d%dJNpvfqaS|)cBt4o-Ct;LN5LeR} zTI$O;$3$^u`Nhq%w}A=LHyVe!smjt)R5O{}2c z)PXwN3=VE`M`W~6W}6hQ#{{zMc0_neQ6mmuJ~7q#0esI`!01K`wT*pJ9N^ zjIv956vkN*8E>nI-~=e?T({R^t662dg-&9iB}k_RR2K_pHa>G$6!^~k zAAqs*u-FtoAU=)nfqVvkpQVq3+%_>VR_aX|_&!OH8u)nh-H~G#19F_SneuomeL`V% z_w?|aY)KGODw>D@k05>(EtYS{*+`KDNJ8#7^ja3n#BP4fNv_{N#jFFt?vHV4OWu?azf zcCmn@`rg}@RMbSUV@=4x#w_^R-4k*cEw-da3oSuW!>D1m<6`*kB^6e=O{fu6A;=xr zmsEE|j)pPcgdS{x!pDQ|5k34STN0$z{4A$CMoo~5b{rl=kvo-CWM*iXG$8WoW({`7 zR-)>TXyMC^mTDYYC0RxHnBF65_>H!r1{!NSaWH!BfE;%xtrCzV^%FV1)m}#vV|b7k z7nWJKp;u88!G1Lk4m2qVa&IPbqsi9fXgiM^HSAJaVU2T_YE`0{tcnlT&*i4Dx)W;n zf}_p&;JKW3Ebqnm;EpL4Xibl{let;NZ4l%RWfjb&&4xw&ByNhTJE4RxG}=&tr*ZnE z-@T!P-)3t{w4KNqH^K3|)3iZD~j*^OOWWwkp(lj#vwMW65f*1EFn zLKls<&_w*c2T4+oQSEwt9k!KWWx`qv%}{YZEEO{Fu$n6%9HWSU;j(!-aa*{?w9*FFVp!A!e_rJ{2*i`xeJ7gsjVd|IT> ZY`$=Ywu;W2?uVQD*eLyw+C^J={~rOy%OL;& diff --git a/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl b/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl deleted file mode 100644 index c12d5629701728ac77ef3d2c801cd2c919155917..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 47097 zcmeHwd3apam1n(Ii%PO2mu+DiVN9VILkr8;G6swZR7onSN-9;At4g+H5*#6mlon+0 z!j=x$gru`55MwZUU=l;<?({PKC4tY~nd!_h zn%_C+zO7W=>2LmNgX-OP-@WIa?Vfw?^3L1q3HG)o!>!xyy>DoAaC>;$uATSo+8MrQ z+xGB|ZM(J)42JJPe)wZ;xvr1jR@ip$;O(RR+qXY_`_Smnj{9zpr8cH>wtx3|Pnt?}+?wkv05HKp_MSa#+5)ipT>)Pe1T{W}M@hBpmv9UI)Swg2H2 z;pTPW&Rt`J;nnMIxn)Io^{ve}-Fjp5x*ONsbn}|#H7je{qq(GDWY*2^GHb31rw4X! zyBkC_uWDWeP`9pawkof>Wo6CGixd0x4{Y<`-$$*VIh2|=Pvh)Lx(Ru7ZQ|MS+V(^; z)|!n)^Rc#Mx>ff~JT)F_%;lr0wrIAkDUr(bD0tNZMS|U0EXIP?TJ*ZiQuAodpZP&zH}y*(&wN;Al;J($N-X+ZHa7* zE9;9V_W39Wc(moCEy>u#xEBILRz)V-+7<1HP3+Sro*u6Pa5H1?#Q414ST^0;)SB+@ zPN$kkKojE?N<7-cc;I8HU8AEP_kbau6*e!J2h5NnCl?VrB&j$9$ZJaI-9d#6FO#_( zWL6S=xnw%p7Q$TxNXlf>8SfRinWr!iZ2)q)fLWmpY|ateYg}c#R|76`Yt7tzqC1w& zEu7d_O>{py?&sEwE99;!m(TXJ=6kZS9C+f-r_yb)39!Q?ePW-N8r&GoCWx0*s3PB& ziFHSNjjM6v%Oy6)klJ^hu?)A~#%LqwS2RYGnYg;~HnvEvx3Sesv`Ip5Omca>F~e7H zW5z6zm4vS`+ia!QNGjNvi=p4-%%U63M6X#A2s6AuG?m*FleE7j4L#&+e`_+D%W*Qu zNulSdaer&NCzU5wv`3RUqKuM>R8-LPCK3tG(-YnDtc%KXGC=)THC2^K#9Ctvi=PGg z-eg)J)3bSVQh@6l6v|n269Ju-C%$YtO^}}&59VSUdSD@9Kt|7{xKw36)}3jhAHMZL zj0#|n0G!j4O0@Si<$79j1Z7_@$K#d&78Nuod>Ba9@jvN^G%s_E4ZT0r5(<~r*0jXVlw+7j*UF(u53OsqGP&utKtGs$SHP+yrz zCsJTQhcx7e3MrWfI4Q9FnOs8YeIR2uSRrW>6@DNLR8Q6jTcr0jWno*D zwkPH6ewBQ0_fxusz!)r-6-&tX^XZ}7H|5hjY;wLY7mF#omy6|lgt%%>I-62C?b%E^ z*~b;Vxl{`${20ZvqQ_PFXiq+!On3At8PUBYeU@T|@?c%ADc#-#K_y|S8OprUTqP=G zZ^RhIWrFHPD4c8FIgNrN(-xtfnTx>-5nTOw3|nHk=TI`$VG9V)dSZgNH=iYX;Ws=x z?xR6gMm?<&_xk$v6XR>Uw{0D|X9$kh1B2Ul3~d_=Z@VXa_x5cM?idU|SQr{8gtu-R z+%b0T&hWstu^sRO!}snQC`|108yT4F02?u}$`xYcjI|H8k2Ffo2hIRtlZ?&KzYh6^?%b4pf?8q<*b=3#TrT7i!sk z2$0EZB7uQY@+amuwx(0Lz9!p076|hjquCfnx6=H1jikFJ+50YMHW4Cl0s3f&HZ~jm z##WL|8*FK|hgDBn7oC(etcOt`{H0HDmSab)~&0of~+2zfUR4UHQJcygFv^&#cm;0dIQp|^ue|myr69CRw#V1EuG4@ zrZas=*S4i&8>7hx`a}jk>clhTKvu%Hk0#+@<@QKF@sYbK?qrahOY#pud4ifv8s#iL9$Jm)~JF9)}*8h%?HOl(sIjEc3{-br8`o?J$yn=l5#)v+Jlh)GI~ z<4G)ggVFE-6c5==rdv8;-R2t&n$h50GO@3UY(awu{H{=ACuis^{nMNlqao>lBR}X! zS2@zvj&!Xf9de}SOL`FykkrNfR!r<$4Epp;&S;>HMJm(8j3?EsLKY@%S?EoU)z+7T zHGpn+;z0np**?`LWr&%oOu#Jj z?jE|<>IdO#){YfH4k&ECCxx90#0buK3J!N@nLkB2;xgQUj&ovajA7`V52 zG#y=x%}fKE3!dAH4Jl0uAkY6GpvrJ8fx0ZkFoOwnA{U2)mT%8BQO8e{!wT;*o12Fs z3+y5$-k9yX@+}&?i;RY9wgDbRiw0UqQM(wyrP`lX6s8K(pXi?&nznO}6pntP|H#l$ zGp900Xuh$h{|z&zqHwJ6<|q1(4ZUgR%qeWCEf%(fioe&7#1ImWC-d>7j-JfNlRD>< zg?O@fEGvG5(7tNR@?zrI z^zwL}r`UySXPsV5FHhF_iYeT6*9D5{(EjxDbZuR*n69JL{JN@QdNHLI)>RkNODI)e zS6fVnDYdjNR7@|UR72f-KvF89)p_*CXYfy{#T`{EmxWq z!n7{tXksp-o78;9at%W^56@b+v77*E4eX$lT9V$q@en^4&_f=tW?VPHYnE`l!dPX~ zz$!ssC*u)l!8%l1Muv~1R&89T*H3)<8cp|k{Q=Dz(EYwS)io7CpRZz0u(~EtHMg?1 zrlxjoWmO=c5wTB=SL8CWR+=td$5d9^NReYy3*w|{Ue|MwrrM-2Qqk3G{LTf?g(YEH zi)G*~F1na!8*Q2znI_#=;SW}N16BS?P*NML^v}-mJ8)^d09>wj;L>_lT&`zaW^=O) z#~rv_&$wJ=vsR28i=N~?8dSnw;XtJAtca{|@_j`)(P0@&xSKqO)SAv(J9CcOE19;& zGt*Wxrh5wY^-QcH^9Bc*83&o(1}LO>gVAg@+BdIM6>e}+eM33CEuG3Xo&)h!<*L)V zAgd%+pU+W$_1WvMIamE=W?Y?vahx20Q{wd)YbM4o11@lbquntqjfKs%Z;xdGG_wop zSmVD^&HR4KHtR?H`!@gnn14_3?@9hW#lJj`c;4dl_xShw{QCp`{UQH;3o~Z2f#2re zpYSiuExq|DInT5aV5M5E6cV!f;zJ74TVpGx-2~=1|9;0PIQqt#a%{Auxba+Eyz#8n zd(TyUZMo`}5;v5ieW;Hm!vEY`8@oEK|H#MB20kKwdSj}6= zQiU}72ODkuvyJsF-0;~tE)V|0JV{m^cb$y@@1NKRcpDgj2i;v(Ujol&E-m+9glWR^ z5iJH(8|$3icpZzNZq!?DaIFKm*5GPx**G}L6ICsV(fd{&y%~va<5s3^siSW(EtbI@ zR`g(z&txd?+Sv5yZbC4$u6H86o{?TqD2MYrC(gWA;6S*BF-&4=ahn!2h0$%?#_&q? z$V81dq8u>He(yx+gXc-{?Y8N~rq4tF|0Q3&{sS`>~UC?JI<3G z5nBOxOV37YwgN<)42hhhfr27BIx%jV19I?V*|W6}b+!=Y7S7T?eY5*#3-+BAi|wsQ zyTvngQekzq(c)~s#f}SHD^{h-Q)Bq+H5w zE6eE@I&_<}y*6skQ_=xVb=`2TVI;=bp2fktOsPZr#JD-S&@PjW#+M@HfFbcj{e8Y`!nI;*QBU{DtWSuj*?uyM^k zX>ZE`%N}cz&aoz04kuI9d(Nfm-Q{Y}R}?u8A2{$RH(sT%fVBZV?sj{`h}3gBf(5Js zmaO70Cnm3mYuw9^CZ6f+T7Kk-u0s9h>9{^M`SuDKHYvhFv9mNh9Sv0uvLK;B>*;x%-X7pHMOX|(&(=-`h8*Q3cBxdYVZaYk3L^Ws-fn4(EN4L z!&gML=c7?A64mtj%NK_th5Fw3<;7^+O2!K$f*uUzx>_c~29JgzPuoD^KVWPGpt~a8 zy+gYThZjZ!<##54F|wX0JYGQdTHI+UTAOYrs+vGe%Su#2c5LiX0nKmJ zT|{CxI@|5*1!ewNHk;0N8;c^i2}IjEamZjjl5=x?-7V>4lX)t}-+_rtfKRnxm*FO^ zxuGYTTurNTw6}ddbL*-(dB7x`jD#8!;xv~>3F5RlyjS{xGb;@FJlH#Rb}da)*SMb!HOaa^w=s_R41$Q1*g zr!#se%Co{QqZji(2ebWAEH39K2+wS{R%!Gxq&~F2IC{7al4CeFyaI5bGG#yzF8W-f zuL5n5>^1|P<)fDkc#5N2N2^AC%ybq8i-m6)I%C#uY_?~n-mr1+LgJR^GxLm5kB(Dk zIQLcwHtUUYa!9{JP8jHoxH4aF#8V9q`DP9O-o(FaB}Z)o=<-N1tw*A}Yt#;jzII|? z1%bOmfm_cYd@%ZyYqluhd7Dg^66-OM2BPfx>+;z7dmDq9{p&0BVB-R)<+GKpX&}|)BSiNjnceFK& z<16U06XOfaTgN7{2gg638lR(jZwl)oWZ->tBtWZ!=w+*Bxotiee_3kdOh&-k^QEOt zZZgbhgA{XRHEb-JgT?0sv}Mzzuu_LqeGBm*i1R$ud~TlcAu*m^n(-kGT8_;lt=G*G zb(CqpXCbpBu4_kxBb~}f6Ep6_NOFP9(0B({M@4d6FNSKutb}S-mW{rJeBCt9_^^<7 zr)GSZ$Rq3Ci@!eT$z5b)XsnJ8&+JWv;v*-I6cY7))16b3zxEh+0WXK0(^AyX0b>g) zky&_!cc2ROQ<0IA)A1vT;hC2Yc^>bKUyiK!(cw5tuE4)<(AHF!_D91>zK!s2i0ezb zi*t@Sa-`&&-Eu9a0@Qf7T#oDY*s5G5I1xh}TagfYYIwF^{pOqJ)SV z!u?rdj;4Lo=-EOk&zJkCGvHWRj&EP;=F7_+bkWD6lDXa(Vq@j`@^YhxM_Q^;pzcNp|on4FWyJ#(fJ90riRHR^{(Tp#fsUJ}u451{wih&~dp4RJ>aMfmd0-jUESMz4PKbEjrSJ>D=` zb)4(u13&tbIYvL}+TDOWpQ}cAz=He2#^-L}>H?ruSPtEMsyHyQ-@kEqYIr&kJ-v7G z#^EEKEx0ZpKHAla>*7RDXHVCu6Q@p04Q@9@yBPRxe7$|+l?OwmJ!W%Gd@KzY>yg{SY81VT$KIK38u=||g zb*_nVJ%L${-ie8a-ql4MK7g}JvfX<{#QX9gZI0gVS=hc3C^tj;kWdJ1_vbEH?_EXpTjj@$3Ka|S>WAH9x>vCgjEiyGe z;-WuBNf|+xP|;to8guvj8&1xrTwV&-Ir$CFWutJ^F7SJt^itV9ob){`7v7E4YuF;_ zHR5D=r9E_9U~~qB9R#FOh25%VAgr+Wh*o(1cC^a0$Kx)0JRO-LD_saBG_tdaBMJRz z7gB%NC7d4>ck_)d?N}1!x}WThFD@oWPQKZ#A4|P4`O8jMu@4W=Jl9!RTv%p6GRI3|!PTwYAqPS&NQI_2nZrfc7r{MqHjPW@Pyezg0@!gOqJJD#NyZ*z+Qb#6#&4#^*T9ZEnIa7ybKIk#-ft7ZQlv)bI zQ8x?thjbX~Ln*8lw>IAmix9|Ry)d0MYVL%6hI^mt$j8OaGj3#oJP*DeFg^_%9#F^(U3OH0jrz;9LLP2LK3OF!9CnpLx9zo|M3OEcAnTlfAW%k@P za`G-EK2%DLoJ6(ZV+FPKI-MHTySe;Ze{wm~%A^%}$dljD$Whel zdhhh%NWAMcG?c(^LotqX7hO1V5$}9$%XR5x>E*8%6DliVXQjjO&ex0Sh6MfAy^#c% zFLotQ9!;8>HTkQq@~G@Z<~+mKH~VF-~-Z0N-;cy?o1c#q@P4x_Lf*T{?6EERLt=zm{HnDnXa} zQzt<$=hREi;!`J>_Qqm*{+1PZblq#|@X0MJ(~apB!~m6_p!^0aKTi4AS>;c-%2U3S zxAK8Y?Fry^Xl84A`N#?2d}t<_UYuTXDqWvm%1GgEDcvn$gwkPfB;5d(q?e)mvf`ot zdyHn4g~hH;;fG5cO-_vaajqfSLH0?@laGRBbV{d@)~~sNk~AImwx)BGmWjaEC@KCQ zDX~T?DLy*2j~mZFvR>1V=d;KUVA6@xZ*=B zyx@Rcpd8*@(5Zn=blU*0>}Tk9H5Z>GtE;s>5lPJbYf3d*sijZcvD@Q$cw+pz*!Jys z`EKRPm0`SS*Z**M$Iv5#JQME^-?!~SdPVP^@XiOftwfg_LYKQX$~G_(im)CX_Z%=2 z8fNEvBILnNP5w8JG34&&>gA|$xUlHg4OQ%$8N(C%z2R)+HS!YTr}qwpa*@QZp36rQ zCtf2nOK!kFd%U{Q>h)rz_hEB(7_Pe0aA9oMI>9-hHv(YGho|DBq4!Q7{Om|B4(DOy z#MI&1CtJuI%dz;IWU5eXA58t?l$Nfor+ZkQ5S#nZvB|%edeP34c#^Iqh>Kki)3qpGTb%p_ zd~ICG_D3Hl+bX>(msBI(3X!#Mi&1)yeOBjCvI1)W9w-Zn5lz75lF|#x^Ln zQ(cn2tBtXGV{CyjR&9*2&fJH||KbtS#F@Rrp^**o*JdyzvNHaX4kO)S+-EO+qXv+_ zU(`&yBLa`~rYL@HFr7RMr%yz%BKyvlB6?JBx!YH~TQAa5*eSEb;T3q&!rH=PFBRjv zK1?aGYUQZ&azyhUUJ<30L#!HJO>m{?;RSB!hh`osgbMI+S?z~k<3Zxq!)qd1%N4zc zFN^CDy*_FKJ~We{`UJ1OrQX8v&`fhFguFnwoFH&_bV2cAFpt(Bi5~5QzC`q{2xQn& z&&0qyB)YJ4%az_R9iim(;^Gb05PGND+csuA{+F#u&i01sYg4Yn_7TobpeX*G>{D4Ze@Y7lUvydbz2%iBajz^ zet{ZMdiBr3Nh;|uwLUCt0uWuAwV=Xw7xlU5nhI{=z8{4 z8V?bFjE4ZCJ9>C+R1^L_GaS{x;KK`s(WOOdVm3ojY)Q~+w_5J54@FFgL`Wiq&@j!~ z(JlclZMWBZgYi(<*i~;l#?3x_2FxSTQ-JVr83+!{A7K!W07N)?cnK44t(^;Y+?CN^ zJqDGXjm%;LUu={hvT&H7LipjnAPDpo_sYS_tSB+!sK6ijNf&u zp@z5IwUkem&y5wN8J@?N$VJw}4JP2@SPALcRBO38lZ!Tm;O9)h%{elZhp*3$&Oi1{ zZ;ZTlqz6B*jhwub<^UKkaa#5?#*lpCH4JK8?pL(@(T3%Z7A$|P!}3QfmOpMVK91!N zCpT@!2puh?R=}Juh++@Vy_Cv}013A9YIm$t-KZrW(C1z59+1zcC*nmLxW^r_JRjrr zUSEYb9wg?J> zIaqK%bc&MIJ2+@O_+jJ09#*eC8RMatq$0*c?1_2y@N~noTefz*E3Z|IgX)uF?gkZo zk;6UF!x^Gs=5RPdd!D8x!QzlYtZ;a}K9E`|pTSJ>_(gd2Bg|}Z8a(DAK ziD&n6W7pMEc%ia4gxnq=M>}m%?*TG$`+yZj5j4hYm0ZFN+l!5VYb0TKj{^i19Cz71 zxI^Ra;b}NDOO)35`u>ZOFnSyg<1DtYv;8UK;YW>!A7K3V+;2Q`kEHsIM}%8@_>}|C zC-gi$@UD!@g^VHr{sbmGSI!G-QFhV#rXa(+Junk;kF8P<<~ZHD$G8!yFYD%?&>grK zYr(=k{W1pjNk3nn09=9o1iYAKk;CDP7ST>*Xz5T{a$V>4EJF_0Lx4X42gm6d_j#8X zyA}yp?)xktf&NM04jQzTvV0SPx7R}rfe5WfwY1qB#X2#HJ;&4)Cx4RPTi88x=iaVQ z#Pd+l`i*hg0b?V;;Q&WUhiD2svnxUKdh;vh95N>pInSFEAcCXhN;4)kU38MLw>pk z<5V6$uZ^6baf%n@TY%O&pw)^I=?08QZ7lasoo!Sy_dCt_0sB2(+L{1D-Yr1N(Pz$Q zm_ZHNe35s|cr0T{I5sYox1`?3P~!u|E=o{SG$c(=*(dtjNdT|Ku;@w;Z>EJ;*HKHRg@}et!3cNGhQyHwRxxJ|bV0xC zr@FeRPka^&7jIydI(cOBA12?B5#=*@-`HtUl3spwR!_*>>-h?7r<>aQSu{T{f@aX8 zxaE5GG70g|;?D&J^A|H;aQ_@CU*I|b0r(tDy9+SZ0vK?;TzGZD^I3T(n6Qx6#?jgb zFbpjvWCd5J|G+E@MbxM|?na)EsOU1}Kgru3p3h5v*RL|+e;)8Ji@@_>*k%(JJ3jA* z$jk47;^$=$pe6;=Cou@Dj2>>J!%JfR4=>0dt!@}TtuUyW<4=Gz&vl6jPrB#3jJPcJ zdjL5W1Rb#mCLuX>SaBWl2Yw9DeqtLegnMv{RW6Y zR_`y#h)3}L0#thUh4)<*zTi@Yt*d$4@(N>X$k_Uys=x|-iQ4}kr3!mtf<^|1Pd_s_ zs-K=1QS9zPc)wnQLbW&{)kE+4 zH1QcsM&XzGZFn-5-hD?v9`o>}arO1cty8&e=~k|$AnJV+8J-3D*y?Mo&_Ha1U z|ItC~COgOqX2N85PmWXJDZ4SF73{%G{puVeS;&X zpBt7vmEz#=J6|4wFmh9IG1Tr$9(%Njy@@@AkhWRQCBgfhp2T7XTT<^)c(!Ypz^A>s zi^u%7ulJbE)!RiBa-8%Jm(iX6hgT9$5ss!cn`l9}L&Qzum!uR2cy#lA(;8{^!Mtq3 zTK!d1XP{&HldMtG3HIIihgB;69?m!o;a4wGbuLuriPz~PoQyZAL32TSNr0 z9vvr@(N`G(KD^-lrhdIqvD^rH)4*zJ{J6)~)dIIP9H}jG9$qEJT25n6YEuFM5b(}* z9??uhGk-~*2u|8ov?kLz1SI4Y6fA`KI+|Cl@lu$OIfzBm6U$L_#ytBC-v7$Om*;7) zr43EbN7GDc{J1WYJMxrUM+f`Ins(jC!6tXG5e37&KSl$)HHy=MXn^TlOrx-o{%A`& zi__9q;q{DcrlYAfxiTN?&Fc{;e@KPFX+th!NO2Y`Ka|O5<2|XaW^p&3L0=EhVOe$~ z+F8)g*as$osM5h_fvrl4Q4(Kn$ac*l=mNqcn4gn;f-y;41imD47VD`#B#LE!R&Cl zN|lh8y}hRy-n%8Rf*l;9FKYp`N&&JTfh2S4iT7O-oYfLzPemN~nAM3+Zz`Qv&3S(- z56Z%*QaF?Y!_{V7P{e8SIw_%3!WAv)G@@OBk5(hVK}S##Qz~Y@wr6%0KYPi_M}ioQ zNO&eVM#OB>yG;sISW(jiwyThjUGg$~BW(RpffRz`NIi<~1Y8sCP!NW3ubEG{Qh9Hh z13I$)=&PH|$1YhQ3IbwWW^zsZqOYdj=%rXBq+32fsWwaCoQ;yJ1ZePGL%kS!N)t3H zZ2@Lv+oP>{1(m{TGIJ_9(*dYSE2$P#dXAbFzJ!FCZP(S|0nbwN3IrKTz|NYrnK6)n z;*i1u$2g-fQ5-CcI!t*ror5T%7^e^jO-0|NRXt{t?9>TSI1xdwt|~HoE!3j#4xqM& zQxOM!q#o4@sER-;rClX`Ewf=!0sSRcF)4@p+!yp0S1r`s$2@lB&_tM&j^Cfg>)lwoLPXaI4Qr#V8%>X>T2aH z{V^*NK0bt~FmBlS?g*2Y4Lyr{0&4eP*DldxWQ|J1H=e`#N3jJaz z0acrc4rxj~bKQzz@xADT${@fnXDyk$-{!!MpW2;9$O4m`RH8f=BTGQNv`T`oQY>M! z_X)nGaJj-+@tB32?{kjEoT>sO9Jj7w7IGHP1?<-ZEBd7Y*%AalJ@cS12uod)eI=j- zf@NylGCj94Fqd6E0)V^RQzM)9Jm<%)J{!fgRrA2b|t*acdz@V96iDIn5YZQ<%UD)h73M0IPB=4NCXkC+@Rb(2adp(S2>@h?8JCI6CgnOB-9nj$o-SfHdX|C)vU zc#VwPHw%|3WAV`^2lXGLGPYDmtvE*s!~N7m#;gne>@KO`#GCY(r!l;|Aclku03K8z zhGf1eIeRioEn4=(&+A^k7b(+HUuUL`xrv)aU|B79W;#U9@ZG9o!Lg9>-709%uhp&? zH@*c`K{~XOz}lQ?HO;cZRLjq^RhoE|N#lD8O%xWG?FOjg-zqGK zh>5l`ZI&`8z3*yP2P;L=`&+Xa7t;v?;5rL8H!nVLTnFQ}rsdGYYdEXXi2 zq!VmTMHRCY#ofUROA!PntFcA7#Ya{wCbC=6=-=rC;>z?he@QizRJfwm5Mw2te~Fpo z=Ey#Gw6;;55|aG8DN_{BvKTgs3r+63hCsp6dSoKHkm2(%X;JH!OmhhIu`f(dnKkqJeh>+*7w(l=f z$1@pykiZi4ZE=Az`NDJoA615Kts%i;mff?}G}TqCEccxgvDw_W0lJuDV#t{$hAQ(+ zmcs&mcEe!eV>VGjh}Z+SNwfrQ@xc!#K|1t#qb*8eAt}AOM12`PG|$g_7^Hn74Yf!n zl2#XN zf-v*TYbmmO4TIH#j)tLhx z7hJh@!F6!Z>P1e=Yh_w6y-c)~U$SsR`EGp>UH2PK@sJNO$KE5FrBN1}ML@q5D(Lr2 z$XnJ#khhhSA(S9Vh22P&P-j6Czht!Czu`|xJFh`7wGkxKaQFhQt6x#X70c;5vSX~$hiraJax zR$vxSqJuv`XQ~}Rv7KM5NjBJ)+bbyhn#{)R?qId*AdUKw+OIH4WG$wARjdSQA;o%1 zw=NMgg?6Lm)~A)D&MOHn1h{Ug6C{i`JFDpgF)v^TE#w__#YMG9prOR^)HEY1)9R+O z)lalIL~WU1nmu3J0S!OK*!u~nnF zOI|LX3$d2arA13sPOk$3QCw&?u}VJ3G|QBp~Z3sQ&YwBiL7S54Inp>9oDEJj)hw|X+2 zXHdhE@lg-&F-t3gxuus%GJz)geib&!6CLtRsjImh^irywi6^{fAk|`RmNU$CP1*y0 zETGPuIcx9=98^s5pES`Z%U-kFSmka1w~U+#l*k40O6-jz2F}q=9HQg{ zV@W=pCTA{js*m2{|B;8FdiLW0zxis#O~xW#wo7v67{)Kjz=U@i;a-?$JJVFk+gL7d1o{QKEWR)6mW2to36E9-t|H zOyI;^MFwH9YP()9a*Qs7oIr4nQ+(L|TNHGo8kLtKj0b}r$NNI@#INPW z)?aa&0)+NDoCO8=fAXr}3EJ%BR(U7SEDFaSqol`YNMBR5w1!Ou^N8#4>_>7fMio(jrlqy zKV&C)mBaH2<;LyY^~T33XN@sT7r!xpi|4m;`L$gBUM_zrm+#Bv8*-VF%OA<*Ww|^j zmvOo5F$O&RlHLHK-9LIwd;ieruI+;>skx04yQB!`5NTm1;$08C40E3q&0;Iw0hBTnlmclx z%*5n3@l0wVIs)FMb3Objm8Qz|DyGF^DMEGZm=u${DU1TWfzD_FC1;QVyljiFsP@F@ zOTLIz&Bw?n?Y~Egw;CV4mQ!D;F+R%X%JUWN3d-@-o2OG>0I72&h)BVF>5S{VfX1Bf z3-#)i0+o%wXB>}(SqA{&N_sW2#9;NYx=oqLAJ9=l1t*Yq{$7}ixU;&s!RuRK+7D|* zX8|=>;yc*OC;YU`x*`)QXD8vaVhNZ&`l&n~t`p!1zTa?VN;7`LPuoz+zu@H)I`}0Z z&Fw6;L~8kB>M8RTTfEjN$@yw*wSfHGgvKLp$x#S_Y#wVeOUgbYAjq(5AEq$zEb)VA zyypQ)2(?E2@_3g_OSqyegWK!6x3VDI1S>xtmY&g4dknWJrJ&avm+(+0y2VKj?O=xS zCWU^nM8{GHEkgNU)cF*=Z-MY~fvIX=1k_cLk+)tDa3lPZqCKD@v?zys#Fcf=euvTX z#aS&amzKN>S#AsF(Z#z>&hA+aehEVsA@sV695p}s4p{(x{UVC*nQg#mrWfU26$y~j zfsdlOGJ~8MbZ1s^W|cd$nltfkFt?##)^cX8J2S+YA(eSt=deX_WsQmyl;|A~yn*#h z=a(=JJ6=*XLtM!x=!n8Ulwxx!{i1{>eNrw6RQj;du)}EBYBbzsG^CA&gwb%T(Qu>D zaE;M$mC-QQXyDH#ia9t4ujew1MV`n8LU2HWSkRZ>@OJlln1DEtigIfQ$vI$?K)oie zu`lKM5-<=@FM<1I0}~UHFWHWRXpNq*D!vRo*^F2J5dXly7dED%h+P;DMTTb%U&Xf? zUX8{xM72Pn%NI+0tY4wTR8*Tr))B-`oPgJu=)AnxMPb5@CUivcIg*_2nwtED7~_{Q z96C74ajH}dbVBdTKmoyW0S~aAPG|%LFY{2a+;;@Pm)+qhN&&nAKBhS)Dg2e^a!|BD z5m7~Z60f~BJo6{3RM3yZ*Q!J>Yy9TDosXkERUAQxBs7RPH&gTiO9U^k@cYj!fmgil zSF$^Ot(^a<74mqw@$oB-VT-T751g9M8n$e7p?b%rlkpkzR?L)yFeB#tKEjxpW5IRQ zlK%YF+~8NOroICHomY@Xg7+1GbIQUB)X1<8o+U`*9;Iquo!C!rqkH}|I$Aq(csU0p z>&;*J`|*4|-lpFqacS8D&^OJmhkG~_8p+XXd6`uNQ}>qHs^+qswL>yidgw+{hO`$&Tp1j&YyT?gl_5zgE7aNZJd-Xtu;SG^T31|i~#zb%%@$2n-} zALc8eL#eliG5pp)Q?@aHH|1nQ`D&jlqyH8EKemZPuE;%sCA zPm%ID^EUn!;Oq1L(WivoPkDh)p{u6UXmj2 z#mpJV|L2H%V(ok19<6=nnbC^)k9HT>2AnPU-t7^D@1c-A?%;dZMzk{mJ8K-i|NF~J zjl;(*KCf7O>sS{!7N3lehe#~aPku&V*sHJLc$E97Y(@7@x_AyHlEg-j%p~ zuOKcTyk~9EhAH-JH(a?l{wYqy>*bSDFviu5(PWZe$Ia#%F})e5ujVCE@`i3U+>%Xi z%EcU?+4Sh*TfNG25||=3>3aSa)ZOo?;Nec0Y>I@ZtfNGnrqXP0ueUvIPL-}_vE*f0 zfjyiG3YTCS+G~tOA!Cso0rmcc7`|8MFpGA{0@I(1t$kGsWPTnfU*(ZdfC z<(jtL=ox0k`0`e|=wo;B-AlcEna)aPQZjEdhS)AUz9=xwJX2p3*eCw_xLkI#+itqj z(_rBi@rb`DE-={eAK?~HpWQ7!f)}#q%nNyBR!DOKXmeE~-a(Hwd4JR$ch{GKJA$vuP|rTNyB9X+poSoB>c~gVuvgvw@E8 zm9G7it7|I?y!q9uhy?%AVfxe%K9pA+9`F?l5ZCBdrUfoHNx)-t0^@cpXRn7eqVRA9 z`)54XQlwVL_)c9khR+0`fVJ49=*c)D6o@IZ@uiLV{aP@?*fC~;$@8{PhwpomIvi1$ zT(GfpFi-Or2vqA-qW;uPCdKP4q3- zGFthjXyu!tm5?c&Rk(PWzH(7AeF@y2t#z-sw9dwm4o{Sm;@93kDLN1;E5$cOieDos z)`=A9UH-mVvV4 zrA)jL-Q1M4J3pe{-Nh?k&hH3w9p@(vIfI)$)3>Xs#5X3!uYv|SzF$r6LiaVb;3dR3 zeF-(!=-@MpNK1O?OV(AhJ{L{!zRmr~{2ukIeD@~*9@Erp1)qT7md}aXH)r8S-;g>V z+`QITww<4_rdGds&Q||?VtlEaBbjvad>XB0vcAi|Z}IQ<`1kw#`vd-!&vpNZ({Jo zI`uaeDg732%gl-X)=^m`yk9kW!TRLDV-|n=g};Am=~6%Qx2Jht=?)l%p%%b%R7fb6u*`Q|8x>acX7fS$JxzAh(sU@m}&vs^e+^R%o`rBfr zzHQRn%)Y0mdQ9&fZRW*R<-z`|jV&Vb+;g!+ziWe;MKt3hg#W8WIA;>^!M4F2JGbu| z*m<6!E}@@>_SLiLKQ8nix9Fek%Mu1(XWRdtV}#ZX@-Z&TX#VybJUA{qc+bUy3e$^KM=gyhg#|0XxO|V%pWIqEMC_ zvfL@;do=tBkPb}1?jZFD&ee325PVG?FfK|xf_(Z#9R(J)?*b1hyJh!0-SaGt%w zJ*{rflFPMvRo2Y`66beC8{jL@_J%j#%>Ij3l^Ly4W&sn>RZRC{hc5Vx-&J&%ZWOJ=!CGIqpX)<*39lK-xHC1&k_lHNhKm_=FW2C1&d_0gQK=cZgh#nZh5xP5?tp1aET&u z;8Ip3-xHCnbBW}8XYMR(Ad>BL>g=A;ZDYIc-Ep3srK}ZOTgHlgUj*}gQ!s1Ty&=KO zEwy4T7c7`N9DKC})8Z10-7-5CE@v{>;Q(-nf^pzdRxsZe!F0F;^ZoLIS^GX)v9;MU zR_q5NnIBk^5pTmS8L?uS3zkf`gR!<`GA_y3E%O-fmQ0TWz$Hq?flFD*{6Hkr!%F+~Cq&&V;=!a(Ua5 zi#6&y()ioLnx{ zf|VCY83XoX5y+2Cf!t_~_6~uF0sHg?3*?gye%c*HeMv*@&f6`Q8SOvs0C0%{ao|!` zAU_s?eBLFHAD^+KypQ&)oD+6J#DXPQv0pb@L%qM$3EO|cV%g{5sx6lNu6|;-TxO_$ z!2#eB#p1xFtXNKnSYB|6TMKB?38R3B(%c9Rd;i zb@+k>@~VTMwm=TMI*Q$LnSuUw2Y^fLC=Oi83gnas~C7an7#86{Igjsq3=Xq%%X4*rzyj1SZ+~L)cI_n{^a;N0Iux=6!n-KV!$kOunnxV^iLmW$7u$Y9Y&-J- zj0@e9$Y&GLRL5+N{Zu&iQ;TEbS5=NKtR$>uZz}lLl$I59&1;O{=AsyZR!lHu_2;L; zh`)9*;-}md^LSx$?4#Ul!!`oL=#~H46~6s3K5tEU=eGNrMh71l9F^~J*lpu0tIv)H zGd+2H79^9K$E${a$884x&f{G~ueH_F7dPlr?b$>}oPr<#V(;MgZ4ZT8w{5>~8*L74 z8-wgBzCl0V#32&YAwZtLrI+6-v1QQPnl$FnL6O>t@rsUUOEwWp;yi>|?!V);0({P( UJCneNZQAkUc^=h+@662nKe38Q@Bjb+ diff --git a/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~1~ b/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~1~ deleted file mode 100644 index d573d51789b6139cfe76489e0a9bce245cdd33ef..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 44664 zcmeHwd3apamFHWkq>^mOWn124V+vs#M_AaFF_^tdQpr_Psj6I6@|JXnkVHxgHu1*R zfK8kQB7&D-^n#m^{p-#*9ob16$;MRDNhX012#IaT^f%oh`I1S}Lqf(qGd<~HJil|! zTdT^p4C%jSznh*7t-ohSe_trKvwwSE&wa~6&1*s(JGbu+qn?#AZpuc>a2 zWD`=QRb)ed-xjOT4emnCD{ox2;>J}gucdpbA zAHk}&cqYn)wdtb=eUt(`+H#SWM09jS2mg^&nU1t}M%G404{DByL9@ z#n73u`Jk+dNXjNsk+vy_Rf39iCY9D_A~M~qR9YGMWPMhFHgGmeoUZod(dPgzQfsZ$ zT)Zoq$xa(RIF(3!a>UQI8S^Dplg(wiTXWr+Xclbn=aQ+m=qNZ~Q9F82rwZ3cGI3%b zWva|=N=LgQ8;vUv@nz$iqX->bYAixjZ;Ui@dSzoIk&c-Wy|G17^~P2!&?W(`F~Rw@ z#x%e6#!3ye^W>q!mc(gUj zu=rbm;}+8@(%qXkCj_{*&O|wbo*|$!^2L`)r3ms9BY|vmT{n7u6v$}VBT#G-#X)yg zsUyB#SY5#~VhV11yNCgLbF!_;Y&-Ob_P8k?Yg6<;*WrsN&D1IJ48OM|qCOr$D+b-rgQH8?!PU-I&g0*9pq$ zM5I-yuS%!lNibloROE*UnQdOdL4oB@XXB>aSEQW^DB2@OxD{p-ZZCaDl^dy8MGS%ooYs!BAK-!k~6K8 z4e?w|I+A>-$#f^(-LHz{PCun68jQhmUeSacpFtlb-jqx6NXhBGY&2@>y=*ksEyPXb zpt~wFr9G2QB{p$EJ)3OdfFA>QM&!6A7wOKW5~;PD%r>I91bwz(26JFtwkg%#goa8$ zQ!|w5#i?dfA$dK8NLn-Iq=uOj{|?h&##S+tSN`!j%_`JZhzCjmVq6xL4a|8&rqm$ zU|a9b;ht>+I|llrJaPsmZZ>1;UKRNG6KWtvG#pBgt-2^1*q` zCPD-zz$O}^jm<`n(MN6523?xzX3>+{MJ6Q-?P25zf9Vq|SD+}OHFi|gixXeP->vMc zz1df1yxCW0Bzr)>HA`-@aI=}&j(YN%kj;-4U^|MuMjI3TEYPj?uvk0>5;TaMR0s#rVyQhEj;2hAWrL#r@^&yguCT2WIVGWWnCCflWvMiy#EIK~K zxC0+5keb+U`BOnOFaUeAOmIo5X{XNw+fn zcLFAvg!ED5=rEB|Mom!v1GxfbE;9H`C_W3y|HSvH^4(^dna6MC`PZU6#7r|!g_Y-j z73Co&n|Ug&Jbx<6L(Dhx1gt#&R+NVt#mrM><@w)5d8o0>JT+FHcaX>Ajx^$KVeL6E zTti<9L|R*;*=#C9v;A}?+7@qxMZJ5sa+uq68fNMh;qOq#mpJ;m%2ROCMp!)HuBNCO z`WLH{+0YZ1zmw8%UQ$^3ol8^9fP5^(5Q52ZJR5`Ym21y7QBO~iF$&8ulcjZvnNAi9 zQOx8$={C~(G@~KFonA4qSAjiA<|<&bQ2o2g{CIxiqdnsT6IT3q{=`Rnjt`tL;{io^ zeoxQy*4LBy7e3l^a^MAtPs!h2TgcxYEPSE|fdK^U^chI6qx2a_uXEC8BYiHV&qn%O zC%qo&3n;xF=?k3ng-8!k`a-0Kob(2yFQW7Yq%SIbNKr1oeMuqyWNJyQPAPQa-BG6% zQcDtbzCseQuDXgsDtIWhBvo4%D5UBrG^4JjkeW-O*>zJ3sRb0Oud6MjLKIq97c8U} zQK+GA1|XTut=1{pBj@m++2p)*w4^h-Nfv@w>mbNF2XD-=@ieuL9cs2itL)IVc4)O7 zx(*>938}i2d;jPZGTvS#A@}LrHA(MZXo8bN zYmG%)JDYg0YmdYez6FePE5v+?(crUs+_d4TMGI#$p?Asr!5v`UQ_ zfaw9tCElg##$pww1uf9C29b0 z8Rsrz3Bgk5lV#!Ph4I+_Sdfx>wVL@cAmI1g2J3)J&_Yt*)+}R#j6`p%Q^lj8taR z(N>z+EM>~7Ol-)gsRc<=FE78j2r?_A@y(=Wqw&7UP=i%kS{`MnEgou^g!K+3jZBH= ztMmt|^okmP74WYORQXF&{4OLKCxgV*E+kqnh{V;5L@D#iFxZ8})r5D9^ctq8p^TgkS8vgje0@F0GznYoA}sA9 zOkV(56FV)E$wW3umvFWBayOmJOOUmtCewHkY*&<&rDZvmI4u5Nr0~iM6kc_)!p+Pl z?!46Q+=*c%=!&swbYvEgfK3|diegDBWUV=QV!*gr7g< z=P7=k=I0rH{*a$9^Ycgie1)H{^7F_1{61!?q{V)~&)4}$b2>d2AxoAP;O$VW9YR1> zJ$wjZT50rQx=UbQ{L@7nX1-FUIGt4qq-jgFSTNTXj@Qn=cb z7+LVYNb&2b_{G%tn$eM|CQ#lva4T}+qw4AkYe?$^Rr(Ja*8a~?wQIP>P}vTNv3U@a zQnNeW;8e?76Hc{yJy&~=w#KD&saSw3j&HQV6$Ql=86Cy1f78AXM7AVK?pJ^McNsghob3te#9Z zbTo4z*bz7E2*WPh!+hQz)`Cr0lbOywom0>Gx|uMw%4l)d+H(F{tG%_h%90a}YSwPx z{wJN4xzc3ZmVOR69ey#O|}!={}jLiwzgWdn7(KFQ%fCo``>@qjSmey`A~`%@Z+g zeC${Cu*&N(onGhjOr_O`y1=+Yr&VV4YFac>8+p2~A=_aigPN|MbPa%>DS=*R^r!++ zCy3cgg_tc5kuYr{fH?qMZ8C!>4{It>N=Vaqhp7C+CrW2Fn5>{Kx%@7)@smg9t*%¯kRY5>dkuRjZ#jHyF;>kH=#33Xzx-j^&Bv z-560db8!e;6Dmd_bse?yVPic&b%yo*1H1D_>lop;M}aRV?9Ln?HHa4?lM>RPXPXu_sxrpvb$g!rSGOe%AmG3Po&Dk5zi*b85U;I!p0tiInR3L%SIT` z^CG%I?A2-%r9K!5&+k-f1^Qp^==O+HDY z{YfNqmARO&tsXsCN#JfX!QI3le9+RAYSk#CRIc zcIWqeHTQcw6}dCJ!)8HqoUw{nQ8Oo4%ouuV5uCj_C4-dmgwfpZM{`%Fho_$z{x`I3 zuhqKmcUl({l_y5@u2dU|2N*iF|K7WMw)8bwM~Mz8v?Yjt=(kWaBqgkNNuhKi;*z8t_@8nAyhZT?4n7m6{v{&XnR_%MuW?C!W5~IrBN2?7;cDh zLY>x{W+m23XVNA@lUc8M3Q`j>=v0jl6cJ?}kU6AG4{PJ7C8owiy`l#ZMH{`EZ88*L z&67%EFd*~qyr@&nZq&KZdK1%)s__@pJ3j~rvuX5;4W8Q{59Z_bn|F612m{?I?o!mEG9JfWi(Bot}stj}M+Z+Sd`AM;iRZU<{1RDvok^eiMR6s3zEFKYEz^zK3^NskwmdMt&H9Ycv&{dgQzjy<6m zw^tS+SiOUYRMoW6-9aJci|r(9I7!sP(a+z?uP@w4FD=iqt9-uM7`R4qhm7t8l7lsZ zs`>_uhCZWVv(eB^>)<4=)t0zg2b<2@w1e-uX)$1zHZARkn^MVDQ)|e&wOYyaSZzC~ z8XuyD>On&-3F}Aag;i_p8;?C1)`nuWK}cdSjK|yihk}C;#U9}58ORm=GE#OpgeOD! zf+jYX^^awBWsD z@I+@T-gD#K9o?O0PMtY5KCnI)`$M5~=+ud^Uv~_hIzIMBeCX7~*h}FJwYldCu?;~y zbHh{5?av2uL#KKJ7(0B%t-9Y>rdJrt^-ALgJz%sNy*|Ih*qcHgHi;&SpjWEfYnA>J;H=`Jr6obvN z*fcTO$Yzs2v=bF{tTq($G<{#OdFZE}^E0E5UK8?q+~{9#^j&H6)l%XgSlo6|@OKJI!W(dAP<>c8|G~-9&ht6kt9WSC4LsACGG%I`{1vyR(zHJ51Ko z^PTF+1afqZbj9Wty0nvtq0`Tg{h`CoaI$Og+*2L-xrGjOY*E+q9qJ2-p>t0sHSFOg z^YaR++L0s*CN(6Z;IHNtI<*rW+VL@CY*m~qTLwM(vCe$Her};tjU3OP?4ar%%XiiP z#mSDL)5pjDND30A#(qi)`pCI;ig73Op=&r)lQ4_BxcQ!^Qz#!uV(qZCc|AIEMHUN8 zsfx5YCg#t+70luN;NW57!(h|=Fb%mc^QKuiB60>cz-EJ<_^?-}sT*-% zpA0@aI#SUEJsZu`F}#JEm_Z>vwxV63YP6FNjnZyhfr|3d9@-VOS57mpJdYLD-gh2b z+_cx7$CftjZRfFtO?%mSY+2LZbsk&P;qeGYEgCzLL#JOzaxXJO=1-JR1rzY=L)T|2x)k zEVU@Lgy8&VcK`fz|3S#6#9-s=+i&GXBhJYM)(u07f{B>%{ z?Mn-(rAdk$NG(kTPl1K8)Qn@Pxo6_^sy}lYq;X2Uq|7~Yipgv&q-NZ{44;-BONCCS z8dJ-NRx>qDsSRdoj8d1{c~80WQmW)NQ-MS6Dd2SE+;D2i&?(@0?bb_JRBRc}mz5x_j$AbSdf1(2jey zUW0BlfNpeUgmqUq7-mE1v+`0gN!$|-vMu)u#TfARTk|5x2y8m^(}o&0Zj8avLwYC^ zK1Ks|?Ck!5U^X28{ZqL}{M0d0jWiPfR?#)1Ro5}t`mmuk2rJapHY$c!wFA5aYC{0F zcyK&69DL{OzTJ-vWn&n?hfa-;{b4XW?0>E>J*0()Al zAjQ1z)164qW1e5=8ajP)?Dw5eYb_^ZFOa^$_k*e0v6)FVRa;N$T6=*r{g$#vI!<#J z1-!938%U}aN~X3j_FJlr^mODAQqgReeq1qzk?b-*L@h&Nlj%q>p@Z>s7_L3*)M*75!LCBRqYCrh29E z5p@>h@-3=o3+j;x!@fQ7U`*u+g9bR5Fks`_({{Xne%RQGB8#`E%giB`EXP98!xGc2 z5L0*SCw%jbEwha+(~T`tjV&w!cVmJ%cZlTb-2TDf(7M>Mb2#0>lJyoH?pR~o?W~HT z1aSU{NR4`R_zOqWh6o<>#f+jcZf_V1cyE6$tVOhzJ0iZq9a@3bS6(*_twwxkfh5Rq zNSP3sh-0pVwUCxO?EGI1tNPKU5m|RSdKm$woF-g5+wOcY4~r2j7(7NA{l=r$hSiq& z?Mk2oNqE(s}uRNqo>*L39EEuQj8v-}(?kN)I=Fav{Yr2cs1LKNuB4S3>UCh1;UDIy70d7Vak zf`S3#BP7#rl1$?+Q8d{`QQp$lNChg7vKXbe8Xt)oA6a93MB{0f=BwuPn@DRauY9_Z zUZ4K-ZD_b{XzM9?EFFa-tSPYVpER}=tyHIbr>C z+`>;0GYJaQn4aIOeI~q4dl{=@_33(40g?$kB&ZW0G*5@{Rx!ia!By;lSS<)2olD>W z_-U%Zl%9VU7E(S}$MV5a0;cq82Db#!oq#eYvMNXmmD$~_ykZ~w@GfGnM$5y4CCEiV?6T4Inzl3c3m!ZT5+7Vyi@MBh@4UDO!& zfX2Fr{IG ziSwk@f)Ok}(^4m|b=C*N7DvOx(R^@_Cab8BAiA1FxT!Z9_g-e~oM$}D_1#wn-Eia# zO5azev^Zni7iNP2x z_JnC62D)xAhV*?Oi&JzWCV9vHQ8E5f^Wuq1wrbKR(}jKSBhgYG;o(VnL{_BsG1?De zvL9P-TM=WkHq^q5I5d!j9Rb6Vt%%%2clg-x93IDpPLuhJAq(gK&O)PSQ`D4~1qXnmNro1|l74MRFKbshSA_8I<4>A(yfy13WV-iE*h z>=I=CZSsw0zRK(M}DK8$#^{9v%Soy-yHy|xpf_=s1GX`Zfb3hXfM+hW|8XB_wR8~1-eLYs{H z?N+10AJvldLBEpOrC&*c#py8V7fcVS5tuKV#?c5+9%1UNlu#IZTY(kdr76a>5K>|B zM>SU~7^?{hZ8pRD7;nugdr_SL-%I;M;iL6wHLRXW)7llQPE7-BQ*&Z`7O;C^0=Uh@ zP5NA8r^wk}UNGVXYJvMPAPwZzrLxiheDlF>ssjY5-CW7>4r{RJz+eGGfp^$m&+X6e z9yrmtzw@K9oO<@?-1V^zj3H>9-azkEY{PM`Blvdi=nWmYGLVketD&gnb+_ZC>F~yigOK6Lv$D5+2u{B>1QuZ_Eh(IQ9uzQN0%Gb~V&(mo$}6_j0?E z_{qyV$|EEfKQ|tx*Q>_E4;c^KVLTk;V!NgP(-&!pk7Hn136*b7FUMxBr|D&WL#=CI z$WG)iFl6yKHgpOD1B@~q+TRE5?}zr6MPBK}AHUEjU~MW{7l#iiIxTYp8J+fxU7BGs z8XhG|*W>9Zx2c}#b~5smSIz5qFG2YP*nlCx+CH$aG1G#Zrqb3B4Nedh^Mw%ED}?c8 zZ)cti#`-jjNq)jB9YClu*-cAxX+MorILuRy9%p|+a62zSn}wiHTJ8EMv|Vd{96c+> z+dJs6kj@Fr!7;F4yC%#XB@{m%#$wpH!<`Vg`ti3*?qPHI{T8&QN zx(#@s#rf2cwm)FJABc%SJ%);>g$)`KNK4eSbw%>_82;S)ApvXKN|&OaLeWXiNvYtc z&;lNSn3pm@QD%=xXLyWp#dLd%jR1!L zmL|C7bmkw!GC5+JKkc1=F}AV_tP3|rW*Qr-Fio>+c>=iJfR&&v`fq57olGu(=LO9R zy?ILivPi`f;J?|s{L77=tBjt@jh;D1&opdG`LCu+(r670d+%b1`uO^_wu@7D*{K}8 zP7Lq&j#QA(y-PuzNdRUM!Fzu%}8M7 z73>H!1OCAfI^LmTqfC9C^Cqyp(ivB)vC<8VM5Ebs$7hvzm}(@JDEs}Y=SCqGuzYm* z10|}K(B01zTn5n%akxl`bon$ks)gf_ZaUZB#An19g|~2y=)lM{x@HQ$7S`b~3o#WMDc7wUNMj@8#oV(Vy5$f-?~pqX}{odk4ou2JqAhREoaVDX}_j zh(fU@bDTYhRXz7LQycRD);41#9@_hi3LeY#Z)!`7$}5e49tA3MV=t04;$NQY7!21I z5W$5$tT!}vCpW}#qZn5mbMOZs^7j@Q3^?ys*_udY;k}C|{8*y#tzFr?8qNZ6Bngfi zx}#b0US=*F9OY3+IRKPzLZ!8+lx)ElHJbj=-NDx3{+=yOJMU&kY};8aQqz0~z;~-P zfC;x*sccjwmumh^7u}fCu7`LBO@9$>NM-EEAz9T2(z#5m zJK5PRP4F4?-U>Rm$3wr&??2<5;sTOpTRjO}UCUI|`<|q)=GhcKPASq! zMUhI&X$9^`QO~1G<$QTE6J?Jkbd(O89IbG8h7A(yYrwj;1+;u z+J&gfo?~1!v&$zOYcX@kT}%C!4DZb%Sb??d$SPw4v~vNnAMVz&<`?}<3!GgOV^3LJ z_*lh>PCc2*nbqmPlMiKK)R;Jw1H;As;DI7WkM5>~PAyipq*Cw+13uc700#~C@vT;| z($zhsN&IcpPDg+k4S!JCha%y^^vREdS!xLR=&V)+N=a@NFoah2{nd)L6;T$mK93^dh2?;CNDXYPP zEfModxZ;UJpIW5}2DQ5AwA)QAaPlnz-NY_+ID=gk2hbI%C8xmG9)=;f3o?Dw(TWzc zNj7?fDC~pNRWy?fAMa24mIJjt1k1O=MIQm3Y63O=^l_f$o}9ksQdo@Es3)5!i~}Rn zZO2wPDvBHH7E#0=ZfWJS(jZky8pspu7L4H)^N%|O;ROeL7XJW)8pTW{UnaszA7AS) zX#$o~oCfHEe~vEw?R3=agCjStRi#uP7LN&^3a-M{6BvX~ z&eT|R6N4Bc>W0FD=+bK)k-#YVc=qSpzOWG1`EoO_m_=OG1E})dXWT)`ukB`s%a> zr-0LTepmhGf$E!y@2$dq@#m(J`z@;oL%7ZxJ^!FDjI$^z3rZl^T=TZ+#f5>{>ah`st(9Fc5HMGv zrY8MXMKWRekTYB0jGH75qpbwRPg#L)n4I!`)5)ya*}Pv(1Hk&~w3CxfkeR~BwB!8M zT5qGw+0Bj!ip)NrE72j#?u?GPlG z?tZIb0}{#R=^xDs0;(nuyeOoM`DYr=yyg`Kv7x z?nJAI!*UzGDTQ8KU1dFd<;>cCi}50bRy%0>y*L-qLWqG+RqR?V%RW4X9D3Rck*$AD z7aY7Kn{44ky9g7-Q=(kVmKg?mnH}{s7G_U4wQ1$B)DMQK4i*TNTyL0K$r5!x-?o#R z_kOykMWsE7xD6!jY>{n!wLx(aUaIh0nf+KiD+T4vW4D=a5kV;Gsw`HNuA7a)VMwnR z8LKQ9vb&`9oUA0rJdNRX1yLld0Pvv_?$>fniPFg|)oAMz{}mj4oSwG$x)VL}gwB+_*Pqq0VwO+pX zaih>rxLS31ag{>!6acPDJn(F`NS(qKJF_H;inbFS*<()XZ>nW`6jh`D&LYjjbpB+s z(>tjt6$N*L@uZ0fpxF!sY;5ehu$#jiqo<#{jm^FD&7_r@Y*aOnP7D)qL?9H$1Yy5BvCWE#Mq|X1B7Q} z{##5M{e5mAo-kyLlvPj_}Mft8Gl;&!_YOkXyxqRnXcM9faK$#ejEm}6nciA61UKFwhRzp!Gk@Uf~8e(tj96~QglJ>E9; z-)$A2G}h-i^Nwn0ZeY*ydde57Q2nxnQ^pddj4Z&5^cUxK+3))*(`i{U6ESM zUh-sqLfk8ov{z!AFJ=Kz@@4R(MRq@zKuuJ9Z7PkQ;<1KavwHt`J=I$T)?~38R65(V zC8-ShE^0j4oQ44s(_}RtzY0MM#JG^hI^V(G+u4Y6E?zWqa=|C;c~m#6v8eF^^01wA z`dxBSTHZZkiokuy#Kc?9WTI}3xR-*kz_kV0yN1F11;1)|LTnndR*RnzB87A_(Fa4H zA^Lx7vA`8|F-(M^h8I>R0oU%#{`Yqi%w8mmsI#F-M|I1Z)pXwR z$35B-f4$I4C0ST(t-F9VatyntST;>Xfx*az=;e)>0Rvf41`$mZl>8F4#ydw7$f~>> zzRg`OXfE5k;oBL^#xbj)3AzsTgY=EBkhwN1U?-7OETqFv z^S)-=RH$&xLhZa(q6xm@YO6LILx$8wpe&u`$?Ixn8%3*qn}LM3k#{#395#L^!9mGP zU?=A89PF{&oxtwN-3j72UfX!RO`h*lmWx5*QN>LbkKC4_Gzbh0GaxL+9c7NocCd#e zuGGKWBFP+-i=qTYe-lsyMQNuZSlDT=}Yx!rIEU{zOTXRUKN>P1rsarsarOJk+2Lb+CYy=78?SX{# zlw(-g$h*q=Y{=&?>%qCGZCz1Y1v?bE7ofRPtBVL{m?7xvUc{_bKZ|=NA1r}zV0wW_ zHgT2UHKKeMEaG5mj^>{B^6*@UwHsY(^a`k{NErcJFwWZ*(96`_L}83_ZKLg zY&ct)a-D=SS!O=^X)Kd3?iC^p>d_0$w9t^wz$+eO)}JpMnnY;B<}x3%XvO6WPs!_~ zyamO^${X;CC)0`H*v5=Ad-GVtg!WjuO^966Xi*|^qwm*XlRUmwetG2z&bP|~bB3cP zvhJEutV)VS+iYW4GMi;9o)J*zPXzaDa)qn=OeXoiCuLnVat6mv_U8B5=6jiTCQ!b& ztcGZ_8e+0_eBH#!se_TGa|3o|_AJ5f3q=~U*qpGNkm-=KBqZ%NL`nap#Ri*C9MD6Q zPD@R6CPjxUD5jBC32|sb4wdNegF(ZQU6Yjjxs;Ur^sKJW}qt)b&< z<9ybQ9yp(8-bmToL81LI_$$E?G4?`2rzde@k1lurCxsv>hj5hMJcWhJS9AErp0-eh zhdv#v);=R+WQ}!34jq{>)r8V&Dr<^+9wwrmCN+^&RM0iO9OPbs*KE@#Io<4ngR;A&!gY)-N&Et`S+K|gThplTnL{G z40Z$;W@7O_$VJNEbEbb9>Ka-Gk2+hV|~D=L$pJ!x}$zJaa=i^5---F*se-*&o;; zeolOHz?6eR949CZj&(w4f>t{GLFh&pr%jjXe%$=2!2M6$`Gi|1kpcs*olNnVN$kFb zT0}oW!E2phBe&C+D0Q)uI^TGZQf3*0cqzX%dg=9ZdA%;LSLF3Qc|9+$Z^-L!j!c;~kMYp6ze@Spq8;_S}e-u~^|LjyRodu>~2 z$F_l<;qCnWiqVn4LyOt(2YK}%v_6aO|6rJIIpU^%xP{)hz^@<8n|=vCh)YBC_2^7o zeoNU%7s?NBn79e%`E-QxQo(xiO@M1DoPqK?{sqQH=z=`mQ)V=Piu(dO?h)b_ z0K22~E0l0V%ZIxt?EipdzsdOU6&(7?6yw9JP?WEzb120Jl!UaWLE4ls9j4`r+fvcf zsK|Z8W~0W_IOVgfj+GI7mePk&dM@4Nb7`0flBIDA=ffH@iw4nVFfvb9!x<(02moW` z)2&|LW2aEI;)$;Jt7D6b&h~zV0g3fk`kgwf4uV+mJ9_#b^(0C){zvhHTlgnRmu)T$ zr?3P;Yj4T4FfpH85W%nZtiy<- z6)46ZD`>RG&;Hm60Zs@w2{oKh<0MSw1YA?KVAOI#t&trcrp0(Xhj4xZ7yxH5zU=8Zt&h(rAbn4YwE# zD~yI^M#JSs!+fIwKbyxt<|Uo_Sy&b`F;pnwb%a$fU00`{F2ZHvo6whIKqbO;JWFG< z>6An@VrsS2jCuvo=fTu6?neo+&pV^G=>sZm7yAMleLe2J!4nJ|=BncnIC6^x!*FVO zIY(7oM8UVwNF15w%@uz`zekSoh&q9!Dl;!!!Gww7Yg=}nA1OQ4zr7m z2NxQHHZ#8rbe3P(^V9HbzKqg=j9yb$a96k@d!L+#D*80qsH1Bi=z(INe;CBYnHrcj1R?OUS=oA(}o!& z7~_MK%mX;uaSht>7T8fsVMjH>j=CClR9vqzc+*$;s$S{g4g6^M+oI`QOn+EdJ)hPf z@hj7r)@UW%D$V72JN97E+c4Z&SDEdf&vkq5rO}xkYltCHxdw4pJ51&dGd%Y`IWi@g zi%|u14}_f3zzJ4clzj!`#>+uygVKxH&P8Uy3^kjQ(UP8e69t9~LpgGK|Vs3Cq`2m+GsUYhhKb$&*}FbK=eX z6yP$+GqceNsQ<@3Rdb()3VF9))42SFJ*QEYBW~|$oPav9I5KN+rl`P4Ym z$Z^^K`Sp8nT*geEl=Cv#wr1yL+&vYZN3u6D%iwSh?^wP3$O^RR)W%36!FNkDS^Dwp5&F%icv7yL zW&U4?J+wiZUcFS$}Ua_dgk!0JEz{QcrOdTIGCj(uL1q9(ZAwY(UkpI>DRESJo-=kN*U1w4nt2;OQm^cxKy66cyE zHWOgS`^C(BM(j#Z_vf}XCoXJj9>=BNs_8+VFOh)_5v*yXABu0vCP@I%?&81YI7H57 z5ln5Kz9=U^hM3wXAk`_Jo@nFz@=auq$FrBgw2XJu!vv+oJpF>{@%#jAm_1{2VMZhE zMPGIS+;+nDE6{4?uO*)bqs6>zT)B;zdcx}p)R!a^fJZdtgumTrXf_%a8VyzEMB@CN zjDS_%J~}en)3K}{U3dMUqSdudO4mARbuHStJOr1$&87#-b%c7k2b=u=nI=xm!paAo zZtK6CX?j*1rae1LVnKOHkA4=cC2NMHS))jd!PA_ufTG*htc5FK!s8ffA!5)qm14tMGGi)Mt*H)n8m`xp<_NQ(7m5X`f{5 zBJFVMSc)B~uo<~+J-hn1ZSP+evO*V7;oK0AuK8u9tBHR1uZ)PjAR_jHC1SMG{cfA= zz$G==6X0j5BpvWbl8qMax0g23Q}3aXT-BFtq!*--o}xyolSZQZ;G0UC>IG`5I;(+} zh2mQVc3?pjzLL4I7SMo3{S-Y3FLvKL`~#AI`3+zat#3O&z=qqj%}oiXyXv!z5As%m z`$r_XjQdx$IDxD4c(pM%3+U^2Mn^7(V7PvzlL@6Z}9zAt_G`&M73GbtWRjQmY8wsmb%Cp1J!kL1?sA~Y~TF8^vwxIrSjtf{`=Gq{ViMX>)$pBhSG0_ zyBL~DZGgWDk8QhI$4^0-Htm{X>i*tC9r8_*vVv2tgtE;-)!*9;-t4wxFK$+NNovDo z`}leR@<_|=5fW5S!2J+Z+Q);$o8;6@Q zEjO*dUpRQG6~>*DrthDeawYU}^+Mw>Y#KR{=nS;=Z{M+PXYY$xlazx3}lKWao7wZ+WZ{|nkTKr1cX;%D&J8xdyt$; z5GL8^f4Ttac_I59o9sN1tOMmqh_!dR*q$MCW#x*Dmso11A4(fTk(-^E4FENe9d<}oyB~imC&796 z33CgW#rZPb>t$j6%Qh?6V(_qjC9}S6(yX8E;+@0#IuGle`ih71z&uy+OJ%*Q>awhV zSy(^M!}^zr^$W|gz8Sny?; zuMW=}JUn;mD>eZFSGkH`D$iY2m*x47gy&azc>bgFi~B0@d>b9{xpR2ymYsKPpMC@oL~KCR5YtIWfaY;!unTj*2_5VX1yqyTPMwW9Be2f^tXCg@6^Wwshjn! zuHu)6=P*9+VZ2jc$pPpCL|4b^ToGEik_cisZ zg;mTR7vmgB-|OMKQ(wt=`lze;rSjcXby>cj623p`;rpqwe1DggOgVusYsj1y#-Fws zZx5Yc0<4*1JQYwOjYPu)lPm{k!^y z#YetVr9KOXi392G9NhG$vwXxa@EY&82VPV3>2%ekp1k1GZ|r8`Yh!db84x%2Z`*or zsCDbMySLKLz}77g)ynVC^Z(euf&FgMjQ{5KM#HDegO55n5)L0v68@OY1U*G6`sI_U` z>cHCTZ{D!!=Jo5>R8K!Uenefm%jI%?O8=XK`~3L|WmVzN?^2cVr^agAV(~~zIug!C zTI0zU)iwV3n7=8L4JTT|>DFK@k?PJijgR@)2KMgS9n25hGms~y+@%7<_*ce!ZQY5M zY%G}=Kdc;3>jBW;8fl9qB0++S>TSttK=dS2k%U@>3KhxjEI@jZtZI#=BV1Xn8$ax! z9N^KK4L8Rl<6~}!16h@+a7$;nJu-e+9e-l12EdJsL*rxfdm`y%Pp~D~)s;*H!eLsst&ibTZ{$gopVKc>}48*Qn46_GXCP)s8amD*+d|wMK3>))h%-7K|UBOY}Z9 z=H=Ej6r-n_Og7!!lI>1MGT?2D^DCRe@l;fQa5pteuDhwlNVG~qZHjYwwJF7ScT>tJk(Pv~ zDZS22t(TOqDHB0A$QVVp8HpaFBoJnJ72!l?dqmRS<|Oowv%M|xa3;e^A18&L$H%-a z$?im!SkV@aXNWRN#u8yc(;bV&I8Tjr$-7P}&&i6eaJo}(swNeSv_u#dzw`04!L*80 z_l_NL0j_SsMZDe+b$iuCqP3!>xj36%xUCq^m2; z)vL|NV4RzKVr))0m5N*KKQT7XmSL8vXig`$>wK=3bdWfa)Y;n-4X4*~6W*3oyxR~N z8<(JP!Y`&KXlgPSuYeWkib(ki8wE9z4u-o$f#-;AVfjcq7E`J?X)h{m#I^~mD_BQ# z#cgX7H9&7pv<7wAp+~gEboFRY(tq5BCzjB2=fo1*BAINg9le=f)yA@sbU2G9f~~P_ z>o{+rGY?YNd0Y)G&IVJ-OpNTMpx+hFwnRBuorKNY9_|gYCJ1y#mN0gKGtU%_FV&Ka zv>5`g;3uIKX;T)Jk`_>Su(*!;{2;G%4W6-%Bgs`MX0YzC1VLN zpj{gBLWOjhS8!5bc~hB~uJ;uwtHDZ18>sLLVW9qIy|6`kUoai%O6r32rgp&U^V#M1zV;iLMt;9f%hS}db1d|#B$G}WTM>?5Z-l11aEgXP4vQFcxuc; zgRG2tN)w*d&6~%^HgxUUIe6zFT&sHqM)wTv8VT&WGjPY~u6y?k1n$iZ_U8gScMa?r z`S9LA|E`fe@a_V4?d#8tANFb~nCuERVq%pm#m33QTwCXt9E>68y_9C(q=Iyq7^6J| zm*LyMkP|NfKTiBxzW(L-*v4`Q?j7wTbO(ZiBZGV4g8<`!zTrUs;AsE8eBbEc-ob%A z29EQKji}&5awO42^xmT5od%1;$jqiAA}7B+M>m){j^6@z(6Va6APMJl8H=juon4M2Nrz=%pcA z+oAPoJ4rUJu%+p4Ry}E5bW+l=9$Jp@mp-xfdQ`<@jrl0%#d==P?~URcoW(b!oy9k# zrMOSPt&`Gv<#l>t^U+aOhpfLe0Gp2}tFLiojE9s3QLqfW{WA+Ze>`B)D;7VC_vbGg-g>sj>B+fvL+pa0@x! zEy;AmnDE?cN!rLV=0G>HGrp0W@j=rQrzd)#zkD4%ReNzM7%n^A$z}Ju#>eKt1(1O~ z!2U0?b@$x8UR&G<4qmy!bS{EAtAg;q!%Qi><%&#i2Ci5Qe6>25)nE$DiL_cCNyT+| za|M+SV%&p!W4*c-6OwA%n@IY@TH{g__ghUSn>%39=4p+J*63b5ez=DEf1?XLuGGg% z&QMw6=Q%BgLedqse4i~{V@uDqrE6_zzb(B$(hGrrq%QATF@Crn^r@+gM!c;dH3>4~ zNgZpDg$Y_3x{_g4^<-cHpwAt6QGwiauiisBEj>!|rH4rR22pb^v%!|WQDBlOK?<(5 zA;tp-AV$U_2n8j|6opWcEE*>sA6o)N33tb{mh^(DH2W(=2lW|)jsva(EGA~Xq8>PS zfO++gC|9jRG)X)xh1^D=eWbc^_qT?uZZ%2y3Uoa20*Y7j9{ZWHQM#&HYp9NNcPGuJwTf2VBQksPiy!uMB;U zyS`)~sqk!^3=D+6d>pMO8nw~KycYAFice}sv7kx+! zB4NE)fERW2VgX*%*f2WqVoxPkM(bRKPTV`{)IxG)yv|cd;Hj&wqLB0-Nv=%R*7*v_I!Z05 zt0^SwDYd9>ZXtOUr5fsL3&{Ybmeu(S$>o%4tXlv`B0WW^bEywa|2QS#q#atkFN=j5&T@a>}?=i4nj+AEva^V7{A;@c)R*vdw+W;YqiGat%x zS7?&^z@dr7gCyrDU2;4`-r*`t{N|H*yt*fJ#s$_#LuXWQ9ybqIk6Q&ekDCu{$E^lD z$89bcj$19bjhi2=#%%%k9M#!8Uvcy^S!z-iV-TCy5{3P)>bG!ajbntC2Gm_ zdu;{x^aUfzbV(Dm_-K?4&}x?rel;T+S3KHE1%3?=z)F|4lAtNPQtB`lJ%^%xa!C4B zzss#?tHycp5uQ{4%VrArqb~}Qfv9N4!cuF>tG7_2tx^|_e_@59dfeU$#a*F#J#*$( zSNc4j$~nHd)fF}Ks%opNYv)zfR8%NLDCF-tWnpTvjsd_|p?;IFe2 zdtE8Qrv9XxE`jm&rIl$dkChKA#+RtQ_F}cyU#j*x=GJ_ZTa@U>T*B?r){l=}0W{#j zhPxtI$qE=t)h@GtD@GSn;m9x5Cu(oAC3=IeZ}RmQd_Bw8b9{Y^uRrGN>wNtQUw_Ki zpYiqQeEk6?xMbOW$k$);m8OF3Y?%CBTDLb-EoKS{SuF7&h1saK6SHIjbB3=!(sH(5 zu)dUortr31ih(y=q;k)tDsL#QY)T&Dzl7vvy67;5)wgruo~3)wFvl zH+`?OTjCqrSH|YiQVa%*AeMG$qF$qIvUk-@%=7tqcggrz2P)0+(fF2P;~~#1l{iM< zn|btQ47#+NnWToYBn|0=VCBu=A%9A-2vMCBC^gz(^xCpK9Pucm z7selzVfRjF?Ur$TD-~-A&&V`Q?xu1I;<<)%zeURub2G6-JJxjC@Vzp-1d20PR~Yu+ zYP2otiie3KHcPQ(1{?@kqUJAZ7D}a}4%vASx(M)`PHcF5%;@6edPmY1gC4d+4>R-& zbUaUS$7{yNUY)7d_dlzx3-vx>ZjIJ#Z@KwmEthop7Forj!O!^8IP-Q}?CrL2yMgjL zrLxu0x!P)RRlca$TI3a1rO3{pm$urQYNe)Jj*eyM3A%t9*A}aB%u*)f!?TT&3k)HK62p2Krn5(jal02c@*Nh(G6}1lQW167A$OGW zgC=U!0n88MmtaaKgYXZQ3=)nRAAKdV0kX!3xP6R>m!e~+a`&ZFxvRA90-Y4wCwvLRc5dVJRs3wb(>MR3V??RP4!)&Xp%0?#wmpn2M^C6TfYM zZ{L7f`c{u)hOUH_W!fEXS`JaJrL`%giB}R-6g#G+(b(#lHv#bJ67Y3epCTaL1Tr&g zkeTuz3D+P&%mU(OlOs%iNL7ej#+*k;WXS)-9D2p<&{;wq%eFYEgw>B|eRH%v&sC)F zs%H^3bsY;tT_B`XQ^Vb8cvbksm0{&*IIM)iirTQG-XF>}^hB2w!cj9B%@O0fG5)Ih z>JvVUC>XDlt!Np5wgFH!88!rB2;uE}4~?<(YX=4Ikoawocx@^_|E>Ig zCE@C80BzcBmUuBtJU-^`O19$tF>rM5z^8ZjjqD5>JDZNUmW0$Eg;(yW>&9SuNLkn< zlac8}N3|*6+~v!=!YyfR??|S*#>W;KkG7AjE-WlOJ~l`1uL&$fRN&b|pUf3(1cbFA z$LngtP!Q(4h(#IHwDDn-774kn03(Yx#tLPFwzvu_w+rd>Mo>pb-?iykfEPY&bfI=L zwc5wTI(91B$CO3goz2aVT70^6X0%AO;nsUwS-X- zwG3;UhnLjV?X}v+g{<2Y?c+oine86@^+G8=0p`}z$QvD+J{0puhtHkN#Tt62IwmLn z=+Zs`glx7E6*0w-c-8bTWd^!~so zfoyw+U{Y-=@<~yV-HP_fVioCwv{!}PCmKSEId1nn6;g+zwSLlle~7N{9vb!!Vfg7o zkF~2z*oAdg*k8{}UJIyN|M(H_wxP+P zsaW{@p@|!YPIffozH;bPXAAE2vF?uU&bQ9Kb#`)aTQ>T~Lg(<=Qxm`I7(RP);_cY* z*{O*ig|^pbUnxYl`*F?Y=T0BW`Ln}k`+XSfJld^pueRDN%m~!ZP9P1`c1pKUd?EMOj=TOv_kd2UA@+pS8F{zascB(EH+3n=+2=W=qAlib;lOYVNYx$ozjXOG+>e5<}y zZoFSab<5C-9(ha~D65kLXscK!cj}V?*2z0X@UCCwYYa>JsKb&@g(k_q=KL|`!~?OD zG4)g@G~`>I%;!9Ng0FTer{gHo^;lQ5z7QWi_ga^FI`Qhn?>lUTK0Y-4bVshf(4kB; zb-mi5ycQpxK9*4N5j>GwQb^WL)Fq@c<*2VEYhRuC^^!t|db(3R)pc^>(b%cZ7bdRj zRCau$GnZ?qFLWy5leyC!)a;`jXfoH;@bS}$lM{a=t6V^(i8nyU7JcOQyBz?J%=&x)bf$=tgF_wvKN{0sWZvDR6CB zh{o{O>1$LdZ0Mgc8GtqURMBh$!xlTTO9*mTq^miSzJft6Q^mIn@Mli-8bzhy8+NBn zy9RCLL_+F~wE2K0nK>SnjC}+->=vMH137FCpj`qv>;<4r0Xcm7r#%2UeCZEOhA~JI zV?Hr_?h_(3R7nhev=zz63pUA6SRQmPrTtPGvQ3V>U_~IWv zg$kYTpFa_bcD{@jVz@RIqS#H)iJb(|j+bv=m0X@&`AQ+CXT_|nWFXq{N+H=8qifx( zae#TYGk)$=T-T(DKX%5?o`TKW0gMh!932LT-jOtZ#46xl)uU>f7Vf+ z@}<0)4_s=`0=MJSJCiGi&jRP;)A3||@~XFz4asGU6rPsR(^ZU6G5}5_8^Ma?a+F_Q zIR39cq)A<_-l6cj11c9dpvDX`v5>06OjS6oNQAZ52CGnD=aYwAms z6fLD^g;py(w8I<^u6MWyU0e?%zXFp!?AqE-Md)nM{YZFe8&}INF8G(7Qa+6QdHfL* z8}ac)B!eCHDgmcWk`=uCoubDTTzrBIsdB@^q1e1%QR-?lRrm0g11{G+<72BLqoX+b zwPwwlK;P(S-+h5SgZB^c9JnvAd)K{mK(rBu*x4r;bmLy0kn{w)rz+#-YiHR5+W#Jw|sQ)WY=*Qowd7Q*ReN z{)M)fZV#~v{a}~2c$2pH266H&_?EJBVf}pZ8xUd^~0oj(}#xq!&{>-Ph*s0<@-JDsM)CPwpNf) z16A%8y;9bPzII$`3ghx2-8sVm`EUq}obNstQp0NV9iGA+YJrxVerb4bO?c5v8p2~K z6{3e;%;~T?WUKJakm5dZZI~A2upk#8pj`6ALMPn}R(S32n4!L5~*l)&eQIuTv^DI%0WD+k^9}Ys2mnOEA+~ z$fCy5sVowLNRXMjvR{2Nv{ii_ONI@p2DAdIsR8IxCxEDS6Ue}=Miy#&xskn4u%#ii z0YMRl&rlP(CjDn&BNepSQV*650f%nu6rYakKI&lM^?p*J!$aZe1Gz)ZP_t&9!R-S8 zn;c*U#uR+=!$J!F*{90pA*~~>dFHATttdg5;Hmo0ssodmtR*S3c9cza&3>9J=n#^u zLWnQGP5=&}x zuuA(hZpXAw13)Z%Vr^Ivu0A;wR>0P;4x#h1q}VL_!&ua(rDIt;Zt#Z;8H7j%IsXt% zqtPY-EpD^Ny;}S9GHu@yZ9g}8Us;?(;kQu#zB2V~IN#3z?gxOS;S)=kXk#6kF{3^U zm33)UuoRC)+P($a{k-DE%Sgwx&j6I|+p6}NqI$eqC0`5Gt7y01*u331!B;hFPxj-87|a~&ljLN?$cD?;qz*~yYc9}4_e$sZI+M=krb(E)J(A`9E$(Y+ z9ap(kT}Bfx-qY#b+MUdj7vN2%aXMAI2B$HM53cSYvC_?3`DU=XOCK3!HOr(D#9XYW zKFB@Qy;9L0EMCys4@LPT%DnkYjCI&|n|5zjySGbve@y!{uQ|F7Zq`062fq&Tbk=o1y-xVETxS#Xn+(PQpq>ex zNQO^z5aQD(mWJqypl&3vG^5)F?txU|{BvA@-Vl1Q4kb2(zB~zV6ez*i8~_`o9Fju2W0fmVI^L|xc@j11Rd;Dhl1ZSj&ImvF*%Z-fy(IHcYGNlAT7yI&TK5Art`*XPs} zy>PGL^(H8}F1^oTGIHhofD$I3s&^7Xxxik?Z ztDHZvWLuQJl8~7Cef@Ls&6Gcyp1{lL6E}Bc%RoAD#kQ=17xrooXVs2+z4GzteOXmK zf4{Dh^Y+?O9~U$$56h5@X*mdHe}@x{xLkN zOA24a4Nc)XC88>&8%udl5qva`JLW6zO?-h&_zf`O8(_kvqd($tJDFWc?9|yze11pc z70;h)`ybFg)2HokV+kBsTqKCkW31VLAw-`UPt;@FiTy#Np(eN8Z;Um+%T9G;tjXf? z^6*(2Yj|n987OT6N-Y>wuEVGzA3Z*Qv6032{AZjvKjL!J5XIy^)t;LXIe2+0t$m1KL z>16U~2%R$SwsA10&YCXw0t|d!I+UNHA+R#hP0Nxgaz)+P$#of?D8sT*Ud|IG%D*6# z=Y;Yv7#=A;S+e4M5!`OeO@>~G%J()h1jO{-q3LHr3ci|!xC1uEPKK~rIDM=Wirg^S z*-5(pB`h7hiUr{K$%)@h6l8q(B2J~+ZARQJE9f!aHme@3#HVD#W_$^4`$I=*@L>bg z!2Td1{U!W4pkP{ILj)duh}05^At=-^E*j5*=)qBd_n zagB*(rv?Sd$6(o;!Y5YJ&K$PsUriw;Ny3>X`1%~~S3sBNoJ9L$&Uq)JEX(I^;mV_R zT2B?Gr$$4M1L0e-RyN}Pd-_&EJ|e;A1>j31cwOTMq9>0-7<#AmuGjjSw7zS!zIv^1 z9zOheucK4^Ku^VX4Dq8q93McH4>tSFTrMPg7|d5vQmWm;1@?Pae$W7ye$W6B-RXlR zdCmt7P}j7td_W5D6^8=sY|?h(ct*XpbDp;Ie<=W~?VqXh|DzP(5KPS-14HMZ9LTHZ zpB|RkabaNie;<1H#k|@#d2rigl*~fN+z3F9Wx;wRGeLj73Ou9R6pSFsX|B-~?>ZOn zsHU$2Fi|u%&bOkhNlY}EV;`ze94B0{l;@${IjB*!lFlV35#NfU7$BZUxXb%-`?4r&adp?oj34Wr?7(uA2UFa`xIPK-d^W=!mT>k z%f~?7r!9ucMCQ;cR?~miD7UMKorpftl8!YasvW}Q@VOhEcpg>V-v{Spz&Z>wlENbR z)sy8(n0lCWXevhT7yXeAMc>DEowm?q^s(~exrtZXc3WbI9w^@X* z5LNs=IThF-TG!?ra99O;f^DD+;Iy%_iZ#)FgV2|(V0 zcKv9VNQ|CQc?w1jZcBckZzQ;HH^&j&!={pC^b3GLpwJFx1bjqHh$qDNQIHcxg8WM1(k z90PrP25P#{o&vV^B{=E`Ptj{x4aMTyc3OBlJVYTo@KO!PB2T3eZw2S{s2@@o1U}H4 zj&Lv@+INZXKrM*Xhi^&7Tb~hOfYtMNM7j+w)o@3)B9H~Qv>%TO2R*X2%+boQsYov& z$A8`D8QyzEuzc+tgDq_WG)n=p7m)%p`WyFq1~{`N#-57U@G+_ro$f?3t2gKVle{Pk zqejP}92l-P?SLZgklRiPZE>w^P9_n~2z)df0S+o6NElKv@|A<7S^Vw=Gam_JG(w#j z;2063P4_M-P-%w664;JH9{%oDhHr$e7b=iI1Qe-9;d_8gfKvPk(k&05%r#126N)ZZ&vI(Yvx0gs^i&U^ zW&vho+rlkb9V*35Wadv4`~$MA~zN9?a8ybwFm;GZzer{_}i9bu&>c|j1gp`r_+!HfcI!Abc=2Gd5uR97=! zS4^WK;p0IJLT*)|T+b@Or-GZX^#lfiZ^pzXkY#B&<)CdCJg6?+wh{@9l7~ODdj_44 zu*cMWxHLSjKA5cWnc4OM4?Ky_9Ih88*iT!aZ*43CM4z1d6A zW(Ot+u)!x5>R=3E@fxi)r?jL&2$L$BiXi4B zW6X`m9IrfI=1lXI$qd2YR4UH*aI`GOkXs>*=jzZSo#948C(zDaQa^ovy71idj6k6) zh7wSEikZlnJQuJp308Ea0ofD;zrFCFF9=IrgMCGy z1cGU5oHD(%GBB4NJ_50|vI`CZW-cUZGD%gW6Gr$$T>`(hlf-GrN~nFtNPJHx)$@I; zuxb`_zST!0NnZwAmVGCQkQ|P9yoHyGq)2s?0&~0*A%J8mT8e?cE)!M z$hKm|@by=Yl0{`Krdp7l$P{%5SSjI|X}xTZCh`Q9{4s29jF2@oIOzZlr!UnC?}wO% zQ$e&-%rKv(FE18axAauo^G|&JXSo`H33-62>1x4&f7*6tddXDILJOKBp2Nio8Jtj` zr^?nCEh=T&Kj|{2)z%Ah6;mhdnGO@k#Z36R7CLdY)wKu!Zd_O;M~Tae7Gku}^BFQ8 z89ht90*w#@pQ<<*V1~oba(NlU47KU6mg%&iJSECTO%qPlJVEo(sL#T} z>dX~b6PQOj0ULk z(Poht7UB%6Nr364FxB+)EZGu|Qb`2N4^rG$wj0Q*YL2xBX^_#qZGGwArT;s6VH zZ@ZxlhW+(Mm|x53>TTyVwAN~k^RWcvC0va*oVZFQ3xKT=2RxH4(x$M*EG(H~qRmW; zrOZk9drH|JMa{VXWRT`yI=?d6Ic@N@j0?fI+Uk<_I0pa|8?!C%7NL-?-m4_7qhUFP z&PK^7Fnh_*5g{`&)T`wY<#qlGSkUa0huOSSzo@i1CAd)YmTEcCqKeMu#ltI7UXul0 z=meWnQN=Wc=@$AKY1SkXqfL!X${j#>M&|9(Y4q;3194;ue+i~86=y@jQ}#8A%p^BQ z_PM>KmFg6cm!Zefp~&jl(w1|qEz5oTM68ti7C;Ac3=BEbz);V;kmWFe zU)(Sl_!vzT5hC`W)b==K>V=aa9eT!Si;|c~O0O!546bc>D5LlDJH=)wmrn3R6=`qo_QR66P2?j{alhu6upb0Gy#Ua(i7qbc<*csiThBRVF|dd6F*BiEk|!ptwX zsmRVX3|0^DtA;1Ux-)A?Tn3V&uKkW7(0?&lzzul$(Z(?7XRdHL;L4)| zu8o6cFS1)+Gt-3WW}?mfqJB&o0y$s+1ZXwp&bx@IW1bNsQ7wuGV+dZ{K0i;Z;`u%?oUGZ)7U-P8>Q%##Vx z$s4@@2C||8qME2E<>k>B?^si*MSWG?4qw*@y`o;g4&N-G3r8UrmIk4n}vD|07j+`zGAZzJQ-_()JmWXo8>5L z6SIk;A>U?HReSjB1|xQAcF=N$F$`~v)eRB(@69~iie2-!Bux7c;7p-Dp ztB>Xmc{zA4#F|2v7M%*J8&Y#zwehD^^xj18^1qVhPHT7n=NkB2NaweSW z$#h;o4U5J{HE_@ zoa^D;X4m6n@>&FH;4_r2r?E3#C!jLJBt687W3Gojs_oyT?O&xWUZO3o(H2)U(p&c$ z-W}n2cA-4+X&Lu>yh`R?!%|lFdy^cnqU9l%^7-cx8&LG>Sw&fEh~zy5AvpBy*ZXna zUeT!^$G*7A6yiR~#<&hfXuRCUIBon$1@KXNXlFbQY<}g-gWGG3FcN>H1O8qFS-Ej| zD#nQqBd!Z4>Z9EVMn$2hPUW`OcD_>JAXLBQW1erxc6o|RF&CAWA<_kdeiX-eqOm{9 znbALRpjp{b$yibtZpJuSDXFY-^E zkwO$=q}50HInEm)%~uG#;n6}kn?zx^nsGL%l}@}OC=&;1a%o=Zy=*~TNK#JE--$_-I@bLD3&v(bhMZ-#0q2hFV3$>G}s(WcKy<5A4|!7{qSh8(ITZJtLup%~0e4b(r(9vy12#wf}^5Y0Ae)6(ALO;8T zNXWb;jMCmdDZWMf)N)RJbFTI&?u)K(Dtt)B(_ri~eFj8Uhj<^Ze&&m7JcFie=WCQ6 z)h967jJqDiYhltc)L%je5$&d^m*7nrXdhGYq#xp!gFnwyBkC!Be_J;Y3k~aFuFJ5I zDe?fUMG!GTyy?#LFpJ(I9}Btk+l)pVgnk82)4iG_Q=0K=Uiz3Mr6r5DZ;1snK1%76 z0Mnz=-x6s01ZR$QoUf0NCXjawXyR0s2g0DnjFRl*6B;sjT3aFvJd3;;8ntKEGUN2Z9KO(XqM~#{Fz6NdBffIL#6QJP-7be39z!&w05bgA8epGPQ81E4A z0fm;-OBAR-pu}WYnL^e{g#H_chZpNuQs|^mSf^qtqS%~_Pjw=oxmen-VU)A+lA|)| zQMC!ZuLA`{X$3sMdLpI}6dbUjD6Q`bfUi5_HxvVS5nSx#sF`p$p3Xq2Dhh~u*&TcN z<)P{Ctd?*XCzi{-hZK9qp^k^pm|hkEctSFeQ~0e{>0C(&XG-`?F*E-~xATZ|hbP4O zpO>Q)FRsuYSgH+~JpBgnx&ESIx$=wT)Jq2;GvcnCE{f1aZ21PFbQy;J!z{I<*Kn)f zG8_6PICrTag9PfEfMged8EBBfK7R$@$_5!csH@kv#*fgkZrAZ}zIOV=hbZh;Pj=}y zqS*!32TBAb}gK+7@V-1gq`k62Xhd9#M>H4WutChWN>}!N?PQ^ zFR-UuB9#bhMZYWQp-(pGdKeasv)JZOOP7R^rm>u3*^A>*8C4z9n91pKgpqz~Y)&E@ zrB>*)37s)RG_uwRN3T}q!6+!RkDUu(YnyS6z)wojuH}?O0%8)kl`}Z-Lbwz zQs-3w_FXC|0)b&)muZWuwZ*bk$o;o6d;4}3GiINx{rruX*l#NhIJDY4y6fIO1NsO& zDa!9UM(805y%m=JfeVMF|4zLvE(^uZP&- zMzH!}j#ST;rogA$#i9MGc(5S(e}q>%b#bruBu+Wk%=gR0jU0MtYE2W)bw`4k1nDWX zBFY$_gm-503$8tDg6kCM6W9I})ITe88g)|co~g{qSY|1_*jPscyj{-C(N6@Q%uRJ1 z>Nq%2uk_MX=!_?G)i-#33W2f_?Su>V=5P=h>j`pxy7FPh;*>KetS15ILXoAXQ{I@? zc!Sm$;3&4n&v9R{OA@%syT`{CIl5ss9p*EGWjf+%>4>Mzj<}IJqOvBxP7heRmE7dQ zg{~a7^lh5DF+VFGhbyG_IIm1npI^!(J})7Mo}VvIbL0llG|OI4+@W<7K#Mbm2|(wS zfa;ZxJG!fd`6j~LyL5nry8td*iZ9MuiZ6h_r7HHKL&a>^(Ut^S-!GEeOMkxHY>1SV+iN1X zmq>1PA~!k++*=~O*GPJGhRjw6Vk3ilu{ew{+blnhfWUp4Ivph_u5bQ_l+u4Oko4}m z*6$kPAo03j-0Ii}^7DyW61V-=Te*(?x9K>8TP*tv!Swoj<6~DtTWr4)Oy`GtgUvX& z7p32*%rx2f$|6zXF8aOTnvx&oC3rvN9%KCK@3;BsHNKu!^r;1YEreUXIAY%~L5zMi zXeNlc%^xzh|4J}5`TdJG`8VTZ%bdJOCF3(`QT(YNGg+_m^(TD&DPMoa*PrwC4Zgm~ z*I)4UEMNJ9uIsHL7X1z5dm-14DpGH!@R>GuFWGDVSy98;`+;=wA6T87Hu5;Vy}t#E zjD9HA@)$BMHaL9GR>K+`{?^fRZB5cvA!n06wgHePDJ%swIb&mM!=Y@a{eg7aA2U*w z6xsDpZ&cilHIIwKx0bn=*8YO6OAlXtlBQ)=uP&j{cpgGkwg_*4Ba1!Fy(;FwRa{ zhM_y%h?iyR3wwNysnsZG2TVnmx~o@;_aI@-ssD`wq&_ z5ash)2k%)2-vqyT*|&G_9&t@BHQ1D4z`9Zf{74w^BZ~p-Qrew1lL5X82LmYo%d=#H z4~uEW$W>PSKVl~MDjZDsk&OxIf&P7?duGZ6`dwaY#BFQKIysPYYdMQ@c30KK^gX18 zA}?-D^S2gW#79JMMQg`IXbY)=Z=RwWWZ(x30Ap6F;G;bs`uJVKg`99;p2>k6QSS!s zGtztKT(&Juj?vod(@wfcbUzl!V_c_?0~jmTvY(+;rSdh>-7)>Uo~f<3$=#!UR;Ts? z!-ek(i#UAz)90bSdXpY*+-kMN)$lE~0gxf%X}!sr4jFbFN*K)T3zL^JQiiMXV`B6Q zuxwZUzSV&g|Gv&g18c8e9T*LKH1O%bwSoKacR&8t&PWsp)n->dLlk9t;p-xc*DbEF zTjG=jFEII5&Po;^va!;V#Y%@PY^|1f3%+Y@04`G&HXO>z;&qY5wGLUlPO?~5Ru=0Z z46F%UKQn*u0zz0{+97@-LimX#1omc}Lf}nwz8hvGgtayvT0*$NAp~2iB_4)vlMTRS z3c-d$St0yHgs{mWgr8ivL#&4oMrl9Qo%vlO`|jE^qYhElHf<;y_^Bldc1B1P z^NMU!^Q=U%#l}fX6wMA%Sgo#OXTa|4`Pyv&E>jdX9LkE~ry`1WhbVqpUKATXP}{U2 zUB)*3Ol0vhQx@yQLvYAKY*T7hvgoq0(vn5WAq!ipJUTmM(QN~8nX<6qP*xT{6IpaS zWbw1|wuxl%0obMu=`yzI=OTokTS71gYpX+uZTiHlgm9aUhn5gN;ShqY)zZPb-v;0^ zgtPp-KLg;r0;pZ3b5SL|}t|&8DuPbAk-VjM(man@_>&&5=_e9B-Yj&IRvy#N1 zjggil@(xMZS}h%_@3sNBOi9>qC@YCKL=ty9B=H7GVtMgUjrq#uc}?X8iFM@+)0-lR zH!Vq+2m%3G2Zw}JlB8Tb7tORk`#z#vKM;v{@ z)@tb>{frI3WeUQELs>zb6+t}X=nH4d3gWW;rE*=Oth;nhByrA?ggH`Mk`Sx(;;bZL z`{ZStRy)7F*;*|fsbBi@C1Jy%tR&8fBwlhz;#^s)G<$EUya>uzrME-`Z&@NRhiFR# zVwFzJN(A4wanR}vCmfx@)@tbx{fZ61Wp)M|4rN8~mWbdLhX~%fU}v~2tK?i-Om*+r z5sx_M)2;ZlXR*KJtAOvXOBg{v<2Re-R3G*S7^8FvBU*(Ce{D*pl^9Tw+IRo``I)Vr zI^98IONf(5T1a|cbnSVI*gtDai0_Qm#4NUi%y?bQ_TjLEX-tkV?u^Me&Lrkt?hc0r zhhJ?ll6N>*q#EBoe<|GjrNzxZXPb)eO~(d@+aa!5X&5G-7t}D~%P)mlZ#tOuOJdfA zHx$fn)jpe!g%j^tQ>T8^ii;?{=oG%NA}{i5W*E#&{o zLH^s^(Xu#TH}WZN?y6mYLP(YVei452VQl{Tz}{WEgZY7b2J-St3|6b|#n?;kOLb@Q za}cQvZ=&%1hFkOf#^vVIV-56M3-nvp=~#P|4!{Fq&%o%ePX}6djqct>pG$U)KvtFC zqs#ZP8N#hK(B#bZcXVW`3JdE!EpZJ;cU7%+e5|rP+?5K1e;uLhyHYXy Rf=L@LuA`{#dv|*JzXKu2NLBy< diff --git a/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~3~ b/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~3~ deleted file mode 100644 index abeddcd63385bc4d2339ce26d3b93f4c47e13786..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 47090 zcmeHwd3apam1n(Ii%PO2mu+DiVN9VILkr8;G6swZR7onSN-9;At4g+H5*#6mlon+0 z!j=x$gru`55MwZUU=l;<?({PKC4tY~nd!_h zn%_C+zO7W=>2LmNgX-OPmvhfO=iGD8-Ok(V3HG)o!>!xyy>DoAaC>;$uATSo+8MrQ z+xGB|ZM(J)42JJPeE4H+xvr1jR@ip$;O(RR+qXY_`_Smnj{9zpr8cH>wtx8FTDHc+^?fBVP|GpZ?_kH@kr*RQV0IiL<~AMD>bxHY_KaO>FMj;;L< zuLw7<3wQ1s8w{^rcgrm+!mDp>zUkH*o7dgA?xvg9G_P4%(;m$w1tYU;_qH)ExO!bU zJ+O1z-DpGes^(QFi;}CX!fRKrteJUnV!!@@Z65slsP!|4Li6Tn99>B-A&;(2JUd?7 zo=C=8v$1GC)|O1S>YjP+P1$k%~1DToi9lhXB!+&csss925wod-4DoK(Mkc zk&SU-eeuLTAH@KVwtTcD8JigQf?rUlc02~y6X3QK}3HTbb%~oiQgo2H^82U}l%(~GG^qM(=FvAN(Q@Kqs3Hw{pkVB64wx z90!9Ol=eI|?r%-^r1C_H_GmIkEu&x}6%{nSi9~|q^hCF$by0o}2D+o!E>%@kCJ}3m zF)U6C^1Dg2K&EH&=A;1EHz<^|=q3U>D=EHgI!%zD8V}}T8+u}?))a_ku90vPQ6jC#+ZvB% zS92Bq)=aX;WEm@&CZR+~R8Es6$(%g^ZO|Q)`~gP`swCVL?GXWx#xTkm7t(CY?)=-W2q^qxsf22W!&MotvV4O)Lol-4!K- zo$rpbSQEq$6>B#c9^f}=E5a5pDkLnR@M2RP<@rUDf|<5NdwWbVvmz7g&E#_%1m#RJ z+A6KD%%l@35THXU@B;8YtZ~QLtf|PxHf6y#23oCNnxfeb5y=H+%%(&> zE*(h{s14X2Pw|M}CFrvRGn5DEa!u*>CNL@qP0di| zmBuPoA$lXmD9#g9FVe!f=9^O~I3jHp+L5^!tPsJ~pU1EzntKifQyn&gkk%6uyuJA> zwHJ27v*SJ*WM$OT8u6~LUq3OvwtL&wp?ij4cs($hoM178Dv9QZH%`v()_x0FM0=k|U=cd%(_Y-lHJ5MVsmKN21o+CH!g zHtEpLp}`#{j`K>DsNh3LEJHw3O_L`HijVRIab71*2b_##c4u&u@%oV;J2^3&yWFG3EMuJgn^aYBmKlj=Bk*JK{77M zK19B{?r0b6cbM*&^dz$BRCf%PQvDpVPXTCre)BC&n7K6Fa!Yvi%`|OUv*y|HH6Mej z%YFQ|Su-S?)1@<{o7gCCW21b?VUTkKzw^&%9Y@so$@(tZCOn7Ogb#Tp#^=HukU>7o zwlHNDQ{8*JvFLX|%`2|442>p5wkFu(QEoLX=RmG62eYgic3T}(Y*Pk=inZC+NnjmP zE~DH{7z1JI*hx2Hl2YSHiDhpv8a{yRA-l?SODDA3e4{}#8oWy;_EnKCXz+mE6>99{ z2%Wiqn!}W**vMEkL0G9}nntKd6pa~Ajb9EyiS{J(Hust`S+-rM9n^o!cI@`-W;QYDHGTJ< z-At>0MZOvZ(Q4v8$>cRN{Tl(3Ow#lT@E=l_)CA!eyO zRc4;|kVjERn7CU=I|G92=u5$9Yilf*OJ`|4Ad`)?C0b!-@7}%JbAXvT7nAv5{+D%|n(2b`}$F%=TUJRvWyFjD~8~0Up&B4Q(Mo?P3I%YJXZ$m?}(v zqJL^=+KxF=IQohHBSS~cn93lb`Np39H_Vud!m+}epXfg}^rjgzr?92ASlALO{$4)< zLkKuh<|Cz!QsyJ2&Y7|hDT^s(AyO7QQ|ghjgi`8}vc#FP6e(d!S&EdfGo=A3%P6G* zDa(omhHoZJv=P7pK*;%I-)60`}zG4b*-F1OtI}`%^b!iy*VPu&VG1p+3l-DLDAZ6lACQztXmuX_@frM6Vlf9S@h$I)^~s77 zD<=e5HQ|Z*IewLLvO>*PXpI#jZ7=!OTA`Z|@{ufSD_KcQ%pt??7t|MgUhcs(Jbb{o znxenUA{(LLAr9U_!RI)5`^Wk5!2y2Umf*+woB46;HT+n&fFHMrg1gxiqJpdAFxH`LmCpF3(lHk>eiFKOQ-*gZy~-Kz}>}AU_^K&>oK}5FU?e zP#uq2kQ|Q?=#9sG5Ie4DJx_CWKUt2_>M^*@ZH>oTyP9}#Y>y_AzGaMj>jI;p#%S=F z-Lr1Ay4(`n0w`-TB(W5k4-*Wm#1Q(@LA6@2GzcRGHc+Bl^BUJ^m12Jf%|cX}=arJAI7Z#={a1A55g z)r{*Vc+C=qR~V~o8b~GR>!dsaEm((Y%gFGN)T)i^^!kZUU!&h> zW29nn$1T0=9P-V4bE2I zP!4ZPrm~IaKzvoX;bPg{{24x z{(ygf$iLshjG1)cxB2%c{7Z97Z$3)KGi?M|p;jw|fULgw5W@7<*otX4fjQ2<-!Te~ zzOkkp87(euJQo#jJZtgZa}{4(uDB%xkc4vxfy_cnlxB?*BH4sE2ZWnh49;&XxMgCz zTEXT`4d-Y;q}3c+^A^%nA&ve)M_d1FWqk`*e726uga0s3l2ylDXCuJ-CpH4!21ejP zcbC(E?la5cAV92Dh=s+Pp)eJhXN zj6}C_E4OW_qi=CrEQLF)+Ji+tlc2n7W4A|lHv~iLdMDEB8R-RuayZX(;>>#m4uoqM z!z88_w`oC>8QsQh46j6vOw@QI$^pad_fCX9c%Ci3-B!KW)H+*xZ+C*fox$IFMuLv{ zG^Viq!&${}RK&hx0vooXUSV%pYRubQPI7$La_m=WM5xXsQXN=OYR6`2{z^zxwUQ(@ z46BVh^c7DKc^q2hj`Ji(#1;VF(zDT;EdUWGK_cg z4QJ_}zS;e=1^dp5#P(LCUE`TLsgSzbXmQrxa<2MoX4l^;OKCKMnp>aeUwf;w_ExU_ znllTW?r~ZaZ8n)@pT|+{mF46M9lFg~UmMluDd~WwxNbPtFcM>I&tl+Rro^FrV%!{E zXqU;xa<;g&JJD(xfb?7r4fj&xQlv73Dk)fMNq zokh@VXA4@w7Bq90+|i;lj76rHL+zQGx7SE;?dKjUI&JFZQg&Ul`PS)#-dT<|G-ISL zV(sOhgFsyjWWi9m!NxWFq`fT%EPJd;I>(x1Ih;&U?>U#Kcb6+YU$w|__`rcjx$!E6 z1*{F|aktweMx>s@5iDR8uw)f~IWc)fT;pDTH1SMl*YYDzbQS71PsjDC$-l41l%gK% z2OE5@wF51xU2WX$t-+|FT~EtsS|cxX=*V`!$fClP7g7l-$j++ZGNWG;pk4x+y9l7U z@<0jSCW4s<%&3DhLWPK~QLCi^GTtIe{%0~#DicN#hkBl4T~mwdD~%uAuua zrwVUi_UQAaNi|e`530W|diaW{_Ixy|MWUKsfBE82q)^`*zq}ZYTfumNSkQx^Tvy9v z*x=DH>aIp&H#*zx>qX1_v1~S-?KT!g@Dhl&b>fi0dIaa@`np@v z$tLqujK2dDnE;<^!7js1TyjHCG`X5qY8p^?Gx&cW^XqS>3!?7GMoBf_>~M5m>*cZY!NCbY%D5igF-XntcO6RQ_% zLRUn+FA&A`Dr$9oC>pt9!1HuQ4@G%a*k$x${^uaJKZ?cW`~=~d?ba%dK8DnX`WHtJ z*MV~k$A(t`4wR=12*O35YxGs14&vQrptF4RvH?$Vbn9r)x%wV?gD??|@+KtWj z%+wn;?p;XK@_c5VG3wEA>I~=JDnVwwQBDr&cgP6?y%A5Q>y1d&kjO7<`1dCMT`Mta z8$g#NiL{bLcGsvK5`FE&z6t_&hXS{rLHMBbDb}n}!1FelE;-g?A`L{@^w%ZX`Fk6K znf>d`Gdt|e?@CphXs(K!nVn%(Pz_sV5%X2$1c@0#S1p3GJEvrjQm!!Aeka&IH#0i# z)ad_a?yB{OcH>T)zgh)4iMKo5MuGy8Ru4XOU;o(FCiB?Ve$SGK-mA$L1b62IG!jb; zD{WFfUFfzBDXd<$tUKD8#qkw%*@^K5=Br~9*@NSsPmRw}y*Gt*5mN9zIufAOf%URg zv)oo6jK3_kaU>&P?fKHuCRZ6|w9yoEWi@OpnuEpX1+-<;q_9$lRDBDP5X5;Nsy;W* z_>d^iF3tFm1}Vqpk=E-bi8{)(-?NZO64$jOLXl3Tq=^`JVkEghVraYrtD_(pt{2m4 z!mOm#EG!#+3;DTep7CL6-kqB9VQL;}_g?(9YbSve0XMWA`~Avd8Cl2@0;$N zn*6oLxC?kW^qiKWiVhfCP>9sRE4%|$sGo|AoScpyNes`te8}^7XZ&(R#g7ihnR5mH zeS@~9y0kwUPV#Gne?wee!d)D5%n>6w-|UuWF%_W7yXA3Qug8u>H%F!9aokgny^P5h z8A7~%Dgm4h&5U`BEfpn=s3F{+CE{q>M~$8>6!Ltzk2(X6mF4*LrEY$_+(8e0EGm)f zjUiT6o-Z#qdU*8pyv#~V(|iQv(?$b5_81MjjD|7V*Pwn?WA-cawA*yLiHU+4X8Ui4>#Q*MjsI|x=%AcQYuFMkcjIe-or~Gnr#8}J{!?T;Y2TTP=4gZKoA3^&$!*|H&%E9#tq&I zW1Tl>v>F3GzsINSCm(j76THqfF|H>t%h5YA@zA@vh{6YOc1gB-uZVbGKBUbtEvmz- zq@DWtna-h0E_bWccR{r>`K_A8o>Kr!^VVtK>ZXB97Owo2v2htdiG*w|HLm^CwSHr4 zrN!gUUQgJW4K9JMq2 z9tXXYcMk`B56gphWAz%=2zree8D6Om9Tym#L0|^~sZ?OMsu>6i>^&kCp1&QfGWGGe zOCL{1rbtT{LJ5uZY~n~lKiY-RA9e}lN5$NHqf0xMM857PyW@+C$&r(9cI(GdZ%qEO z)0OSR!!yry78VyfwaLcrH#)U9lOr<+QaX+aqzac8)3uXzDJf1d`kU$6Hzt2}d9hPJ z)};!4E3QDR*PGk?}kPQwe^A-ghs-V*q1stKEvlIm!n4psr z1sso{a}os{hKNi>G3+vV?ix9Hmtr3ZrAAJo*zmEDBb}-DP8;1LCysS?LNT3Ajq2T; z|E)i{oZHGxEAo&hzoC(%DAo1e>BEtD*K4RKf!~H=9Oo{&aO5K1`P!E2(#z7zUoR$9 zRKku*hvS{E7t;+1`mK8-2{2#mN}fELG$m{DS6#^yN1-G)1FyZ4#t2}fmvx_h`j8eK z)zixuw=K11OG0v)2F)Kv^BLiEh{tTs$jE~xXGmCD90A5S(GdcC&!P14E!P#(*QMy? z`Sf+^&BvkET-pgS%IYMUQ35hZdsXbOs^mU zsQ3iMH(2p;ioedvf5MfY;w8To4_s9DsooujZ!1inT=vHwVjHCjpW(W!mBc>a;)ntnW=MSK90PMm(D*C!|&-MxAg z0Y4pyYrUT{|3Om9L=iuiH+6Br0lPps++5J9f=+bX0I%$4=yf$`pCqlTwLTF^%>8Q$ zHCmyiPu#KF<9T>u{JPlo?YMlma^=b}F52}!9NsbX$RN+e`@{EbdyuZ^-4ovV;I@_M zazp5H*G5?fMnVymqvM_fW zwtRRhJ{o%O^uf=LGScbBR7bV7e6fd!l=68iMyzeT2_N4Wb#|G@s)+@+ z){XGwWnG+9;K@?4d*tM?$$yq3W-Z6!Z<4A)wtZ0bi&I*yySJdVHG2>03LEMYkD?M8dyyg~ZX}mr6OYiSz7Q0vZ~p zPVi})nMv_!jswOvlxZ5% zR;YnpOx$AG2MhLJd5mokY^S&+eODV}^~Tr&W31X3W0|=RlmEpdB#AS7heIP9;;+qM zNMvFBB^^e(#kkL2`bG&Lf4_*Cc1Hvj=}l4m++Z4c7*3yvU`6(wFGcjI-g39Ec(-1p zrLa?Gj>9XE(!$chV=ranw?0fMv1;Wg^KwM<9$pcpl|!r=UQKW%>){1%=!a$=DufEK zaart#U*kdI*28NeTFVu^hcAok5xqWY13om9pz;K-zNOy6@z6|jDTKU0xSSwxcXUDV zVla=^ABi6AguF!bt_XP8QqPTndPsC(>6QzB&=sXcP*Al=%J7OJ3ERy|67H zDfq?VWK!g`%12_ZeSn2`f`SW;`$@!qMS_n@cCl0&z4Ad1oph<^Y0jJ3Y22SM?q6@* zuiwBCKHeA5*OU77{PmNK^e~>h1H9Z0_SY1!;unc3eS?!IDPw!dnj@_>t_D{0Y{u+~ zZnhpUcHq)*bJTmd9<#YRX1hUz6+qn3%oPLrGm#DYTUget&(xzHw3}*xWOV_G?o^Nr z-L7SUv6E}r32|E*K_%c9gMNW3QF8UqLP^T$P_;fRYyuEHnzf+9b{F-z=$a5o)4t*8 z%^mRcHEWGUp)rposG<5W7h)X5xEyZUFv}GF+g+eC>tLuDangza*j)1 zLPsgb=iY}aXZH+lZw?RikB$y*1(@Fjm=D5AW}M@N2vwUFJB>ESpnyhUUc3~F^a zj+Cz^5Y-sj`ZN?wULu|(i{NeB~Htp#u$=MyoN!I^ZkmJKiaVT z(SqfVby)sr#q!4u#>cVz;iRT*7@?zu)C!pMf++Uz+)Jsv2#{bsuXe{e)r(s4LHoSR z-2?LZ^h8{=fqC2!%kwc_@AXx9)o#}tXgbGdXZ;&`(s{a`?N4WMY1p{>GD#vzdYkx{ zk4K*W@+@tn%EFq}VsPSY-S|=N#@^+c@o4GV+G7x$5oqI&Kr3VL!a$6%5uynpfphvx$m+^DTO%k4=3v47(8)>`@8F>E;D?O|dsw{oWQ>Pm5{eiPu_fl&!_y7V zZrR%LuDn(e4x&$jxf`wMiyZEW9?no3W)6oVwC8DR5-bjx`a^msWjaj_<&9BYkb@GL zt!rpgO{zdOv+(xILhf$fCh_cEZtS{RGA~s6hLGC>ODY8ZXdA1D1yp(t&(%N zVSBOhZ;d1j?{R>jjN>ld2XkoLJv6bCEPx|@s1mFtvCt$@aiyRJTw1{>hLraHBlj}Oy zXDM=+9s>Lc7&uPLxX-)9*tJN&a^GhL3G`0_ceFuUDa$tzSbIHG5gMWOsG2sLqgW?K zvFEsT#mS%K_ZD^!-MP2x6Y)F*w0>ipc7T|31Hpl6>=N@f@g!1b4&T<9F9+-J!i{+i zDXxM~H0nlRAXuFIWnRbZPu2g)1QOpn{d^+cnb7O&FE36u zCy>9BQBkPBIP8d`MkMgAUtatS9;ghz)55eet;g!(vs4A@#}jj+cPBqds{cl){8mD+cz6EHl16r*Zk#4|<)W&@O)Y(QQbHCH{ zAF$u!rL74d%}3si#Kx_q=N?K%v_?ur-cRup~0t3a~C_c%34OyeFGMtK z3P!kdHYAQju!=czpbPR{Kh@Pmed4oNxOfAr)X5{0|1kN6j3}SMePgFaNqYI}te%j$ z*Yg$FPB*3Zv#5Sv1l6ENan1E?WfJ0_#h(id<}YTv;Ql!jzQA<=0`NJgb{Al*1u)=x zdGP9l=d*Grn6QxA#!=e`FbpjvWCd5J{lFv(MbxM|?na)EsOU1}Kgru3p3h5v*RL|+ ze;)8Ji@@?=*k%@($jk47;^$=$pehB^Cou@Dj2>>J!%L$64=>0dtX>#CtuUyW z<4=Gz&vl6iPrB#3jJPcJdj1sn0HQk1s))JnW5*EsV;uXK70a)(>SZNK zPAPVqX$k_UyqQC-t ziPHZcB?^0?f<^|1Pd_s_s-K=1QS4oPQ|vRTe+BmsP|2b zuWQZp+!}uL<`rw&!{JQ-M+dE!>|p<>^>W?a{X5{O2R?cpZR4er9lvum+Vkl0N29lf zRo{FXE0l@BduLAX8yq?P+_3Da6bFaj`SJ*uk(-K(qIN&>*rQGCP3$Rzw9RrZ3D)oQ zBo;GRlX{QBvR%UseA=tKXw0{Ly~k{--Y%?=3JaK>o}zj~31bEY~^yiOnC zV7y5U+WW8w>%8}FH6n=h=s1atzRC#j;RWwE_3Mp_J7PzM2NNthh zaFrNqIgLH3O$j(az@6(nyqSn({*o*aoV2ZIO{Q~jNXRQFSP1iXG_P5;#!G%e=D-gPpU!JEymp0TrA9Zt6Iy%@t*0k$B_BOeLwJ0d={V{6T zt&yV^xC2b*VjB64^haCLSsa(X3imUznU1E`#S_<4ZOm19A zM#8e%RAKt#!L>{3o8%gUZ*XU0?5v5-u3`_X6}}v?4`!wYO?MLn%KH!0cn4f6;f-y; z6o6}b46hnH#d6fl-t2I^O68E--rmy;@7)qu!4CG(m$d*|xd7P@Pm(#6;(gZyXVt{m zQx*q4W^rn#Hb$>|gt9QI6b|LUaIqN|6tSAT&X&+I;fj`Y8t$$@N2?Oxpu?+( z$rUqR+cP_g(_XUT5g5i#rZZj%fZmfJLe?aJh1o4gF&2wOiyAO){DQjXj^ z0oO!31cYJSYsM3c)^$nxRo{3os+w9&ODlsN`3ZiBrju4nR#>NwJ`kbCk63B_zyfyQ~fq zc$Sz~z{^+yiqg%lPz#~Fo=VsBy8Vaki?9Jmq1Km|`|%KauS>oJ*Rt4^{{=XsHa$`lRtN%nZi@Ji{&9fI(JZ&8zefB~d~DwaGl2`PQ)GlHOlA>D8t zXJ%k6PQoudm@xyExLWZ_e$0Y|j}Ja7xmJy0eb)&-0j|Q)6BvYVsaetzL=K>CC_IQR zJvLAi7$qOif_+2oSLkEvK3tvtk|W@T>EkUR-wb5Vo7}HFXZ3xal6+6Pl6;@zNGr)AhTv}r703IkENXErB=KAva-;}u22=yB z{32*Rb+BJ(?t4L?&@YA(v}!Z8L#k3~u2)ekz89TP83YLCEG4t|+Z@<&s@-X%Ss;?L zmB`Q8NE1*mtr9P+Fo4$Ez!wg`7om0sA$$CcFY zv&j8(ySWxieU3=GSypHKxe3{ktrWgWa^)<^V-wYe>_(=fLqJOj%`ENZc(srxuw;+n zpk|D;sYyu}Xc&E&HdsGIG~BA9Q*NgEv}}3N&`Q%&Y2Ux`?{DPS1Wd>SOjUO)d@|6H zIm=3>d^TE;9I+hEmdT`qevk@VwuvqxW$8cZGM3g>nYoB16V6DN3gm1Sd?kf$TpeZY z1^_qCtdpU{`9%sbTBvx2j8{g_X0Jda#6YJ?b`Y6k_r#oE#xPTFvh~mLs+8n0VLBq+ zI+UkG`M9ORshH1nUCH(k17c=j_Jl*cW)4&RV3_J;fzZgCkJ3s%R{=k-b^DsAkbgYebw=8lo48pGEGy;CNC(Rq zzFTxGI2JO#TLlgJwdxh+#;<5qkWQ^6usCOGO*5|$)w1(!ktP~t()gf46Zr*Zy@9C8 zmPAJr4Km8wR#U$wB>7t4CtASccC`{LQ~&y7RH5Yd^Nub_tz8?X`mqk=CtS@s+_*9T zkxT~Qs6>*=*C|tdE3+UXD%y&)Ny?P;zN=XstQ1M_Z_R34L?;Z0)8aU|bz# zNqXD^fQ5}!m;Vk&2d= zQ}t(}1r>BxFBV>z1sO($WP;VHh+>x9xI1WJ34*|6F}7N6(UAp<8`-Ve=-=rC;)?V$ zeMvMFSGb^65o0Bme~Fsp>PSC#w6;;1k|z0gQ=|x(27n;;}4S|BCm1H8ikm2(% zX|>ibk>(KSV_TR~nKb(IQp5yhDkb07RE&Ev!wY0zN7ay;?(pMJ&5#t7)n$TUqKm zCt|ayZv%7@$Hb5$O$=4!nKXw5{OpRs#K)|nq#>dY+$zyxv_%I$j0EY>=Z&@qiG`%} z>Jsr~_>eq5?_rSi2{+UtnQ&g!?EedXWoyS00SiG2NZI!!n~86W$uVomlj(^{11Z`v zvCJ1$Ko8s1xa5Hr+5KDsHBs@7bOv7|GlyPPyZ1nY?2P6L&c?72?R{F9czxm)8VoT_pw)|zoD87^Ny_X-vZQquG(p}eYo>6!#~T=(mA172G&$am2F1<_3#l>q};Nd^&36qNk(YL0g-QBQX7FXb(SlygUuF-CVyK{RPW{84Mq$bKNMl3q$2oJ49*<< z-34a^e`LWKA)mj{dvCUy=X)VwAwZ1?beS|lBc!O)&|sGOwg~xfwOv?TX4XhK{CAij z)Sz7QN_o8R0*ch*&LmSEJDCNT*^}ttFVLA{M^J3z*Q$~gwq^DT%DyJEGP^riwK|$c z{YdRsm`!9Urg)XD1ZioCl}fKJ7IO>jO3STJD?^=E5?lyy*-|4&2yb>)(+FZ(Ko45T zJIacQYBhm|5=W}3MpUHLO=YW}+TvifrGo7iITxTAtl33`GE5NkbvI(>s-NUBNov{V zHcU4VhF^Bw+OZB^rihKL8qHn&a?xBGYcXAFv_wT-6%Z472YqI<-oFrPayMlqk+i5F zWq3YL@npkU%9JZ%K0vkk=&OGwZ)8AM8oU&mve2M58F)bEdw6wMsft?RZq;C}>7|lLpozX;g-!BAhkR7(YR(6_ zlwxP139lJQu~?gB40Bnt?SVfQP-l*uHFyOMDkAw$nrM_Iui0&^{I>mDhR+1b_nyg! zHj@$OTSrmhWY=M_)~d{!C0LxZl{CwMr+=uC8B99aZptiA70PFaJI^_2k5Zb^~?N*Mwt)XA#-I9b)kr`e|D3>^RB z@Sa?|d7_g7d*g6|bF>quDEYuxl8>j!p-UX=qig&>@(@(dew^Sp?^fJoEaEj@eW`Z6 z(GTyUz%*;*j15K}pR!`Cb&_r}9RmQafT)j;=YbeT;e~ z54Xeq;ZyefGvMJ^3G2m-Dn-=WxVbHK}4NH}dg~^5`@kiy4ot zG8Qd07F8RI0>4Ai-j&Pf;d_y<+jv*<4F>PKa+hKyb6P@g6wqB3E5U3!7@YUN5qfF8G{)caBqh+WuSQ zb)y=Em%@(+gC56)p?KogaI$WQnVR6>NPVUWX2AU zn0avkcvxis0Nn~AED%QZ5wi*eO$f+2qJW_;D_FB}`1RtbcjL(G#gUDpI{$j{+cVNb zuE~a{hv#WNAIf8SDJEF-4@gu}j!in!;cLWaL~u8XoRziUZd4oH)`h<+ zImK%D(LdzC;sWALfhFea6#S4K+9pNFI7rwDAymR|d|L6`*$36exqt~!=8FC#%s67wGLeI}cM<;exUZZm;X!%8YO~SlRK=^o*9;W4KKT z1>J94!b6?N76;k4gXzbc1p37i8B4*p2*rO<=VS1`1wzXOrl@@pP*+7p-g-g6jqoi+ zdq9P6QTF+WC(E9FiP7`LSv4(}n!F2{Zwuzp!@Et+?pYOn2}2ek^ty5#H9z_eX#l=| z5yc11HefWW%Bda*F${ktFk+>Ypbtss%99ip*3~^*gMIP7L zZ&6%nqat}FddCB6U_H0pAxY201#%Q?8Xqam>@OKkM9UO$!a~Z}WPh z##9u}3*({4@XX<>_*KK*Xr#fd1u|W}SR7>i3OS~t+BBk$zdS3<#@RkdBfc11jBPh7dL*8=V5ddFy`==-c z@CxXdW~ZdESDwp3&;muc741p9_S*2wpR7_|KMr530=+EpoA-7;j`~z~cp(zsAY$B1 z(G8XeZm;kKXy(8xUiY2sPG2j>e`7Zr7>*L_4k2O^I83tjV@G|Y&sdAF>l38 zi4QX(&hNvInK>3*M>XlsU(FSM)vD?%px=3UX(V`G0XQcwEKiLL``}r;H11KN_SK2~ zbRFIEr_s^cnZwK3D_L*;%HNOY>v5falQ^bj3qapAzaHk{P-rAa_sVAuUpA5>M<_EB z!#VPt^4bi0xgW_*AsH@P60a9?Q^;TjDbMr>MMpM;qOTW+r=l=VkSlgh`bBD&f_m)zjCtu4mh#eP_Br z{>MD&sfhCc~XuyXNg_Izp@Cu))AHwSW+b{ zscSCOS3bk!kwH1aCs+9#c^m%kJi5P%xFdYN4pEG1J34s@Ae4%_mIyXxA(nk zBib2(oz)TF|NZ5qI^tszpO-Vfbu0_)j88_$L&O&8CqE-FY}Hq=L&|-Wx1xI|Jv@gJ z@(^q6P&vnZ?}}r-SKycr*0Z)~!xUS#8?M|N{}hMf_3}+ADC6qJXfnz7akIHbOmD{N zvw4Y>T+z*jTe9g*xtQZSn;u8wO1CGs|7i1o7LlLFIBGxbS< zePXYV%VRg2?WQR`4H9kBg%qJ`Y{u6TlJf7I=G*O!7h zg3roO&pzr;84WiZ4Gl)a95oR-d-tVM757h!FLZU;d^XB=ddqa$W727lnVpt)iT7)3 zMw^u@*bQuI7ti)!kFY>Do`Zy0+B<+ScChUph>m8p4P2io*lGVgcM5-O5dY#Z3(G7@a`4 z9jn>v!Hg&jTtWUBkF^r1)iJtL7meUE0mxr1_9%KX4i5#Qi7a$!(|x}d%rJ6{m>}}J zZPDTLo+J!M6e1U_Djnq0%c;s^LeJ+J-Do=;vCc-96zBZ>_WlP3x9=ES5jI2T7)=Oo z62~jbienRf%C(G4z9};KrYVzj4B_HA`pQLd^d%5`w#dEW5;+S&Iu=omhhKaDc<8{V zEDzrl9)68@SSLKBd;EQ~IQb@Vvd-k+ig03VXeXAd;qIJyxr_%|>Ga$qIY{o5N53uo zM?NG^0{M0OGnu#z-Q1M4J3d_A-Nmb3&W{Ll8Rz#5IfAP_(}$}m$2TU%uY&wIK3+}t zp!=FyZ~-w+pFzzvI_S(C(vlwfjCIwlZ$%TlZ*y-lKSup3zrD%7$22ul!S`Rd=5ylq z%~`n72c*siH?Q@HZRhu^sn&0vv(`VK7+>n9NG6>;pGvE_S>NT~xA^ya{QG_W{Q>{V zx4M7C;kWts$NYPOe|dY_bE?_c^~{Yub_DlJ5U4v-{H- zqY^vvFF+=&>q&GZ*?>M`7XbepTfKOOpeSS>){(^8T$QN&QUTwzk3TLl2y% z7`eM`8R~BJ!hIM^5!%WoqzvAx$ljBz&(k z+vAobQqkWQ74>ba&1`gfs>k%+(Pmy`RhH|&+StMq&pj90=yz=}vl`9#NW=ftYB)zy zfiKa%2Ywc5UBr{^X!KYqZZ-s;Q3s5R5|1FCdQnFJN+&r5p~YN_ z76qb%7i~DtUg4fjw`a-RTD>akrU0??yCMy+6lhxm%8-p0ttvBGrPKmuo~yXsiygAy zGk#aK`z*sv@G|5vtsZN*2`;u;#Ryn6&o*F!S2_U5kn^0X_CkjoCoW~h@4G_sD;YV{ zfcY+w{Th&O+vvk9!WsUq(g(wKiJWoZQkFAs31_Z%apo=J z%+j))X$EUnuUfV0d~MD%uw>2b&hkBB$@ff_G_#dd!jfk0EH_>-OIAB5YO~}<7fbA# zXWJ~nbq)ZR$Px!GWm)n)VaYldOTKsJ&awt9*-od;?it-Sw(H&<=h<1xYO%FtwAlBB zG2gcs!{!Y!W^Sn#Yq?;?+~J_B&6pM!W9*vQuy7fZ!43z2OJs}#m$HoczA&c4#hCAx zXUy97S&OaBmeFEA5YGI-;*3}uZqA4n%Um#Lx*deIIg@d5#;%#icsFNy8~`qnGY(wJ za^?rZnI0Eseo$VE5og{PEw(mWMvMJWSn@-QCDxGd=q#ee?z&)>-07gG&62xZEU{}Y zGvp6A09+zV9JrKa$q$7k11^^Q@XVd%BDL6MWrqCbGD_@6!WS$(h$+@=4ft|ujMv)5 z6dS!@z6?3YYV&2(#TUEgG6Vko4gigs=rGu%f@#SVO(P)Ck*u!ED**psLN5 z{jPpu*IZ_(f58FZ64~Owr7T-c2wProvE@Wrwp@Y@R<660HNj2_Urt(lvBrA`UqpYs za>0CYZ1dqe@@l6$=-zg;Yc4b1f9?I_ivyRkd^st6`I?I_C(G)ui?P7UGo+0EIwcG_ zWiiAW=p76Z{dM?)8S<)wo;E`cyE=+pbD4qubq9b;>?jUg$};4XFywU?Lr$Hsqg)i!J+FpOUL&s^c7ALH}Zgm-ScuW5Affx%Jv z4u@SgKCk-hcreqG$M--oxp};5_;*}q@b5g{MRc95p1!m}-)PS!I^yK~01$fzw{LqW z+`4W1ecNbrXxkWgSMd${`6dpKpbP=>{4HI2tHhQ;Z)?(+Lx)6aC&nu}qAl4(EQzxa dX1@Q9>je0WL3bvBFWR)@$MZaj2j7{Q`G3XcNpAoE diff --git a/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~4~ b/internal/gabriel/benchmarks/GABRIEL-OTHER.dfasl.~4~ deleted file mode 100644 index c12d5629701728ac77ef3d2c801cd2c919155917..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 47097 zcmeHwd3apam1n(Ii%PO2mu+DiVN9VILkr8;G6swZR7onSN-9;At4g+H5*#6mlon+0 z!j=x$gru`55MwZUU=l;<?({PKC4tY~nd!_h zn%_C+zO7W=>2LmNgX-OP-@WIa?Vfw?^3L1q3HG)o!>!xyy>DoAaC>;$uATSo+8MrQ z+xGB|ZM(J)42JJPe)wZ;xvr1jR@ip$;O(RR+qXY_`_Smnj{9zpr8cH>wtx3|Pnt?}+?wkv05HKp_MSa#+5)ipT>)Pe1T{W}M@hBpmv9UI)Swg2H2 z;pTPW&Rt`J;nnMIxn)Io^{ve}-Fjp5x*ONsbn}|#H7je{qq(GDWY*2^GHb31rw4X! zyBkC_uWDWeP`9pawkof>Wo6CGixd0x4{Y<`-$$*VIh2|=Pvh)Lx(Ru7ZQ|MS+V(^; z)|!n)^Rc#Mx>ff~JT)F_%;lr0wrIAkDUr(bD0tNZMS|U0EXIP?TJ*ZiQuAodpZP&zH}y*(&wN;Al;J($N-X+ZHa7* zE9;9V_W39Wc(moCEy>u#xEBILRz)V-+7<1HP3+Sro*u6Pa5H1?#Q414ST^0;)SB+@ zPN$kkKojE?N<7-cc;I8HU8AEP_kbau6*e!J2h5NnCl?VrB&j$9$ZJaI-9d#6FO#_( zWL6S=xnw%p7Q$TxNXlf>8SfRinWr!iZ2)q)fLWmpY|ateYg}c#R|76`Yt7tzqC1w& zEu7d_O>{py?&sEwE99;!m(TXJ=6kZS9C+f-r_yb)39!Q?ePW-N8r&GoCWx0*s3PB& ziFHSNjjM6v%Oy6)klJ^hu?)A~#%LqwS2RYGnYg;~HnvEvx3Sesv`Ip5Omca>F~e7H zW5z6zm4vS`+ia!QNGjNvi=p4-%%U63M6X#A2s6AuG?m*FleE7j4L#&+e`_+D%W*Qu zNulSdaer&NCzU5wv`3RUqKuM>R8-LPCK3tG(-YnDtc%KXGC=)THC2^K#9Ctvi=PGg z-eg)J)3bSVQh@6l6v|n269Ju-C%$YtO^}}&59VSUdSD@9Kt|7{xKw36)}3jhAHMZL zj0#|n0G!j4O0@Si<$79j1Z7_@$K#d&78Nuod>Ba9@jvN^G%s_E4ZT0r5(<~r*0jXVlw+7j*UF(u53OsqGP&utKtGs$SHP+yrz zCsJTQhcx7e3MrWfI4Q9FnOs8YeIR2uSRrW>6@DNLR8Q6jTcr0jWno*D zwkPH6ewBQ0_fxusz!)r-6-&tX^XZ}7H|5hjY;wLY7mF#omy6|lgt%%>I-62C?b%E^ z*~b;Vxl{`${20ZvqQ_PFXiq+!On3At8PUBYeU@T|@?c%ADc#-#K_y|S8OprUTqP=G zZ^RhIWrFHPD4c8FIgNrN(-xtfnTx>-5nTOw3|nHk=TI`$VG9V)dSZgNH=iYX;Ws=x z?xR6gMm?<&_xk$v6XR>Uw{0D|X9$kh1B2Ul3~d_=Z@VXa_x5cM?idU|SQr{8gtu-R z+%b0T&hWstu^sRO!}snQC`|108yT4F02?u}$`xYcjI|H8k2Ffo2hIRtlZ?&KzYh6^?%b4pf?8q<*b=3#TrT7i!sk z2$0EZB7uQY@+amuwx(0Lz9!p076|hjquCfnx6=H1jikFJ+50YMHW4Cl0s3f&HZ~jm z##WL|8*FK|hgDBn7oC(etcOt`{H0HDmSab)~&0of~+2zfUR4UHQJcygFv^&#cm;0dIQp|^ue|myr69CRw#V1EuG4@ zrZas=*S4i&8>7hx`a}jk>clhTKvu%Hk0#+@<@QKF@sYbK?qrahOY#pud4ifv8s#iL9$Jm)~JF9)}*8h%?HOl(sIjEc3{-br8`o?J$yn=l5#)v+Jlh)GI~ z<4G)ggVFE-6c5==rdv8;-R2t&n$h50GO@3UY(awu{H{=ACuis^{nMNlqao>lBR}X! zS2@zvj&!Xf9de}SOL`FykkrNfR!r<$4Epp;&S;>HMJm(8j3?EsLKY@%S?EoU)z+7T zHGpn+;z0np**?`LWr&%oOu#Jj z?jE|<>IdO#){YfH4k&ECCxx90#0buK3J!N@nLkB2;xgQUj&ovajA7`V52 zG#y=x%}fKE3!dAH4Jl0uAkY6GpvrJ8fx0ZkFoOwnA{U2)mT%8BQO8e{!wT;*o12Fs z3+y5$-k9yX@+}&?i;RY9wgDbRiw0UqQM(wyrP`lX6s8K(pXi?&nznO}6pntP|H#l$ zGp900Xuh$h{|z&zqHwJ6<|q1(4ZUgR%qeWCEf%(fioe&7#1ImWC-d>7j-JfNlRD>< zg?O@fEGvG5(7tNR@?zrI z^zwL}r`UySXPsV5FHhF_iYeT6*9D5{(EjxDbZuR*n69JL{JN@QdNHLI)>RkNODI)e zS6fVnDYdjNR7@|UR72f-KvF89)p_*CXYfy{#T`{EmxWq z!n7{tXksp-o78;9at%W^56@b+v77*E4eX$lT9V$q@en^4&_f=tW?VPHYnE`l!dPX~ zz$!ssC*u)l!8%l1Muv~1R&89T*H3)<8cp|k{Q=Dz(EYwS)io7CpRZz0u(~EtHMg?1 zrlxjoWmO=c5wTB=SL8CWR+=td$5d9^NReYy3*w|{Ue|MwrrM-2Qqk3G{LTf?g(YEH zi)G*~F1na!8*Q2znI_#=;SW}N16BS?P*NML^v}-mJ8)^d09>wj;L>_lT&`zaW^=O) z#~rv_&$wJ=vsR28i=N~?8dSnw;XtJAtca{|@_j`)(P0@&xSKqO)SAv(J9CcOE19;& zGt*Wxrh5wY^-QcH^9Bc*83&o(1}LO>gVAg@+BdIM6>e}+eM33CEuG3Xo&)h!<*L)V zAgd%+pU+W$_1WvMIamE=W?Y?vahx20Q{wd)YbM4o11@lbquntqjfKs%Z;xdGG_wop zSmVD^&HR4KHtR?H`!@gnn14_3?@9hW#lJj`c;4dl_xShw{QCp`{UQH;3o~Z2f#2re zpYSiuExq|DInT5aV5M5E6cV!f;zJ74TVpGx-2~=1|9;0PIQqt#a%{Auxba+Eyz#8n zd(TyUZMo`}5;v5ieW;Hm!vEY`8@oEK|H#MB20kKwdSj}6= zQiU}72ODkuvyJsF-0;~tE)V|0JV{m^cb$y@@1NKRcpDgj2i;v(Ujol&E-m+9glWR^ z5iJH(8|$3icpZzNZq!?DaIFKm*5GPx**G}L6ICsV(fd{&y%~va<5s3^siSW(EtbI@ zR`g(z&txd?+Sv5yZbC4$u6H86o{?TqD2MYrC(gWA;6S*BF-&4=ahn!2h0$%?#_&q? z$V81dq8u>He(yx+gXc-{?Y8N~rq4tF|0Q3&{sS`>~UC?JI<3G z5nBOxOV37YwgN<)42hhhfr27BIx%jV19I?V*|W6}b+!=Y7S7T?eY5*#3-+BAi|wsQ zyTvngQekzq(c)~s#f}SHD^{h-Q)Bq+H5w zE6eE@I&_<}y*6skQ_=xVb=`2TVI;=bp2fktOsPZr#JD-S&@PjW#+M@HfFbcj{e8Y`!nI;*QBU{DtWSuj*?uyM^k zX>ZE`%N}cz&aoz04kuI9d(Nfm-Q{Y}R}?u8A2{$RH(sT%fVBZV?sj{`h}3gBf(5Js zmaO70Cnm3mYuw9^CZ6f+T7Kk-u0s9h>9{^M`SuDKHYvhFv9mNh9Sv0uvLK;B>*;x%-X7pHMOX|(&(=-`h8*Q3cBxdYVZaYk3L^Ws-fn4(EN4L z!&gML=c7?A64mtj%NK_th5Fw3<;7^+O2!K$f*uUzx>_c~29JgzPuoD^KVWPGpt~a8 zy+gYThZjZ!<##54F|wX0JYGQdTHI+UTAOYrs+vGe%Su#2c5LiX0nKmJ zT|{CxI@|5*1!ewNHk;0N8;c^i2}IjEamZjjl5=x?-7V>4lX)t}-+_rtfKRnxm*FO^ zxuGYTTurNTw6}ddbL*-(dB7x`jD#8!;xv~>3F5RlyjS{xGb;@FJlH#Rb}da)*SMb!HOaa^w=s_R41$Q1*g zr!#se%Co{QqZji(2ebWAEH39K2+wS{R%!Gxq&~F2IC{7al4CeFyaI5bGG#yzF8W-f zuL5n5>^1|P<)fDkc#5N2N2^AC%ybq8i-m6)I%C#uY_?~n-mr1+LgJR^GxLm5kB(Dk zIQLcwHtUUYa!9{JP8jHoxH4aF#8V9q`DP9O-o(FaB}Z)o=<-N1tw*A}Yt#;jzII|? z1%bOmfm_cYd@%ZyYqluhd7Dg^66-OM2BPfx>+;z7dmDq9{p&0BVB-R)<+GKpX&}|)BSiNjnceFK& z<16U06XOfaTgN7{2gg638lR(jZwl)oWZ->tBtWZ!=w+*Bxotiee_3kdOh&-k^QEOt zZZgbhgA{XRHEb-JgT?0sv}Mzzuu_LqeGBm*i1R$ud~TlcAu*m^n(-kGT8_;lt=G*G zb(CqpXCbpBu4_kxBb~}f6Ep6_NOFP9(0B({M@4d6FNSKutb}S-mW{rJeBCt9_^^<7 zr)GSZ$Rq3Ci@!eT$z5b)XsnJ8&+JWv;v*-I6cY7))16b3zxEh+0WXK0(^AyX0b>g) zky&_!cc2ROQ<0IA)A1vT;hC2Yc^>bKUyiK!(cw5tuE4)<(AHF!_D91>zK!s2i0ezb zi*t@Sa-`&&-Eu9a0@Qf7T#oDY*s5G5I1xh}TagfYYIwF^{pOqJ)SV z!u?rdj;4Lo=-EOk&zJkCGvHWRj&EP;=F7_+bkWD6lDXa(Vq@j`@^YhxM_Q^;pzcNp|on4FWyJ#(fJ90riRHR^{(Tp#fsUJ}u451{wih&~dp4RJ>aMfmd0-jUESMz4PKbEjrSJ>D=` zb)4(u13&tbIYvL}+TDOWpQ}cAz=He2#^-L}>H?ruSPtEMsyHyQ-@kEqYIr&kJ-v7G z#^EEKEx0ZpKHAla>*7RDXHVCu6Q@p04Q@9@yBPRxe7$|+l?OwmJ!W%Gd@KzY>yg{SY81VT$KIK38u=||g zb*_nVJ%L${-ie8a-ql4MK7g}JvfX<{#QX9gZI0gVS=hc3C^tj;kWdJ1_vbEH?_EXpTjj@$3Ka|S>WAH9x>vCgjEiyGe z;-WuBNf|+xP|;to8guvj8&1xrTwV&-Ir$CFWutJ^F7SJt^itV9ob){`7v7E4YuF;_ zHR5D=r9E_9U~~qB9R#FOh25%VAgr+Wh*o(1cC^a0$Kx)0JRO-LD_saBG_tdaBMJRz z7gB%NC7d4>ck_)d?N}1!x}WThFD@oWPQKZ#A4|P4`O8jMu@4W=Jl9!RTv%p6GRI3|!PTwYAqPS&NQI_2nZrfc7r{MqHjPW@Pyezg0@!gOqJJD#NyZ*z+Qb#6#&4#^*T9ZEnIa7ybKIk#-ft7ZQlv)bI zQ8x?thjbX~Ln*8lw>IAmix9|Ry)d0MYVL%6hI^mt$j8OaGj3#oJP*DeFg^_%9#F^(U3OH0jrz;9LLP2LK3OF!9CnpLx9zo|M3OEcAnTlfAW%k@P za`G-EK2%DLoJ6(ZV+FPKI-MHTySe;Ze{wm~%A^%}$dljD$Whel zdhhh%NWAMcG?c(^LotqX7hO1V5$}9$%XR5x>E*8%6DliVXQjjO&ex0Sh6MfAy^#c% zFLotQ9!;8>HTkQq@~G@Z<~+mKH~VF-~-Z0N-;cy?o1c#q@P4x_Lf*T{?6EERLt=zm{HnDnXa} zQzt<$=hREi;!`J>_Qqm*{+1PZblq#|@X0MJ(~apB!~m6_p!^0aKTi4AS>;c-%2U3S zxAK8Y?Fry^Xl84A`N#?2d}t<_UYuTXDqWvm%1GgEDcvn$gwkPfB;5d(q?e)mvf`ot zdyHn4g~hH;;fG5cO-_vaajqfSLH0?@laGRBbV{d@)~~sNk~AImwx)BGmWjaEC@KCQ zDX~T?DLy*2j~mZFvR>1V=d;KUVA6@xZ*=B zyx@Rcpd8*@(5Zn=blU*0>}Tk9H5Z>GtE;s>5lPJbYf3d*sijZcvD@Q$cw+pz*!Jys z`EKRPm0`SS*Z**M$Iv5#JQME^-?!~SdPVP^@XiOftwfg_LYKQX$~G_(im)CX_Z%=2 z8fNEvBILnNP5w8JG34&&>gA|$xUlHg4OQ%$8N(C%z2R)+HS!YTr}qwpa*@QZp36rQ zCtf2nOK!kFd%U{Q>h)rz_hEB(7_Pe0aA9oMI>9-hHv(YGho|DBq4!Q7{Om|B4(DOy z#MI&1CtJuI%dz;IWU5eXA58t?l$Nfor+ZkQ5S#nZvB|%edeP34c#^Iqh>Kki)3qpGTb%p_ zd~ICG_D3Hl+bX>(msBI(3X!#Mi&1)yeOBjCvI1)W9w-Zn5lz75lF|#x^Ln zQ(cn2tBtXGV{CyjR&9*2&fJH||KbtS#F@Rrp^**o*JdyzvNHaX4kO)S+-EO+qXv+_ zU(`&yBLa`~rYL@HFr7RMr%yz%BKyvlB6?JBx!YH~TQAa5*eSEb;T3q&!rH=PFBRjv zK1?aGYUQZ&azyhUUJ<30L#!HJO>m{?;RSB!hh`osgbMI+S?z~k<3Zxq!)qd1%N4zc zFN^CDy*_FKJ~We{`UJ1OrQX8v&`fhFguFnwoFH&_bV2cAFpt(Bi5~5QzC`q{2xQn& z&&0qyB)YJ4%az_R9iim(;^Gb05PGND+csuA{+F#u&i01sYg4Yn_7TobpeX*G>{D4Ze@Y7lUvydbz2%iBajz^ zet{ZMdiBr3Nh;|uwLUCt0uWuAwV=Xw7xlU5nhI{=z8{4 z8V?bFjE4ZCJ9>C+R1^L_GaS{x;KK`s(WOOdVm3ojY)Q~+w_5J54@FFgL`Wiq&@j!~ z(JlclZMWBZgYi(<*i~;l#?3x_2FxSTQ-JVr83+!{A7K!W07N)?cnK44t(^;Y+?CN^ zJqDGXjm%;LUu={hvT&H7LipjnAPDpo_sYS_tSB+!sK6ijNf&u zp@z5IwUkem&y5wN8J@?N$VJw}4JP2@SPALcRBO38lZ!Tm;O9)h%{elZhp*3$&Oi1{ zZ;ZTlqz6B*jhwub<^UKkaa#5?#*lpCH4JK8?pL(@(T3%Z7A$|P!}3QfmOpMVK91!N zCpT@!2puh?R=}Juh++@Vy_Cv}013A9YIm$t-KZrW(C1z59+1zcC*nmLxW^r_JRjrr zUSEYb9wg?J> zIaqK%bc&MIJ2+@O_+jJ09#*eC8RMatq$0*c?1_2y@N~noTefz*E3Z|IgX)uF?gkZo zk;6UF!x^Gs=5RPdd!D8x!QzlYtZ;a}K9E`|pTSJ>_(gd2Bg|}Z8a(DAK ziD&n6W7pMEc%ia4gxnq=M>}m%?*TG$`+yZj5j4hYm0ZFN+l!5VYb0TKj{^i19Cz71 zxI^Ra;b}NDOO)35`u>ZOFnSyg<1DtYv;8UK;YW>!A7K3V+;2Q`kEHsIM}%8@_>}|C zC-gi$@UD!@g^VHr{sbmGSI!G-QFhV#rXa(+Junk;kF8P<<~ZHD$G8!yFYD%?&>grK zYr(=k{W1pjNk3nn09=9o1iYAKk;CDP7ST>*Xz5T{a$V>4EJF_0Lx4X42gm6d_j#8X zyA}yp?)xktf&NM04jQzTvV0SPx7R}rfe5WfwY1qB#X2#HJ;&4)Cx4RPTi88x=iaVQ z#Pd+l`i*hg0b?V;;Q&WUhiD2svnxUKdh;vh95N>pInSFEAcCXhN;4)kU38MLw>pk z<5V6$uZ^6baf%n@TY%O&pw)^I=?08QZ7lasoo!Sy_dCt_0sB2(+L{1D-Yr1N(Pz$Q zm_ZHNe35s|cr0T{I5sYox1`?3P~!u|E=o{SG$c(=*(dtjNdT|Ku;@w;Z>EJ;*HKHRg@}et!3cNGhQyHwRxxJ|bV0xC zr@FeRPka^&7jIydI(cOBA12?B5#=*@-`HtUl3spwR!_*>>-h?7r<>aQSu{T{f@aX8 zxaE5GG70g|;?D&J^A|H;aQ_@CU*I|b0r(tDy9+SZ0vK?;TzGZD^I3T(n6Qx6#?jgb zFbpjvWCd5J|G+E@MbxM|?na)EsOU1}Kgru3p3h5v*RL|+e;)8Ji@@_>*k%(JJ3jA* z$jk47;^$=$pe6;=Cou@Dj2>>J!%JfR4=>0dt!@}TtuUyW<4=Gz&vl6jPrB#3jJPcJ zdjL5W1Rb#mCLuX>SaBWl2Yw9DeqtLegnMv{RW6Y zR_`y#h)3}L0#thUh4)<*zTi@Yt*d$4@(N>X$k_Uys=x|-iQ4}kr3!mtf<^|1Pd_s_ zs-K=1QS9zPc)wnQLbW&{)kE+4 zH1QcsM&XzGZFn-5-hD?v9`o>}arO1cty8&e=~k|$AnJV+8J-3D*y?Mo&_Ha1U z|ItC~COgOqX2N85PmWXJDZ4SF73{%G{puVeS;&X zpBt7vmEz#=J6|4wFmh9IG1Tr$9(%Njy@@@AkhWRQCBgfhp2T7XTT<^)c(!Ypz^A>s zi^u%7ulJbE)!RiBa-8%Jm(iX6hgT9$5ss!cn`l9}L&Qzum!uR2cy#lA(;8{^!Mtq3 zTK!d1XP{&HldMtG3HIIihgB;69?m!o;a4wGbuLuriPz~PoQyZAL32TSNr0 z9vvr@(N`G(KD^-lrhdIqvD^rH)4*zJ{J6)~)dIIP9H}jG9$qEJT25n6YEuFM5b(}* z9??uhGk-~*2u|8ov?kLz1SI4Y6fA`KI+|Cl@lu$OIfzBm6U$L_#ytBC-v7$Om*;7) zr43EbN7GDc{J1WYJMxrUM+f`Ins(jC!6tXG5e37&KSl$)HHy=MXn^TlOrx-o{%A`& zi__9q;q{DcrlYAfxiTN?&Fc{;e@KPFX+th!NO2Y`Ka|O5<2|XaW^p&3L0=EhVOe$~ z+F8)g*as$osM5h_fvrl4Q4(Kn$ac*l=mNqcn4gn;f-y;41imD47VD`#B#LE!R&Cl zN|lh8y}hRy-n%8Rf*l;9FKYp`N&&JTfh2S4iT7O-oYfLzPemN~nAM3+Zz`Qv&3S(- z56Z%*QaF?Y!_{V7P{e8SIw_%3!WAv)G@@OBk5(hVK}S##Qz~Y@wr6%0KYPi_M}ioQ zNO&eVM#OB>yG;sISW(jiwyThjUGg$~BW(RpffRz`NIi<~1Y8sCP!NW3ubEG{Qh9Hh z13I$)=&PH|$1YhQ3IbwWW^zsZqOYdj=%rXBq+32fsWwaCoQ;yJ1ZePGL%kS!N)t3H zZ2@Lv+oP>{1(m{TGIJ_9(*dYSE2$P#dXAbFzJ!FCZP(S|0nbwN3IrKTz|NYrnK6)n z;*i1u$2g-fQ5-CcI!t*ror5T%7^e^jO-0|NRXt{t?9>TSI1xdwt|~HoE!3j#4xqM& zQxOM!q#o4@sER-;rClX`Ewf=!0sSRcF)4@p+!yp0S1r`s$2@lB&_tM&j^Cfg>)lwoLPXaI4Qr#V8%>X>T2aH z{V^*NK0bt~FmBlS?g*2Y4Lyr{0&4eP*DldxWQ|J1H=e`#N3jJaz z0acrc4rxj~bKQzz@xADT${@fnXDyk$-{!!MpW2;9$O4m`RH8f=BTGQNv`T`oQY>M! z_X)nGaJj-+@tB32?{kjEoT>sO9Jj7w7IGHP1?<-ZEBd7Y*%AalJ@cS12uod)eI=j- zf@NylGCj94Fqd6E0)V^RQzM)9Jm<%)J{!fgRrA2b|t*acdz@V96iDIn5YZQ<%UD)h73M0IPB=4NCXkC+@Rb(2adp(S2>@h?8JCI6CgnOB-9nj$o-SfHdX|C)vU zc#VwPHw%|3WAV`^2lXGLGPYDmtvE*s!~N7m#;gne>@KO`#GCY(r!l;|Aclku03K8z zhGf1eIeRioEn4=(&+A^k7b(+HUuUL`xrv)aU|B79W;#U9@ZG9o!Lg9>-709%uhp&? zH@*c`K{~XOz}lQ?HO;cZRLjq^RhoE|N#lD8O%xWG?FOjg-zqGK zh>5l`ZI&`8z3*yP2P;L=`&+Xa7t;v?;5rL8H!nVLTnFQ}rsdGYYdEXXi2 zq!VmTMHRCY#ofUROA!PntFcA7#Ya{wCbC=6=-=rC;>z?he@QizRJfwm5Mw2te~Fpo z=Ey#Gw6;;55|aG8DN_{BvKTgs3r+63hCsp6dSoKHkm2(%X;JH!OmhhIu`f(dnKkqJeh>+*7w(l=f z$1@pykiZi4ZE=Az`NDJoA615Kts%i;mff?}G}TqCEccxgvDw_W0lJuDV#t{$hAQ(+ zmcs&mcEe!eV>VGjh}Z+SNwfrQ@xc!#K|1t#qb*8eAt}AOM12`PG|$g_7^Hn74Yf!n zl2#XN zf-v*TYbmmO4TIH#j)tLhx z7hJh@!F6!Z>P1e=Yh_w6y-c)~U$SsR`EGp>UH2PK@sJNO$KE5FrBN1}ML@q5D(Lr2 z$XnJ#khhhSA(S9Vh22P&P-j6Czht!Czu`|xJFh`7wGkxKaQFhQt6x#X70c;5vSX~$hiraJax zR$vxSqJuv`XQ~}Rv7KM5NjBJ)+bbyhn#{)R?qId*AdUKw+OIH4WG$wARjdSQA;o%1 zw=NMgg?6Lm)~A)D&MOHn1h{Ug6C{i`JFDpgF)v^TE#w__#YMG9prOR^)HEY1)9R+O z)lalIL~WU1nmu3J0S!OK*!u~nnF zOI|LX3$d2arA13sPOk$3QCw&?u}VJ3G|QBp~Z3sQ&YwBiL7S54Inp>9oDEJj)hw|X+2 zXHdhE@lg-&F-t3gxuus%GJz)geib&!6CLtRsjImh^irywi6^{fAk|`RmNU$CP1*y0 zETGPuIcx9=98^s5pES`Z%U-kFSmka1w~U+#l*k40O6-jz2F}q=9HQg{ zV@W=pCTA{js*m2{|B;8FdiLW0zxis#O~xW#wo7v67{)Kjz=U@i;a-?$JJVFk+gL7d1o{QKEWR)6mW2to36E9-t|H zOyI;^MFwH9YP()9a*Qs7oIr4nQ+(L|TNHGo8kLtKj0b}r$NNI@#INPW z)?aa&0)+NDoCO8=fAXr}3EJ%BR(U7SEDFaSqol`YNMBR5w1!Ou^N8#4>_>7fMio(jrlqy zKV&C)mBaH2<;LyY^~T33XN@sT7r!xpi|4m;`L$gBUM_zrm+#Bv8*-VF%OA<*Ww|^j zmvOo5F$O&RlHLHK-9LIwd;ieruI+;>skx04yQB!`5NTm1;$08C40E3q&0;Iw0hBTnlmclx z%*5n3@l0wVIs)FMb3Objm8Qz|DyGF^DMEGZm=u${DU1TWfzD_FC1;QVyljiFsP@F@ zOTLIz&Bw?n?Y~Egw;CV4mQ!D;F+R%X%JUWN3d-@-o2OG>0I72&h)BVF>5S{VfX1Bf z3-#)i0+o%wXB>}(SqA{&N_sW2#9;NYx=oqLAJ9=l1t*Yq{$7}ixU;&s!RuRK+7D|* zX8|=>;yc*OC;YU`x*`)QXD8vaVhNZ&`l&n~t`p!1zTa?VN;7`LPuoz+zu@H)I`}0Z z&Fw6;L~8kB>M8RTTfEjN$@yw*wSfHGgvKLp$x#S_Y#wVeOUgbYAjq(5AEq$zEb)VA zyypQ)2(?E2@_3g_OSqyegWK!6x3VDI1S>xtmY&g4dknWJrJ&avm+(+0y2VKj?O=xS zCWU^nM8{GHEkgNU)cF*=Z-MY~fvIX=1k_cLk+)tDa3lPZqCKD@v?zys#Fcf=euvTX z#aS&amzKN>S#AsF(Z#z>&hA+aehEVsA@sV695p}s4p{(x{UVC*nQg#mrWfU26$y~j zfsdlOGJ~8MbZ1s^W|cd$nltfkFt?##)^cX8J2S+YA(eSt=deX_WsQmyl;|A~yn*#h z=a(=JJ6=*XLtM!x=!n8Ulwxx!{i1{>eNrw6RQj;du)}EBYBbzsG^CA&gwb%T(Qu>D zaE;M$mC-QQXyDH#ia9t4ujew1MV`n8LU2HWSkRZ>@OJlln1DEtigIfQ$vI$?K)oie zu`lKM5-<=@FM<1I0}~UHFWHWRXpNq*D!vRo*^F2J5dXly7dED%h+P;DMTTb%U&Xf? zUX8{xM72Pn%NI+0tY4wTR8*Tr))B-`oPgJu=)AnxMPb5@CUivcIg*_2nwtED7~_{Q z96C74ajH}dbVBdTKmoyW0S~aAPG|%LFY{2a+;;@Pm)+qhN&&nAKBhS)Dg2e^a!|BD z5m7~Z60f~BJo6{3RM3yZ*Q!J>Yy9TDosXkERUAQxBs7RPH&gTiO9U^k@cYj!fmgil zSF$^Ot(^a<74mqw@$oB-VT-T751g9M8n$e7p?b%rlkpkzR?L)yFeB#tKEjxpW5IRQ zlK%YF+~8NOroICHomY@Xg7+1GbIQUB)X1<8o+U`*9;Iquo!C!rqkH}|I$Aq(csU0p z>&;*J`|*4|-lpFqacS8D&^OJmhkG~_8p+XXd6`uNQ}>qHs^+qswL>yidgw+{hO`$&Tp1j&YyT?gl_5zgE7aNZJd-Xtu;SG^T31|i~#zb%%@$2n-} zALc8eL#eliG5pp)Q?@aHH|1nQ`D&jlqyH8EKemZPuE;%sCA zPm%ID^EUn!;Oq1L(WivoPkDh)p{u6UXmj2 z#mpJV|L2H%V(ok19<6=nnbC^)k9HT>2AnPU-t7^D@1c-A?%;dZMzk{mJ8K-i|NF~J zjl;(*KCf7O>sS{!7N3lehe#~aPku&V*sHJLc$E97Y(@7@x_AyHlEg-j%p~ zuOKcTyk~9EhAH-JH(a?l{wYqy>*bSDFviu5(PWZe$Ia#%F})e5ujVCE@`i3U+>%Xi z%EcU?+4Sh*TfNG25||=3>3aSa)ZOo?;Nec0Y>I@ZtfNGnrqXP0ueUvIPL-}_vE*f0 zfjyiG3YTCS+G~tOA!Cso0rmcc7`|8MFpGA{0@I(1t$kGsWPTnfU*(ZdfC z<(jtL=ox0k`0`e|=wo;B-AlcEna)aPQZjEdhS)AUz9=xwJX2p3*eCw_xLkI#+itqj z(_rBi@rb`DE-={eAK?~HpWQ7!f)}#q%nNyBR!DOKXmeE~-a(Hwd4JR$ch{GKJA$vuP|rTNyB9X+poSoB>c~gVuvgvw@E8 zm9G7it7|I?y!q9uhy?%AVfxe%K9pA+9`F?l5ZCBdrUfoHNx)-t0^@cpXRn7eqVRA9 z`)54XQlwVL_)c9khR+0`fVJ49=*c)D6o@IZ@uiLV{aP@?*fC~;$@8{PhwpomIvi1$ zT(GfpFi-Or2vqA-qW;uPCdKP4q3- zGFthjXyu!tm5?c&Rk(PWzH(7AeF@y2t#z-sw9dwm4o{Sm;@93kDLN1;E5$cOieDos z)`=A9UH-mVvV4 zrA)jL-Q1M4J3pe{-Nh?k&hH3w9p@(vIfI)$)3>Xs#5X3!uYv|SzF$r6LiaVb;3dR3 zeF-(!=-@MpNK1O?OV(AhJ{L{!zRmr~{2ukIeD@~*9@Erp1)qT7md}aXH)r8S-;g>V z+`QITww<4_rdGds&Q||?VtlEaBbjvad>XB0vcAi|Z}IQ<`1kw#`vd-!&vpNZ({Jo zI`uaeDg732%gl-X)=^m`yk9kW!TRLDV-|n=g};Am=~6%Qx2Jht=?)l%p%%b%R7fb6u*`Q|8x>acX7fS$JxzAh(sU@m}&vs^e+^R%o`rBfr zzHQRn%)Y0mdQ9&fZRW*R<-z`|jV&Vb+;g!+ziWe;MKt3hg#W8WIA;>^!M4F2JGbu| z*m<6!E}@@>_SLiLKQ8nix9Fek%Mu1(XWRdtV}#ZX@-Z&TX#VybJUA{qc+bUy3e$^KM=gyhg#|0XxO|V%pWIqEMC_ zvfL@;do=tBkPb}1?jZFD&ee325PVG?FfK|xf_(Z#9R(J)?*b1hyJh!0-SaGt%w zJ*{rflFPMvRo2Y`66beC8{jL@_J%j#%>Ij3l^Ly4W&sn>RZRC{hc5Vx-&J&%ZWOJ=!CGIqpX)<*39lK-xHC1&k_lHNhKm_=FW2C1&d_0gQK=cZgh#nZh5xP5?tp1aET&u z;8Ip3-xHCnbBW}8XYMR(Ad>BL>g=A;ZDYIc-Ep3srK}ZOTgHlgUj*}gQ!s1Ty&=KO zEwy4T7c7`N9DKC})8Z10-7-5CE@v{>;Q(-nf^pzdRxsZe!F0F;^ZoLIS^GX)v9;MU zR_q5NnIBk^5pTmS8L?uS3zkf`gR!<`GA_y3E%O-fmQ0TWz$Hq?flFD*{6Hkr!%F+~Cq&&V;=!a(Ua5 zi#6&y()ioLnx{ zf|VCY83XoX5y+2Cf!t_~_6~uF0sHg?3*?gye%c*HeMv*@&f6`Q8SOvs0C0%{ao|!` zAU_s?eBLFHAD^+KypQ&)oD+6J#DXPQv0pb@L%qM$3EO|cV%g{5sx6lNu6|;-TxO_$ z!2#eB#p1xFtXNKnSYB|6TMKB?38R3B(%c9Rd;i zb@+k>@~VTMwm=TMI*Q$LnSuUw2Y^fLC=Oi83gnas~C7an7#86{Igjsq3=Xq%%X4*rzyj1SZ+~L)cI_n{^a;N0Iux=6!n-KV!$kOunnxV^iLmW$7u$Y9Y&-J- zj0@e9$Y&GLRL5+N{Zu&iQ;TEbS5=NKtR$>uZz}lLl$I59&1;O{=AsyZR!lHu_2;L; zh`)9*;-}md^LSx$?4#Ul!!`oL=#~H46~6s3K5tEU=eGNrMh71l9F^~J*lpu0tIv)H zGd+2H79^9K$E${a$884x&f{G~ueH_F7dPlr?b$>}oPr<#V(;MgZ4ZT8w{5>~8*L74 z8-wgBzCl0V#32&YAwZtLrI+6-v1QQPnl$FnL6O>t@rsUUOEwWp;yi>|?!V);0({P( UJCneNZQAkUc^=h+@662nKe38Q@Bjb+ 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 cdb406b796741114c1498e0fe4524ae6e9f09096..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 16484 zcmche&2AgX5y!c55^R_+?FPsphedO1*h6Y&SpTl>>fcoNbhkg-x&PqH zozDFSyE~l+U*7-9eDY|g|Jh!Ddw0jQ{&;VzxVt8=R2m2d*yrU^Zxdu2Rpm1 zjg4k|H0~XY#?_#%%0)Fatsv_3XLTpfO%U~h9RFIT-5N}fXSi!PoI|i^{5(udRz_1)tUU+S(Hb2zy58|+<@Vv^F_&qvtAhYg0N*;_rCh# zp)I|2VMvD0N0W0DzN)9EW*64YBaFoxL}en zi*wV2@8`3+dOn(-%+GC2oZHg$Q06d&gJ+#QGu^`0TzIpLt1(wa8JD}BmCv48t1DMg z_jA*hhMKFZqvNWcZy36GG8rsJ)5+YRQ5F+E`Mj)0<^H&uoAV&tMU|ZgIX=$Q-SanZ z*gV}dn`ij{V)IRd12m(thfaBNYL3gfnIBH;MODwt++MN=x@7;r|8CPB13Gl+$lpWy z9?>zTV?xK2ju{D-n)V*D5R!$EEQDksBnxzBL>3~l5Rrw5 z&r=a1G7yo0hzvwzAR+@S5|f3PEW~6XCJQlHh{-}s7Gko1I6={3vOpITGLVpggbXBP zARz-uLaroaAt4J1SxCqNoleO@N)}SGkdlRzETp88@||QLB?BoLpc7e_L^86Fk%f#b zWMm;D3mI9+_y=SmBMbC3ry}HJASVMk8OX^%P6qOnRL}=d0bqzdk_A4Hg@P;;WT7An z1z9M_LP13+$Us2`iURStph%}6zV6xnGn`Hq zgX!#yzgN%8@s=YTb*1riP>#`c=1p_gEH>Eqte(!eqXC4Avsq<-d|Vz?7N4DJ@_bZJ zC&$%fv7vfsd9<;D+4*={4%Kz;!Ay1X^gKxI}`?sy((Z!D& zjbE=Ht~c62*LCvdWHfHJ!48xT{*8`J``O8KQJMC9Rt-kwnEO2yVOpE^{`6!rgd2Pl zF~PbwuNKc7A=+G$Af(^iU=|#?)+}9Hnzh6cv-vG%EtqV5T~S!NBu4Rv*i3IW39j98 z!`W>&fQTrQ1z_3jc7tUz;o)TFqh4=wP%Z|Cow{0_)RWFZJw4vEZ9FqwzC1iRK0fOl zOzRHaNEZ)GXin{22PQHUhzBM%FVN)8wL5E#(bh+6A3S=z_mc)fz_z#GcSD+-pezA1 zg0&ac+6YA=Ya@uC!rF%jpgT_+4a5!%C1i)ZKqZIt7rwA_7UBO72Y+$t;L*j>MJ|jj zgK|*{6?&_6SJ@F)n5}hNPw!Ny$XlVP@oXr#n262UyA*0!p6df*!v@4w|Mg!H6x%;T zRB&*t9`}FnYJct3e&gl88f`pCCG>1;L?(>XiO>X@IuRH|tL+t|2{MF9IqobD>*=3t zxTSQX!6Ti5H;DO@Pg5A$+(Kd+5VS#Uu;lX^w+kx@UgwN z)yIdF{ME~UqUbs0D##tIS*Y2Mc$vE_!)%$%tSGOj{t6Yg*8lr2w+{dFkDo(zjq2vr z%YUyoEPWk;DG?F_w)T-nNr$v)74^-ou{1J`AKEtfka}de%$_dGV;^2N(-L#DOLG=E z&YZ=IP1+no+*upXPWr$kPA|N3r_p#aeEj;`y>;8=KDx68^^YGPUFIZ&A7XF%M+#2>@qZN-XxD}5sxEYTwR6Du|wDvd! z#HhqR@K=?(H%R@4g8fD*CM+k0f#JLnA?g)CPEtiKO5)E?K_H%=PE-&WCARY$(L?w_g{AE$FkVR7+NFEVrfxsO` z5GVvx0K{$n{1gBd0zgbzv7eD5AZGCVi3$NR<;RtabdN9&0G->gL8kP zLO|ev>lV{TEE*~TA~*CWDg+b&;?*^4rV4-<9sAQ103uIdNAaGUMGFN$%n$k#6#&{~ zkR#V=Mv8xUzWURY&_#=}CIG>XW;%8~63|ZF@RXbo5F;5^yQ}FK?(^rU01(4`b`;4T zYsLzISia#;bO}JG3DB`-uK0)P0B@RDZNimnX9OvVaE3)g#XpY?D(#6uK1*U53QH#H ziH4H+^HTtbfr1ki04556;G#cK0U-K4i()kmds-*}A~W_|stoVloTK+_(zaSlA zQN%EdX1c$41fZRvBIshRnrl!2V4whq8~u4I0K}k$MS(i@G*JY^YBz79ST4t&7D7Or zVbMYn&|~dN>_AOJPDi}IF{2yFP%6ad;61w3UW08AAC zkr?_D6#!y1&!WOVg+IiYKS{wK(gBvlpr0!@QvAc*pg&RJAKrhkDBgImXr>5=>;6QA zfLPV(Dpv@Ig@h~bB=GvcpQsQ}0En?JI~pqhB9HK=DSZ@#XGhVtESl>+>JflggUc+! z^bCuFbSxSw0OCe(o?^8xi`ra}Iw{VuXsQ6{(NXaeqcE1l>;_9l%1@NUpPx$r3IXw| zltl|gK!DMos1Oh%LiSVu7%2cEG4!V?0K}Rm)`XYrXr>T|p|L+vK_F&|oTGw3ML^62 z_|p^uVqrdOVl2###)^QLZ1yKA1Vqx#qL}Vu(OeM_Lq~t2LO@Fh9_$MO1BE~=k?|)g z2*gT#7Dckho+b)`$X@)33K}59qHvi-3ylVk2(+mmWxMvJFy|?Pz(^s`qo#fBOqwDPIk%4w`2#Mke>O`Gpst}0#ytSy!6i5?;Kc^`SR0za<{xk)FU^#1IZ53B; ztPqH?u|H8kAa=8`D3*G<7F7(yv%sIIFc70(76lAhG*Ar0>k)sV!a%&fXHg6jSu{}$ z1UdYP3Ij1M#-f$K#)lf5a=YbJ`rR96VT=*~x-;Ve$4QHtO~=L3lKI+BtB$AhD^5Z-R*1fAt-H zJ)90s>=v%lZluJX)q8v8k=s#vtBZC){1q-TGOu%yek9|gD_mrw;>xuy23Nay)vw=l z@$vU?@oEnl(ARlre{+L_Wb#)3uo;c^#l6vlSN!-*_x8Sf1H#()iUz!V6dYi~1@E7w zEf;~?F-L!dZci=tTVbok!#_OYAWrO_lUw|U=&cnHU0VTf{rZX;z)o+fzFT7$Re-IO zZ*^0CFx}9?ng(yTlHH%_y5qGm9AE3=Tfe@-#Yfh~Yj-Pd!ZAS;Z3bL2YvqCzu}zzk zY~Qg{Z}z|2W2y_NH)7*P8wavA)a@qi*b^#rulm(hn@CN&haLIDh26aE_VV{;<>07% zioKnu18iZf4&?9V%7*@1#q74%di3;gfnEK)%l_W9o=s~)Udsf9T~1$Mp)N=5{{T{Q BaBBbn diff --git a/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl b/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl deleted file mode 100644 index 03a84f7a620a5754a63b821f043010ac0d1eaa3c..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 15218 zcmbW8>sOOWp2u@Rz^1gp<0*S>=WN+C+S}MsNdhEZkPw1ILK2f8;2jVJiGT>+?|0jH zK@{_CGq3iXnYVlToZZ>!H@=v8KeJ~~{}cOmU+?LyUsXb-wevVnJV#QgRDD17`_=WS zr)tqrKNOCM@XWc{$?W)?m|2*gU6>cAXXeC(nT5HradBG4i)-EKz8iZcX3mXwWJl)a zu5?UhCojx)MB;}M>5f=5oeU>Zk&gYLu2eJ<>*$Ka!@d2XRA0Ij<;jHlw(o9PlP=R7 zn;RdQA3r4q$4^a6QS9;$*gDz1_Iv-Z_BQh)?I#Y&>w7T_xXI=*Yt$a zF_=p`8T<>J<(VsoQi}pk?vR`>~iE^UJU;Y5f&>G-)q9s43(gsLY~mT zkWStoO6%x!Zz7e6q>}1ejchu_or_&SpviL8m`xHy@u;GT(9AJ4cBP-4A*D4KEw5ur8Qii z;ra~MXShDY^%<@a@Efk*aQ%ksH(Y;NHpBHBuHSI|hU+(6ldIKmTMf6>a9a(x)o@$O z6b!f3a9a(x)o@MHHp6W*+&05)Gu$@AZ8O}qGBLw#Gu$@AHNUqTZoA>O8*aPdwi|A{ z;kFxYdzr4`wi~XA3>a>}a07-LFx-IQ1`Ib~xB%@k}_89G2m=-HFJdP^?o9+etaT=U>wRyjsqSp_m*}(|7VqZW&QSL%kl3 z>uGS#3@0NpdVPPWPtJXE+LH^0Xetr!kHj<# zwMZ(OzOm<{)kVLYk0Zk$tSlS_d?hEdb!R(&UYuy`?40^Z%~%^79r#MlPfj&K5ijSA zI~!D-ocx@>Gt>TiH4my>LyNtQS*C(xu11I3i7ojYlQXO|Ra}>|#&xH&H0QZD;j1P& zk=J%52IAexS{baDUXV_V_B$E2IGyB=7rDB0G7^r4V%S2nt`&G)Ie2S1IPeh|ccpRv zUaLO-L*lk7ocj7FZ2c6eww&~JKG#q(vF($fuggJStAzwJzHD^l)ry4tC1+8yLU0y~ z>L}0tjb--XPi1em%zpS&*|*82KcfF2iayMw?;3nz*25fVEhGy4leB-K@ z;W`fC37=0yVuCiwb%wPlXaz++coIrm3o_f^)?IjcA@&gcN|>|mlUDhKB3)$5D+-T5ob7})C2a_ z0~YE*fi8~2Oj&VX5rXy!K?}kzfegoKh7P5^%f9+93-#RsXE^2p-&O^*(dC?AcO=4IYJDBO1;y*dZ&eYpTHPLf`PhX0U`V9Aq({`fk}>j zhFeO#%f5P-g?d=vI>#^rb(8|a_SM4{>fO49zTg;V7*m99`-E-_LPQhpa-7#a?Wv+f z>{B8ZlpcW|jvEX;O1;OvI%TZX{`U(E>-PVIfmXl;?6*(YZ$ao4n9_td+DmU0rPn^C z*MbrixTz_38B&T6wNHpz5Dw_tUgX%va7_^o*eB31S*b2!0&N^I2Aa4F=(Dd*16U>X zLjnsNM;J~h^_YG2n1y=3KrhD-!*QkFZ(qINLOm{UgyWQMKaUh4Zl4ghAS48)Ic6DX zz$zeNUp--=p44sUHpg{_vx<=USqR%)qffdd?u7%nRHw0(72kXKUA2pr?+V8|-L&#f90LsWFj~M#`|2kx)JFwIIYt>qmHLQ%^$`p8tUxEn1qND( z7cgpHor+b-Gh+ht9MigoeWwUx_6fA~uS7Vd+s-47s|>UVFW{7Y!YK>FxInA!VGkLm z6=B>yVcddnTA)J{UTIG)E6Qp66dEQgdFqV7L5>jyS{f8^#=bgjbW~EG5IDuLhvBMH zpRlh!VWB=LaFL@|d*_)VOxh<*S`g0acJzcJ!$5;o0cY(KXkl2%LsJ5M94EC64;5j` zK4Hp&a84k^agKpD1PaL7SEmJ4rSe}A*vD~;fr?PTIs5A8EYzn3(i~S9sFDhpwy#cI zvr^e-1WxN7_CWjpm7>hpr_cj-CCaS86-`-WpogIXX6+MZEePjzD}Bmwh+#ny&f6!P zw;;?3jBxB`ph=^EIs59g2&v?u3j$$|{S34$E8v2Cb=pF#q&_b&z>(H9d`A)H?GxrL z2nzxe948oPW3_+<`|4C_mCAon;2Osi15FkMT(qxFk6V@0FYC7Roa3_g&~rt(WS?@$ zf^t{>c2^*!`@vI9daX#8?UOEBkgf<^(vK%J(5tM&;r zAy%rBYXU|P-)RY#(iL{_BN0&$KB2HNJ* zUVL30i5Bu!q&EU5Ip(zosUvFIo9bvZ?OM^61up2Ge4Bw@U~AfPbu`*^v!cD#E##pl z<{0QfT@&9{N2J&2m56=;KZl>G<7;$Ycf-N|r2RL?!QU+QK2)LJjrwe`JRr%MLostNtTX zeQr8RSu|DM?DZp-fsrizrK5gpwim5&_)%}lK`pZTxEsg!MR%vGZ z-c2~i_r_$p0kQ1+KO)bDi}I@^4rhtIa@ya;@=L4q zjTGG;)Zce>HA02{q*ax%Uwz0eD}oBryN$M;l@#h-uvf27stWB>pF diff --git a/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~1~ b/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~1~ deleted file mode 100644 index a09c5be364221e0b6bff233ba755b5dcba9a2822..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 13986 zcmb80+jCP%e#dq36*r8{_Rcb-v*XDQQ-caISn@?SH_Nh&1+pY08Qa_q7;J2?G3I_5 zV7Lv4i!r$Lr8JMpYf_Va$j%E7NhSFQ=3#TGN-DJvTl_2nG(nfFu=$CAyl=`%AEQ)9Eu(--DuF3dHboStnyKYd~L_*nBvncsXZ zo=xO#Y)d9`nOHg--?1y&lTE~vI|kyt$@ob5GMJC<*}S!7Rc=Mi<)oN?$Y6)##^}{!dzK^Co z9?vQD*WmFqHF@c}-s5TX_`Jneg*APNWIUFQNAt41>6p(`d{$@-VJrkT7yEryQE;!?pl;ZP3UEg3TmQSQp#Rcyz-_Iqmu{YkANX3K1mDT&w z4U$-u&csu`I$5D6J(!osYMHF>O=RP$vahMQP(?Yi9liNzPcmLC_@(n@R&6F4+Y{Xt zFE03sFAA$Ayqqy#EHn+rv+3brEIlxgP6eq8iiO&x4)7KWHP=!XrlxLqzFG8qtUW-s zOE0{k&tEKkDql!e_$L;gmt{QgE5rUw8dgsh<&x=WZ-cz5l}2Q;>5Ttp^5TOfP3mRY zm|Ru4c&~J8j@;a^qJ;k!k}31nEaxQ#;@R8>#f5sZ@>QW)DPg_7sxP}ZCmm2Njm)Qt z()O~Q) z6bPGSt4X$*WV=arm}JBxJ5`ceV6Y*h8#20~6$OlL$moWQZpi3{jBd#2hK#OZg^h05 z=!T7Mctu&G8#cOOqZ>B5VWS&1x(3i{bX$#XtI=&Wx~(g!8QoT++iG-Mjc%*aHMQD| zZky3#J!{~Mx-43JMVRSo;ZimtBSiv>A9Y)t=MvQL6=thig#OOwhZp7$DjBdo}Mpj4| zU7eyq+i7$=jc%vW?KHZbMz_=Gb{gGIquXh8J4tP!MovmKc{NF*8Jn;LA)2OS6ZGsx zsVo)rsriisO?Jy^J0s`!;!B!< z>*Y!qP0A@Xce}XYml;(w)$8fFjwa{)NG2|``9O4!TvE;I?)8?} zIsb?FgvsT)rYAj^>djQkWSz8JIxaEbt;eTcFZtkEp*EL^#}d&bK9y_hyYt0{k{CpR`Nfi%|ZS0mZ(@*y#xwe z4w&`dyVN?*%Br6`R=x7Rsv8}vUVUHHfDDLDi@rwLx4${-34PZc?U5TAxtXKwQBxom z&BywK*?4|1n+j%P0op0l6nB-^qYf4Y*TV;~oEv&fWW6bn^S2ZrQ9mwYAH+r@rf% z{JuM?a_eO7v8p%6d~c3<-u%s9%W6I2>sM7k$;$%FBnHmMuI0D>IBsysG@vFXpTsaBh@dC?Pyc1yi)|DxNcnjiJ4_V)Nx z15MNZwMP!M%`y<)>6)tb*!(kWX4ve<7qUH?&@M zNc+(G$?s)aH2HlJvUX^lyc9$0n-p{HkdT+_ht@Uu>*(7ie*-BE2^lvH2>4cGqpu#H z`|4!6R;FuYx>}~IWZEy&vO%&#Hu_|P{0tlYtK{bz1kl1{@8~UZRVP|PX!#Xd_)_aa zi=Is?ST>Y{q#PFIKrnv(E%`aL($unVCs|$3eK$@e6;hKWBSwq`gpzT5h^w%6whKmZ^ZVhgC0e1)tattu+ zSI`b?Xom|lA`s;mVXDnvDR9IZ9B~163gkG(7`7{Dr!}3e7nG;2ESsMRp9N`VCs{1&ygQv zhd@k&3k`>}!#)MwX${@!0^Kcej3dQBBd3IJYiPF%G%7I8kz}~3 zpiygR)CJljaE)V_fdagQ9&2ci3pA!f>?y|yhGPmGvj)dpz`YuLn`1@~j7JLIYYp#p zfyV{n9M>7*3L3YDQhBGi?GqT*ar=a@JsEAMFrnw4d3Mg?-#hC z;kOy~DsaCwxZeew&>i@kV+X@k1x{FlX`*uS^B#dVjy(*t2$rzh8cK7C6Le5uj$=Q= zVFle|4c+4cO$zMd7-Bf2ph;_J(givou%F|&j)eOPJYWqTZ~>CV=a(z5!frxq2UV*#{9^*= zInL+-@wEaUvj)?))(L!EN5OrLD-5*dEaA8{__z!Bgg~nv5ce3)DDVku@Cg_2n80=o zp4aYprQl=MaGI!`+;LJM!*P^>R@V|vT0`l6+6j6};5f%thARqs${H#k6goo31uk&x z(k>_{@VGU2+yy+LBjO=Pj)5kS5+K ztTmkO^_<|-0+%)XIRkC$OPIC>)9(yU;29lek2nSy<`j6w8a(3yJ|}RLql@9Ff}XR6 z(yHy$+F5}fjy?w3wUjVx4W$Q5PSEoLd5)~^v|9>%-Wp8DHJre60;f0*Gtk4e66UO- z)DKS33j$X;PBYNtT*3uwDBUVJK`-ejc*1c>yWxp~U$ll_bb-_6{IDs*#&$>pjU&RF;K9VaK#!-tBjMsuL=xt>}F_H(5u!^ zdH~`Cy(Tch(aAvfVK?gqzl2dPwR7{!*ZiV?xL7Lk0fQ8vLaTmd0__|T2AYJlz`cqDX#3`7#eIQ( zj$Z95>Od`WzakNOIOrzwK;QsJhJo&%wZMal1n2>ao4`YXvm6Jt735Pb@~|Qi8nkXA zUkg3(IK~-vEQ@?ykqF%qx`{l}A`2XI40KzeEqPRt2>pWLCh}MyqQ}TB?Xu^~LXRsF zdi)-tCjxu4&=UrFfUT`5R3t+8OitFc30&f6W1!Vv!=F?Hr)`WAoTihf0*5$S8E6}) z1)f$UKo7;-1fB`ZaC9)x6GtuZtReyW9oJ3ZxzN9ObHo_v0ihOoUXcg|h?~f~7J0>y zW}wwfi_BLfLbpS1A}<8GI1Vs$EepJ;NPwQ)y9q1^3~-!cpywspf`y6%XwT{<@KWFi z$9X;IXz*x}mlcW7g61ajN??}bO9uL>PYb-NNPwQxxCtx@6;b!}$bQT~w~tzAu_7V* zdC^HIED+`hGj&!*9_DM1lVN7HJS!*Vgxtj0vEbaq z8TnSk@ww4SkGFgZ$V*2CYofio(}~p5p)rZ5%D2$r+C@*p)Y>UFRntJHoX9rczsr^_ z9U$_m!&!7NPRJ(cKUt6tG0HzO-BkM*Q_Z&yAFjrS)lE`|%T^{*yMn#x*dU$6jM9q< zXkJ4Hzm!^)EcC%rq4KGEG|R(nUS6bQ@6wdFT%c|Cgz@Y_bylk2Tn$&HG)I%J@&&2xU*s)t<&5b)%CxA!Cj_p!*JU z{$ScA&5_0J%=x{k_LeyzZO$K-%?Xh?ephRL9F)?Usg*&w+&i??z?dWt8ZY|mGJCTs zwEP}ypyRQAA3jqx{wPO4IXbJUA8Stwl&gNu3vijMo%;3Z8>ZT zAIX@U8J!(HGd3rumVmTS&obxbdC29SD4)gk$+u;y^=WWbAL{?tbVOODeyyowmwE@P zEV<&d(c}K!kDp#>s#|)~C%1}#etj0$@AdfQOG|!yM90PHEO|Dut3OYt#pPQ`W3$tj z<%?spGt;x9a}(2NWxd+Jr~m#zwprFuE&D5aAE#cw=!6Dp^&0b5kF=s(?l0w(%9f6& QtGB8=uc;lYe)!@40pk~rC@*k<+wHWs$A%{_zHavX;@tVgx>K|BbqllS=f@`MPRaPXtKrmv>$}e{%y(vH$3`-p znemCv%+$i%*zEj7=joBr`KgIaXZOU+*yP!f`RRqueZlTzG!pZrg9jRRHLgn)NsY}< zj4V!!*9}gL&rB?gk6iv^U8BD)I5$6)scUQx1n9A&v8BV`*08Q8n2PBF6ms>=&ZsO+ zjdh8!#o19=vFkHuYT6c@7h{7MODjBjmzWC zz0PjziN+$KWF(l5gky=2$CZ1Yt*K9?gYj@M8TLiv{R8RxT(+jMZgFZTKs=O=CgQne_btyBDOeMZ^hDzkAL+{MJ&AQvu`JOaiF>MLhKj^MT1uA7 zV0Ac}jHt|>k8{gq6eG(KP6xYVkzCd*YeYs>_6I`;g8L%5Wl!#9c7qfzL@ed9wL_6) zV#pUt^z|j;zF0KXpUYORdflDNR$Psr&t$HhfDU+C>3g{hpHpo8P`&>ECc|wiN?^E6hTCMgO@`ZKxJ`!JWVlAlZ@7NL^&76gD6Qf84cBkDe#7+} zuHSHtK(paC8*a1VHXCkpQ8vSEHr!^zZ8qFy!!@~D47bH_TMW0wa9a$wrAWbWTMW0w za9a%5ByBa^R>N&I+*ZSFHQZLiZ7mWr+*ZSFHC*%mHp6W*+&05)Gu$@AZ8O|9!)+_l zHQYACHIV_s4H#~~a07-LFx-IQ1`Ib~xPc;s;pz}|+IGWjH{5o^Z8zL@!)-U*cEfEq z+;+olC)#p_9F!{3YLLWd@SzcY8m43s^yo&RBqj8y@r~8XXP-{5hBX=>tHO~`ESQXR zsBj{l4kh}BWq4ya5jhl$b;)77Uykp&S8B+W^I6Ef>abizRG3S7Yu9tAmgiI##d^=u%Y0*8dpxOJIF_J&Xk2) zT@Scd%jhc3{Ix^o;SXi5cgTGBLz#ETM&gr;zD-owf0=QGf9MK!(@ICK^l0r=TOSIh zL%qIaBt4Lf`}#xmw1B8c4X4tPKDieBMT&HyUU~iB;Pbj%-ql9tm5ppjeum}euzMXE z+-~?>lHDNL?JUnS#5%ifK8-i^B6{lni=*6t0f)~I6ryT`4*{{s!BidS|*TD376m#dU`P_Dy! zlZioXQUnb?G;lPO9fq$BzE9z+)Mo6I{j4F_MX2w;=}1S`HrC z*D|Zj+n8JNR#eGg4JFwj`@L)v_!^BeY7H-+>#;*tN|Vadlw0{IJh)|WtE`uf!L8Fj z%J8;YuZLtd4Q`Ro+XlDRddv0mHu=1Da7(SXNOIx?+EXRN zl`>o*!{stuCc|DCmZg%lQty$a@-ozW*U9gV*nuV{t4Ob+%XUL9rF83GPTyPULNw0vP!_QQTJesBW*Ghc5gShG@B->m{wro3E z1om*WF{G4dTkMou9F)5R`Z+=j*OYRropP&#a+^@?{acQ1hKowQ%}%||K|LUFh$GH$ zL@5XClmiaR?E>8#hnXtY%<~*X$C0o)0*%|5eDrDv?M9z_aRMq%`wJ6i?ck2 z?9_)G)Q1H+IA$46Ddk~1eL)cdF6<}3EhhxGSIY=#}PYq zdfh3depFyyt1mOmEA^vx>PH>akLen{&yiv1QtHR-)Q>r+AJ^({IQB45=g8x@ojOf7 zr95*&U^hpU;f7K^VW&(}WGUs70tt=*272ksi{U)R?bOE|)F%X5 zbnkh8&pIg22&6bJGf<`E zF=MApU9MD_X9Z5_-g963`=uhx+7amGwG?4a;IbwxG0;m$9&>i;a}Mg~bW41~afso( zQa@*>e$GLCUSNb{7XuCYdCc1>(?X$?R~7_99Qzn($&|-}oic5;l~P_57~n|h+PtmQ z7wyy+9n{YYOmduHppC~o&f6(d1(hoI1%ay^(+o7&=W)SKnO<*7DPPiUH9KYcai)~=b%E;~Jq*{C z@^w39%2Z1EhHjBBIFbzXlSv*o?9^$wT}u6?R)5NIoZ+NWziFpV+smcYsjc4<*vD~3 zxAVt}prY+4D$55*w*?M!TwtJ0;Jo@F?yRYbh786K$Ih*Jx7(QNe}Hww4LfidL(d^;~)cV5opRIdkSqc zIZ+-9%yJyl_K=G;>9IYDy1NtUTip_Fb4)SpT_b&KPomdcC(;v5dc|>`fnJ8RO;7Ae z^rMjzDJ#&f`_gUg!KF1?)}EIA0PUGTOw*n*&<_IIuBY}Sdhsh|SF6A!j#dU*a%jRc zdjc(`N)f2rJQq05(ZWEBN=JkaFSzDdyP7pCcU;N(RArVS`k>#z4R6X{Sd23EA}MXuyP{3(XHWu zrezuEg;>+x*wg4|;8L_^fo6_orjAU}$xnXppK1T<;3rGH_bJf3Ri81HNAOsEFeZ=R zsk6Iu7B^eFdPzh@)zSR|bMVyVVe-JCI*cc?deiFQ`ihHXHf30*V!c$B=d|Q_;XNpW zg`=42@SZw7`3GVbK9pJ=ex(T7c__*rmyd;;9Ri!zVRQNKB=BQdrf7VhFPsPs&_UiH z-EP5Wo8YU~)N+~Vqt!%(OBwh~9)fgl&C#uik!dPNNp~obzMs2*?o7Pzf<`Z$>&t5w z(820oa{;Xbj0X57VkQSpM5;Y&J$?e*X*RjwJAcg@~1b*fahB-d|l(bEq0s*-4%XVz?1 zk*Zpy-Ld~ivz3M?e`)wzZTQXYI`rfXYbpB zy-8(nEsYA*@}us9jmfb^)(U0*Q!e}0>b6-j*cXupi0g{)6S&+3@Y*48&xYJ`xxSX5 zt6lwlOQ+;j=+9bJS-9;z=o*~@blTkM5}J22U0qncc9z;mqTYMjzpLpP(oaAAA4I0xtN;K2 diff --git a/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~3~ b/internal/gabriel/benchmarks/GABRIEL-TAK.dfasl.~3~ deleted file mode 100644 index bc0d34a2ed3af3157cffeb05fedc6cd8af5a2383..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 15218 zcmbW8>r>Oon#XfNz_E3}vf5e4Q`eWrQE$U(>iNdq(7SR@op*Gc@m6EkGxUwsrj;YL^FY=2u6eG*gm5p>JV)>j`R+x;c>x)G9NA||@i=Of)!Um&`ly2Pxw>NYxbwN%Ysm{!Q#V}FA+GO?FO(0IL*A?4 zdUA&j7Cj@C10UFXo)W>U%-k%^TuJt25~)a6gZxw{P3lXh`n+Gt51$uHK&?R*EmK=c z-X)!!A*Zh@OX2-WYRb4Z%W?7ESUSV=iz~_IH@OvxgfI1{l_iH~q&rqfle5XZ^hC*O z@}n%=!ALqzZlpxsW`6=-sX#~vJgxM1u?Byj*rvfI{dLn&DR77ai&OY}`F%}PnxPWZ zQ^*(TAJoZvBN-i?=}D!tv2>sMR3n>CF*$`y@=|n-3~bj)WvE$&R!~Sss$f~H-y{f_ zV9*3xOt94i+e|QIf?*Y;5*S&(;rb2NUzWgd{f6r|T)*M^4cBkDe#13d0mBU#ZoqH@ zWoZpJV7LLp4H#~~a07;G1cHVeG~A%!1`Rh@md$X3h8r~8py37$*W_w3+!n)aG29lz zZ86-IG6lnJG29lzZ82PvwAFB14Y$>BTMf6>a9a(xwM@)#TMf6>aLxB^hTCSiZHC)s zxNU~pX1HyJ+g7G)xNU}OB1487GTe~ih731kxFN$08E(jMLuClV)gkJ%VZ#j@ZrE_c zh8s5Au;GRcH*C0J!wnN{u~rUBwOKVt;w$*ji~tQ&vIu%~qfnX>der#Fn&fAnPOpYF z8X)VtV$nn-9owP8sbn^q>Kl^bHC?IL!APP*4%>Zle9yn80eGdH7b6Kdq-O5q7rio~ zhK71Q9M{v}oE_?m$>?>xk^OS+lhdADFvQcTWN$2)#fDWhzDuFp+U9^y&ilSlNUi|X zlplPP^IeOj6?6RRmsHGPlCQF2YsU!63qCr!If7l67rXv zMa>GqT`a1rJo~qf*@r%ry~#2Ap-*MsBAbp+E)3VH`v2>+tNW*pNT*r_$(10jts0x6 zk!-ZbmyTuo(@9@nw22lLwV9zzHr6ZGiXWxOrkYe0{0Dqqm&;phdtTZ02IbF?{5j-a zgRO2id@f1fD(O>^j{p1L9}kzxkorls;9@E6*44Vl|62NH;-|>u&z&8re0S^W%D%bx zQ|IK*9g*TU_41pMn)f4~_amhFJHYo%h=oRZe9i6`YM zCK*ZivOVe4fHrL(wr&JiS@D$C6c#5U&^b`we ziud20vY&2~W&2HE)d*}`k8NwP&5P|aQ32Z};>*a7>pK?4Z%;lnN{X(&M$fE>M7hnX|~9*K{gS5i)Iws<~6 zlV>Hq_0-F7oebB?@Cq5Okzub4%aY0JY4XUDc^R6#tL5J{*aAP3b)}cvHG3deSpH4$ zuPYWapj|Huxy7^}(_T#b_`vmna??xhqGsw92yg@#C`AE5sqa%Qb+fa+?mkqj!AjCK zo6sV#o1={(qtsjM)mt3YI|TYTq72uSdaJ#9tAl!*Q2pS0j!uS4iqK|HXmcQh1P*c} z84fG;kiB}yK|L(c$#IA&EAA^o*q#t}AnXvxa-3plSL!?L)pt0k?-V%AF~>k7TLC-m z)pt6m?-IDmaZ`Ker6TOIC+u<{?AGlk$8|Ge*rzDF?J2t*DD47Mny|z`PwEA<+Y_h) zmq*6(;X(G{Jpx^t@Qh)~SDO1O_-F38Pcm3qQnJ>j67_Ub7I^*-HpZgX5`IHL%C_JlqM!U0WK)P3Nw_SB*x9k3@Ia3G}xLYnfL zfm~WZ+MYmNv{FmW2<+py#BfomXYAE!L0(BcD{z#foncC;XYJLq4(j~^vmE;v4k`71 zd-Z+?^#NVW_c#W04c}9ggZ7kz4wPX{dCYNIQyweIfIWqlJeBHUP*dJ;j55$7uz*2( z!k`0TNMHxY48tjU#RhXs!7p7w}=rltZ8+Y{*V zs}kXez?>#5GR!H$5qrWB2f|TZ%MUoF7&;W;s6FAR1L2q^yye)b=v5tq&_Zil4BRc zRi!>|uRiXeJ|S?Cqepw^nIcTs6DAx8XLLJy!jWa5!K#2W_5@lOR`SrKzX&ufdCqZJd+52MT(YNJ za-iIm-`y2R>wfT5lU^&*WqZ7Km_3Hv>ICe15<8A@h?bYeURVDQs0yj9i8Ez=`8}{my zv6A{t-CAFAq#5WnQUN#Z3AEg=M7X61&p3`ToKS>Y_5|8iuSB4}a9dz6#~IxZo+yfn zwkN4c!5T>PR$vI@xtk;H>T&_ZVnm*R;FU(a1I@+B1PMO?%5g z+jN?CuR0oSxj5183*6GQ7rNfwEEDfnN2J%APQ(YgExzLDV4zJxZQq0HXb(O?dnnMx z5oVylPm>;2N1|n{lU?dsH2bwvC-=j|Gl!9AKdB3{84m9f`KfoJdau zW;l*&yU5*|_M|!*4GT`R?{(|A!!g0IXPNeWbu@YmccMMjwAUOL80eu)+xE0N8of|+ zqU8j_y06{Q-dtEF=Bgv+K0$mgkkG{E4D>=o+xM(G8a<3wvaeO(GDj-|En_t0d36+8 zs#T&;w|XIPjH88t7O$H0qB;_7gF2C33Y_BzG0^t2CcUhVM28xjNDI0h-sk9IpiN>; zTd0mk&B}@PO4F7&`gA+Iy-a*n9g!X}orsG9J2{Rp>|7=-R!5?jL{6mF0!fZ>2HNJ* zUVL30i5Busq&EU5IOeqnsUvFIo9bvZ?K;tx1kUT8e4Bw@U~Ae^bu`*^bE3V~E##pl z<{0QfT@&9{N2J&2m54!sAV-j?<7;$Ycm08XrTsV8f!{6kJXE2c4f<@bJRr%MA_;jo zQk}e}lhnD!;#D6NCFpjDIWX+K1vr{W3gB<#BM0lIi`>9d!HU*Y0Tc(&5WO z(H(R~{x{u0>k8uznWH*)(B?*K19(1Ew*_!#=Z7tpM(pCSF zsR1t?r7W3BcL09VRN8_trpg@EnL1)*mTSIbYCxMhwrpyEO!fZlmj1etOG^{Ku2q^D zfAA8{^@A~)?m8@aKkGY?E;doG3!CYLz1M?pRN1Co-eucs)TvsQ6Q{%`=QqordN9C|2D~s~~F`xT8b>T1_>5a*=;iCL1iOXGLFQ4}Ju>9f* zeIrG;2le|MU5!wozi3ru?AIT1%Zi|abh*Ik7NU2fymC@symy#sBx&z`ZRvfNcfGu+ zf(>+eg>JT_<9mCubazGGm>ip%xhyZj&dtuu4bM-^Ov`+A|3<(5U6x+vQDyuy-40x- lFJVGnVDVs$xnn5pDW&_9yz;?{mu1wAPuCArj)h--`G4sOOWp2u@Rz^1gp<0*S>=WN+C+S}MsNdhEZkPw1ILK2f8;2jVJiGT>+?|0jH zK@{_CGq3iXnYVlToZZ>!H@=v8KeJ~~{}cOmU+?LyUsXb-wevVnJV#QgRDD17`_=WS zr)tqrKNOCM@XWc{$?W)?m|2*gU6>cAXXeC(nT5HradBG4i)-EKz8iZcX3mXwWJl)a zu5?UhCojx)MB;}M>5f=5oeU>Zk&gYLu2eJ<>*$Ka!@d2XRA0Ij<;jHlw(o9PlP=R7 zn;RdQA3r4q$4^a6QS9;$*gDz1_Iv-Z_BQh)?I#Y&>w7T_xXI=*Yt$a zF_=p`8T<>J<(VsoQi}pk?vR`>~iE^UJU;Y5f&>G-)q9s43(gsLY~mT zkWStoO6%x!Zz7e6q>}1ejchu_or_&SpviL8m`xHy@u;GT(9AJ4cBP-4A*D4KEw5ur8Qii z;ra~MXShDY^%<@a@Efk*aQ%ksH(Y;NHpBHBuHSI|hU+(6ldIKmTMf6>a9a(x)o@$O z6b!f3a9a(x)o@MHHp6W*+&05)Gu$@AZ8O}qGBLw#Gu$@AHNUqTZoA>O8*aPdwi|A{ z;kFxYdzr4`wi~XA3>a>}a07-LFx-IQ1`Ib~xB%@k}_89G2m=-HFJdP^?o9+etaT=U>wRyjsqSp_m*}(|7VqZW&QSL%kl3 z>uGS#3@0NpdVPPWPtJXE+LH^0Xetr!kHj<# zwMZ(OzOm<{)kVLYk0Zk$tSlS_d?hEdb!R(&UYuy`?40^Z%~%^79r#MlPfj&K5ijSA zI~!D-ocx@>Gt>TiH4my>LyNtQS*C(xu11I3i7ojYlQXO|Ra}>|#&xH&H0QZD;j1P& zk=J%52IAexS{baDUXV_V_B$E2IGyB=7rDB0G7^r4V%S2nt`&G)Ie2S1IPeh|ccpRv zUaLO-L*lk7ocj7FZ2c6eww&~JKG#q(vF($fuggJStAzwJzHD^l)ry4tC1+8yLU0y~ z>L}0tjb--XPi1em%zpS&*|*82KcfF2iayMw?;3nz*25fVEhGy4leB-K@ z;W`fC37=0yVuCiwb%wPlXaz++coIrm3o_f^)?IjcA@&gcN|>|mlUDhKB3)$5D+-T5ob7})C2a_ z0~YE*fi8~2Oj&VX5rXy!K?}kzfegoKh7P5^%f9+93-#RsXE^2p-&O^*(dC?AcO=4IYJDBO1;y*dZ&eYpTHPLf`PhX0U`V9Aq({`fk}>j zhFeO#%f5P-g?d=vI>#^rb(8|a_SM4{>fO49zTg;V7*m99`-E-_LPQhpa-7#a?Wv+f z>{B8ZlpcW|jvEX;O1;OvI%TZX{`U(E>-PVIfmXl;?6*(YZ$ao4n9_td+DmU0rPn^C z*MbrixTz_38B&T6wNHpz5Dw_tUgX%va7_^o*eB31S*b2!0&N^I2Aa4F=(Dd*16U>X zLjnsNM;J~h^_YG2n1y=3KrhD-!*QkFZ(qINLOm{UgyWQMKaUh4Zl4ghAS48)Ic6DX zz$zeNUp--=p44sUHpg{_vx<=USqR%)qffdd?u7%nRHw0(72kXKUA2pr?+V8|-L&#f90LsWFj~M#`|2kx)JFwIIYt>qmHLQ%^$`p8tUxEn1qND( z7cgpHor+b-Gh+ht9MigoeWwUx_6fA~uS7Vd+s-47s|>UVFW{7Y!YK>FxInA!VGkLm z6=B>yVcddnTA)J{UTIG)E6Qp66dEQgdFqV7L5>jyS{f8^#=bgjbW~EG5IDuLhvBMH zpRlh!VWB=LaFL@|d*_)VOxh<*S`g0acJzcJ!$5;o0cY(KXkl2%LsJ5M94EC64;5j` zK4Hp&a84k^agKpD1PaL7SEmJ4rSe}A*vD~;fr?PTIs5A8EYzn3(i~S9sFDhpwy#cI zvr^e-1WxN7_CWjpm7>hpr_cj-CCaS86-`-WpogIXX6+MZEePjzD}Bmwh+#ny&f6!P zw;;?3jBxB`ph=^EIs59g2&v?u3j$$|{S34$E8v2Cb=pF#q&_b&z>(H9d`A)H?GxrL z2nzxe948oPW3_+<`|4C_mCAon;2Osi15FkMT(qxFk6V@0FYC7Roa3_g&~rt(WS?@$ zf^t{>c2^*!`@vI9daX#8?UOEBkgf<^(vK%J(5tM&;r zAy%rBYXU|P-)RY#(iL{_BN0&$KB2HNJ* zUVL30i5Bu!q&EU5Ip(zosUvFIo9bvZ?OM^61up2Ge4Bw@U~AfPbu`*^v!cD#E##pl z<{0QfT@&9{N2J&2m56=;KZl>G<7;$Ycf-N|r2RL?!QU+QK2)LJjrwe`JRr%MLostNtTX zeQr8RSu|DM?DZp-fsrizrK5gpwim5&_)%}lK`pZTxEsg!MR%vGZ z-c2~i_r_$p0kQ1+KO)bDi}I@^4rhtIa@ya;@=L4q zjTGG;)Zce>HA02{q*ax%Uwz0eD}oBryN$M;l@#h-uvf27stWB>pF 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 ae0a6d967581c2abdea6e524821ec342e274a6ca..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 14045 zcmb_jYit`=cIFHzN|t4tO8iKiY&=eCdrg~)o|a`hiun{rrbvpUY$;H%(1VV+dQc## z*s^S(2)g@Ymqj*FlI1O&V$t?Tf$a|i1p?cPLO{1@oBi7a=mXoI#cqFWfo9tRy9ms?rR&N^tF3e7V^v4;iZ{EVSPBalq;?dhvU~1>EW23P6iXH@bHK~kkZ4k;XpVZ zjE?zJ*V4m!!e_O*F83cu+oaAFvNNUZycQ|s=4aN=YrQ>MBs*JJn<=boJwrpixO1uJ z;-&uHq5h!@gMIzoT?ZombWEyLeK@n0Ey}06wZvR0KZ{xPcK3Fl*ZMAX510@4;o+}7 zu6(4vl6T<0x6F_Ibk*6Z@a=un@HkYZ@?rU4M304osjxp24#g5d)lqr3?D3{E{&>ir z3iT{J%7u|s#p^QHe3s=fcSPZvXlm6f} z|46v9saD=Ew?laK#(R}==VUmQnDhk`V`GW9k1SLvw_BD_DrNUZd~Ipzo&%UTPFip< z42;PZUmlZ)Kw|H0Y zl@_vEalKf|E_YQnX($(s331}Mc%f20HZn6?$iYDLpe6HCWwS-R#Jy-(4Csy|Q+hlj zF?DD3v2ZF~0iLafZv$zgi#SD=p*b0LPKz`6b-xq<`|25VdB5CYyU}AlblsoQ$(m{O z@EAP+ONO0;pKIr)KZ9vVIowYAGnsHI&TBd$Cgc<+W|Lwi|M` z!iOh2t;yIQKjbyK-_YZs#0@XYeAYfutGA^o?0F%UE0&5{{w5}CIEc0~vz#rSXE#|Z zX0=fwTl1PogVtRZ8H#>}*H&QzKeF#^Poyc@HLtuK(M3(Y1 zrQFI}zSVqgr9@uK1_P4&skaYL`ZI7$afqgL8p7JG`y`qTDZAB*elA&nM2N;}=2ZhH zS}uo4Gmr*xGEqR9eceWak#4*UVch`C_g}GS1S3*cLuamI#cZ6K)i)l;3T^L~@E1E%!^Bo=B&LL0JCSa4ZzAXJ`M!L(hL`4% zm>?sW%NMf4Z^>9cY=(wnT^d5HryLu9$h3iV|= zKF7*fACiu(w#CsN2aEa05~H3HM?K=a46hCEj{An#h-2!t*QWE_k|bGX#tl1F#1SW z|3Z&Gzx7AD`sl&`T=hp8A%Nku739`5l|im)LGY7)Z>4+@F=?YkWGEA9T%^}ltIz(5ce43NDlz%LY0K46#5QmMtz+pO<;>JAM zu$+Q1zdq(rJ1XTv8}r4*dpB3fW?iLXNuh=IZn-s`34Wt$RgMn-hLB~YHFjK$!VkE@*+!5v6U#6w9pyVNI2hj>*zUfDbX*J|?zf)LZw%e>x3 z*CWy1KG~vceYCG%w&?m=tbahZ=z1(Za6z`{I+46EC|h(ro*KL;TXdbyTpW@ux}LZ` z)Gb?dePgnl(h%rE*Hdp)b)jp2psEWuf>m95di(kZF8BlTIc^LFg0e-w3|i^h;0gNL04C(HGUR)`-+7-aZtsl7ZASO%1fIkqnKm@rBO&pk zEL?bdGwgw~gE<43# z3%vnCPu-Us=a|bOBm{2=@(90nm;qOjME>UnmPf6q%~#csNzV5l7HkU0!zq#awTYB% z^b0h)vX4p32w-yL-`Jv)B3^syQGY|EbWrXz?3`rNVUTrbOR||50I9-nZ7NWb(H2T4 zQ(=gDYGr;)${hAb5SD%6>){kKdSkaoG-*@mViT2qzfC1K6W|R)p*{Pz%}{mzeOX%V z_l%!Zxkg#$^bDu}aQD|>#ZZb729HPu`w?knt*|2sfEV2gAxl|WL3R;#S5-1s)GJLGjLJc8_` z6*mq{>+$qNDl9jJB);`V1j%kUo!=G{Rt_+>llSn zfZefgpi(~BFs5@BW9*2n2%*+R^+1(?T_9jde=d-(q+u6`S5mMGq$}yy1;Ulo>jK$I z+I4|wCFP<-H7@Da1%j1S>jJq-nstF#jWIx~#uy+}V+@d~pGnUJB9)Zt0*OjGb%8)7 zmAXKl#ubQD5~>TNDaq6Y!UU1pxGKPSzSNW~7mQ3MSSg>_j^(zZ!%j#B?fe*|G512y z0T6VkQhsH-0u2frH9S3BXHn3pl_-RG?#yM^n-&Tg#!>BAE=uxOT$@vL1JcVgKgYkKK(N9%_{VU~z!KLiXicgjsmWw@`wNhI#P)}kU56Z1cD(?CWRj9zbZ#tPtMJM9ddMWrlIk9}Dabl^*E^(!W z(Xm!5Wk%CZF>Pf=Lqx(g8*Jq}mhlxuynz;Z%wBm{!5~#D*YWN&^RDt8Gh3P_rhSpp zN*qLVcWYeCL;bptU)E%4gcs10@o1800}olFYXHcbPVuG*$c1jsN{%J1)Q>&eN*u}3 zqhw=c!CHve)xmFh2(~{`0itE&e1iBGX9p9p*uAF&GrI$rZ%Qy1OfcUhFkj%Tr3Ot@ zFAXK`i&=zaFR$UNSh6WzTAd!H@v1dWcRb!uN)Mm{?~}(aUc_p`!6{~GQ5iJ^Iwz57 zh{K`249}UYuHmhPM~ja~SDe54;sbr*_=7fRqbH8mbzr=NvzI=cN3i)$hq< zrb0OTiTM#NC?q-5o=Ul>`O~3D^N+NDr(c^syW?ZeW2Y6vUQu%#1B&g4K=yfOwuK!R zPhkUoqCU%)QxcUob{9vyP2&h({m6WZo&}t<}@BJ*NkvC%nAb^+~6o`o0uJ zdtj8>ysYi_thJ=5Viwb&ptHjUOo8WBlnA(<;F9nQAc zjUbO26M6Rc`SXXCZq8Gf&;gv<$;nW0_Au_WB2$kf;u#)XajP2cx#D^(M(29%Nt`%F zu=pc!^`I=}wv70LQGYw!)rGP#YGF$+J>`6VDChg%iroraHB~y~W^Zf3*mGJF`mr@3 zfK5PtX#l?GC{GU?TwWLD=Vf5}u|x%{be;m!aq~1~ZegZS@81+`vQ>pvVB*;eifCuw4&2i zz;OcS3&v((3+aR04b)`=YQt=xPko*x-j<;#g~>O`?z!7`ZZ%VS{`ETN^9@eyRGCKX zjd;775-%t4+YfYWU2EAXmMz!f8eeTL{|n2^$mP-Z>AdA1EHQQ7vMjyj7pAu?lehG8 zE>Gu~c*lg!s}blIW=dN2Hr_(8y?uh0r?iGuE>tUvuB(;u5gDp*8iYL> z7a-_?i_ozPo=CZ@{>A$X51vJ4wscZv5}c#{=VNkC*VgD`a?jD76V-m@S&ZB=jT0fN zx%wa-n@-i(bh_-c^hCF8Z>F<)mOXc>W{25-Uz9M~6~^0-UBK17VvU)V0I+Ig{y2Ab z$y0TSvvPz-jjA60{!BW`qS}v9`v}2>$BRF^rhoClD0TyO6t69Q_Ol1Sk|5TtaAZsk z^8EqT$AjEH#$W#eD9?T!DB zlzn22^Rt8et^>XM;iI=PIqdDUoA^JQ4D&cg`JEZmY?{cDNh3`_KKM_b-9wYoH>Zi} zkeVRRw=@~#T7^-|t42I{tx890RWGhEyFF++w#?-EvT@(_6#^r_jc_^>H(V&(~ne-=|?tIcvsq3m7_K(RX_TMR5@xol1&x)nvE<9+a2jen;v#Y zYN*RzJ;{z$ohRLvp7f&WNw=-6Vkb|cms+LGwE67YxjA0>yQrhSymN4(y+W;9tvkiK znSYmL@+7O(vB`#0pvG#vo;bKeDiE{5Rkd2fu(?B4qUtswmf2#a z*(_BqHp>NQuiGdWXsFAc?PgQ3&TbphZYk4l8=MR@up3GUwp@T2cbE2Se*9&Wx#3EfHqZRI#9pvW^E!Qlrot!3Td?*vS$O@ z6s$AgU1`8s(|~t(XF$e?GwuMV>--`2#|_(@ama%F_DhcgC9i?ze?`-B1^cBoth7M>WVVpMjlbtAtmX^&6N3B- zo@@O%ef%AL{5^gA<9U9XMgB2PmO6~XTYkI!r1e{wUX$M^|KLdAb!=4}tobXVqj)#F h{$20Rr+srARo0qU(NQ6MsyEsle}YM>cfb1T{{b`%Fnj<2 diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS.DFASL.~1~ b/internal/gabriel/benchmarks/IO-BENCHMARKS.DFASL.~1~ deleted file mode 100644 index e05099387ee931889feffac88c0b71fc25bbb1f3..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 14051 zcmb_jU2GdycIFHzN|t4tO8k>J*?64P_L?>ok&@IQ3&W3ZL_aUfc{|nSnT#;3pCpn*hP?j z=iK4UP$Xr^N#Kxkhj-3B_dDmF@7!}o@7cO0gE1voTwcj9#uWv<@8yii=ujV#TSN^2werF?m1B%HXG%#6g;Oe&a6het;JfwUTqjm+i> za|_EerN#1yn)C$1iC{GDPhZXST^ih%u}GaO^ z@9?k>cP@G_TpaWb4-TI@KQP$ew=d$)#Dq%qhvUTpKkOY=l5>^fEGFUW_w}Duyyq?s zo;MyI!oy#ET>D6Vt!Tr4Zy6tZ>8iI^;@f+u;j+n6?ZfK+h#CtA(_w!$9Ev4_vaR-R z)#c7){fUr29rCD&)I`=@tGc{OrMTi*%DtUiBHWf`h^YOj+7+2d1hZ-~QQMIIQ2rJK zxZB$ZYZ zS%IlDtH#6WObvK;>b?!6^)A{8vJA~hw{u22gmL&)KF%Ad`K(+QTNYpxxyRh0<&hw|S)Bv!2GeZyD=_jl&_!BG!f1*p5+v~k>j`|7z zaMSH~s~zJL$t+eQd2nwemQ1ClJdtEN4vVRYQQYj&Z(dKU==UL9MRX$5Sqy>cJr`Lj z&Q$V+w>&Gwe4#>K%LW6Id#SevPx`ZPOzi+o=_G`8oA*gH8&Y&@6#YV~1c?xh)y%5~ zPO_XY%q-Oh=oOD$S{Pm|AYNwBdu3%!na`IOm6cqH z!r@F|E=MYy)RJ0C8*kKRe`alYwz#B#2d=nGc}ZN|O4a9tyoQ^+DjY-)up(eN824XgygkSv z)O0ct4!X%*gy1P^$nri%35WiSQuHF zM`D7EWUg4sjl3md{dQ>xv7U5f{1Nls__yARexI+RN9Sah%`Q=_bNgel`T|E>s-Dmp z;NnG{#(D88#$6F;C8^GdHhG_R%C4QV*&aZgBkT1JVIh5F>+BMY$|!3V4wa}c)A1Qr z#{3X;Y_?5~cG+0WN2VD0gm&1a9qxDugC2y6w0=U#-~{38r*uR+aacRGSB&mNrvrMY zI*n;3popX}6;i0MJpiwLB%d8O$2YI`bsK?6TGmLCA(gj$l7Y zF)|oSX2QqliX+Go&FSc+^d>Wr0@H>=;T~$K5f3l^OsCc{gdT9M^Bc`YPp$L<{ZRYG)=D4yp*^eXPW*7A4q>jOgThQ5XLp z++TaWRy_)pKzXJzCWD(kF85*tXCOI|2&J6tQlCgY+UxSs+QuQcR+m2zgcz@ndA*CS zN29(0(V}a0Y+z8d==y4Ga7eW1I-VFhCt7r!Or1L~T68_0K7T>9=sJ_VFf3YhJ#lTg zU$p4@`eZ+)A<%`cr*71Bp=*Djt_wGUbzQu^fx)43{(yLn8|MQ-(V}0@UkHXoiyOnC zuxQaQ!~NliXmP_E85J%1#p@f5iWWBpqAJ!Jks8I@N80OTAo)~V11&k1oa5|$a}Ekp z+UvB$YSoupT1rn8E$i=?=I-U8{>C&_zhqIMpFN~~ROE+0tX2QOh?Ip%T*3BenJJi@PSM!=N>k^i}lUC9sJ|gn+Anq*R!*|$Fw8o1rPxdifKcJL78NMT=n7?0 z=`ch+vogOWWe)ly2+N-EwQw34y}sKcnlx4N^|w*!_ghqQG67!K7236bTMX6Y-jumc1v=+6Q26*TMs@d^rdfOG}@IzYIBdL1BJ zLAwqRt)N_#sKy1|IzX_3Y8@a~L9-4Jt3C!uRUZR{s*eFO^)u-?K%|0F9UxIbrw$OP zpi&3OQ@;Xn3PN>&GzFPDK$sv>3s(gg&sW-#<$|8c1Z&k}Td~|ybl48bpp_qkH0Evy zIsk$W)vB*;RiH(Iqk*SKnk))BH4}vp&%IqbsbZ^w0aN~_baG44!xEYFgn;tMjlJ3_ zZAiPMO=~x`d2Ly{t*vQywR@KF)osTgt5wgm8NXG1rHvNYJ8jY84(qYrpvf3%V(Vcq zFbb7T1z9XUJ+-h&PAyJQ+C?z}(c}g#{esPQY*HlU%#9r5qF)}gZRYVQZ_@8P$U$55 zpuEVJQP1WAb{sbl?dpk3FG5u})pIl0T=?Ts5854EC${%v^&gFXDx&C|hFqDbZzTW~5z@b1VBQbBppJ&~YLhKzD}BdEm!^qo zU#7egM-lz~3Rm;W%B@mySrN4nUO`XCqfMp_JVcSM1t2%=+D#J>AEzZpQfBVQu5D(H zWa%-ov9w^WL~QHexI6^gAGrYWvVK58gp9+3iCFCZGlH4h2F#lR%mo9?n*`=doVGNe ziSnhc!~<;>aoNp__zKo+n%7pZOKQDr_2V6vJCs%fD8YNgxr-aYnsBgdv$U%8A_5(h zh&;q*lV64BOx73i=ECE}Cu0TsufF&|T{!yiya)=P+C+XdhHm1j@xJl&*y3kT9{w#Y zf6k;tAxDZMk&svoT7KqQ_BqqoZ0x<}k4=O#bexk7kQI=0!Aiq*YkAM`qj!&sFIxVt zY<4Py)1R0h@q&VqP4?ERWyPNfMcRL4{M-H7_StP8dl6wNhTWoKI|3NH5rV7}&u)o3 z4xYj~97TSfFQ)`7H+B|C+-(C1<*8KEHY(VS@nqhv&6~?-U~5(nM31?7yXz5NK^1-> zigv*$wz*l`@0p89lC@b(gQCthTQCW(R}V1e7EJn{u?#F)4YF2e*s&PHIh)|Fl<+vq zYS*JYs!ZhC-{;RCn!4FfU_$$FZYL%~<=KO{(}`R?l1yZIaLFkvxaUZyu^64~b*FIV z7{Tg~B;@^~nABj;UEYo?4Oh=9Ll(~hOQkhRx^b?gG2Kn~Bityfe zh}7t-Nn|mmuZp6|e)fud-m<%weqv5a>LP;+xqaer%7%Oh|;}U6J$vN z*-wO3QF2KVWG_VMSg68>P&3Lc^T=q2fVC;1fE9JX_+X_GtCU?!nOJcN#n#JM@rO=` zygq(vPDoe&O}YsU21 z0Q_rnq$U8z1%RIz0FD!YuLO%YsI=gx`ymjd)CN0)Wkl=?&$crFn=f1U1?*Q*kxWY} zZ3b+|aKfN(2R4yEi2XoQIv}@B2L|L9S>zoNi_(~VoBW=;Z6#MDspns>aYoGTU_RA%;tY#+8NnA`aYYx{DUc`$z7I(yZpj%mt}Gn zA7}G)q>0x|=*Sw8eqpAfeBc zbhO)K@>BIxiMD5!)U+cog}^P-p><~{9HX;S;TTbwc-)={U*}r2wCK1}s~!@u3I{^i zrEv{{9=HG<`{0U{&8lC#zwq#Rq-IOUMJmBr>VG~V?{sXAJt6-bdrGQ0C_Rs%JEn0e zM0HmW#ADwn>-$cJm6)FDm)-4@mQS&ZXP zo*m+3T>vc|;!&fri@!e;p0X$pV$=bGaN)_~&#tOpd@zO$ffdH9i=X}M;jaXWO=}!E zQ>&DJNcQk3caHGazW~eAUk6J#I;BkdYX0{J+UnQFYIR3gks~H!Apw@kV4byqwE?hx z00&Vv8KwW)9ZKh!H)eO3g+0ZM@VZc=8{M&McT6|pO=?Rw!n-UcYIQd{ zus)GcC-3jrkK}z8A%-8xF2j#3s_@RVwJL`#QtE#64XJY2a3qT=;$<6A8n!yp%N9MX zj?_|@-FlK0t0qsnBRuJ4!;|iqiN$uFM6b3AnXqJ=;_tx_6}sc)7a=hckS9; z(}6_#-qLE9EojxPwo7`Ghb=Np|G8}VkEzL^Alhc51uP=0Mr)~F3?h!UE9r~V3Xa}h27GI-PSo7Xkj;$5iGd?Gwu%U*ZvI5d|$Y6 z+1;~i_e=wBlMYNm*~s(4o?DA$xcOU^UY6e@{_IG@OWCrvzu|9*4&x2& h<~P23pY{E5R9YKeNJo|Mnci!+{Rt*1-}~yT{|8ccGEV>i diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS.DFASL.~2~ b/internal/gabriel/benchmarks/IO-BENCHMARKS.DFASL.~2~ deleted file mode 100644 index ae0a6d967581c2abdea6e524821ec342e274a6ca..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 14045 zcmb_jYit`=cIFHzN|t4tO8iKiY&=eCdrg~)o|a`hiun{rrbvpUY$;H%(1VV+dQc## z*s^S(2)g@Ymqj*FlI1O&V$t?Tf$a|i1p?cPLO{1@oBi7a=mXoI#cqFWfo9tRy9ms?rR&N^tF3e7V^v4;iZ{EVSPBalq;?dhvU~1>EW23P6iXH@bHK~kkZ4k;XpVZ zjE?zJ*V4m!!e_O*F83cu+oaAFvNNUZycQ|s=4aN=YrQ>MBs*JJn<=boJwrpixO1uJ z;-&uHq5h!@gMIzoT?ZombWEyLeK@n0Ey}06wZvR0KZ{xPcK3Fl*ZMAX510@4;o+}7 zu6(4vl6T<0x6F_Ibk*6Z@a=un@HkYZ@?rU4M304osjxp24#g5d)lqr3?D3{E{&>ir z3iT{J%7u|s#p^QHe3s=fcSPZvXlm6f} z|46v9saD=Ew?laK#(R}==VUmQnDhk`V`GW9k1SLvw_BD_DrNUZd~Ipzo&%UTPFip< z42;PZUmlZ)Kw|H0Y zl@_vEalKf|E_YQnX($(s331}Mc%f20HZn6?$iYDLpe6HCWwS-R#Jy-(4Csy|Q+hlj zF?DD3v2ZF~0iLafZv$zgi#SD=p*b0LPKz`6b-xq<`|25VdB5CYyU}AlblsoQ$(m{O z@EAP+ONO0;pKIr)KZ9vVIowYAGnsHI&TBd$Cgc<+W|Lwi|M` z!iOh2t;yIQKjbyK-_YZs#0@XYeAYfutGA^o?0F%UE0&5{{w5}CIEc0~vz#rSXE#|Z zX0=fwTl1PogVtRZ8H#>}*H&QzKeF#^Poyc@HLtuK(M3(Y1 zrQFI}zSVqgr9@uK1_P4&skaYL`ZI7$afqgL8p7JG`y`qTDZAB*elA&nM2N;}=2ZhH zS}uo4Gmr*xGEqR9eceWak#4*UVch`C_g}GS1S3*cLuamI#cZ6K)i)l;3T^L~@E1E%!^Bo=B&LL0JCSa4ZzAXJ`M!L(hL`4% zm>?sW%NMf4Z^>9cY=(wnT^d5HryLu9$h3iV|= zKF7*fACiu(w#CsN2aEa05~H3HM?K=a46hCEj{An#h-2!t*QWE_k|bGX#tl1F#1SW z|3Z&Gzx7AD`sl&`T=hp8A%Nku739`5l|im)LGY7)Z>4+@F=?YkWGEA9T%^}ltIz(5ce43NDlz%LY0K46#5QmMtz+pO<;>JAM zu$+Q1zdq(rJ1XTv8}r4*dpB3fW?iLXNuh=IZn-s`34Wt$RgMn-hLB~YHFjK$!VkE@*+!5v6U#6w9pyVNI2hj>*zUfDbX*J|?zf)LZw%e>x3 z*CWy1KG~vceYCG%w&?m=tbahZ=z1(Za6z`{I+46EC|h(ro*KL;TXdbyTpW@ux}LZ` z)Gb?dePgnl(h%rE*Hdp)b)jp2psEWuf>m95di(kZF8BlTIc^LFg0e-w3|i^h;0gNL04C(HGUR)`-+7-aZtsl7ZASO%1fIkqnKm@rBO&pk zEL?bdGwgw~gE<43# z3%vnCPu-Us=a|bOBm{2=@(90nm;qOjME>UnmPf6q%~#csNzV5l7HkU0!zq#awTYB% z^b0h)vX4p32w-yL-`Jv)B3^syQGY|EbWrXz?3`rNVUTrbOR||50I9-nZ7NWb(H2T4 zQ(=gDYGr;)${hAb5SD%6>){kKdSkaoG-*@mViT2qzfC1K6W|R)p*{Pz%}{mzeOX%V z_l%!Zxkg#$^bDu}aQD|>#ZZb729HPu`w?knt*|2sfEV2gAxl|WL3R;#S5-1s)GJLGjLJc8_` z6*mq{>+$qNDl9jJB);`V1j%kUo!=G{Rt_+>llSn zfZefgpi(~BFs5@BW9*2n2%*+R^+1(?T_9jde=d-(q+u6`S5mMGq$}yy1;Ulo>jK$I z+I4|wCFP<-H7@Da1%j1S>jJq-nstF#jWIx~#uy+}V+@d~pGnUJB9)Zt0*OjGb%8)7 zmAXKl#ubQD5~>TNDaq6Y!UU1pxGKPSzSNW~7mQ3MSSg>_j^(zZ!%j#B?fe*|G512y z0T6VkQhsH-0u2frH9S3BXHn3pl_-RG?#yM^n-&Tg#!>BAE=uxOT$@vL1JcVgKgYkKK(N9%_{VU~z!KLiXicgjsmWw@`wNhI#P)}kU56Z1cD(?CWRj9zbZ#tPtMJM9ddMWrlIk9}Dabl^*E^(!W z(Xm!5Wk%CZF>Pf=Lqx(g8*Jq}mhlxuynz;Z%wBm{!5~#D*YWN&^RDt8Gh3P_rhSpp zN*qLVcWYeCL;bptU)E%4gcs10@o1800}olFYXHcbPVuG*$c1jsN{%J1)Q>&eN*u}3 zqhw=c!CHve)xmFh2(~{`0itE&e1iBGX9p9p*uAF&GrI$rZ%Qy1OfcUhFkj%Tr3Ot@ zFAXK`i&=zaFR$UNSh6WzTAd!H@v1dWcRb!uN)Mm{?~}(aUc_p`!6{~GQ5iJ^Iwz57 zh{K`249}UYuHmhPM~ja~SDe54;sbr*_=7fRqbH8mbzr=NvzI=cN3i)$hq< zrb0OTiTM#NC?q-5o=Ul>`O~3D^N+NDr(c^syW?ZeW2Y6vUQu%#1B&g4K=yfOwuK!R zPhkUoqCU%)QxcUob{9vyP2&h({m6WZo&}t<}@BJ*NkvC%nAb^+~6o`o0uJ zdtj8>ysYi_thJ=5Viwb&ptHjUOo8WBlnA(<;F9nQAc zjUbO26M6Rc`SXXCZq8Gf&;gv<$;nW0_Au_WB2$kf;u#)XajP2cx#D^(M(29%Nt`%F zu=pc!^`I=}wv70LQGYw!)rGP#YGF$+J>`6VDChg%iroraHB~y~W^Zf3*mGJF`mr@3 zfK5PtX#l?GC{GU?TwWLD=Vf5}u|x%{be;m!aq~1~ZegZS@81+`vQ>pvVB*;eifCuw4&2i zz;OcS3&v((3+aR04b)`=YQt=xPko*x-j<;#g~>O`?z!7`ZZ%VS{`ETN^9@eyRGCKX zjd;775-%t4+YfYWU2EAXmMz!f8eeTL{|n2^$mP-Z>AdA1EHQQ7vMjyj7pAu?lehG8 zE>Gu~c*lg!s}blIW=dN2Hr_(8y?uh0r?iGuE>tUvuB(;u5gDp*8iYL> z7a-_?i_ozPo=CZ@{>A$X51vJ4wscZv5}c#{=VNkC*VgD`a?jD76V-m@S&ZB=jT0fN zx%wa-n@-i(bh_-c^hCF8Z>F<)mOXc>W{25-Uz9M~6~^0-UBK17VvU)V0I+Ig{y2Ab z$y0TSvvPz-jjA60{!BW`qS}v9`v}2>$BRF^rhoClD0TyO6t69Q_Ol1Sk|5TtaAZsk z^8EqT$AjEH#$W#eD9?T!DB zlzn22^Rt8et^>XM;iI=PIqdDUoA^JQ4D&cg`JEZmY?{cDNh3`_KKM_b-9wYoH>Zi} zkeVRRw=@~#T7^-|t42I{tx890RWGhEyFF++w#?-EvT@(_6#^r_jc_^>H(V&(~ne-=|?tIcvsq3m7_K(RX_TMR5@xol1&x)nvE<9+a2jen;v#Y zYN*RzJ;{z$ohRLvp7f&WNw=-6Vkb|cms+LGwE67YxjA0>yQrhSymN4(y+W;9tvkiK znSYmL@+7O(vB`#0pvG#vo;bKeDiE{5Rkd2fu(?B4qUtswmf2#a z*(_BqHp>NQuiGdWXsFAc?PgQ3&TbphZYk4l8=MR@up3GUwp@T2cbE2Se*9&Wx#3EfHqZRI#9pvW^E!Qlrot!3Td?*vS$O@ z6s$AgU1`8s(|~t(XF$e?GwuMV>--`2#|_(@ama%F_DhcgC9i?ze?`-B1^cBoth7M>WVVpMjlbtAtmX^&6N3B- zo@@O%ef%AL{5^gA<9U9XMgB2PmO6~XTYkI!r1e{wUX$M^|KLdAb!=4}tobXVqj)#F h{$20Rr+srARo0qU(NQ6MsyEsle}YM>cfb1T{{b`%Fnj<2 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 ea517892b62c98c6160163709787e7984dc3e288..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 17977 zcmc&+OLH4p6_!22zz8T3WA3>OtpvTI}{S@J`nQfWyot0#K7)rw=v8^@MoVOw%Z z$}p)oKLXbL0d})wR#~uO&s0&Y*iZ#q_yO>pbNg{y-7U533^SEU)ZMr5J@50KbFY-H z>NTUKXKF@6&ls&*TYO~dTGi6Z4PB(3RvIbsQAevh*7kIf##rZbs;svv^`>S%?xxn( zl4+w+qA4nP+0v^bmCt5Ad2yN9*%7(jQf{l1FQ!B~buzlT9$fZM#b_u}B8it?>88CMcXg`HA1pNhd*7M$Id5s}+26!R>I zo0Ie7;q(6FhRL3eN;iUp`b0CkbjK$I@Y!ACao6Mir-RW8`z>Mw@1-_L_(KvtBvZ_n zirL!>J10e8cC`KdP(nnS=v-%V9z4M6<^J&G{OWjoF%f5@vH0|OOcV;^7j1F&Vt6tg zjD{027>en6Urb(3rv0mp)S5_>H4tOWwldw`@w4%uf64EAQssPjUyNT2#qrs+KNdDyVZ6Ib@XOJh)6}$b zP#Yv$D^j-Z{BlU-0$ttebux00q7ZpwM#9R?oGlGk#4|EuIR>X)x2HHTTGjT!`piqV zpzYT}<$XgIolGHeOebP=265ZAEr!Qe{mI8{;V&kA@teW)T$sI<5~>^%4WW76=g#Yj zAl93j@wlDwKbO+vP{6*H%k6B@5NX%zBE8>hTZqr_hgzfE=^SQiZLnVXwFl$%hB<4Fnpf59u0<5@Uen44|6O}nu^T5n=JBVK;|K_ORn5~dG%~`DaQTdQ!pQ3){&qwOu#?N7yvYj)@9`CuX@eIy-r`Dq`%Z?o8OOr~?l9HgS)i`IMkFrUq4 zZNDHv5V^o8uZWP>(p~IXD{XtavD&WmNPrrl1whamhbTbA8IqVsj>RH3%Nc@{0|cO+nowBx<$jU)@yco=+>WR;+Ff1b3xeaC$Zd&sM{hxNxx6TKdmR8Dy{d~{Q8H>7 z4jWyuB}#2bwP%S<5Nnt^10cK;;6-L+QW`PT5UQ>uc2QVtiLA$O6V8_Sa3zs=rwm#_ zcl~tr5A_e261_7+NFno@)o;{$@+V9fi1YI=Og#c1>AvV>+2qWwLlNexLQk%d}0A zF1LHFYS5e1ks|GPe(#yfma7b{TtQU`Tl2htZtT_bn;y?}ZG56ikFFm#3Po=WT{m0B zE$w+g-W|H$H@9~bd`&mH){bIGblrQhtC%8PA3V(}mP*%$zXH`RA9SsiRigPu zWwW3xmdkGzid$OQdyQ{wmn+^K8nL}osd{(##x8u&U5rNTX7!qPhi~L+d&*)oB$wZ- zdxQAKX5D};<7?loCh*E4{kvmBEx>-NKs?1~5mUAl8}LkqX+`Yto0OUvL^>*;P|95M z_*Y-zbdp<`PIv|R&d2*&?19RU@AXInu zk@bKT>^$d1+&MaR=!~z_Jew6IMVat?)Q3?9u>-@L%%B*^)Gc!FM5&x81j=kOp@q1F zzLx-@9f=t>N#xaT$J8l`C?t zFyA#Wn65qt0IR9jfM0tzak1BIvY>b~2Yv;H&uVgJfItSPDPxuZ{+!E@Yz{FYX*$BR z{PQZvP;r7JLqk_B0h5dgW@lQa5wOzN%J3Sa?&=b;dR8M_>F#4mHibWeOR{;x4JD;% zNlydKME8~1#+>^=ZD0kOR!VbB_Nij2HoRACXEuKz2pt-%=HiKmx~86dh{Lxl9_rh< zYXoJ5^&|66d1B(o9z<+HpdPnf4P7`{chE{Lt*MKyQ7WzX zT9iG}T}CIqV)6c!0qo1qDh*w00TEJ%xXX_SSmO1rW%6PGz_`NH#R4F~JpkSnLTmVQ zezN)o{~*)nHpLUI(bKybY?fM1;%+|SD^A%=tW)gFknBg~kxPGTG1aDR0LpCpTQd@`^c@p+Cl z(I-$DMbpskaoOO>W*N;Rg$$_{MnBa5f?##630m{$bur!48JiiOmqIjJsNpaaxM!w2 zyJRC2OnWQLD~~`^XdBdf+rwQUMeEEu@ynYnJ2uSJtnucX#k^Fp3hHqS-Xy|i?|5`2 zWP3Z6ggi0rOc0vWM8;qxh|Ck-wrg?ZMC-DXP7QW`e;vm5J+5|ORnpjG;fQ9Bvj&=> z_~k>iIo#brXVrWANYZB@KLIT>Rzm^S_~%FOVLPOF^gD zWTgNJ!Pi1nB@%&>Jc6%~DP0G!L+*OjG|D)4kdX$=35KFC79xRB8nP=p zT+yBb{_)kIKVTiA_Vi*h=?VWM9D_SG93zZ|C_zZ~Iy$n0^RC>EAh&d|65AdeYAgIv z-u1Pmf`&7@x2@}eyFkBi$CaF&f7f}dG$W-$=~+%gJ6+gAqFCZrQ$V|3fd`=k!)ge1 z@k7N9LWKpla4Ol@H2;X=AGsV9c)}k#aK(-ch%&DuElPqV>p(5ACBBEwP_2z!LcXvY z2T%<<<9Gp{)*y4IcX1-Dh8S6+y(UsWg~>gwQrAQ-y9QTHXJL0c+gtGF$e0&HKClKt zPQmulE{O*njitr&zS9gl=e`{?wz$^>?qX0YTVg?K3wM%%y`?!5{gpEkI6F3;@JR{x zl*ID+H-L-hWZ{C+dWS_xa~qsW63{8G~fL|mhzA5%VvaxBigV<9#ROT{W%z+7X@ldVh_@HLT0IPwcYozr5HPDN0!fG_XK6lBD>;rndiFVb7f~AnVEqhny5q z+x87%6HgE|e1~h2*{;Uh!jTb0a1n|3`&0yh*sr9dun21S09i(-+V#VnAQs*j^cid8JndpWXl_8&)DJ_m(b z+dQY0TVU+8z7s`J)Gq*R5$nhIP}=kg_t5304)`jU+az9`nWiIxNcZQ*Q_=qnM^ly4 z)T0+uaePU~2VYA6#Cu!5%Vk9Q5c!3JYf8=_{1ZT|6Gy4g0_b@o;(^mBAcUy}{=WH@AI~*~ED% zc?^t4IU*8y)=_|NX#uig^L0V;C^qb78CT<>Z{}tDq@^Fo8bKDFuzFF*I}J3PdeW=j zSvLiU%s$~9TPlW7hWQH6UTr>1gi+is4D>o@w@u(qB%n5ly zcEJ7>?5#vbI8Giueqxx=&Qd1iU&4)T^K6LO{#tCvPps7MVj~K^WdoUZqbjY)*$a?K ze5vY=C&w<|JhUPY!!TOGVGda}5C25n88{Ks?UpMQ;5Z$IPD!s)B?K69BI#fNM=8kKcl8y)g1$($fYA{;(y6&xQ^X|k&8E27CuHrDD zOIu9iygNye)*0QbV)f0H{)~C1xcUvoN}2;-9$wxKWh$GWt&2);A;J#tm=P5!;#(mf zt1T)>BBrL};fFaSMJhVtFs+N)S&QcorH8@OrSRZ)Lq1>5QNZ>-=a zSJ38je`h7>|Dlx_E0UekS9`H>=KUHXdsyNpuCk3(w6y78;Db+N92GJwD*l38NOB;v;MOYNT z0wBjKQ9mMC=MQ8z%Xp=QSKfQ7TwZyTs$`q|faE*p_T%;oXg`rmi(Dt=`c^=6R!&5kDJfji=g?F0$zBe9qMMUZdUB%%{W5 z&Q3aObZRt31A{HSDKdq_oOZp)9p**hpjIx|O8Jb)X3pksuBTU%b1|QZj7Ve9&HLu? z>4(Q}my5?&^Rw~Q zvxAvRxv$1Ed$Igstx&<_nMS`mpj{DN=NUnZO=mYE)3Ik4-mtyBJ=x)WyqcV&kN1km zuht6H%*IWYYL((cZAuiX`GZ5I`RsB$do@|!@WX0eyAfGp+%wG_Qj?D#*z$0PJ6&Mb6>r^${iet0=QJI<%v-bAcew>Mej*la$5?NA_U8e1eFF=YX zQgJa~h+mHvM6NI%_r=BA+1YA3pDo37CRUddv3$2&P2TKfcI4J+mm)CTk<=6(?@e8! zAz0Tx;>8yt(;ApY&!X2yTHQ4CPOWAcT^&44yA86BoS`-9H7ujw8;Zc|;4_TKup%1^ zawZ7QAnO{YL%l40XtBC_Z@5XbXvglt+&0iGOE-HvF&j*0T4cu}+Z_!p@p2*-Z)akB zv6?J|y{)LdyG!uk_?^?#v@+>Vn739eZ{7K2m)He{x-}Z)WG6)+vLV1>rLkah!)0-R zXUxa&w7d2cCq}Q?KiLfovKeg;i{$qWX>^(#%W5g+7ht#TuEcEoX0rU8HT>;zBK~>0 zx)kQ9r?@ajMI&h5_1X5W!ie3jW<2fZ{O=_<*)Onh6bc7b>LT@eS7eVzeG6V3GHZ4E zgTZO8)i=9PBcpf3UchcWF%5L{dP!mL#P2-Qx|)wy)7h)s^?W*8kqz2*=UGjfX31d% z&4Pyt868&hI?&pzLb8AS!s*Olfd#R$Sk2i}K)>HiXXC5T`f@%C+|bRg(bGE7L^yAA z+#igg#lu?80;g?XU%wOQ)8%V%Jz2nwy&2EWCQ*jvaZ};B*T^hShj@t$|H-Cb;7bjCZsb=!*GLJZGIr<_|}PtK+n z(=(L=;^lm`x|+-;XRpDX@vGTU5e!d@Pti%HG%Eh zTO2qlGdSfPWZpB#`KQs)eA4MRw9b=GQ-9Jih67seiR~1hXrt#(iururwi03s5uXv6 z_tfu$G#-16Mqf^z##=&ANhUAQq?&QvD!FCu1*^J}6pl)&?R=2ly#~GXb z#)$Z*5s(0EZL#+PundsIdt^5)3c;Phe>oTd`rH!A)_t%*r2c+uJC!WqyrCbSnBtVw9Jp^i{xC1H)S#h%D}`|ZLGQ$O8Gr9P>HR?yu(-~RXZ zPd|RCwf`ElZ-4zischlU>o3L0>lHv28A#4Db$!Rtg#efBo_8i~5A6Nq%U}K9zt*=t z(;hwAdfoote=$C*Z`HS7e&?g{x4-@J^*34_l;UIiYWti2`1;SOEc7>$3YW$#G_}#u zjIN_}+2KHM7+NPZ&eelxd$YOW_JW%@U%viuaZLepZ?#-eKC^i-9?x>(W%{Pb*88Jg zGi*(2Pm%Q-zxU4FmdggM-auLjUGuDf8jjkW z{-C<=wb1jixqqNQZ)zA?$hBOG=y~)EnXB7E&nM6Gil)-@=`TUG+lQXDx=J)RG)iS< zu|ly_u2i+UH;fzh>kY4kdh8!GnqCVx9Kr_O#i++&UT=9V+)!v8DT`5;Lh-2Wb>fCn z+kh;SOW#d2Fl3Yb-M*0;V82z+pJKD{DOE)WJe6Tu;XC{)rA7vkjf*D~KX<(StAjY4 zR5peap26`TjZ-UV~32E8WUJ6{0SL@5j9Q*vN>$-yD7Np!7-v9u!0@u zJde9ZrVgFSg<55`+K;9_iZZYr80IX1V!%^3|GgKba-s+*v(JPcBqj9I6bKzi%uphh zH-`gL$L#l_PHQ3G%IVK^6S=5eU{T=K0n-TJ5v2-YW`<~FWOMQW6h_c?xWRfis7}y) ztq>GcRY2iDk(mGD1?8!G{T7^C>TnyPF(DfK`TeH=BJHjA_V(5v+uK{S@1*R9Z_u>8 z^#kto+o=IlFwotAJyd++6lE?tLb}6-+3$2jnP1DY?ujVpX?gi%>PLXFaN10e(Ho9T zT~<(lzR-3;30rgMvfm9}k~M!hV5qFO0T}vvI$C#Y%z9s7s8Zo_?^amNtyLum*=kLU zGGFMOlD2ta*eRRYzR;`S0KgR#)B*6OpdtV_1;zoiDF7INO@VI!YYKD&P*Y$VFxr8F z4FJ#-xCU^hKs5j}1*QR%DZ~JfDa70WjA=I>IJf~6tD}tP>gf%TSVQdq9M)8yfx>*x zz+k%i9ssPRJ_CLo-6X|cLH|bnW)1ubbq`81&_N)A)07EQ0DsJ7NVbNUh%gc4YHAg2=AnY%UplsL1E>hj#d|?4gpLyGEE- zSTDBp2fh(;&N`t^zFx1=aP(u~2;70VG*44$(sMU5yJ&K+v zJfle8u=u3R0QTi~jgGGMfC#C0Jmgmdi?PbkGI=ooU_5End>N-q0F&FPEkbMfb9uJ? z@fV+NA=2BCy88^3M=IQ408{5=Hvt+^{ZVjN>{>r$aE%(%F;!(!*?pNYfR88*Y4yGd zh={U~GPyhNK%ttb8Mu4G9{v%SJvGPwm>O_p`e=I#pX8p}_+(%?+Sn!5EajalmJN^W zJ)%6MtScGM_=YN6V4bdYL0l2Z1`|rPuR#Bz#5YC{X&<_RYk^|yElZs?&+UT^&y55# zQvfaEez?%7(C1+T;+?<98CWNA0#nZ0)_{l!pvk|FOwV)EkUO! zu~3L&;COa_@-u4JHn$1iQ-ABUiPM#icIp^8*DFM+f}0)Mu-S_LYpAVz8#{LGuuK~K z$GsEWvk@rKM6%rPZ7t+YA{9z#WA+s>Wzfg&Hcg|BO9wfrz#Kxz-C`kP7zG+Tcf%8% zD&QYqmiZHwA+k%)36q>;WP#s|;JT3Z^x}o>jSuAs1KFVie^}X|?bYa4Mc24)!9oL=d344dsAVALoAjVAld58Wg)R0H)O; z{idB%oGSxgw~IIZjMAt9?otaQDiM2;3W6Ecsr9dne-d z0XGD7*A#7W7~^6VXp~g9>A6&{1JVyU+n&4vVVem-DoW|-JPKXHK`(-YZIcES*^8*^M~Qdn*4 zH<(R(0;^#=oP-1m6%Pd*WAfS}0`HF~uf3$i_9OoHGFx^oF3w;y$eVUD+jS&|;(s`$ zrlk|6xp6DG0b9v=WwwEUh(TBsi~K{voOgZ78%IN;{CC~p*kss$hv@cECQ_f)nWa3p zVzcyJ1B#=510;)CKe-LkNmaBB-frrUHF5?`?8O~uy7GsBemP!=$!~DgRJk2Jf4dUn zE4mK&PFg5CSoLDvLs=&)ZT%Dxn*+Mcx2W#Kkf|lu_@p-fV*3-MeRjh4Z$G|dll_!a z2J7nQocU3f_n)}GwNI11c!8@WmMHK{jy1cILx;#sC9vPpt?W0nN|fy~jb6Qq$fq0% z|1fW`U>>%-MG@MC*s&$7AKSPbW(^F5IhuNhFAkP)jY;0l;%0{@qR3JR5h`UYvo2rh zqKGq8yTZjObmYjQtarU<CD6X|-L#Jtz)ACP2Fc1rjeO%$2_v%j;f4{Zid+tMRFT5U_LrOWaAR1BkY~6~ z<}0VFR_pPM^GH%OHX~QjJZ$0K_5IeBh7HT7G-8e060$J$-?(`g>!sM^`!z*&U1Ty6>tcnAkGL=7R(Wo#i}$82RvEeQ zS5dwlkWd-#O;M~i#uxWI4Txd=?X{7A5ABF^!>Px=nh9kVdLJrG|muP8OX80qu& z-1w(jKFys}H6V>2L^peqW-7|HAH^xHOmJd>QAHK#M}O96#P;O%69J0qon=6kKz+f^opdy z^o3fSZFxUil3*Nh$TW`H7Jgpk`D8KwjcCjl*YgFwkUyVg@H-y|`}7z6;>RI*EMyhw F{|8Skei{G( diff --git a/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~3~ b/internal/gabriel/benchmarks/IO-BENCHMARKS.LCOM.~3~ deleted file mode 100644 index f7a6c16d745a338a7ccd082a57d1765aab3ed006..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 17907 zcmcg!OLHSv6_%Y4h=3wP7F4JrTvR~GuE?W@Ez1rym6p`9I-{3ct?`(ejmDP8Vmy*d z(gddB`4O<@53tJ;RWn+*iZ#q_yO>pbNg}oCAA+(YBHm~eIMtZ=XcJ%Qns!) zjE@%kjnNR7@u#Bhnaj^?AMj@b&$d z^V$82>B;co{>AC&{>6BHc`}`i?mrtoosCBq_p77H$@z=n?D_n@(am{FZ+%?4+Q3Yu z+^55dy;y#4zp#VJGqrBJN4p}rPBVfQ8&9r8re)7AykT2gTe8FHa4|YXAMX{BU*0d2 zGYK|XDBabjM4_CoRG8+I^Wo&#Xnw^Hi|PKA$P(ioX=b0AeEh(c`y1TxayI&GJbh^o zqitberkKxt`tl-&nG4`jc|T8#x&tW`t|WKNo_2T`NtMWwifl4%AAbx|JdujC=}de! zoDsRgxZf3LFDEC9@pLj5$BT1e4myep zb5t~f=1re%Zz_z~Y-`5DZqEN+a+Cc68%Lo~DN`4z*P9}HIOtmN;*eRR)$R3;bB(Uq zh8h{21NH)T>yc@oo7YPUdn115na0I*xEN2KT3lwvCR~iYCH&o8$gq3@skk zauzsk`||RYI33TQi_6grZtTTyax#iCERUNC&%H)wc{;@N2;U`F?!S8Rbb29Xqv0tw zAKI+LP5rUaC+X(;$L(sjMU3~no9*sm`=T@6`K{Yl^af&hPCDh>{Bm?MJ{zB?91u^Z zi^augGCFwFmu$|9^YL8FM}Q}6@{18{-`--+QJLN` z?;yh%=NE&%`JmOUX{`sXy8fVL^n0}01KTG)&<2km6!ZDKZ6w4MqCF!rpHsir(st}6 zYF#;Z8gB_eC7HZHliQl$&gyG)Y`kZ7?LD-$hb)(z-g#u0-A-HYSgfXym37?H8Ep96 z5awVs2p4|ndD2a-)$$yXR{ykXbR37|1_dYHx((_mOly_5#eTheJhoE zFO@BN>)2CJmvmMV(i_0N(|)A;b0>FJ3%0{9$YdPX1#Oc9vAVsr8_rno)&|5sjc^1| zYlEE^aAklb-XnWyQ3&n~?#qD)Q0InFw(dg(BK707^;GKcSt{lJNrPqg)>3BkyQx(3 zUCFtMsI|I%T@<$kdpzJy(e3FSu&z)P`~5)=kVvoVVo&TFjT}3az9@_RF1R|dLG~gzF;vcDOX*-%;m&PnKwbs&%wxe{}eowC% zS}Qcp)q`kzv$^5+f}1#&f==vk|(L~}!}w5=>wD3-Q&%39SM z#tpmGn%6=-b}O~I*TM~Zut9e*>amyC8(s@H6dDK0V$`KjJZO5IxS`ZEAj{;^ck>Jk zStWnBZ=?p;Zx!&T*erZXS5@L6!L=SE7`$8 z39mPhi%hqc2?hbi4jBzKCa_lc^Dzb^YMcxtbJ*NBQ*hP2Lqt7b1v}1p9(RdM9XgW> zwajX@8%=!_Wneon%t-*nfTwQydn-!iL=jMCmkF&TCG?#X2<=JCP$HJs`#n>~?6;y$ zYardq>5p_1si<9FQQ%gEX$0_yQiU)xLo_n7Il2Q1BWT-OVZAF0At~_nINOnADFrh)6MZpFDXbM~dI8&e+ zfSCf*0Lm0%0LT<#t^mfgD-Rr80g6>o#dG!a3P`M`b^s2mtIt4TzGq-CU40J#)=-}T zzYeaFVy~coBY(35eucURB^l@-5W#86geibO<}xH(LQF)Mj!`ZDyb3Z@j3CX>&=pHa zB@=?#KruB2R{BaAUdhy5T_RRbYh;n#eJ#l*_eXF^R&u!1q?9x1ZK%xX4hfd*+!tzT zD^$)>%4V{Hl}NPFRb)G|`5i%I*KjtMj6GE2^Y}wMyj%8AMbBL$%qy%HTloXuh&bmM zYco_s$J=o6+-u~CX-9S^+9nw4?Y6I>3RiF=dPi&PqHpZ)Zw@*XJyCZ?jlO2_L74&U z%kOF}UF!f5Qti0UuLu@nmA+;2VgSH+(#rWA95Mk+uBX-rt>Mr4$@-h0zO#l%Z%69( zBUB!#aDxF%os-=JXhii#!CkRyeV4&CYD|Yzl}TlHWySzLqBNvcyCxta%0kNI?z}yP zYNDp+?g@MNIWT)_ivKY+;L7;k`WimTJvH&kz;d*)bF5j)J5?+j9@%?Dc}Q7TGM@1b zRk*-9U2B85B9aXzlxkmr{zZvzj1JO1bOqM}#n@|>I&GfY=Ng_H31+6ddFE2M(5cYp zVFTiwzsMO_CvgI^o42k1M)L(xE#;(wO4@=Ci00yKHhm#vH9M0AKS5@|%`7Ps(=O@E zb~W=n^CC0Zl!bGur}OwtXxH~RpMe@l?UJb>$~n#&D0kwcPfgf-+^Q$ue%=|hTCZ8V zBMJk~Ob)flMSw$0=1f=wzU{|M7?c4g7Cs^1q)d`dB9K!m$6|Noo{B;y17P+JGL$vS zP$qBv>pAS$K&ABjJ+f^RjDKVB-|i!Id}BQS>+u(VN4CCAazL~Moub4-A&PZdQS6bS!W8_?~5TzYl?9lr4M*LrWZQ0w{u}g<#(%?U?o#2{{K#3-j z<$iB#A#W0?P(mBCuZSswK6bNi8dcmm$Vmm}5JK)23lYO8(Ac>fp6FBo|M;@ZAFvFO zU3yNKDyJeVftdmQ?A7}%Cp-{zWx5Vs`hlI3tV)nf2 z)VI#L6vrD|T|UAJ38^vOwB1lMXFEK@SQjOpZ7`O1~C3Es1 zIK<)x-Sb%Rt&^cR^X`DyTez05vdQ4IVHs~_L7eem+TkskvyEJ2UCzD};Ba;qU{%il z8Xzo3*4f9!MhC)rZ7W!B6PKLpR0Uru%;htN7=APxFGhr6#N`k-AwR<5F0OL`$4KVi zg6{;Um$6+|@~_W!hK7>YAqlMDjU*{Kv#FB5l-Wxs4Dq@)#f>I~)wX_v*|aCH8n(kp zNU%_GSHLkQuPq|*exLH%b4qOA;D0Z(W#{7J3`T>zX(zK?Msg_rhf``=I$@d{w~`yM zm7G^*8wiLPghjE)&l2Xm%TwMs8WQEd%Ld0L!~Q!&*N-xh`n1d}<+&A`rSBS09Q7+8 zS=|lg&1DYZNOL3LfOHp z_v-G-I$3F}$B5XZwhftYQQe6lQ$w)vNp1e=`ddi*?1b<4@1L{DzQZYlb@3C<{3y%& zC+=_U(qvDb;A)8_3Otiz&93CoA#zg*?6-6+`wguUWxGtHSFa-SDTl&8%o{A2hb^yB zgmxizYzgaq8<)eZaiIls)b$qM8!X`(lf0e9%??jQk);qKRLWRpUB1#q5of4&g^N?@ z$dN@^^XTYD66ecI5qd4Qiw_)JC(XkdBr6v+@{LO+jL71L8%Crmayi&hMG7nHpRCrym0=}9p5Z!~ubiq{t;aLY zBT3QNj9f+Yu!Vco_bXQ#HY}ggh$U`I$imdWaq}?NOR>lIZ6JY?>|9Gp{7bn0X_=Pr zK7$VHtI-laby9+>)g(O1h8x{hUFwNbgqNZAT3HrPjsvu1m_pt&VN8L05;A+8{F$mG zunVT&Pok4$Q9eaCu;~JL?hF^>?Q|rZ$$C^IM;3I?#HuK#0Wq}sO!F>Di>tL%sDfiv zWT~CGhWPH5n7}ewIg*j=E(wY&r&QwW<|`Q=jk|X89})6;`U;|zM;A!|?cB9oC=7b{$RtjOZyGU8%&@z%7(DkB&ED$2J55-Q`Z zDT>v`_~M?Y0Wqwp1yq*(2YFB-ASTay$k=$Lz|E-q&_ z$80bl=yXQbVSS=TD7;NHlw4jO4)IM4m!H?Q>V*DXAtQztVVASV0BG;}0OyZ zU~XS6+NoRl8hxDVbG=0UNfBy@{MKuh&pp&1M!|u%{lh5uofK5<+#g3t`+prJ!HT58 z^nF?!ZFxUhl3*Nh$TSX`7Jgji@n|;vji^m$m(v-(jz67b@GBp{9r%lW?}Hr{B4+yk D)B1h& 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 6fecd5dd6ca7df5742f05ecf2972bc59d2e3e294..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 18045 zcmcg!OLH67l?G_XHoYauBMlhGcliuyvSkD_3O6v z@Xa?@uT~fH+5Y9(WdCxyygHpPCi~A$o-U@7%l)U5+3CfLlg0DpzA-HN>pu8;=Xw(> zRg2ooXT^F+lokQ+xGaY(W=|Ka+dqClM|(CwOnU%PcKep&nC-jept;L*MfyS z9<*#@IIsk5Q?b(eXbUh@22yY&In=$WAdeXQM+0c>)WCPLTimu(DCFPdM!fFFdD;-Z7j)|9%-gQ)@0=(y=>jGSwsCd+@#qgL2n^$8)>$!n}f{+ z26OoiDTFBW$CfRgPQ>EnOq`srCJW)P700``1P@N;oTjFgqq{+}wG(CQ%`dwoE@0{Q zcvO^~lns#$AqgvuB}W>bh(j`CIYy`5a;7*k2JPX|R%nnTXlGcgyst^4bNSwMxmt?( zImGRFC^0*EFn%|@91m@HZM=h<7>$mLouS!>8X1EF_PtK)k!hft-%D=xW-{mb&gJ}M zHJv>xUd^Yo71^L;cfQr+0`4hdbXd*rKx?xKNq3gKa4tVuU_q=bR&(|g(C-)1*~w*O zeL0^EY3OF(7-&66%hyI}`B>I{Tjc%_3@skja^7%a`|9eIIGZk?i>t{3ZtTU$>~s=m zSiUqBnfr|_@?1pbF}_Q#Y`uE%bbcuolan(rA7K^~vo!U`hDEzuw2u4DVGnVk;Cna6 z-6i&w>J;N^;aU*0i_$3G||jm4J9UU#%`Dv&rdmNay6)Y`&Z>8o#|#5IkP!LvxMO*rX?l8)Gou&FT0S}bFY>SH{Tt`e-418YT>42%G^wKj-mHN}*S1II(4oDrJ>>l;>Vrpy zIUMx$fz9fPJ+hBSIwOpL`@tNH`rx_`eGj^&^?JSo(%Qco8Uxo6dFJQFS+7AIg=y`* zs%W&Uxq;CWnGZ7f??e3gI8&(j3psO8pIkvwG8)6L6GPJPd9%CAh1+2eWGk-Eg23fK zEbs7k#~Ith)|dpS5l{m{?XcGZiVTs&OtO0xr7&mkTP`+$9(P39?+}0kBJ*W-Ba=CN z1_`Nuaz8=CC)teI{Rkhr|L6#CSG0OVOBa=G!5&YPOJX?E2asTCPc*FY2#`o`>!MT^ z4WmU2 z?Z5x^zna;PwNF0DKJWhJKaG!@+2+R6_um@-@|$m;|DZLARDAAUZv61S-~T^!b~m12 zkH`X)w$;;&zN>!)Yoxaftrr>RsYJZ(Nj+B-C;$3v`TWiK6~)X4tL2LFn41^lRd}m- znV~5P&Ea^^jvAKQQxt-Zz<=kl_{Hn6!OM#vr_I4C` z(sO^XyXW_z=ivzc!&{7=56x;#LEqG1*|oagiJr%gkRy4+==tdJwxVtHeEe^q+UrBl zT2m#O8(NheWwBDZva`FVHT_}SP;IvS7V1&0wc36QH`HN=-eT0FzO8rs7H%kY4wS{H zOR0R&^*eDxrE6d>)9=2QYhcJt`|tIQ)d1(Mg1sCq<*aE>>?u0ns|?c$_YqVnHA;v= zQfwhCu<7%!4&u-PS9Viq;VE1nLT)TE4#>sQ2bS7Rfo1K4k+@<44+g>t4Nn(U;A=n2 z!r30WzLx%V!$hg-gb8RnPr2g+2_@RzVQ*yGwQh6j3h|0DvStMHG6pAV*bF6g;P1l> z{PpON;vcZXt_*m-+g-D-E}`i+wobZL-Hsm#K+S0g) zC6ZCj(K{e9hPd(#MtpjpN*q|Ko}zxx1~ zq?_$-Y-InhyOEu}pK%_3K+{I{r%t!uObs##gN7Jn7+h|2cUA1Vn{2hrVXr54smG@nivMKl2f(+$hD??*u*Rk?ODX_kXgi_|u5Edn;Ds_NpdS+{Dl6WA6azh7^}98U zy*E-+$?ybtEAZykuTsQtwN6IaFck36521csc1vlFU-SzqKy)Pqh5*eeFbPOb!F51! z3Z?^sQ}7(nn}X$l+!P!K&{k8x0uY;m-+&I;5MK%g%}_-g&2S{&1V$Atf?#k zRHk6GYe2I0wcq&~fGqF~IHs%bfyFw?Gk_S1OXNCkhTvfjN2Au@ut@jt4u(1igzUp^Q8qsnIU40dh759)^ zBhN>eNtSiE?xfT<>20Lu=nVR^IUjlr zw7xDZqtVzJ4=8Y=2#tb$%jQ!v1CWQ`wR*ZX04StFvc<0m4Ph0_HhD3i;4N7+q{=Ew z)9J>D0c-ByC@S+==Dkdok=*G9#r})a_uu~FgDen0iKlz=r2hy-N-FVSa;DwQfkGSv zaaoWOJh==0l<_wer4G4%lPT0?S^+tujHES(CO{-gNXqmc+!=u@cP{!c@^}U-MF9KE z9DitX0yEQ3HnQ~Dg+g6=Flbd`@q$W+Zc0;TJmWEo>|I%2?oWxArm`4BtZRJ`Spm;X zFbH@f(qe+kCm3qB>rkN-p99Lmh}f%_;_d6fxYv8bx*op`0g}`2!%pHpq?s_h5uAqv zb^?cNl62Y!Ii+%<_O6^+S;(vb5^o@($#Oz7d+$%rVblgntQQ}XshcGGw}$-3Z{W^v zjpx5V{{9b{!Vc#$2(Td5$yJE#lBjUrB0rbC-J@Ip+hg0uZJf^Zv}4!axy~UfHQWZ# ztac~)FH2kZHgW9QVfh?YvG6$V7g`%`8r*dKuTyZS_ zB^XmR{#Dttvs-zM2r66WJ9a&JIk9+)PgjdlCKRe=9Hyf%oH1=hcPGM?pXEW6QO6oX zUV1;V3qN63alWHCJgjmv(RuQKWNfr?r~GL|b~tjKq7&FF95F$)6aa7x^oZRc>I$79 z&Jxus0yaoSVVGG@AOaJ|xM0?Sm+a6{lqgmBDEvTcbv0Zd+eAz)Y(wX2V4^}5tavw? zLP*dF!cx(a(;mx69z4?QsW1#ggw>c=s!AABQ7Qd7VWmWqB%8v8qkaJlsed!gp96$omwIwGh^#oRCho&?Ra% zF*Kw%n}lk;M~iZw#;aZW*`PdKj>xz}w?!ssUy1w9wwh9<47kC47RwM(p@;ortVaoH86o&HB&693PJ!Rb40t0x z17-}ue7hO&I;w+M3_X>^TvWdGfl^iAi(t zqSEc7PONgRGg4WPVIvLRHA*7?2BeliKzfU$!>@S%ce|-0w#k_`$rl%_={_MM{Kd&i zOn!}ftjg8v`OB3!xum;>ucW=Qzg2JTy(?Q~?QI?-f)fPnAh_TkvR3}kk=Yrn3AX#? z2C7%4lM?>-rx((GKVbW{FMlqRL&^gGh&w`@1wMI#Yb&-WF&=a4J>K47p;)$37;^>W z+{TzA>%bFzhTvZ54a3FMNIKLU%gmV>z_-9$!)1DY+NH zIQF~Z5fYb2D0b|f{bHchQ9)86>tYhd$Bx8zKzNmbekAh%nN&i{#qPFSEW@QIz3pFK zQjkXY4aX2~A!6t6u8%CcA59-!mQv{A&RunpwZP2>alXl_MvZ*aQ;9Ilx*uUkBMn)b zbrqAUu^Zo}*GdXGHAnr*&grp}?w5JBn7xguvZ18osvZ*`8C8}?)1-Agt*3Q92=VS1 z|J^l+O(&p1KVRq3ge+b)* zDq5Hgt4ws5qcg)^Tk4Ek)Rz(YR>>Jpj)S{(*h6j@V~?Dhn9Y96B^FqTJeLU)>1Jni z$biY;&^`3xIqv5>X-qT)_UT9uLFkH$T~p2%5~&MV-Mb_%sZdj+!w0)2tM@E9iv3=Z z3S#3@lN0FPB}GZKm|Aif{zloyW3=7vuLz|*eTChX#~~;cV2|l*lf3J9$yu2eoQ|&3 zM_Jdrt3Hkg#^baK$%Ld=NUmVkWCe3Qd5H>nZ|V{?l1qm*eSPqBFPqRM{o`;%f|j;$;~KTj$iBaVz!=PQC)#WX-%CL zN)ZazQI)v&1c&15m+PiWI+KjC_Tc6-E6(P-XIM^h^vylLg3D~&Va`Ae+bwVf8UqsI z>Sy4FDpgrxzmi+v!xQz_S#Wah{5lJMtfis+LQ5|A6D=uLB-N!a`{IDi|M8R*<48iL uanQB#3onl+i}|lbYreReFYp@y^I0A@=75dyR}FvB&ydvX6b=BAa(@GTWqr{A 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 ec8e03ce8fa1bce0a5df7d890c9a54b28ebc6047..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 4051 zcmb_fOKcm*8Qxvelw?^pX$6uZSJec5q@cVEmk(PHL-2}RiYq>r=B|vW1#Hk1Wzt%a zDj!7@!$8pnMO$p^sFH)7#zkQu0gC3LLj%b2!IuIBdUh{Gk3HnllTSSq?mshp$B7do zhRmJ$=k@*neE&ByyWHTrktB*#wzf-Vp^7Sv`gWs^HY!zAt2Cu#WUxy-{7y?Oa5GAX;gdJ4l+FoxO;p`S9F)C@>eAyL34y1$-khSx+)Z zt)WJvP-7$gNXyqNx4?^lKj6QJLi6Epd$2$38+q{u`y=6Og@b>$+dspkmiwK;3-*S6(LrzEKY*bX!nN`DUTW$%}E8C)3_({PeaoZAL z3j0HAFt(bG7^;@G_xPU*Q!t@Bs>IZ^B9eJwcuaG{j7}}1q=jJ^;L=tNn9>Esp{SZw z=wM;O-XoTQj2ubG%ZhCcscA#Wl9-c@0559DOG#*Oz(#_}xg_h#ao)CEche2iyvKpl z+*=)gsh`y8r?fcET(&JwpwE#SX~7PHpLYZP0YI0@Y8l5FsEqdQY(z`xF0c;~@1hVh zoy71|UoT4{Xt$`+i0gWe?RF>tWF6vs=5WyRRK^_xQWMM6rR9u+SX~kQmvQDx6!RaIbYn$RX1yFM(1@IRtG2#tg~L& zR#;7At0uMdvItR1X=yQ&1@647=w5qo5PCX*Xz<}x_;GGjD_bPkLcQ`cj&png#esaq zGzo_({%GY!j}GCukU)C#9cSCYI>PEjW1#m z`*{2gbrJg^EwI#Co8TmHy4LaR8EpzkZw>MBxz)zopUewx&cPEhd*x(OWVu05TW>d$V}8CV zW3&ymIN#0_o^Oc;Cyd}}2cG7*hr~G}a5)T8G%&~n2RFLpg~#WiMwDu%qg1rSl&WLw z$d{YL)y@>cc|7XIqsPtw_BQ|;@J5Vkk=2xvHe@2hcxnt!595XlI-F{DXeBeA;_)<( zY%9^xpSNp>_|(bQ1ypU6YfOl!2oVipg2SW;jw`A)hzgI7dx+10L#MCad9hn`U%k5d z4|=*x0`7Bwo2SZ3_SWLl{4ljW#OFx}?i|L=AN=q6qXSfSd_f0M|7qzsartR{^V#9S zzlt!`c?fq?q#aY_JRzVbpm0iGOD$|Cc7mqfdBw(TE zy9YZox~7~kC+RxR=#r+AFg@M%Twi-WVUBmVql7ul>IrkCt6{`Nz#pmm>dJ-3AFLE7 z*A5e#&z>CoJWdaxr^P45qvGSu!#G1zH|2OAka!=EzV>{)4@kTPB;E_;7yEPC)Fq|6+-Jp5q|-{0E20=ilt}PiB0^YJX?7zp~m9 ztNn%5{>*Bh;P5tsH*Jni~h`n%5w?P=)p z5iPU!+RN_~4LPYR#%iXWUPMB=qB8pmKp%Glq7XlNZ8#qjIB&=?IL}4px{_V{Do}H< zRmX~XxZpZibXjm7b@qlt`&+AU-#)dK81IbX8*IZK(TFjKEkU9YBcki2IxG48epIVh z;f@3%yMe+eSF6FD30?>JVy>FY*9+C!H{kSzm!DJpr*to+Z#wYJHl=6%y_D|a(Py1d z@dCAf_zkx0Pb93Zi*%dBpHUKbEh~MAGc!FTK6ow8ynOKk7e$ZxZodPs0Py*D2;g%D z;Ez23f-fiNQ77solCMS3t}yfv^d=+d5rgw7z#)`edMPCXVX;j`l&@@U!HZ(MTG%MP zhjQh0VC+`uy(V32J_>WZ^TcAWt)@=C;*2&jgXxs$JK0YLkhb z^~Z{WkYLr9T@BlYBxo)aK_8Hi5K?$RO40{-KwAEQ^1Khc@Xqt9d(PZ(Jju2xT_M>s zbI;s+&+nZ3JHLBpo%6jB&yaY1b**ZY8>HTDt+iWZx!xendb?37lVz}zcjSViz57~5 z(eiP%AYYu9Vg*IcT#U)Ncq%Iu(%QwWqQ%8-J2*Erpt)u!HOj?S`8r89s@ID*&y#SN zEVPZABy?eB<~#|#Ivc$(8=4LdBqc4weEyaZkw|dh;iuL|!pSs2P|_WL|XMV(J245Y+w#n z1(?OUWA-H%b8%f!bJhm`p70z@IFgW)N=_DWUKpNK2Vq99nwN7z9}MVK7j>Aj2Oj$q zN

<3w~>(7c9QK6i-X@vSs!wIbAMbR2%&z5_Y)YXW%|R1;5XqNM?Hv|9|Y7sz?3hjdCw>`Mh~r6T+M1;u=it3 z3CNU&nHxUTOBl8`y!hKPy*R?!@W3M@)TD{S#)^3n%W!#hiNd+kmOs-xf#{_w>dwJ;;aZD4=eSo=s;b81q3iGb%1tm9c z2TjjYkp_ACiX9@Igkqqfu5ZMNa9qBBPlO)&BIMEUMrE%N7)R`7Vn~?{LWN~QZutX; z_#dFB@Xc+r=klVe+XyG<6?zrW!&F|ZE+{v6?87qBm+~@w-iMY=0Vos>i=cYq%#5RW z;qaCj{lCN&rGOv3yaQrz`P6#q7Ti6=>?`ta7AHa4M(P6OrtwS z7^9=d=xC20pdJS#KoK#a#uu}4PM1(;>8T+);iGLYbQpFzbn2F#;^_o`+%nT$sd>3c zFobSt&XGpD)?}Jv>kY~c(-x*Wu;{NCudn@Ezo!sdcvV_j5LeY50+b@b&|Z;O%=F#oI2seZ!1jv(^`^b&s_uYi+UC2dwpX8eO8H zMH;zGqYE?|qmhd=I!z;C8V%6MSsHzjM#gDWKp+36${Ib#`;XGzBZ`s!<*~*0KU#FK z_^x>9m2UBcq1=1(u-s7L92Dfx0ksWKg!%!uU%fo;MmEpDjQP7&fqvo*Kj_2;#Vugl$!nUzZC@kAo70#ptP&?6q*E;$AoZnAs;w;-N*@ zmqmJWh+bi_qgZN{ z8_g$B^z5Vehr>JLL55!S(5qdBPP-ZE%F0*Wtnh+uzjMUOe2JNJj;viyer0pg4hDW>H_S#q}?~ZZiNVnhq4sO3?Za+KV_QIq2w%5%pX6?7}%@yqdzFlQ} z+hhK}0RPCa*drMhj*9!tBBlE3Djdw$8s+8cTclXK4g_4SzU8p58MJZvozE2ebH!G% yCw#69;1SCCT+#R*dQIrZ1LE_v3g1P~z?nLaUtV~|;?ZuO!MKmHp#Jsn;eP==raGDc diff --git a/internal/gabriel/benchmarks/MISC-BENCHMARKS.DFASL.~2~ b/internal/gabriel/benchmarks/MISC-BENCHMARKS.DFASL.~2~ deleted file mode 100644 index cf1659a8cbedc3f32556531f17a6989db5ac41f2..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 3895 zcmb_fO>7&-72aKvlE~OHDZ8@6M$rKN3urIHAJMTTL-2}RiYxw_y9%NlEKn3>GFp-9 zk}Tr528trR6xiCTWMijxQ5a}|6uAfmg39v2y%fFmcoXd*r^g z%37t=s;rWvR$DFIx=11svd~sE@`NB zC32C3!_(2|ba*Q0dGQD10XNZL80Kc@c>`LXk42Fi9xubO#(jM>DP_cXQ4|z0k;%t7 z#<;6{1F|CI5<)S-OS!_L5-@acn6w(3yjuBrMa8IWaIl1NPajDx=HiN!&l%h7FS%2& zpf@2VrJTs)x}cuSdtgOpz98l}Hz*9{7Zq621+VUeR1{5R?u4;D1d`!`5Kjy9qM^H` zoFW!8l3c)v0572ka~T+Lz&3%%IVZ^CQP$9hZs*#ndWQjbnV;IOqL1kAGkiG-kC!oY zU*v!bO&DOP1Cg^HKt2q(3dMZEF%F&M2X-%>&&n>4yV0)%L`%l#9Xl|K8#A_@_`9z= zQN!4Fz$+VoKW=8m(ABxd3Q4M!nm>Sa_)=(w)aoSD zF4tBGW*Dip0DEJdghRndxLGNi<4IWI6WH=#Xv!4964_F1y+I<=(W&56)Y#^X-|0h& zlogAzv1RDP^TJ$F5;K6tm&}OsLPqB0d{N=S8^wa^w)ay8RcgOC1TA`szG>)Vazks?>NiQR0IU_A?+aiZpxoC_2Vg_NTHdmn$>-*Ih*CD6;|oQ| znh!)dU~G@TOb4VGG^_-F&NZ#Efx+fljbAa0<7;>wE;m%QQf?XB!_XUw=W}sEG4wYD zk`;1Gd^{x-g*YS-vDW2z3xK;jfY|Qp>;<6%Qp)BNl=s6l3UPDLDG~o;l=t;SrH-g? zR=FdBIGBn~Iz>97$xiFBOusegyPU$f%Suto&6`fsi#o0~{ z&-RG*Wul!zI$(cteGduY`ovc1*Z7k1mpL!vU@?^gLMFpom4TS`^POd-lc;F=)wh@JsQeAhmDu~qe6ySDx>JW2cj z`wXyPJup^I4cJa~Y^VBdyTHbig`EZI-2SIh)&JpB zGj2QS?>^w1pkW13IAsG{%ZC9V)g!P_5Nh_9$LKz zG`32^%QX5SjTLE3qR|A6&Cuv28slm79U7aYQ9q4wXyd#92JF%oGGUR`8fzuyzGQ%A(G1 z;IZo+D%Rn)R&vo#*q-$%xRAL`>n05`RC2K9yx*GtI}F!d!?YXE7nXjI-5unEQCUR`q$JLs~VvF{CJY+rP~=tYO+O!>Xn?9t~KMftE|;NCZ+l+r=B|vW1#Hk1Wzt%a zDj!7@!$8pnMO$p^sFH)7#zkQu0gC3LLj%b2!IuIBdUh{Gk3HnllTSSq?mshp$B7do zhRmJ$=k@*neE&ByyWHTrktB*#wzf-Vp^7Sv`gWs^HY!zAt2Cu#WUxy-{7y?Oa5GAX;gdJ4l+FoxO;p`S9F)C@>eAyL34y1$-khSx+)Z zt)WJvP-7$gNXyqNx4?^lKj6QJLi6Epd$2$38+q{u`y=6Og@b>$+dspkmiwK;3-*S6(LrzEKY*bX!nN`DUTW$%}E8C)3_({PeaoZAL z3j0HAFt(bG7^;@G_xPU*Q!t@Bs>IZ^B9eJwcuaG{j7}}1q=jJ^;L=tNn9>Esp{SZw z=wM;O-XoTQj2ubG%ZhCcscA#Wl9-c@0559DOG#*Oz(#_}xg_h#ao)CEche2iyvKpl z+*=)gsh`y8r?fcET(&JwpwE#SX~7PHpLYZP0YI0@Y8l5FsEqdQY(z`xF0c;~@1hVh zoy71|UoT4{Xt$`+i0gWe?RF>tWF6vs=5WyRRK^_xQWMM6rR9u+SX~kQmvQDx6!RaIbYn$RX1yFM(1@IRtG2#tg~L& zR#;7At0uMdvItR1X=yQ&1@647=w5qo5PCX*Xz<}x_;GGjD_bPkLcQ`cj&png#esaq zGzo_({%GY!j}GCukU)C#9cSCYI>PEjW1#m z`*{2gbrJg^EwI#Co8TmHy4LaR8EpzkZw>MBxz)zopUewx&cPEhd*x(OWVu05TW>d$V}8CV zW3&ymIN#0_o^Oc;Cyd}}2cG7*hr~G}a5)T8G%&~n2RFLpg~#WiMwDu%qg1rSl&WLw z$d{YL)y@>cc|7XIqsPtw_BQ|;@J5Vkk=2xvHe@2hcxnt!595XlI-F{DXeBeA;_)<( zY%9^xpSNp>_|(bQ1ypU6YfOl!2oVipg2SW;jw`A)hzgI7dx+10L#MCad9hn`U%k5d z4|=*x0`7Bwo2SZ3_SWLl{4ljW#OFx}?i|L=AN=q6qXSfSd_f0M|7qzsartR{^V#9S zzlt!`c?fq?q#aY_JRzVbpm0iGOD$|Cc7mqfdBw(TE zy9YZox~7~kC+RxR=#r+AFg@M%Twi-WVUBmVql7ul>IrkCt6{`Nz#pmm>dJ-3AFLE7 z*A5e#&z>CoJWdaxr^P45qvGSu!#G1zH|2OAka!=EzV>{)4@kTPB;E_;7yEPC)Fq|6+-Jp5q|-{0E20=ilt}PiB0^YJX?7zp~m9 ztNn%5{>*Bh;P5tsH*Jni~h`n%5w?P=)p z5iPU!+RN_~4LPYR#%iXWUPMB=qB8pmKp%Glq7XlNZ8#qjIB&=?IL}4px{_V{Do}H< zRmX~XxZpZibXjm7b@qlt`&+AU-#)dK81IbX8*IZK(TFjKEkU9YBcki2IxG48epIVh z;f@3%yMe+eSF6FD30?>JVy>FY*9+C!H{kSzm!DJpr*to+Z#wYJHl=6%y_D|a(Py1d z@dCAf_zkx0Pb93Zi*%dBpHUKbEh~MAGc!FTK6ow8ynOKk7e$ZxZodPs0Py*D2;g%D z;Ez23f-fiNQ77solCMS3t}yfv^d=+d5rgw7z#)`edMPCXVX;j`l&@@U!HZ(MTG%MP zhjQh0VC+`uy(V32J_>WZ^TcAWt)@=C;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 ef08934b73279a5d25cc1ad53b88141d8b78e86a..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 48275 zcmeIbd3;>el_&n*t3@SSlFPP?Z2_hb#yG+$Nl2%KXJRB{&}RlhhyKv%>5dH~Bm}aN^rVT?p5^!JU()`4 z&pG#PrLrxN%xC@?u%b@?=AKWMh156+`emPWb43S zWXHg+!OcC9tw@i2I-X7D?!Klonaeb%v+?WNVolj(yz{!QcuQw|qZMsT=M(Yl(yLca z%el&K9_-n)vu8^rzpH1*mQ8mpiL6*2Y2UT2C$fCa>eWjk%P+rb)taj=U%hl%Yb@6( z=+0JT)m6(@UA1E6(rKqYKYYNLKcH#aZTxS#rp=tGQ@m2s!kVEEKRr~_n(T}>XXCLv zh)p*e+VJB;;f7p3mTHM*TN;z8On1IvcqqI)vU6a2W3lIso+9yoy8$S}PYi`xyHm~i zWI8pxU*B!a0l;ueyfvAMHxgVFZ%t1JM1MLHPZ=Q;2&TL902x5AvL%^~b75oV@P0p~ zfR2`Ytf@0TJmiDqkyMe1HFw0?;=}um;U|Zx0o+R1H#{_RLp+<_(Ab>r>Pn{?N&dq_ z6-xU0@KEs6sa?h5-5SK8T_7SL<{^f0dd^i(76yQ=EMaj6@@S@yIXf4eRT4|N&UCD0 zI${;zB9l#Le6tamsgOz?gPxq2o4DYWZR-YaU zFgEjCiB;$F+3x0icQ&4b7y|iJx+Ojg30T|?@AnbHb+K%c#7CJb@*6YpuGj|iLPY$z zv z*rAmY3N_@=G~zic>pCm2!O97O8D21!%B_z}IM9@a>Tzrcq5byoN%%qI-u}&3*PD7sbuTM#$0z(PO{8sko=A7lc|>U zddju`7Sar>ow8;$w6vgJ)-lkEOWl!1cjPix#20H31}hP0?2LDH#klx1JKET(XqX<$ zWI8=Wxf1ML!KQ3_y{frs5^f|Zrd8E6Ct}&Flo_xKe|POngHopIa*=XF6le!hK~X zjRq3Wwh5vDluv0(kb?p%kjW)gYYS!^gcTCDNZ}VEK=o#&h(+3bV>aHERw@w4+(gfv2 zb+$X@Zn%{kcUm|_QDF?0^NLmG_$+!U@y2}Gv6cQ@Jg#hTE}rie=Bha8Mx|0(vzc_~ zMxk5sxXhL>muliy0k{=eX%p4?Sa&|%nQq&tYK`I&^po-9{L_^!vo*iUl^|6X&O_e0 z#&l~VYPS+f^^$@1LDTjR}T-Z>KfS6yR{eo;2k}KJ9-DUMFzG; zZXF!Bb4O3)&O-0zLS)N8&yH=E?2K$4*tP>sXyo=?n+wDH119x_LAIIFGgOF4l}MG# zVn_}i>lH!wK%zNSU907$K_)nmZ1K;M~!^1rorBwy*)cD8fTW;Y@vthk*X%HnwX+H3lYbVn9s(gp2F@FWuFy| zFN2Rt3yhSnv7&H9lX>RW&;C!4>|~=gcZ$;iL(1ek&1z^)r*az` zo6x5x$ZJsU&8&u4Hjd7?G<`-xGCd)2W&<^tlH~p8v6zVw_&^)U8!U73;tl z2E&(lYF#p$PIblMfYnuy!wx`0vsNr`#1O4<^=clTU3t~AHBS#+HpM|84@xe>prqFt zk|0b$`YYBVGA)4diHutCi$P0R8y=bgr$tk!Ccq;7J3kk%aMS7V42>?eynh8KBM`co9Tu zcB5*f9F_(p>C!+Xe7R^g=UL?nUm-Bb#2|!$gjJ2ZccU7aibm)pa~392B#FA3$A{)a zQDWVld8hUoc_0zb5+Bq|EIxK?ySbV~^fPzw+077r$Tv+vv{~FQnPyp;`~*xg3G2hi z(V>Xa{#=0yAXiA`A`7da%(kEe@xDsl+d@-$YOOpKC3#4gD$g7%PpBjh30dVi$I4S# zl81z^^31jJP`$e8p-NGC=2>~Bm*kLb2xNcrKUD z($q&L8*fQA!=>N7TRX@#umIB*!RRa0@FkA6uJe2ZSt87&a8pAoLi=KKat`bSCNs!r zI1eeT{l6|tF$?;!0Nn{@3X-`5yuW;Fu8~@Ln!I7SuGt(-+RS#cScGC)!;@|k?VDlN zhq%#eiuy39r#8M4)GW}yT~Qb*pDZBa*jqs)r2)j^PL4xX4=z^}48c4&niT4{$aw?nJ!&=m;zNlEp^ zq-)xrPp991ASL(vxM`BzzsS6hl3!qTOjGcS986L0K@N5e@S}4*KRT}GNBd>`NV0pW zCuVZ2O)OWdr7#gFOmB3Q6n@`GZ7(V~fxiNEgSTqqBOm-3BtM#nzOF&+co>j69)5@& zk07LuM+hRvqZ;zYqYA>tqXv@3BMdR)F$*$IC=o|=Pm7XiHN6&{)r{suyt$*1JG<6c zveVD5nVyB3PdDrRR*RcatSXsBoDI86{vjq%^AReJX(I?nb<#RjVhC;ryq08_?lUje z;Z~3b9+*9SrKk;NwFTxlFv721$#Vvr0t` zIW;w4N$~Pqq>CYiP}2zrBfri3*kriDlr_y2Gt?#zHw>l6;iQ2%G5i&QP^B+e9jFBT zHKEGD#FT)Gh=$1!ajA=l<}(s;DHAbKcx43aBH~gef+zS(>a`eBwYtPbLdzLRSmKuP zk_mN$88MM&=UJ+!@$^MAXDPar`Kd3Xr^RX846RUC2R0RBm$?|rxES-D2VE0CEtbv3 zHcFFl)%Rs?J};Xlg7H@7|%wm33$zJ&$`v7jLPBt=bLeA584O(`xE|skAL6i-=FgD&-nM} z{QCp`{UQIp!@ob`-yieuyZn0`qgI0YCjb7De`!4D%g4x*rPT;K)NF?kkO8?LAq+3g z0*1Z><}Lnx+bp_Nf8_-E*%i0$Y~s88^kp}kt?a4^W$j8w&7Y;xub5DHn$j3q{WweU zE2;R|%=qfzp(+KGmr>k?oaCsxn!;+bI$@pugN3#Kb4=}O#uzEvAkjDXVNj}?;~EDo zuhTeaeRYiX0dGSz&Vj=*gJxyWB{X7|hsM~I<{Ee7T*Km;QS_DcfVJSy?g6b;A(!l? zGr}9uyI#e;D@SiKuVQBAm0_k&F@Xsu z(+OZ{?@ZNoy<1AxGvG_hXu>wX4!xFt^qQPcr5w>=ELe+uhv#OSQ{Tnq)Z2ePryi!s zk*XX72FbNz4NJx`w%_CCB*~nV)z})Z?zB6)W3A`Am^e)zXX$IZ8)rM? zJX1f^;fN}iahk0D4ff$UL!FIcduKsOkxyXzhRlo$c8Aq@dk?)3dfo(S~${d(XxES%F9<>5tAj% z5J#?TY8IIE=E~L0vQQf0$eI>esS44XHOu0yl9MCLTiYZ?Z@>`KP6K5rpWD^_Q!lay5_e$2dNQ1>OgA45BXa& z)2X!70=9Rpl^XCv<|2Lg_}wCTKV+?NK+XyWWUO#NzOt3X57~;8{gA6j*bkYCbp4R0 z3PF}4V?X35^7TW8kgZF8DQ*rmy(K=GXZnOzW?gNM$y=!*p7=-!qk_$Mo~e ztv+%S^-F2eSa0CzJ_8o{pt%m1E}b+6Kwmcjdac=`3&b2jTt8Ka>&rtVN*f8_1^`^8 zgh8A~4V^e8qRB->RQ}-=rL!26C}_UVHBYa{jD==TrP<@3NBx13pG`D8+G&Ng`0q zTsIgVp0GzF+vRTqBY}7}o6cTu&btXze=-T#X(e$os}} z=7r0+mdi~TK+li)OcJkwVNqQ;7Cm>f z_GHEg$9Mvz)4T}-AD2`EF|3i~hl$2)7u++{6mZ`R+_Ph!M;!r(1*!n#^tw!GA_Cp_ z%|U>t@*f8s3yO0#YvaW&#p?GgV;~wda<5H1D-6+y?CqRB}eY#-v{{jeo0X)R))NiMEjL!=6z~0&$xehKdr&( z*DG+3GKf4(2&GyW1$>_0NsdRcpB04ioWCKj-M>Seb>go(&&04hzvr!5@AV*ZXLg5G zL1hH3B34x8gov3!4;G=>n^Q7KDNh*HeG964TBbPj&Eo%ux>Y0aHuDyzb}>=$_>iwF z-9qXCfmZc=a{H!jTNzt1YuP5l5!O7YBsv2cF`brl!t5rU z3;m^{^lQ4giCX8afN&1=eu=(Q`;y^8vToy8qW}2l$nP}sR>NZm^%OxnXl_Ok;MaCz z$^`~H+JAg3aU|Jy>d=<<#C)>gFZLxM$O8V37O=M2p+E6(UngQw5-$qTvjcxGsW82J zxr=_sQ$bDZqMz4|IxKp1A(Wz@*R?tJ*cQfQQx8Y zQQhkMMiWm*js8SU7@8Q4;^)M^{%{{uu?MtzI&#f-J{ddgAC|7XINj_apj!cy#*0xH zaP-&QGPi;fPhoUImdkQ06}oNsKww?pXx~^ec5>gy<$XumoA6xJ_hLsgp7WC3?cE)3 z9((iHXz#jw;D8?nlVRJk-LtHlU+2jxP zL4{xCXdgWz3a@vMP{Lf5`W9;_8JBMnS(_N{v8MN6nvF~ zw^HywI>8YR-b|_Akkq^Qk=w>1hGLDDUf_jI&Ff2k8Wx`w(E z^TxZ3mpc28A07E^yPe^suD(;BYcI?jZ`Vf_b{%ckU+(Nb^=!((9*$ID{&>1(D20M4 z1IZ}(i}~Xn#*6L7kr8ubWs;FCft|d+qfn@uH{PMgjuc*MCv=Y#y6SFzslEUBk&)k# zfkdg1?~{Rk{?uB{?1MdYb%#2}$a)u7-%;9yc2f##2hA(ip&ng+YE7ow)3_%;}f*$O(%;Tt z6^-;lPy_Wy*9hrhUfl$!m3R#`{4WcG83aPy2d$(JhO|(~DCS zc{05?9X)Je*`H;*x!4ddxqw=BV{#fQ_8^* zCMmUEr6wqKv7PsrD=(!=UX=Y?yr=8Ie0m}BFC2gV-;dKEr-*3{my!qIy2Uz&hXUAD5^I|VYogP5%!j213e$kh zxcD*(E~MnR&r0e+=m}c>NtGQn0j_!%-81@GL_U4Dw1yhN25N`~UJ&xM6QJIpZA)&9g(( z_FlhR({>FHEshTk;?(8RrAs551_w9Y71`1IsU98@Zi;LlxRcIiZjJ1`b6_c&(d}qP z7sc3iMZ-~cl%A1?jzQv{XqbJupK9jq-gc`_)eXU?Lp!anX6MG-HhjPr$wm)TN1Zsi zuQ!~FCO`aKK9)Rom`o$}#J|>jhS}otp|ka4L4BLybJvZI?p1Gx072RS4rDG^E9OIf zX@zMtOTOWF0y>SpTQ{!*ILJZ!dvicHEPuvFYe_f{m(IoKSW?f=FoXW-7(rL&x-+zU zz9mj)EGv_(*t?5iYc60`7$#ctL32BVa()vqj3&mC#uIy!m{QoAG{#2$do-5d&Bf++ z;PNR4!AC|De=wc_o>VmEo1dUS*67vq>LqGH%6QtZKBL8>8M7@LU9jLvF`$iMR@E=Y-vHOw!Tml|b|FO}L-}dE-ffvSSMvQ1bgpbp( zhIyr-o7bWmSDQP0SP@sEz*b8=DQ!hN#6Wk7oz@OEmzC#O>3RUuU?Zv+ig+ z^@LA6)`9c_WH8>NVJg zR=Tn4)8^beS&$d?U`ofFyFwzozTvxw)zUWuGflklS)G_5Iq!lr>whU9FM4+GO(=Rgb(&sP{3klC1 zz#~JmC-x-637v;#2H;?5b_ev=U1_{i>7aQhid?)+U!t5D^3lgjek_AnDXewXZMSzcz9B6!y`vO8pD9-PPtN9i>DG(0rGui+*YJ z%g^ieG5nk>4l8*Rd!v{tJ@Lh;5i^?5d~P+yX(H<_<sEauu(Jv8A z1gWm6&Zg}7Q`dURr&Rg5R37cf17Q}tm{{GB*o*C?7Ez-kiu!7*17R?u$qr0ppu|z} z`8uHwL|qI9A+$OmPBSA`w$WRPe|jx<;22{Gd*6bzYnkuJYax{ULt@l*>% zUnkWuzC^)?B{*Q-6*uo%ZQf<@_}0K#1~%_}!Hvc3kvb-sD`d=5QmQq%@?x3xhz;{Tz;re$Fo^p~ zKww;?ZfSYLu> zLzK>8E+Cn-uE1sk!i#CY&P!4 ztW08^?e2}tSziNx??7)34j)DU?C#~qx}%4WhGP85E*eSDfHZP#Id~5v-&n{{YSUUP3bYLAO>bhV?o7sk9sRtbrRW$yg z8?)x`Vs_}{v&drS@V0j@BZi!-fEt!tzgam$S@ScU=4VjkATI3y1U1$&0n|EIz3Fq*`u^yzqQ~GWZ5&0#z~DrwVN=5R$O#Q2 zg^Zz@mqVFF?2o!lj=746GDQBL4KU&%h*qrc5d4Y-(L;3^J*pqe(1awLV8Z}xWr5)f z2-qRG8*ZO=qi>#hx9Hvw&jPwE@Ml3Zn9&!@^bzPSgu4j`7|^>J$&q%eLuyBd1gC@; z8+j|guduuK#g2U)_a*ZB$wTwjCEC$Xp|&=MHdkS7m2*9hcc%`mY0sB|bf|V+UdIbp zsl9oleV!`&{Ha}e!#IFHJ#i9v5!f6WANiNOfw8EC`~D=}{^8^^$wYh7sH>YlKC(24 z0_`B<2BG@dK0AS^Pa#){{?8`D}R@KmH{SW`JrGYkA z&;$RJkK}vV+t?>Vv2OZbYEOn`bgY;r8ekF$s*w4IirmxZAxtd_hF z*08xSik6n(H9Rz6XzLip{pg6WCKu&~6G3-DpP#Y3)Na?4cR#Uyb}1 zvF-c(&^6bbLnqEuqSg$PXEu!YLs&1i5I+gTGomJS8)P-=Y_IJ}Wbpujr%&2S>0*8M zqv#}u!&HzKgFOH-BxZnO+@6%i@g&pe!txZboR3}r!;>ge=yccI38?<;DKELa$->~> zp4tKNzn@lPJh(YR|I>gxGYa{FZvkyH|Fjnx&%ukE`n1?!LMKoTzy@CuJ9H84vLWkx zFoOVx0G0;VYAE$?R0d|u^8xSJkExZZexFF=soCaDl^7ygSUv|@*I@Q(o9|b&jzX>) z!1Jv2nVvkG@P=r`=OBO8x&oJ(J(rk07nnVB&7K)pc??`iw`!1%;35%mWb;0bzb3zS zDo15kg8fQz%2tgb$sf4rPYn>)m;Greoc*T;IQ>rzP-)okA7A&wp1LnwViqni3vz+0Ck5u>nU3G85y4={)ck-#8qH*#-KMzjFd-{LScjBu>W7FuK?$HFQan929k z4j+`LTto-_)3_v$t^vWFI#4fw@Kz&l1f*Kges8S8n;CSM04_qZb^w|eE=FptN^MCu zb1?g4{O{*zDl(G351Pv42J^h5Z$QCeu>Wd!-jW33fas_>Te zBkjBrL$lMrCI1WD_-DWeTgiMq<1;*><>_$$Oh=e9L^LmE-8>nQ$GId*+}_iiO*Y|1 zOgcqH@=}a*$LXI3sY%E5EX+pdHahBFmi)23q&QIz`ATAcc&08>5ww&g2U<3xE;hn=<)qqC3^G zLgarCO*cq8Gr8YyW0np&`}9Deswi@cOXj;iPjA_S+l^VS8~N0FA6;<+T8-^8lTu+_ zNrY3d)a-B`K#s>}<9z=WZI;C1N;B^F#EOjdHe}t*L7@C=h;0{KD&dQ-#lh>=~7o)g>=1l5A=TO|_z-92hQ^^*}M$t?_U|`%){K(rMfv207YDK!brB zSFBpG()B$Plla}Q>~sVG(uXSvEpSYTB|YDFBtwOL6P>{JWb$v7sJwE4CTasvffP!#jDME1(j}9W#LqEq6^S&y@bb*(sPuw=_Mkp zWTz~t)dV%Kz{PDz7*ne>!Jt}agXVihQGvaUF&HMkK#eols5pS8NHsYfSIeRg!sT-6 zR#lqrVll}IlQ4yy4s_U9vEhH3F+K^>_Hbywi$4NdrGTnyX(hKOr~m1RuqcD^D^E5t z7*7t(v~NnpW?8I#opcL#g)&y1QvIJ6dV-9?)e;26C#;f= zhEob~!{9-6>9LkrV3Pc|GsvUf=u1>{_+wCL+jhVU(|@xR=3kWIL5u^DK)8{d9jX#S zIg&u3O@+%0Sz00%2g9#r{h^x5r*)9H_GEp|9gz(ea|cZyPRmhvI$`N9UI8${+n$I84GDV z7YF4^;3W*&`4J%XQ#;XxPydGkg+a6sS2qwJf=a#fM5X`ppKwEE5M*H(ij;bQ6Ng;X z@mssmD7GLZH!L^`ExW7lNg%CB70+4BwHOQd%qX*_1(~?C}vutQB2w5HL`oswNXz zNjhQOI4U*Z<3$6@$6yjsS4xN~5Ws;PmQ;Y}uT)#IvX#75j+6D4YnZ^gvI#NMnV43( zbHQ8bD5~nk#xJ7tP-g@7U8S;3WW`or>y;;G85I}2S9`MAroa-IMc&m+kF7-#_3#am z2YBzkrPKpLITWm;kgXW0maE45_B#aM)Trc&u{gWnRH&m6G zi`Y8hPV|^S&St|`TIiwG!tPCk`Q*$7dKygQBCLq?RzE9HdDlg39j8tH0eQWdf`l}*XEM(Sjgx9yjq-)_9}H{t4S0UvlqL2~TxFeBvLfoC}E znUbKCz%U$VqSeCTrBw=XMh4(Q;(=F!Q`t0&qJR*>X55D0h?FJiZ_&%PC`Qv|vE~sv zzk=vRoZdmrL{)HCSb6_hTC0UC@T71^ztXh)mh^1*hFm7buKX4&13A5}bZXT$kxDNG zEO_?nsoz5HCRe#4XinU3oEH6QWMNy;5)ZGWx!V;&I>F{tR5438b8CoapQAe$J*?8Al#GI_6utuHRS; zl(dG=D$o`t%I4<|fT$_c0ds~D`P$XP8YFJ8jA0FO9Jq+QI-Su6KvDKXp8S^6DOA~c zI6ATB?3OLKUh`xtFMZcQY@+mSQ{fekM`9L*D)F?I!>(_}SfUwreOm)Vj}V;9wu$3_ z<4Jq#H1K^7g{rtkfKn2#!l^_%54UOuuLB>N7vPl((mo;Q%OqyWYu9#=_wAM>+FVkA z%LdqwvsG2iE23iUDNmLskOotWhz_ugOr~+(x z?L-@R&aa|Ye`gyqzs$?<9e)T=OLG2PoVym5w?!dxE%BRNKqkt=L0WEpTDi62 zNV*9SL?up;AVPQGdh0k=Hu3JaHssTn_0TNY?7DSDZ4+#B~^#lKDY*Y@_7N-aLvKWBVQ}w}Qx+WKA0&95iVA z)mS7?w#j$3F64Z#olPb@XCTGmEw(evWi8$-SmY&|+c?C~eLRxH*Ve=|txBX;^ zTKOISw@f_~s6fW5h!(pdCWoV9mZHhQA!0|>+Q{rtg3}hBR3cOsvqc!9-!f+K6)W9_ z$o$EMAdmH6+`hfc6J|zePl^wheQ|l3CB&u)*;L}gO()bH*#Z=*o28`Wr{9W2R$VKg zoOp@aR`msJt6EKa*G74x8~tE&o;segx1B=!61b5D`@{I28QMCD?Rs>m{D&Gr(!PLw z^lBFtPG`;K<9^0A9d|JLu;0^ft~1x0-R6d%qSO!vm)H9Z*$pk1GFGfmBz+O*YSOad zuAk6Jut=NJtgw&5M630O4Tt!LgS{C_p`hUe{k*qq84mj{$4w7>#9sTNhEwpecdUXJ zYP3hLV|E^4^Q1kvjAIW*%(=DZ+>kjp$ouep5AsrK*5%OnbnC&46tb?+uRzq~Zv+QJNc$-wSC;WM}r`|m<6Ic!FP zLM^4uc!*%1WV*9+F=7?+smS#gBU~lnY`hH{Pyk-`>sNg8^9Q_x|L^GDi7J#_fU83o>=2IpB$B_CW27H) zrl0g}4v+U0ef@n9;doy^f*hbENh$i|6`qpP*Dranuegt2p^%{h2vMn`(JufIkW$Fe z&&2^(1*UcPy)a(%b@#t8-rrp`_}7Que1D#<9qSwGo2mQw+PVY$JN8hoQf97UlVcsw z{IHddTQqRDCicrN!I`CIoLP#~iC5e{#-D-GzKk2lRNc=eabL^II){RnJ3-k-`Ztuy z8)^NVfwf(`pHkYBN1y2Jq1iaXqr0w67^*rUJf^~Ge0}j`42FmZ;&@eJYR}5IExW58Y+(-CvS`r_=?T*tIn{mrH z?^2_1;3lE^YP0`B4n05J>}Lb6J+JeI2LJ6=yZS0vn;xYt!F=RhtnOEV$bC*|gTdob z?JL}`XwJ!-zd-4EbVAW(D#yrTj9N7Rg#lP%B8*u~%vY!3-caX4V(Hrx=*skNXE?%MOKl<%N3=+MvyZw03;)Wv5W8?c8@X<#Ysd3=Jw>`LyGiqN$PIn_o$z=%I z*NqTYohLB_c4!}%)V@9eLxgGkx{q6u zf2;Tj-;w={HllB!t0Y#2`JSvwal%* zMA$bSFGO9vX4=L68kN2drx9^25bmkgM`O4@F%iZcTZb;-sE(sScsCqNBGdeNa*Nl8 z$T1qz$B=Xcmo^S3^%s-vxKA+*#~AK0UvTtmvDAMJ|JWr#o$g0e*M<{m-y$7mSb+0n zQV(0j|5b{A%Q$24zk&4H`Bqc7KA+1$cY@=%m$W;1_%PjG)xh_49J+`fd=TeI`@Z&j zflB4Y#XwOKIQvmA(HR`_C-?>p7VqEqyhpU#{ZUSTOt}s0GHCZNFmW12)x!u#y6nt% zfECZ-BSP(HOxt`Fr%G-EBe9I&Mlh>Wk}=`?^^91q1fwj^Lvm-lCz3M(j9dEXkmasO z0%m+r%a5}6MD9`S92!1A$I`WtSh42Rq52Sd&P4wFC+<(=>u{)kJ>6mp0UGOP)osQn zQN#T?x~JsSp*j6ITx)Xp)No%8SDGNe_rUk%M)4X~t0Z3-&y6C36{I|4{gfPCACA2+ z-ZvV<-6x6S!c$aXdlTg711DXj_M05thceoqgv*>8qq|d7kYJ4VQ8GIusLR!;%WL5q zE{1Q|0N?OZ_=fGiO7lt)rLV#x8{CQ#Xo+X?3EyYr{kb$b+?_mX&O_YbJH z{UUVsqh6y&TJR#=6_-{AO0LqQEJxkf>2U&Z;;FBv>*-Q-Jzd-X+3V@Z6ptqUsaSL3 z3yI>XUldQl8@aDok@&~m1!~1-ytMARDDKvwJ9WI5)?E_S&kFTSSK0mhFaL{!T? zy3US=$#R_?4~Vs+R59#V_%M5;?jNc6HU%G{237HG-gBuPjZ;iJx>_E_Qf_UYtL^?x zuD1IsuC~L`MSb>Kx_D#l`M7})&qSSk5)4+fsv*|d$tQlZIWnR{^tr_(edQ0QezK9K zYJ=o}z9by7)HLq$^ze=5 z#%^ZuTWh&aM|u57`=-nhzRLA(jK(<2H&>dsUnZIDOZ#7CS>V!sIKl&FeUDlHXL7GC z>C3AS$Bp7@enEUoaQCP7H(x!ozxf>;)vlZw<}njF*-*ji2AoaDrzTURfaG#BPv3#( zWQz#yc7Rh~0~_LQzXq*N^AN=t<%fSPcO;oRAMRzcy$)_DB^K!8;YSK%@L~3h%!4b9 zwAcN)^Kc<9e7|v;M*gMbGvKtSBj6SPEU3Jf!unI>0$d}nu-(3Xg;~GAtglpqiPJYS zDpB#4e6z`ESov&>4*-{GTHlqX^^pZnQfR4zZ!mG6Z}LW`QJ2q&QNFPSbJs4 zWc?d$bgsc1b9csd8-W-Jn@C!P$IiE$wQgPwtjcvDZb#Ubj?? zwjg}ODhpLlrOHATnPZ*DJ(`|nF}|NUffrxfn*;bXyNa9dw6bdx}&{$*J*zE?`d_gLbd>z33S z5CQqG!$TJUr}O3G20Gupv9SpUD--m^+gyW7pSYLNZ{*qM>It7DCwOnN6kq4x@A9wp z{qrNb8u#e8ar%EfBVGSEfiC(U(`4wvEu#$o1J5VYiMD?{BgTIk9y-q}iDY^bV(^&* z<{%^dMG1rdbVhXFA0ArZMVCo;PKH0Ob$on8A8X_xF%3-}ks!&*PT$r0rP;G{^T1tpVj; z-}f(&aGK6FbcHLo-MNO=cub;=i?)Dya9!srEqxr_OG3EL+GV*hm$in+#Ts76q*VO7 zfIm)_FVHk_SI^)i1WLBXB~TttIChRC`f(q=d#6Sb^i@$0cWoZ-kZ+QlwK(M_aQ1QG zs?8Sg$K4|bNbWSFB}+%VEVba?iR3yjOFcgRP!#$QBTt`4^{|w2NRzMgXrEJTmGQhn zU9Q}Ya%61Udqi};{PNNfSg6}oRI2U^3enj$!-aN&{CY%w-L_Wru>4wDdIo#%n1o7r z+gKU#6@0kyj5PvmvG?n4T%-iv#x*=?wr+IFPGGAbY<=7oZGjbivRsvD1wL_^?e=N~ z_a0(8-n7|cXIZP>W^5>~z(j})fJ5*aY#xJV-=z85;*^`fAEOr@Z?k#iMB+2l(z9dd z;I7R(CsBbVtdj4td?KrF39E0}td_dmg!>I@RH5yz9@sGNoHV<)pM~AGgx&2PcHbg) zXSDR*u>xKjJ}$axXYU>2w4J$YD8u!NiCn)eTw?}<=BS~+>{`198V=WYdAO$Z{gdXL zzD}VULD`CaTR6YV!};4T&a*w6cMa~C9Ov{AWyglMw&uNT7ky^YW|v)d;~ZLlsisRX z*Jh#B>KiQNh9=+&@)AzyUdQFss|dm*O*`G&ES!uGv3+eKp82a+eD)?T~RN*_G( zGCJrp2W>_tbo!4vbiuA8<0Scc$SF6WDhGw1M{RxviJw3#Zphm*368uf+e%+}& zZ%t8S`hm2>AK2`%bD@Va#cDRRn1kR=cA?L^+96Y=?NywX>yYWzI!h)_hx~b)9Y$^A zoY4D!*;QORxvO_OZ7;iuPgU+N)Me%Vj>!FGkKErm zz1pvY+y`k}-`3*5wq3XHn1tGwH9D)x7@Z%9^nYYaU%G!7of%%E^S4uy{;MwWInw`I zkMtd!+y}d*|AwphRHg4iT~_)(66wF;k^Ya$OMlg$(CDnnmN7a%7V-bs7C-mWr2Mw{ z#poQLlKB70B|k^}$35bAa8Bq(VUIqt(Q%l<8|%l(9KK5#j&D68=iNr=`7Yyt*Nd&hMrq{108ybA>mg}SWp-(%rd`aQybkA#1IIpI&m;FOno8GG}-Nd0|V z>UKA4OP%da<+Q0ty%NpEHq^G%E2nv+?%*u#W-Dj8iceAMZq#L^{=P_kmPhLEpH}7n zMCPWPi}O>F{ZDP#+kI@nV{R(Xos#V7PISvNcVvIANA?cR(mu8_;wnB>*}G7emHkge z_7RWle_B@dAJM}pr}$+ZoS%vCe`X8c?r3e{v$?7K*p!67$R#~T_#g8K-@#eh(N->X z6`!i`U8u_n|7Rlnr5@q`tgN}2s(({n>SfH$&qeA#x1@f#-NV{a7jtvvl%#&SOKgtR zuk=XW!CBhFR$k*OK2@o^P?weZ&qeCjc%=UG)2jSOFgM=0sZ93`H+06mquDqXI&F!| zJh`*RR*6@(y%6qcYGqRMQ9vya=g5GSsKnO&dyRB`Il#Q8FFZUC?S zLNw|ZHhImqox|nlj3qM}Hh{OE-21#tklvyjh{*>M3K~z!*cbg<=PzbW+ZK zAHjID8zZ)R2l<2R>lN0s&d9k1JwcIJ$f8U)3sHVW6f0DIvJ;-(VSu%>$J!a<7qP-^0RIw#F-V^0; zXf5jhQpER5TYTKJeza|DmD@dgqBc)jpKd>kgnlU!@-Arok|cEctw>W@)yij+u~gec z;d~&%`M?&AxBwN!bFk@1)+{UUa%k6m=8j48e72>m4}@p$Qq~93hHxf#+ih$H=UW@D zN}lvRnVBmiI|sHm7JKgKDat2h98!IA(CkB*ZW!uxCdYfPEBEj&pvpa(Zzi3jtV0f* z`^ap}CfgEpn+G6n=ouXNWTbguaQgr)AP&$G<%(D6=T$zpD*G&dN9Qdou>iH9xzogL v1cq5NJXFyZYsx0$o!FfM*ks+c6F6Cd?{aiylKA>kD}J diff --git a/internal/gabriel/benchmarks/Medley/GABRIEL-OTHER.LCOM b/internal/gabriel/benchmarks/Medley/GABRIEL-OTHER.LCOM deleted file mode 100644 index 80f1dfb9c7d1d0867ffea05d68bfa9ff1ae9dfb5..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 47258 zcmdsgdvILWdEf2@MbU_eEI@>&U|BwaWqAp4DeNxZmX*C&EU*_?>|O3I2!K+|P*~Ui z79v%U@++*`JlbhGO&iIMAF<O^O>n! zW?8?++;TQkJpS}Y5}ij;^`NdgK01*YpNNn5i~h7bU!eX|Cn{X^#r3ln(f!q}bDtKu z_4CgOzufWT$7PnvnG36xi=s1F=Wu*tXrzDFK_w=J5_dERF)}tZI3zkT{);PXXU=|N z_54Kw#>ETgCN2sBWwx3&7o^>fdwQZxvZBaqwAZ4t=h$%%M; zB01F0ZQLe|<8t7|f_>sd(>{o(p6x&%%g%hJhz?R>sa#x0mlukek|^ihsf>)ps2oD7 zlISci7c%qqk|;T+8WIQW0Wo0b3R!wi;xCQADg5QcKmq>|D$-wqev*blUmSVx}l2UAs6X(mA_SlE2h!+Fi((#k8F(Wdv~F&WY(l(aD!%X6BT9Ku z&de83^?U&#)NhwDlSVLB=EenpmJtgBVj=HLFULv?lclog9FU2zMJGSyE)GaYPA}xs zWyj5z0GKI^{-k(JJ!9(mxO&=CQv!dnTxNdW_Cv88>b47ooNA}jeBs2&qPqy_$VZHZ z=FW?B)-J|Hx{zA{FnOuR@;cznxj@(EG0Cb2@)5HamPDtdGz>c-`^~?cI0euU);K3I zCp0q!F+Gh*!nk7$(P;;75>jfmoV*tW!sV3XVwxydrP)6*G%wvbsWluIW>XCY?;cM2|$GEwa_<=}% zCe$;j@G@4+%)5YS;Z&yR%HIMbsymOR*9mk@FBD52M1rppBE`&N5r9Khe#Y$LOv!s$ zbjn$YT!>r9YxLtFBW5QB0WnUME7b_b%C1~)r3|=6DN|l3$X{I%N5!U#1vj^>Qq*cG z42=zZ+=F?k(M{QR$P{An8-O3%K@h8ANdIJq4{%_^^dQE zL4I;|>-;*ninws)Y|&Wny8#xJ%9GY7sSfBv**S6bK=?OSJwLLi2^Uv z0kw8fy}tqmL?@#((GkKI3{kG|fupzCs|#CasE@0$^|R|2#D#O{=IWWMSXtj%d4BWE z*7}9@)$@%VlQhF473hu!H;JgAqJW=W%EZdW4B?#rLR7-@wC9QDpx`kzYA}zuZ6?^mREl2_l{)`cDkTE@nWP&8W@+#|=ab5T=?jewQcR zWnxH@uxjeai$u~s!99)3M?z9RN$)zDu7SEyDbb~@-?>0Ri8Nphb3js(ZbTF{ zpd%$wB9;t>kC)W%gwdmfC@t2-PnQ7lO^qEQL*ASOlC#zx)3)MG8>_=9T|=Nb3^6gNN6DnepA&a-77~vlxdq5yOt}LzRDoxL z=vxdjF18byq6amiWJZcl%}}Sr)`FOr8fGm6P<4>WrEXP(_J=~DaO&TMLXi+qxigwn zl)E#kh&-4*_MJ{C3+kwlOb>;t_nT34JkXfRB0>ka9klj#vzBB>nNIFj+-lNMRXiUY zXp^@0wJfYi=x(j=Z(l)T*B%^bUqN!$3J$ifU})D09%x^|@U9hfwXa}g*9synD_|PD z+Z^;XDbC`BkE)PNrb{s_l$c9fJM7jV9tEh~QONS13=(J&{zJCW|2AL#yxXtw(1wYkddt)IOVUaPGwe{=nA4Rwe{0SDDk1%>Asr#P{r+|#Fg6G=_98fMxvm^M{1}0YwjZz zx1SO}hD34tQ6xqw@mTHjK+Qc?aR(@I8Hv%;$B{Tli9@y1iJCi9aTAnSM&jV<5hRXL z;uE#g6E*jViaSAxE)vI1KZ(Q?B~H~&PuAS2iaSY(vq(&xoWkpL>MfAMV{>a|MMS?LAO)qZB&c zd$8sXQfQ?2ftou;p(lI0YHo@`)4h?Jn?;>&zPHCMM9zF76uS9^x$3W8?xf{sR@?D|5TO6yJO4-4|5+LmdBQ_aTaZ=+e7CqT(On z_^-K-Q2Zm8-u)*k{usx9-91L}$1c75<0^iL&qWGap@4lqspWygka-X31CoaAF zMHN5A@t55xil4gl?pIZOj^kfB@F>g4Hs3Vk{{x z?(1O6NlfK~7txEOorXLdSSlWcT?rEx!6M0mlU&XoBDA2l)Z3w6`n7s3{O;@Bhu{6Z z`|*3A_W*tm_8!FV1HBL6x2v}czmeVuetUX*vXOPndKQ0co%e-8&x8(b|4b-4&a63| z&7|jI%=M;iCxppxx%k5zz_J zCq6931*96}qW=hR#Gn{KKic<{70kP2nrt~7O3}lCj@lRw4Q3Pr7(>r!Fz6-qN%tFl zq?BPEw3&~F(=6j|14*~+BcqECL5W$>Gt}8`igxSiRLh=HitZ^i{bTK? zF1O396?RK+*^h$J51cc|eYagK+RGve`4O6c_+#E0;up0h+IP4p8*II7aF(%4pK;K! zOAd7k!nyR)_Krr>+()$Xb>IW)M2vInwmb z;a~wj_=D=go-67T1a*)=T0T>EwhOpU?gr1L-7-L5)xHgR0@XebA5U?XMw+S8)WVPl zS$Yx2M?g3AKhQx`(T?2l`B#f(RGMmr--4JQzHB?pHDY9 zw+2naNn_NRM%Qstke~S|0Y06j(|F?4IP8|^*YS8V0cCps4_3}s|Nh6H+gd++;rNB~ z7jV8Sqn_Br0r$sovVQ(aBeg9?;Cz$2)rfYSqJT-KpbW~Ew9A=qRSgn!Es#cdt0GBh zd@w=MoWvX+sOC*2z<>_%p|XWqSK)eR6J$Fs(XC~#_}I2Z$5fi?n>^rcKSmN?p{^i! zHiAnhs`}(B>DAhT-#klWJy`d#; zPHm7swx<=Xd%`E`t@@!7buZ-Udwm}?TW%w(p4f%H(~)4*_reWoPJqkT$vI!jf;Ni?BhXg(5azn#{9`pHOY+>l>7Dh$| zJx&xy#{@k}<*{)=kA;)tgAjcdPA)DD#sxi=PoZjh*psN5pJ`MbPb7ziN9;+#&(X=W zp!d3e^OiQLRI4+x>NfNN2te%}47Jv~T1pti_aK;EQ;{=pJ0!W;Iksv@|uM8;I7sW-u zU=j~NAdLrxKZOSdPY(<|g9ipajR%H30}UAsLbGQ!!YMZef+@97w)U`E*oD3rRzB@3 zs?_@=wLa2KRUWKm zd)5H9f8|Bk*&`9V60W4|u+{fq?TAz~^SQ{;PTvyDsD2RE5JeK!LbgRJu#PJS&taSx zLxje9^YSeWs^jvX;y2vg9ZqHcjrBG`;KTUCf8=`rSV3AY=ey_(CORU|p436ma1v%` zvoK_Wa!-_&=O^7*=Ns)%6dhdJ$FHDu2)yZh1IQRVZiAPmyNOlLx%kujkt#ZGR^O1op}v?bN{Y&EBTVDX=Q<*EBoxN1RXTn#^}dzRm3?-^ ziiA_Pbubj_1Gq5#h9w?#wONz(Lx>A9;nS^RD2Ff<%YJz+f|*Cne*FMhUH#BM88KdK z$}&a6iAKSajtIRU0|;$?&q`>svUzZGAE5{495YWLG)AMqk)>~EB;w<~l^GveW51{x z0*`_T>3}W1ZxZ&M^lL*UNI!VD!PfCYL3*PXikT#K|9#^7uv((Xe-ux=Are}@Xp{=u zVp9E+Z#stGP*}fHE(%iwqVY;qb1tOF$|(o60!kaSe{2GpP6AC~v-_RR{|i8@5GcmP zygTJV_2TNMpF4B55@VyRi$TmG-RvWeV9Qr@O^X%)-b|Txln znb}JA!P;8iQe`6xv{=JmcmMvm@GoxU5KQ4Of->}+!{1vfOljYmr{7v0$ISEe^S0H8 zv#5E5^7Qj|s1IjU+pnWUw(kw6dSm+~a7Ucr8%Kd-pbFq1ID*l3S}|pmIEodWnHM7? zehRH{SoVTudzqEVC2d)${svOZtpVxBL>)XFIkDp)5-E~= zLpZNSL{Ba2_PRZYIK275&d)6#u3ld`99atpLsD!PfC6Ry$Bgt%FDwuXymyJMljgO4;?}&&YOag5jGW%or z1v)^?8^tfO#E8(ua3_e8M)2dIvDaqfgtWk7Dnb46kXVvwx<6pl5f>zzF{%C*2&>f{ z32hz(#s4ZK=k6EZlLEE=@){9;kkjoy%2vX!9DVA_zU{&AH|EwVeMf3@VSDWw@_)HD zOLTe8+WsA6p6%QIlZpj21OB-^SMDc5{5s9UCP{T}Px!5;!37?kcUi9FNYrupNX?C` z(NB0=%sWSb&Nt?*?HhOp3V*D+bNP_lWw~8z57r(;Cd=*F{%N-h`SR5pNZ9@#AoZXC zP>&MyA=l+H`I&N7;D}wujSuOl5vS9FzK2nZ^-j4)TV#_2_ zeESOINQqz=6@)#)7r-(zKMCVfSQOSt@|XxMniDl(u^n+Z3yn^L64FhMK%+RJwr4Og z5KwGrN=5kB9-+y(+0}jX{oOzC!PFb})$9g9S-tTwh8~tRfKc0bt9mUDvz0H`Km^{J ztz6&!i%n}D`M&+j)N6FL2F^%-k?K>|=4NkQE@bCkgGq{mUl^spCS?vrDcRZA+(+F0 z*J}=pQRZNj;vgdGKKeRx9IMTeWy-_uF?WD64C4Jbj6d8#_xS5Dg!$%NC3owmayQFN1fFI@`1XVY@0k$M^?9rTFQsC%%R*?`>)1>Fdk zIa1JLSkTnRJXC`vOT~@Ah9&e%HTSUF_l|qSedwJV7zy4UqPM*H0al`C zj3o`D5}6qrX|*gyfm1lJ#SI@EOqFnnhiC+JZNz`*T%myd2b(s^H$u_`tWlE3<3sV` zacD9U$)x!PS`|MIgMy^!&und-+Y-1vD9&tco%xJ7zy8@(-gKT3&z<|!>K5JBxbUfS z$FcSF<)Z-FLsu!K8(M9TkUVeGJ{|&SDw3+OeD`vSP~+`T7<qtC)HXqVUFY_STE*ky6U} zvoDry=lW|eu00dyFfcYWsq1O7l5GWQ8dRpc+3#Q*?B z5|Xo63xqFYzzG*uZop^w9E})-TgcEn5@jhZ6zE0{^qDXZa;9NTifwlZjAX)v#$llh zql<|t2N#*>0vE~vM)Ek0F9PXaV;_(Z@*-Yb(5$cmy8An_&aJPVeABsBotp(I zsb0Uj{pW{H0@@qd&HG+I)Gh8yRe=gXgCQ6};i{BoT=kQe6b|n4fP{!VKMgkjA}ZLI zrcq*dS+QO@#Itw+?}zr!ZR~tLkIDSw`F!8Ea^U^HG>?Qe02!URv3+wMXgQhf?s<>f zMf}_C>7gV$cjFXZADye-$PpVKsM*_5Fm1P|k8C5mz?~x&X#DA}?O*Zgo2_pDO7#Y6 zf9so1ZU0js52(%zDAMvg7^JkVRvNN6FkPiU4kJjagrPt-5KUcvT!#V}NGddS!HMzS z)W;Z;hpU1FIjGN}lPM7)dYpIT1TLtL>{FLNkoC4B%U_)hJ7EbRYx~wL#2?c6{su4+ zAg9}rXbLh(pj{AafWorNlkNu zmv-Jy5+^A(=n8HeY5}YaEzm+Z7}qI7tj)~e6qeSNssBPA^A)m!tPBcfjk?(GV0$tQ zT_S18KwUrhH0;lY@jy)AqOV6>F*#6dKV);}h@I*y^sR)}BT(?~TZ<6F zy!svjx9r?dqONxVMRc%-O?A-(4QwTF5H3Ow0-Y?WR%d1OtAFLq>-PT!DIBb8%Y%e> zaXPRPVA?9usGbhXL*1ym!%jwia>L$vaT2?fNv-}=(9~K=dH4FRR7Ky7H)*Y%NsoGvU3c?%r- zYjv&M0HVAm9;k9jS2;m*V_)e>5eQQ|knlE0H53UaBbR$O?C{Q4H*j`9M+ijqBX$@s zh#)j!{SnS{^gVVQ%Xkx(M2A=xtC3n?au4*v8(1&*qT|Z`l>JWK$VTk$sm~_i%2E{ zs8=cHRB1?s{mk2kh|GZe+{MecndAt500 zD43t5trq$zcTKK!;|S4|iu}NGed7%3zx~lc6oDd<=;viGL&$ zIE<2KCvFjnGfXXZZFNz|2;kA}o)(8N>f+)|p^<2K!zH>wt1Y+=JOnKff~GpYAvurT z@eP}B2AD)t|0`J0%&;lS6ZC8^bn7c%$6f}T7C&-QW*lu{#@YGAC{`&uwTQ!;jfxu? z_Tq2?AoBqv+)A+v<-IfD&1dB42?if zi5jtOun4`E`f6XlEVWbvwRq!Q%YbjnNF##Sqj)G+Gu^aa2H54j3E9Mx`m2(V5 zkTJ)q`rx2hk}81RlP@1E6XF-}h=UNFKft*UXv>2{EW1V62K8N9u3=uE3B8<+(ChXs zN#(h2x_lw~=IcMzySZ!z1srlPInxc$X?HkuNy{WYEVC)fHoyeuL1*$YD-n>r9@DxEsS5F^2h99UY-?_n<``DN{$@KsUTVKk~I#yrbgWHcH z6Dh{grOV&5;pn%WFCe33J@{jYLACf*6U7^YMBR9!jp<*K_l)2hONGMn~>@ z?uyBQ$AzqoK;^sfA!@Uc2XRlpe*#@A+*RM+9}u&_dP&k&4}^FC`e8iBqs$ra{xzmpaZ~psDi!%#)E^S z6iCqa@29R-sykl;vQre{|AV#dU#;G7tnELW5IT^h{+sqhg5o4y%A4&{9bQGe#F(hP_z@S|$T5G#rr)qg}Kr znJHiYMIVE47j{fb*jQ1>_Ck{s16L@J!}gFVzI&!l zwmaLkJ)r5X?SWVjAo=M0-olZqBrtM-pvVCNA_oYD6!<#=LSSi-z=7d=*XQnc5YYR?YfcAb>i3!D;&ZG8QekXihVWu^Yqj6Cs`8B7Qma(Q><4wf3%;@$ogM+^aXoDK*vBxsXXi%1c&ve zbwGvSSr1eRZHS@z9;paD)?q0iXTS4e>4yO7Zp#4-^};cym4J75)J66&S)T4l6}CylO1T3S5fvmpQnX`IYtlgAAMNw zwk(7sSR90A5vgE(O5|0tkN?O5;ujf94k?2zdQ4wmJk3XG^HckC@$R45jB%mzInpq zi#ExMrU-~lQothUQi=zUCRupm;4c}?)5?=o5xl(mmV$MtewqEltYgLM{_0R2GI(rG zWh8{~i)s4F)1|Wp`p(KZS_ljWu3UxLF|nqmI$Hn{Wu%#pdaSdmKwW(@KA(nb1M)x&UdsGl z1K*21O8nl>FRg6>q#%%~!^#quX47~HtT``>Hyd2J7i~7BEQ!6GggOu$*u0p-dI+*h zxIe|7$xD#EnPMR~uNPIhBoE$8V6o<5u`FTF99YkSY5=C6!cmwoE9R&hYPx00EFxqG zX%yz0f+|X7Rpls~NP!zoK5!4VMw&A^~W_%e$qMHOHP?gRo9c)7- zIYKeXr;PG0zMT*wKh3xj=gh>Y+t6HLW+vgA`>6U=%@q91IhEp=eesjMx~So%l{p$j zMx`M7+-TH@Tb6Mqr2Nq?LzMHEx0-WF{tdZ|VM0@H$Rz>L`xQ22S*k)0mW}|HIjB!E z4iau8En#5zM20Zf5PfjF2BR?G)x4vGCG{0Ef*QT&h05=;4jQ3ZvjIN^%OX6|*Uc%R zf@5^YETmBZlf;v17B`}1^@Q=-Rxf%E>C~D)h4HAFnSqxAiJ%k;ZfBTSn8?onmb@uS zi8h0rLb$zYFmcBtU&MBd){Hz7f4OM_FO8f*s`}NClZD?s<&?wW#lA#BRG@2$*{N1E zM>0E~7K?Rd6lF`ZG%brP64mjc=wqwOOARwCucNRH!vf&Ar;?r!KjGIPMKMcBQJpi% zv9Q2E^1BH>g~tjAw9r(L;UQClpim_=M0}>Mveo0iQ4!Ca4-8$qZnDWr@iPLE!hY>WPsNi;|=0 zbOpB}R6Tkk8+e45S5JUyUBSU`%$rorjg0+~EXz1xK(~P|F%>183HDm!h8#8vkc1I( z;J&5+lBdF|02c)f^P^RtXeH_?r){I`A1RS2rLJ|v`a4>q`-&!M`FIL$%kXK4B{pQ& z0y3Qu`vN(?skTV^OMv(XN_lTA944qLzjsqqgjc^TYYN}G6Rav)g0@5k(0~j;DJcWE zbteNj%#s1zvm9ltr>2+=k9Z7{Q#|lA5_%^0)Q<$p)=P?>_@ha!eiF&00*dJSGUqa) zjRBXOnRz{_%**{6B`P>T0^%(WSBM%FY<0z)NUf2k#G7zJFoRDiMAk#`Yf+UMqn5PJ zh&UzL8r3ebLFODT&z~ z@uL)?m05_AC8miQBd014eXKLXAE5z7Xwp}io`D-=xla$|r@jUv0zKsZn@rvxBykT; z)*PHs%OiiPZ#prWo&qHNn)En5DTC8>Zmvo~kSmn4V~)9gd3xlWIw&XABkmr#@Igjq zv$O1*3cCQ>UjmN_qEwm=BW4LDc;6{=ax&V-p$?8|OrK9c8xcB&%lhnvhVJEGr8BH+ z&Wp1!({aMH;Wu$=HHTvyI=I4>6C6_h9^as&b1-$q3b&XVZ!&xCtmuRm79UaV!%8== z-DfFJQLs`Vqk$N%l05G9RQk{LPUq+tioRQjw&}J8f4-2zxI<6QeMM+C1RE{%82_v2 zu?%fmey{^U8lnEf!7Ki+genw4A*-N6_((()*X@-79d6#L5bnxIOF4M$kO2U|00++5 zjJI*)1)#v0t~BJt;oT{+=aFv!&@%1;swA*301fwZ>C!B&-Ntc#3*R2N&KE@)NG5F2 z0U?2d;7@e9BM#s|esbax&cZ_G z*Rxjm?7onCxq&DvEFBeHU8i$uKDh>HV7`iBPL*(G1hf)>ihRZ4w3~z9DNdHoUlz&v z6jJ3|F*8Hw{py(0$(QhrOZjC+pa60$P8Z$zsgidj3?KLb44_XPh3=`=9kD9JlO5dcY7B2gmm?e5HH((SQu+yh+WO6AOL6J9C5k3KXL>T$th96nh z|1!+*;ZcK(5ZQ?5PY+eQ?R~g`dFz#->eKZ2aP=vAypJ+2cI6hk=ExbxRnKnmcgYdQ zf8)Zxa%h7KKXB`n{*9-p`d4}vd)~}m%Uxabe0Ka1XZ_7X8!Nq)&5r5@CS{|#vDraS zis1Ln4vxoz-z!y4uWni!6{I7(Md?)(u<+cpsug<2lk+3BO8HP*g`RY)bh9(N@jBlx z-R#I#WvGgq6JDs}^+StYmFo3(s@FFv-5vLBkUO5A< zl!S$jG8ReF4RmQYlEl)GpZ`l@0(2x9tn%H91gxv++IE6nZQ%NBMtWW$i&yglnF&~R z1>Rwi5O|049P>RsPOdxr`r>dR8GH}c7atAQ7l-|RAU}-Z1MgTS!S_IY+9W9niqikW zho;Z0Z$7`ZiVy83F%CqOo?ls6J%3)TpA|0*O^FLz>t{C4Q!;#mAeryh)6IGBm@@Fq z9~kA(H$nO48Mzf&kikLT0Ea#X0@#tNkbOVy8BXHyb#==PRP^Sn|0e~jWlH=K893u& z{q{Rnm~wpyul)WWD4uQ*^i5)lUwxb7@h&ewhPHnWU$nr5WdE#`Tp-DhlmZ2)J20$J zeWaDkF+?&!703aX99CdNs_SSD_Km=>wF)5@c@Hz1fdPfIZS*J#`@{2$707>`$qy=2 z5h}rzZmI>Hf{P6hdi9xCJx4IS(BxzJlYlFh)NjPHnglo~4XJ8~sp)YaUT zKp=zW3(Z@*LstT33qFRy5<2jCRHJF-N#`&jEtVGHEgpP5fv z&>2iT*b)BXt1(!*;EwOsXpbF=rNZX}xuO@LAI0TvOFHf7v2VWeEX)V(-kuZS>sAV3 z`g?o-+Rfhm-rE7Z9q`@`;_aaK_5j`<@ZP%c*5$oL@D`!Bw=J^MmDhJczG`$8{}xs| z%m9_AH2^g}IIcW}z%P*UsixhmX`gCh3`CUOt&QpcoDjM3~^FQAVw8~d_E-|vlx;k zZZFkccp+;(Y)ml`Qx@(ZZLnjQ%?ECMp$Oc@)p2}H`?c3Lc3yeZsiZJBmp>q{q%L6% zejToCWVZDP-%}+YAKU*PR6$>k(O_o(9`wy1x@gC85#$DlMaJCvpH9}J*rUIZQTQ7P z?a|-J=3#O;LL%PTj{A3jX0UBkdN#7;HC&KLF0Z=+I;>6kY0v!E<2nnrMEDHKvWM5) z=v1bF(=JH%>iR%JedC^25kB(E-?QfzSo5aUP5^#}Z514WYgH8-^*>Y31;&&E7mVjE z>wX~oX4lT;4<3N)6rgwM{olxz`d0SWATopa0&2M7)VC5@k5r2bxVyVUce_IWs9HS9 zFF&|ZEOTJ12n0fgs~cJ8^+WW64E_r;U9D2eVi%I^t0@X^*wyQV-}4-j-WmxXSoD;@8*kjWghZhL_hpb&f-RM4?kLz2mUwkwBY} z9@)e^=;|f>KCqm7=j!FvRG0`IE#&{Y*>&^P?(F8y?{Dsq`<4Bh_hm+EOlomOT`=ND<4p&F(Vzif-0lJ?g>%b%i{lu_?7;obeDIoz=%3s=_o?%%*qqlpL=NDw5|w`B{!pmVBl0I&ctrl!o=4UQ}k@J(+=^VzLTYRcWhRNd{_TTbl2&;xa%|)&@NW+aU6nxK$wXw2)ZRNlwDZ^;L0!o0} zRBUqMe_FgPS#2DGJblvs^8JzFD7&*v9w+73$yvCf&nnSZ$uS*ts|@WE#qd|f?E%l8 z#<_=gm(XuHiI#5%`t>xuymjW2t6S$+j|m+DeZMWljFD5uCfJFub{OFJTQ#A&%ex`w z5KSvSQfG`qt+KnD*1GoP+|q@yQbz~^)x$Y*DpZl4xhC&(JjCEh1*Pt z7->@)gJH&+q{in7S)m&iBn}5Pvy%D0I2ckswu3( z*qiI#Ti?SMtd!X9zzoo#`*Lg&*H*Gb)Jg+96pv9fBx~Xd z<04!L*O%;hMzE2fNu+D!@# zFNM1?@Ce?1t_B>pH8g^0UK7eS@ifqJO2`@6rICV*vyqlSuTS+GDpJy&fBsf|KQ~eI zzQK#bBd#-1gbIg4!#Z)es1t{ap!$2H(mc0~q67RSH{EQ|5^BeoRCT)%PJDN}vrIR1 zm3N82hK8Bw-WzGfb79EVjPo_^VLdsVJolN^t-UfjxdCg0;aH3Dsrel)v_li5xO-BP%q4sM&R0gZz+M_vCIfJG`EjRmdtv9Tb%vGO) zbJ8%(+Z!b@n8p=?U5__R?Btdzmu~>U`X>{| zgoCf07Nfr-1xx>&^)ho25kkJGZ!3{tQNCcfh?F|xSPb~G^t#O}3_h!hz5>b8m z=8!0^t~|eW{x%>%!c5~*H}?;uHqe_{d@>v7MQ~sv-7ak&!?$(B>mLclOV6YTY#7Dp0Ou|+1K zAKyH8_W5Ve-{#^NE;gBvp!5--RNsC3l!}@N4y=(vCsD%)&;+q)*X2Po za;KDv^hAwJqn?HHtrJD5?r17}ve8l;PcRe5>C!!#3ctygQ_-G_GidH$D(;R_B|t^$ znK(=o2q^y2FnBoGJYuVS8zL385FA$Hx=1ny$I;}ym<*%AR#TB|p@)!6!>C}7R0^Ba zyA-Dq&1e+da|S2El&0=vCVYC)a$O|l!Qs8(;5;fd`7P(7Edw`exQ)rUL;3_Aca!B% z&$mtTbSJamlZw`}z>FIotGG7{!f&zVEVO0Z442>{-i=MrlDIq4)J%qgAJ5>5Fi6vV zw@sQF#gQhYiCH$RtnS537!9_Zh_(#ds9=w);qK+9rs5MUSc4N`lBPSEiM@~}X4x>y zzBg0hx7czn+H&kWke%*AbZRO&k&D^@r#4B`oy>wyC|Z)HA?DREYrHqJ;J4Un7KYj~ z>pKveXcq32H0cj%)XPk;uWA7gx;)!X4Ww%flGjE;G}PiSp?Udw@?3cSv!C7EvjSb6 zP&Y`1xEo>On`!%??G0EDhil}@>_FZ@CMpf9eV84ckVG0^K`O>~>qm90|t`{wFl==0LsaPkwLTL@+!yss*15oLk-nRjW z_NF;Q#K+6HMBg474IN=O*^9T`jV5T?Lh)S($QInId|QfdZ4K8bv%x~z2f*K2L&V)T zMnf&60e|Gd+R`-vaFGB1P1(}5MNn-IP1b*V0Bs9X1`S%aNvf}=HGG3c zY*^YL73~i-q`grS&>8{`EY@K4?|S|lmGw# diff --git a/internal/gabriel/benchmarks/Medley/GABRIEL-TAK.DFASL b/internal/gabriel/benchmarks/Medley/GABRIEL-TAK.DFASL deleted file mode 100644 index a09c5be364221e0b6bff233ba755b5dcba9a2822..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 13986 zcmb80+jCP%e#dq36*r8{_Rcb-v*XDQQ-caISn@?SH_Nh&1+pY08Qa_q7;J2?G3I_5 zV7Lv4i!r$Lr8JMpYf_Va$j%E7NhSFQ=3#TGN-DJvTl_2nG(nfFu=$CAyl=`%AEQ)9Eu(--DuF3dHboStnyKYd~L_*nBvncsXZ zo=xO#Y)d9`nOHg--?1y&lTE~vI|kyt$@ob5GMJC<*}S!7Rc=Mi<)oN?$Y6)##^}{!dzK^Co z9?vQD*WmFqHF@c}-s5TX_`Jneg*APNWIUFQNAt41>6p(`d{$@-VJrkT7yEryQE;!?pl;ZP3UEg3TmQSQp#Rcyz-_Iqmu{YkANX3K1mDT&w z4U$-u&csu`I$5D6J(!osYMHF>O=RP$vahMQP(?Yi9liNzPcmLC_@(n@R&6F4+Y{Xt zFE03sFAA$Ayqqy#EHn+rv+3brEIlxgP6eq8iiO&x4)7KWHP=!XrlxLqzFG8qtUW-s zOE0{k&tEKkDql!e_$L;gmt{QgE5rUw8dgsh<&x=WZ-cz5l}2Q;>5Ttp^5TOfP3mRY zm|Ru4c&~J8j@;a^qJ;k!k}31nEaxQ#;@R8>#f5sZ@>QW)DPg_7sxP}ZCmm2Njm)Qt z()O~Q) z6bPGSt4X$*WV=arm}JBxJ5`ceV6Y*h8#20~6$OlL$moWQZpi3{jBd#2hK#OZg^h05 z=!T7Mctu&G8#cOOqZ>B5VWS&1x(3i{bX$#XtI=&Wx~(g!8QoT++iG-Mjc%*aHMQD| zZky3#J!{~Mx-43JMVRSo;ZimtBSiv>A9Y)t=MvQL6=thig#OOwhZp7$DjBdo}Mpj4| zU7eyq+i7$=jc%vW?KHZbMz_=Gb{gGIquXh8J4tP!MovmKc{NF*8Jn;LA)2OS6ZGsx zsVo)rsriisO?Jy^J0s`!;!B!< z>*Y!qP0A@Xce}XYml;(w)$8fFjwa{)NG2|``9O4!TvE;I?)8?} zIsb?FgvsT)rYAj^>djQkWSz8JIxaEbt;eTcFZtkEp*EL^#}d&bK9y_hyYt0{k{CpR`Nfi%|ZS0mZ(@*y#xwe z4w&`dyVN?*%Br6`R=x7Rsv8}vUVUHHfDDLDi@rwLx4${-34PZc?U5TAxtXKwQBxom z&BywK*?4|1n+j%P0op0l6nB-^qYf4Y*TV;~oEv&fWW6bn^S2ZrQ9mwYAH+r@rf% z{JuM?a_eO7v8p%6d~c3<-u%s9%W6I2>sM7k$;$%FBnHmMuI0D>IBsysG@vFXpTsaBh@dC?Pyc1yi)|DxNcnjiJ4_V)Nx z15MNZwMP!M%`y<)>6)tb*!(kWX4ve<7qUH?&@M zNc+(G$?s)aH2HlJvUX^lyc9$0n-p{HkdT+_ht@Uu>*(7ie*-BE2^lvH2>4cGqpu#H z`|4!6R;FuYx>}~IWZEy&vO%&#Hu_|P{0tlYtK{bz1kl1{@8~UZRVP|PX!#Xd_)_aa zi=Is?ST>Y{q#PFIKrnv(E%`aL($unVCs|$3eK$@e6;hKWBSwq`gpzT5h^w%6whKmZ^ZVhgC0e1)tattu+ zSI`b?Xom|lA`s;mVXDnvDR9IZ9B~163gkG(7`7{Dr!}3e7nG;2ESsMRp9N`VCs{1&ygQv zhd@k&3k`>}!#)MwX${@!0^Kcej3dQBBd3IJYiPF%G%7I8kz}~3 zpiygR)CJljaE)V_fdagQ9&2ci3pA!f>?y|yhGPmGvj)dpz`YuLn`1@~j7JLIYYp#p zfyV{n9M>7*3L3YDQhBGi?GqT*ar=a@JsEAMFrnw4d3Mg?-#hC z;kOy~DsaCwxZeew&>i@kV+X@k1x{FlX`*uS^B#dVjy(*t2$rzh8cK7C6Le5uj$=Q= zVFle|4c+4cO$zMd7-Bf2ph;_J(givou%F|&j)eOPJYWqTZ~>CV=a(z5!frxq2UV*#{9^*= zInL+-@wEaUvj)?))(L!EN5OrLD-5*dEaA8{__z!Bgg~nv5ce3)DDVku@Cg_2n80=o zp4aYprQl=MaGI!`+;LJM!*P^>R@V|vT0`l6+6j6};5f%thARqs${H#k6goo31uk&x z(k>_{@VGU2+yy+LBjO=Pj)5kS5+K ztTmkO^_<|-0+%)XIRkC$OPIC>)9(yU;29lek2nSy<`j6w8a(3yJ|}RLql@9Ff}XR6 z(yHy$+F5}fjy?w3wUjVx4W$Q5PSEoLd5)~^v|9>%-Wp8DHJre60;f0*Gtk4e66UO- z)DKS33j$X;PBYNtT*3uwDBUVJK`-ejc*1c>yWxp~U$ll_bb-_6{IDs*#&$>pjU&RF;K9VaK#!-tBjMsuL=xt>}F_H(5u!^ zdH~`Cy(Tch(aAvfVK?gqzl2dPwR7{!*ZiV?xL7Lk0fQ8vLaTmd0__|T2AYJlz`cqDX#3`7#eIQ( zj$Z95>Od`WzakNOIOrzwK;QsJhJo&%wZMal1n2>ao4`YXvm6Jt735Pb@~|Qi8nkXA zUkg3(IK~-vEQ@?ykqF%qx`{l}A`2XI40KzeEqPRt2>pWLCh}MyqQ}TB?Xu^~LXRsF zdi)-tCjxu4&=UrFfUT`5R3t+8OitFc30&f6W1!Vv!=F?Hr)`WAoTihf0*5$S8E6}) z1)f$UKo7;-1fB`ZaC9)x6GtuZtReyW9oJ3ZxzN9ObHo_v0ihOoUXcg|h?~f~7J0>y zW}wwfi_BLfLbpS1A}<8GI1Vs$EepJ;NPwQ)y9q1^3~-!cpywspf`y6%XwT{<@KWFi z$9X;IXz*x}mlcW7g61ajN??}bO9uL>PYb-NNPwQxxCtx@6;b!}$bQT~w~tzAu_7V* zdC^HIED+`hGj&!*9_DM1lVN7HJS!*Vgxtj0vEbaq z8TnSk@ww4SkGFgZ$V*2CYofio(}~p5p)rZ5%D2$r+C@*p)Y>UFRntJHoX9rczsr^_ z9U$_m!&!7NPRJ(cKUt6tG0HzO-BkM*Q_Z&yAFjrS)lE`|%T^{*yMn#x*dU$6jM9q< zXkJ4Hzm!^)EcC%rq4KGEG|R(nUS6bQ@6wdFT%c|Cgz@Y_bylk2Tn$&HG)I%J@&&2xU*s)t<&5b)%CxA!Cj_p!*JU z{$ScA&5_0J%=x{k_LeyzZO$K-%?Xh?ephRL9F)?Usg*&w+&i??z?dWt8ZY|mGJCTs zwEP}ypyRQAA3jqx{wPO4IXbJUA8Stwl&gNu3vijMo%;3Z8>ZT zAIX@U8J!(HGd3rumVmTS&obxbdC29SD4)gk$+u;y^=WWbAL{?tbVOODeyyowmwE@P zEV<&d(c}K!kDp#>s#|)~C%1}#etj0$@AdfQOG|!yM90PHEO|Dut3OYt#pPQ`W3$tj z<%?spGt;x9a}(2NWxd+Jr~m#zwprFuE&D5aAE#cw=!6Dp^&0b5kF=s(?l0w(%9f6& QtGB8=uc;lYe)!@40pk~rO1*h6Y&SpTl>>fcoNbhkg-x&PqH zozDFSyE~l+U*7-9eDY|g|Jh!Ddw0jQ{&;VzxVt8=R2m2d*yrU^Zxdu2Rpm1 zjg4k|H0~XY#?_#%%0)Fatsv_3XLTpfO%U~h9RFIT-5N}fXSi!PoI|i^{5(udRz_1)tUU+S(Hb2zy58|+<@Vv^F_&qvtAhYg0N*;_rCh# zp)I|2VMvD0N0W0DzN)9EW*64YBaFoxL}en zi*wV2@8`3+dOn(-%+GC2oZHg$Q06d&gJ+#QGu^`0TzIpLt1(wa8JD}BmCv48t1DMg z_jA*hhMKFZqvNWcZy36GG8rsJ)5+YRQ5F+E`Mj)0<^H&uoAV&tMU|ZgIX=$Q-SanZ z*gV}dn`ij{V)IRd12m(thfaBNYL3gfnIBH;MODwt++MN=x@7;r|8CPB13Gl+$lpWy z9?>zTV?xK2ju{D-n)V*D5R!$EEQDksBnxzBL>3~l5Rrw5 z&r=a1G7yo0hzvwzAR+@S5|f3PEW~6XCJQlHh{-}s7Gko1I6={3vOpITGLVpggbXBP zARz-uLaroaAt4J1SxCqNoleO@N)}SGkdlRzETp88@||QLB?BoLpc7e_L^86Fk%f#b zWMm;D3mI9+_y=SmBMbC3ry}HJASVMk8OX^%P6qOnRL}=d0bqzdk_A4Hg@P;;WT7An z1z9M_LP13+$Us2`iURStph%}6zV6xnGn`Hq zgX!#yzgN%8@s=YTb*1riP>#`c=1p_gEH>Eqte(!eqXC4Avsq<-d|Vz?7N4DJ@_bZJ zC&$%fv7vfsd9<;D+4*={4%Kz;!Ay1X^gKxI}`?sy((Z!D& zjbE=Ht~c62*LCvdWHfHJ!48xT{*8`J``O8KQJMC9Rt-kwnEO2yVOpE^{`6!rgd2Pl zF~PbwuNKc7A=+G$Af(^iU=|#?)+}9Hnzh6cv-vG%EtqV5T~S!NBu4Rv*i3IW39j98 z!`W>&fQTrQ1z_3jc7tUz;o)TFqh4=wP%Z|Cow{0_)RWFZJw4vEZ9FqwzC1iRK0fOl zOzRHaNEZ)GXin{22PQHUhzBM%FVN)8wL5E#(bh+6A3S=z_mc)fz_z#GcSD+-pezA1 zg0&ac+6YA=Ya@uC!rF%jpgT_+4a5!%C1i)ZKqZIt7rwA_7UBO72Y+$t;L*j>MJ|jj zgK|*{6?&_6SJ@F)n5}hNPw!Ny$XlVP@oXr#n262UyA*0!p6df*!v@4w|Mg!H6x%;T zRB&*t9`}FnYJct3e&gl88f`pCCG>1;L?(>XiO>X@IuRH|tL+t|2{MF9IqobD>*=3t zxTSQX!6Ti5H;DO@Pg5A$+(Kd+5VS#Uu;lX^w+kx@UgwN z)yIdF{ME~UqUbs0D##tIS*Y2Mc$vE_!)%$%tSGOj{t6Yg*8lr2w+{dFkDo(zjq2vr z%YUyoEPWk;DG?F_w)T-nNr$v)74^-ou{1J`AKEtfka}de%$_dGV;^2N(-L#DOLG=E z&YZ=IP1+no+*upXPWr$kPA|N3r_p#aeEj;`y>;8=KDx68^^YGPUFIZ&A7XF%M+#2>@qZN-XxD}5sxEYTwR6Du|wDvd! z#HhqR@K=?(H%R@4g8fD*CM+k0f#JLnA?g)CPEtiKO5)E?K_H%=PE-&WCARY$(L?w_g{AE$FkVR7+NFEVrfxsO` z5GVvx0K{$n{1gBd0zgbzv7eD5AZGCVi3$NR<;RtabdN9&0G->gL8kP zLO|ev>lV{TEE*~TA~*CWDg+b&;?*^4rV4-<9sAQ103uIdNAaGUMGFN$%n$k#6#&{~ zkR#V=Mv8xUzWURY&_#=}CIG>XW;%8~63|ZF@RXbo5F;5^yQ}FK?(^rU01(4`b`;4T zYsLzISia#;bO}JG3DB`-uK0)P0B@RDZNimnX9OvVaE3)g#XpY?D(#6uK1*U53QH#H ziH4H+^HTtbfr1ki04556;G#cK0U-K4i()kmds-*}A~W_|stoVloTK+_(zaSlA zQN%EdX1c$41fZRvBIshRnrl!2V4whq8~u4I0K}k$MS(i@G*JY^YBz79ST4t&7D7Or zVbMYn&|~dN>_AOJPDi}IF{2yFP%6ad;61w3UW08AAC zkr?_D6#!y1&!WOVg+IiYKS{wK(gBvlpr0!@QvAc*pg&RJAKrhkDBgImXr>5=>;6QA zfLPV(Dpv@Ig@h~bB=GvcpQsQ}0En?JI~pqhB9HK=DSZ@#XGhVtESl>+>JflggUc+! z^bCuFbSxSw0OCe(o?^8xi`ra}Iw{VuXsQ6{(NXaeqcE1l>;_9l%1@NUpPx$r3IXw| zltl|gK!DMos1Oh%LiSVu7%2cEG4!V?0K}Rm)`XYrXr>T|p|L+vK_F&|oTGw3ML^62 z_|p^uVqrdOVl2###)^QLZ1yKA1Vqx#qL}Vu(OeM_Lq~t2LO@Fh9_$MO1BE~=k?|)g z2*gT#7Dckho+b)`$X@)33K}59qHvi-3ylVk2(+mmWxMvJFy|?Pz(^s`qo#fBOqwDPIk%4w`2#Mke>O`Gpst}0#ytSy!6i5?;Kc^`SR0za<{xk)FU^#1IZ53B; ztPqH?u|H8kAa=8`D3*G<7F7(yv%sIIFc70(76lAhG*Ar0>k)sV!a%&fXHg6jSu{}$ z1UdYP3Ij1M#-f$K#)lf5a=YbJ`rR96VT=*~x-;Ve$4QHtO~=L3lKI+BtB$AhD^5Z-R*1fAt-H zJ)90s>=v%lZluJX)q8v8k=s#vtBZC){1q-TGOu%yek9|gD_mrw;>xuy23Nay)vw=l z@$vU?@oEnl(ARlre{+L_Wb#)3uo;c^#l6vlSN!-*_x8Sf1H#()iUz!V6dYi~1@E7w zEf;~?F-L!dZci=tTVbok!#_OYAWrO_lUw|U=&cnHU0VTf{rZX;z)o+fzFT7$Re-IO zZ*^0CFx}9?ng(yTlHH%_y5qGm9AE3=Tfe@-#Yfh~Yj-Pd!ZAS;Z3bL2YvqCzu}zzk zY~Qg{Z}z|2W2y_NH)7*P8wavA)a@qi*b^#rulm(hn@CN&haLIDh26aE_VV{;<>07% zioKnu18iZf4&?9V%7*@1#q74%di3;gfnEK)%l_W9o=s~)Udsf9T~1$Mp)N=5{{T{Q BaBBbn diff --git a/internal/gabriel/benchmarks/Medley/GABRIEL-TIMERS.LCOM b/internal/gabriel/benchmarks/Medley/GABRIEL-TIMERS.LCOM deleted file mode 100644 index dcb5d18f9682dff1f2e87da4f9a04ae4f53885d7..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 12280 zcmdT~-)|dNb|xujlVxH-5(L3Z7{&z~JCu-dIQ%7wUMw;qhtf#o3_UXx?ZmFYNVFxJ zmRyN)W2{y{@(;Az1zNOSY>R#AW9`Kn*w{{pKK7~IT|ex9u^YJW?sx8;8O~5cS#jHk z8ZtS&Kh8b(-gCbDopUEuQLCD+N>#0s%Q(5v_xt3%X8cKOpSyEXF zZQbYOlCo%OYArcC8&7Gq67?^mr>$04QqD-q!ELEnWOBNc&6ec(BugbXcJJNa?shiW z?hZ>b^!c%BYSvGFSktUV*)Y`~IU;{#8%E7?e@V7hS552kjVtrrNtwe9`;8@qcQHt2Qv@@3Irv)$`#9<>4#+B>&9`-ij?hrQj>A>#|#)XTPJ=oT}Zy0ob3<>k6! zu3EFa+5NrFgYDe|rxVQq-IAH2yC~^wDI=FMg(M&1J1%fR%-d`zSFh4&&VD#MfJL@g zid3BAs$983t5}>DcW}hy#Kik{xbZ@f7&d$cxz4qQ+wtukQ z>+CZ$zt-8?{hZO}l#;W2(n9u-=t}3-_Re;1dv|A_3-4`pm@o#`dw9R|A#3k!GAi7p zhMhgP(LGnHW7_uhhH5!I#c)+`jpJ?`GP2o`%D}>O+cauyO))ic4a-s7zZ7gvsnwjt znqv}8u*Y_9v39r1)%?s`3a+p-vxmC}A3W%=?rwXtvw1mGY+ci}db2Lss%2XwxsFBr zGZNj~zK134?b5=tPJ3gEVTpSm(u%YXx;aANaQL~879eGvjo0Zw6bCwrsb?jMJ?A9Q@v3lkFLPR%SPimhmMM&t|_&T9c1O} zUNayKMr5(e%ytAcOrs$-1<*^5MuO_fDh?Ikv8u0WrlHfOa`*}YN_^HiJ1o_fDn_|E z*!#p@J)LgaX)77=>1MRpTqLR5KQp8XF#y zYiyV-wP-Z;3M@fv$nj<@#dl)3g6SG&9ZvyXD>z$p1Jhhm?PbMUc4fJXN~<|HSapfo zNSvn3kuB23HJYJ4<0o`wDKb`{Fcz{ZtYm4Qs4SmmB~#_&I=^XaIs0+VjI6$~y2QUn({uOEQ zI=TlvduTwcgR7@&LPG60^GhL9JRA@Usq^`L@T1P2cq9`0I5zpkJIm3pmSdkppRL56Ynx+#9lafiXfv^)ugNp-y%ULi zjXLpXOl>6+yOBsFkw8IxtCrvo;gyL58YhhDU*{m>8?@24jA<&OzF}Q-R8l?u8#BKy zqSyL(9}SK1Eo0`Sj%YCGc~114;5{d{jB_XUoEY>B(`uDEZzbNN87C4GkyJKaWJ;r< z0_!rFdA0-_RO<~U7ZwK3a^8E+c}-wZnc_SX(2yzS(8Ok$A~sO9t1MF}xK;U#`;;S@ zXp}2Bjj~zrBM@JfffhoNypZ#rWZqmx$i`*L^LeMaoR{53Syu%)D^!rPjta88;5JXE zo#sVXt74YRF2brv-Few*ns>$JbF9&{mUXqoFc@HPNoN?Vq*QIyWLdy2f0EQS)x6F! zS>Um1Hyckt`-V@5yTj77(O7K=tFV$q2RATdt=Q=x$NTCH`Zu6i1W>+*){(J(a~0SbJl zhJ1rJMheOjp`ry*EyelgHacoP8llTVQGtBPM$$^o)! z)n*lKEhA;b7Xi0rn@xO~+8V2fuSL^nA+TLEt^=%tqs)23%rVgnTph*|%xo#?bXum5 zjK@x@pdiC=$|7$?qLIj*#&`glLS%Vj2!c43nQQ7T1iunC!&b{S&)PJOk3rt8IqYYy zTvHXj*&v2jN7e;ZRr01etgK#9%!*`yCpLvF)L@N}#z1O_$A?byEcPmxyb)q@4iAt* z`sA5E=@)tRE~ZVi>HCpLYX%>}^WVjETl=+t(o{+C|C(}Um5Rr&)!*|=!29Q&_=${zjEn8w3&|Ixp! z270ZI_v^98uVy2uOfJi49~3YetTYzUq|60^RJpj|*2wb(MqwZUpGbVj`9Wo-;I)%I zVW1n1Sg?#ynJ7>-XPZD5Xl(2{S(DL%If1^(RMx7RM!jOO0@HNKNs_~*<$16dVJP5v z1soJmuEK2!zq3R6F`p;M;8BhT1XCjmX%=KL48+REk39atFm#Zvu!1Mk!+Lq1w8zm= zV>mi!a>(>oo3&b1hx#B}3oLnbQGL+v9<+Ou1#92xQL5ER%JH1*QTym(5<8I(ZQ6Oz z*?Sn;A)loV8stGVE(MPEDU-&f#ov)nt$D#4u=jx+0L{LJy_(-tB$qP*4=uVF>axSblh34K@;s8Uvj? zOoO@m;EA*Zp+CMbqM{f$`$gG8m|j@iG@El)dk(95_w6&WNM|w{xx4)B-?S#axZ9qT z&vawU-~J2;^JO>Ie%c+QnyD|lW9?_%Gt1xpbnDCRnfCM6H1=S1GWI>R!xR1pXzKXx zx5n{_V%nZQ9$Vvtlq=3=rE@M4ASgoSv#DAVE~ab-e*KB3{IYNy>hz@0_uD3i92tRzFYjA9EnaiT~`G7j69>bN|@ zB^uLq_IvG}jY0K%j(WJ&Yn{D)K(*UBPNwOrws9}#)-fa_Xsq2^y}xYZ4tA(3%gKT2 zKv$f`=t?()!`*N&5bBFMf1hE1^xuUH&Q*E};`|%Y%y8izCZEVV-<)6)cd!T=fS1`} z79fgYU6dLbkN{Df4`&FXvcQzJB_1xi!a;Zf*D<0U;5?MfE*v`%K$C`+RcM{zR7pwa z1i}GQG7O;6tl1Lc3RS5i%XszO_af2OrOCf|dwKJhkE1_~ekF*eMzF29ly)QKdp_@b zzTkUK_@0yhD8#gqB&T)$pL|m9w9bRxzJKTI=e7FFUo}KcT^sOP&EvJLbBT>}{nmwG z_Y0ifK6|>d`ttATyji{b;@PABs^5L_^`n1nC4y}e80s93pDj?~KYwyTL;DsJC6p#? zeF#e5UyfaS{Aw(^KHfTaXL9PSF){Y!2gcM?>wQ!r+;1^_Z?L`|d-P2d#F-emG5*1m zu{$q_pHIZrCm#LB6b-U5M@Jpy9+9&1A8T2#T5PL#IAwr}Zf+9C8}aCiAF&Lj=6HOV z0dSd=8$+m?SB~m`h`eh$}c$S}yWmqp9?%z&7XMA@S*ep9?q` zpaEFJSt8O6INDWln$N=q4GRZa3V5w78m5iM*N*EAc_IWiC`_xBJRl-od`v%L#zB)n zmj;4}q40~BX2MN_*YO{t=FPH_^2HtG+8x5Vwd6p}R!1lEfE>961T|5@ydZdCge{P9%F%%g?6dKtIZBPDoe7PHY_H=b~<>fCQM_zzXKHvTtMc{eg7~`8d zmHxiJbrTs+Dix{J=}lvbDt^}o_^!|JnnZv7T;E7+8t16yKl^vr&r_}Vn;e^j2^bd) z;;|aOnQ5m@nqMYlHz$!lmngN`JE(S5zaV$tpdy1CD1 ze9vd`EH0Pm{<@7OfBM_iyMJguewAA7#$J5-_|*(A{5xY@lp5nGULSw_YT7BE=H+w7 zG?h;e$`ej`g31$+gA}jGt=_nSYioK_uBu&w4}%AC3-lMtF!1Ar^F={gIbEe_hVEkd z3(b^+<$N|+h5JJ$gVT8_W0#a7Fy+mG3$`U0iz~o%siIY@s)@I8Rm5IAQR=w`-GcKD zP%=0$;+^mcOp7Y`yGQECYheDQcQ9hNGOpQ^ zYPWrVA8&Zmd#T6>!;h2p_B~1))7!yEpB`N~D&Y_5*$Vso=q67Uup{f}60%Y**kaS% zw-kde$vu@aX>?!x(f4p)J(-SueErFp<%#Ii<;nD0D}S{aeO7z&HeS5A`Nis`=dsw> zlRws{V8y@DVvqh1N#)Y4sUwf$WJ#bl77oZrd3=8E1Yc03Wu=#lc%H`pj`?XihP?#I zQrMN?%k@a}IWO1KeKW3H-QV#+t~z*4K0;A?bJNt8mhrMsQoLYY-rc*uD^ly&iv?^X LK8g@V7sdY#(7{XJ 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 ae57ee8f5300b44cfef48e37f90ce8b22a1c490b..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1533 zcmb7E%Wl&^6m`-C-~~!ym(`WUV_cEQW5*IWX zCv?GvA7EP{Rf1K&fE|0bY>+DP1Kb&>2}Ob`k?hQUojE>t=8{$rvS!M>jQOBYT3O!M zuh?~MHV&ND_;7nvw)tUSAA-z zAS=)q0~rpr9m7`OnB(j{?!y3K*0v6ZuOS>99l#{FTCFP3-#Estt|Qdyj%g{XOs=to zdLyCS@YRv{0tdy^DlN8Hu??UG(syc>0`g7#s45HKkA6)iArK8b zRR!s;BuRyBNpkPtvr{gYOA@hicBqODtKB#YSd^h50D>O;h46g_5#0X!zH$4*g^N&^ zr@N&WB@TM|=>fiHwW51=zhA%|J_qNw+B@av@7j;P6lczVF5fGc+1kYcX2Tu{yY=OrTZ=A_$UP9s|~pAdD>UnzhIyrV2)5>KYjg zI&~4~#?&=3_HF7SY)F!_EL+D3k)%PCA(J%mR#zt;Apaa7sM{ROL33ko56HN| zc*BX$nxU662mCn7SkDXHF!p?5HREI*WIq;OP5?(XkT7m~p%`6N$W;6x#cr0QaWWca a!0Xarsh!~rPm?7DXoC-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 b409b8d05fd1cf407cd81d8595d94f3a257cde99..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1091 zcma)6-%Hz26i!ooFrcJWMlC}QVX#EjlC;LQafmTZO*PGJ(1~v;hy^?=X~Ei_q*W>MN`*oU3K(4 za49LVu+~asGazLYX;P8X9Pr$FduzMt)m><}fP-h1<>&XydS17yx-~PWTbfZ)?ZxU$ zUava#lI9eb_2hI~0H&{;C@Eq}N#{7&3#xf{U1(yl2lbuyQ!tym+i*#pOeQ&S*Y=R` zYK8QqBFUV<@K-cLCSkP?5?L8UQIYYMZ>$kg;*<>QjkVU}`Y!CX72pe26_~!22*59^ zb`|;{jg+baZ12<$n(h7Fo>B$-l1miyxkNS%lB}dNN;<^>bF*GaLO&zC%TF@A3A_X) z5Wx}z2n|OmijJ_9H{@>odet!E?>9epe)~o=QW@BsJ^Nsm&R=$^ABGz`zSp_quDGGM zjYd4?FN7MWYA>Z2KkcOyhbYRY!zW+6)Cp}wxIr>pV|}X@4Ig%?L&65b8xjp|;xkB5 z9{nXU!jREg+zlU%`{Wjhoga^qcq!(S*w)3T8jf+g^Nqx#g#DZFXyfPc^x{DHL_)}; z7b7DPa=XU4;nzMHCvbkm6OJZaW6Y0^`GlpBpG4{I#S7#+`bgLY)?`DS?}Q6jAYcI> zQ#xlOC7hgfFGdWO;!~*%tQJ;uo0LJCnuLO>Tl0Jmj98AoteUeXQS%VYG*W(uK@SY%;lTvnB${gW9GC=0zzY|!rgV8 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 da793caab8177d162d18fd702a09bf604be7d8a4..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 1259 zcmbW1F>ljA6vv&k3|I)I152le2RK(avYkdr4XWbWm&WPUcF%6qB9^EzG&GH?#Ep;; zAA)bd#+rc+lz}hNPr#0Z)P)W19FivPP>I2o{QT~B|M%|y4%HokEsD($+aT$h(rovY zY6Y~4q3TAdA_0<);?uKkFX}+t2MONqwLZM?v5jef-OVlRT8&+k?gX2*)6$F2%QA>_ z992s>8xkZO(|g*1E~6YogZLeg?(ht5_AC~Q5_H-L+i8(dS~s+^B#UT4EL0RX9x2r_ zsH(B98RgR5;y_ocIvgFh`){HlB(VXg?gl`(cCgtahByc{a6(MY&}m^M{lkMgP;Bkf zU>2;WsWPCJNdw?{mbV+oa5jiW-S~W%mSTXUsY)GhDb*5aC4-fssuGBIbWxMV$)ULL z*;cBENCHMARKS>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 05568c972bcb7f47225dee1072283d1fc28c8488..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 3120 zcma)8Pi)&{6#wjQY*^5x`vYw+JY_N8 z6Vfz^8|QK1z@1$tQHCbLCXpj565>)JKuAbjxF8W}haEV;d;XKyEt{ws`+MK}zW4X{ z-ZP&!np)k_R99<2IxlB0tZZgy%OIDlO0ilfrGclfZe6>+wz2BL)+VIk_QKMgv$odI zoVI43o72p?-cp^5?Q^c9F45-9TXHS~QcPG*uIBR9LM08`Bx~ah57toBrPUi-A3$^M z=5-h;o|&0RgSWDc>XH%)N>whVGZIf&ELXDT)~)Pp5%T$JUa2a%|7BqrN|js@u69>8 z-&?&2+gnxOORCcbDe|Ijwb~ir^JW{IMKc?1gJBx(hzcT?ZM)85-CcAvXq$7;)-aZi zYBsDExQ^DcmNa|^!2u~?j6~4s5jAg^jjUr?F1Tu=5nThftznwn3|zmldTVX#{hNM> zs+f*SkTHcaRtz#G-L~~kbFp>j?0I$0F|=kfHB!=rdksZ0jV7>D4F7tsGS5lNL2ygUDn=2$kM$>B0X03?`%F!!Od&(hNvYO#iPhyp2kg%rJn ziUKWvk(MWhfExZwER|BydzHM;3grF6W3}$I@7|Q&olXh&hoq`crc_VxP^~zP{-zk& z8QOZFAR+}}Xg|Xe5)cTl;hT*1jPDQikE14ethWBM{-}dqqz&|9GCcIyyND8}h7 z+|KXh(H|E)eX8G`zSPsPXu9~DNFQkm4>XinL#m0tZ^Cs8*O$lpCcXRC_zR4g{&QEH zJ}LH1q^)s!?y~8VtiSWPM+Zp=)pw}?qs}82D^bG%8Ee|_L^9TUlpZ-(0;6R$K+XlV zVzq|V0u{n?(DW)waIBIG+u`WcEJ~xSluN_YB{{+aDAYLSphQpVD@qAWtDzyPF}VJs z5G}Ao{GCDt4vo>u?bzCBtl=2tSHZ}?C{Z$)R0nv6!06AnxWf7>rsayb^Bab%99cR-ZqVOjD5Dk_iHCVKsBSHq*umM4qJT*Dz7v;wgYG~b zeEbFbR=vCaVUJK^{2(s(jpM{|*7vR+qI0Y_h_PA7CQd5BNyRvj;6RL%OK@^A4i zLwA7f8RhDP&6q?k=cCaQ%@{wo+;%kA?cmI|9mB-g8BSY&h)dkD)rEz`CUEX(b<1hA zgZu}BJ~7gVE-`{(Xyni?{MtAJXP~~au>m|`N(Q#O ztDC^3xI)A%Z)o+V>S$GHSf*RI?2f*{P$plrzxsCEnw+*(1fz%vS(zfs$C`Ov_HU#?4Sh3oc4#nPShU>0Zd4x-JhU^i*EiJ{{rm?7Qwl|J zzn|nH5yY6j#Y-49Q3GCpMF;`>sJA(!Hu7^9GX21A*B2BW0J8F3}E p3H32071U0b0*8^1xV`AwIF#E%G-6@e9mhDYyX2XPEz%!+{{qVV7rOue 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 3552ce68680d41f65c264ae5451b2324994cb75e..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 8737 zcmcIoOK;=W6{aUspj6RK7wNmblQtdOm04cC)dmyTp7BH-+c9hhMS!9JB~dmp6saL8 zc|1Y>M;84hMgK#$+4V1U*Dku~cMcztcs=7FKn+-wF3&yZ-0!?^uctrXKR6#gI~E7e zP7gmh**|}Aq3f0@PP3&U9tUm@f0ywrPOrowokY19re&1RqBn0c5vCLIA}h1Lm?w)u z%on31F0P}A$fIJBl!YOB+rz!phQ4^QSJ9vCt%&1Pd~g=!(=4Bb={RDp&z51b2+KH2 zMK%@3!;3RaFoYU(ibPgOK}F7MPJB4;O;=>gD4$e&%*qr z{$fu`GuW1fd$OYs*MFSx551?4=L`L6+4{G%Ct`F)rg}1mi+G&+u&eX6r8g zr4LR6!}9gsWgaf0yok2rG%k1azyYx|Y?r=S_-47f6Bq=E^j5_ABHhs?SmH(X8PGW) zH;%vmw6nfS9onXrl}iF&{71hhu?tyXr9Mu33Tz>9^g5U_(E#< zAi(=P3Maa63>@9CJPVeA-3=LdI15-x8&a6X?yhcu3}UT-y$E2E`}EGTN;6(1`twK<5V$iQ*km=xA6oZHfdTa(FoE2-X%a1A^fodI)#G?sF z3lQ-y2DXk$GQ5Pp(5GK1!=c%$0@EAdo#VkW0eK~?0wa>U*)ZiDL2B8ED1Xoe8Ebb0 zE1VaBPHyYKZN19Z1AH;zpl^*@Rrn%bHGfJZGxAj=I}V+E zBc6$=OAd^Tfe1x3(~3<#epg&mbb^;n`Z^}gVH2E4BUpP&d{b7lkfbPP@j-AR3CJpW zy(7|*)F?Yj27rW+E`Ct`k14CL!3l2=QnHXFHIbkK)HQWK^i8eVv$5ncu5`p+6 z1n{8rXp%o}W(hkWhDa=1U!WkKmZ@bcm4ogRd&F6$0cCWu72O%EhDrT!vji`VN zdC(X-poG8=QQ(1w;S8EMCvRyAJlAZLR`L$C6yz&NTLes1juCH+2G=Zv6cu5lBkCOj z@M)?x0t|j4DdBJxMzWy;GucMX#t|I2Ej$Pj=2AgK_#-%|W;+#STeFe%h!$BAod79- zGsBOmzI$GeYqmrK1}Cx_zk!=VU)wP4RoFsj%I6KpFb12pDcUxK8u9ZSA2nUGh|@_t4$G(z(iBnKjTh981O7g5oW#XE%;WM_jH2=;ic&GV71Q`?fnJ>3 zcnB%h`4@|;D|Dg-c86t0cC#;!rb#p|MJNgk9Z9q%-4K^h7vjaDfP`sSlw$w<+0kP( z{-Z@H(hM`oD0__wB+EsHv*lu%WSAo`z05PTVWQ0A@yo&h2D{?&?0k573Ek^aLCmsA zJdLrtz-$90Gf|Xb4pk~$%WO`^55*18$!>rVCXx`crhJr9R+iaJV2%+l`1HdSYm)dp zN~1hX#5kMHqO>f2kHHGZS<)#~Bxz2nxUA-_Srit)mUpupvL3lrn$2QxUY(={k$?vN zFbB>U5h&rP{yG&0!{?`;om^C)zJ<%HMNGD=NePirBqmuJ;S@QdwM=fs-X2R?jd{)Z zC&D~}O-i5$)QJ>+6i)yJotq6uo>QY=i0!J__Qho#pnV1a_TFJuFbS}~&fpV8lHI_# zaHDk1eW5Ciono?xNL4y}9>ueH!jQG&&Op@Xnd_@sX!H)*onl(FD zI38oFB-rRhRATsG-%Z6Ivov{Jh)w2(7?vW2mI)jP-WEY2_B|*A9H105LS6I#AyB=^ zFrQRsh+fYDCi!hjL|9(oVu+KtpjZ&Ic${bBY!ZE3LD-y^aGu5F_T+pdV~Y>_fk2+5;)o=p~Dx4KnmWHpFXdsna$murl=VtgHqUjjOUjj)BCF#sc) zNUwstdnm%0K($QC228Sy^Kua;@aTAgP)4Q%IXN8QnP#{rf%U}~^XuDWG5hkPtLmQO z$*v(TGB|Kp!gEMmQD*tAAT(-&vTqoQbx*MBNOrx7RSI)vQ3?ETuvOUujd$@F&jj|*j7lIc0A_-@sNr)H6 zC&T(jUz}YW?_GR$iq*3$FWD%#BS|N8N5fY)P$d+gFnS2_=8ow9aqV-^Boj1>q%a

51ju~@S{YR89$)yNrJ@cAwGZ*`Ke8>K>9fapMI^)MMZxhwpmObaT6bISCUadK`SgDC0K$ zqs@aR-3?f{wITMl?oo#ey@E~$iGGNhENXpd3i9bv0@^iQV13O)Exutx2DiW@u|7pZ zS9OafcZ=2NAgQ;hdqqsvPy?MG4vdC`<^h}wGTSy04G8)|8sX3k6IR@ma96j{B?1q$ znbiIf2fDKGxoP9upSC~5XhUNy&W8C2R5ThBf>mpXo)P`8$r3OvnWPS8RP?xmcA|rV zWGq~z1T=?X)GH#T*9tG*DO8JP2UN)t6s&#(C=hc4v+HC+Kx z!%Lko_*R!dGz`!m0-%1J^hPU%P&8gM-#fEOrNZ(C4uC=u^|)+tRe}YOgiz zubTF?ru|pj3bd_1Yg=DwTYs-8?)vm;ah=6OV(~R^{_3s`)!O#@s|S$$mcMUGN82B2 zTiVB(+tBcDq5k-p%6y$ouPCi2R4$g&%bne%@X9Nq0e^P!@jG-6FaR zyWNGo?!u$)!iU|3$K3^msd9XU>9~|LwQz~asq&Qt3UU%WQ-GyIw7ZfRq2kmsX z{HD90xTWHBiXIzczlE`tEo6Pg>E7>Zs)V|-phSZb`^pvt(+y81FHkU545e&QFjW>5 zrV8qcCo6}0)CEYPP!@jH-J*n;B34mdL5xF%KM*eu5z}PfHnOo$eP5%{UfoOagL^6d zeILcv!F?3kKkudZ*S!??OX&in4ew?8r!K``x(gdjAKtP*Sks$;w$2=U2|6K&T+5NKtqw6be8arlcR=>mFaB Ycycer=Uoa#b%kkn;r)MX*>C>#KP#C9FaQ7m diff --git a/internal/gabriel/interlisp/dderiv.lcom b/internal/gabriel/interlisp/dderiv.lcom deleted file mode 100644 index 96a4dc4b44e97a38ab3cd514d70d839bf2fe2e17..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 2294 zcmbVO&yU+w5O%x=z!D{k$|dSyXF7kpehT5q`5A1yHk(ZqX2%!kt7^e= z?2cnnRa3|%xX{+4^%K2ggFzj`a$4x*YIxA1v;z+p$E!#4bGTSLKnBqWl5wQxA%GG@ zL0U}2S{#l?%`8Ib2ZI4iFmNUo(%^snhZNH^N zK?u@&628{>`Epi!BuQ^e(rbC=)t`&HM5qZq^DyKiWWSrk#}QaSI3*P_Afo{a0yIsj zP+GcjYUpOSE}c$SJHP(%Vo~RA-$I91{racBy!=@rwjp?dmRXFfRxvW~79&h?&Z)*j zM8K`KKumI+7EED^ROd7A(rl0KppLEXwVzSIqSt;1%!1DU4o(4TU)zx;Lc4ZNj(aE#vkm(!jiCdd zq(?D3@J0`s<3WV#z|^oL875$2X1JtLrAVnlG^LP-sE;iiHp+o}#J5{RUAS^>(P%WX zDgTmd`5U+RdV_!Q58|=fW%3J=pi9#h!ZeLin_zE-sG_o-GlbP@-h!v^b! z=*B?qz#ZrvFPA{7U0s8V#e4;1gBLj?ebx)TggMY3Mk$+kp&Jgpem3h3<0Bkoi<}+& zLjWWk_Pj8=g_@9R_(J~1DaSf0Qzc5fK%FbMdN6OTd2AJSsz)j@=I1sG+xD`u$&YR5 gyksrkGABRIEL>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 dcb5d18f9682dff1f2e87da4f9a04ae4f53885d7..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 12280 zcmdT~-)|dNb|xujlVxH-5(L3Z7{&z~JCu-dIQ%7wUMw;qhtf#o3_UXx?ZmFYNVFxJ zmRyN)W2{y{@(;Az1zNOSY>R#AW9`Kn*w{{pKK7~IT|ex9u^YJW?sx8;8O~5cS#jHk z8ZtS&Kh8b(-gCbDopUEuQLCD+N>#0s%Q(5v_xt3%X8cKOpSyEXF zZQbYOlCo%OYArcC8&7Gq67?^mr>$04QqD-q!ELEnWOBNc&6ec(BugbXcJJNa?shiW z?hZ>b^!c%BYSvGFSktUV*)Y`~IU;{#8%E7?e@V7hS552kjVtrrNtwe9`;8@qcQHt2Qv@@3Irv)$`#9<>4#+B>&9`-ij?hrQj>A>#|#)XTPJ=oT}Zy0ob3<>k6! zu3EFa+5NrFgYDe|rxVQq-IAH2yC~^wDI=FMg(M&1J1%fR%-d`zSFh4&&VD#MfJL@g zid3BAs$983t5}>DcW}hy#Kik{xbZ@f7&d$cxz4qQ+wtukQ z>+CZ$zt-8?{hZO}l#;W2(n9u-=t}3-_Re;1dv|A_3-4`pm@o#`dw9R|A#3k!GAi7p zhMhgP(LGnHW7_uhhH5!I#c)+`jpJ?`GP2o`%D}>O+cauyO))ic4a-s7zZ7gvsnwjt znqv}8u*Y_9v39r1)%?s`3a+p-vxmC}A3W%=?rwXtvw1mGY+ci}db2Lss%2XwxsFBr zGZNj~zK134?b5=tPJ3gEVTpSm(u%YXx;aANaQL~879eGvjo0Zw6bCwrsb?jMJ?A9Q@v3lkFLPR%SPimhmMM&t|_&T9c1O} zUNayKMr5(e%ytAcOrs$-1<*^5MuO_fDh?Ikv8u0WrlHfOa`*}YN_^HiJ1o_fDn_|E z*!#p@J)LgaX)77=>1MRpTqLR5KQp8XF#y zYiyV-wP-Z;3M@fv$nj<@#dl)3g6SG&9ZvyXD>z$p1Jhhm?PbMUc4fJXN~<|HSapfo zNSvn3kuB23HJYJ4<0o`wDKb`{Fcz{ZtYm4Qs4SmmB~#_&I=^XaIs0+VjI6$~y2QUn({uOEQ zI=TlvduTwcgR7@&LPG60^GhL9JRA@Usq^`L@T1P2cq9`0I5zpkJIm3pmSdkppRL56Ynx+#9lafiXfv^)ugNp-y%ULi zjXLpXOl>6+yOBsFkw8IxtCrvo;gyL58YhhDU*{m>8?@24jA<&OzF}Q-R8l?u8#BKy zqSyL(9}SK1Eo0`Sj%YCGc~114;5{d{jB_XUoEY>B(`uDEZzbNN87C4GkyJKaWJ;r< z0_!rFdA0-_RO<~U7ZwK3a^8E+c}-wZnc_SX(2yzS(8Ok$A~sO9t1MF}xK;U#`;;S@ zXp}2Bjj~zrBM@JfffhoNypZ#rWZqmx$i`*L^LeMaoR{53Syu%)D^!rPjta88;5JXE zo#sVXt74YRF2brv-Few*ns>$JbF9&{mUXqoFc@HPNoN?Vq*QIyWLdy2f0EQS)x6F! zS>Um1Hyckt`-V@5yTj77(O7K=tFV$q2RATdt=Q=x$NTCH`Zu6i1W>+*){(J(a~0SbJl zhJ1rJMheOjp`ry*EyelgHacoP8llTVQGtBPM$$^o)! z)n*lKEhA;b7Xi0rn@xO~+8V2fuSL^nA+TLEt^=%tqs)23%rVgnTph*|%xo#?bXum5 zjK@x@pdiC=$|7$?qLIj*#&`glLS%Vj2!c43nQQ7T1iunC!&b{S&)PJOk3rt8IqYYy zTvHXj*&v2jN7e;ZRr01etgK#9%!*`yCpLvF)L@N}#z1O_$A?byEcPmxyb)q@4iAt* z`sA5E=@)tRE~ZVi>HCpLYX%>}^WVjETl=+t(o{+C|C(}Um5Rr&)!*|=!29Q&_=${zjEn8w3&|Ixp! z270ZI_v^98uVy2uOfJi49~3YetTYzUq|60^RJpj|*2wb(MqwZUpGbVj`9Wo-;I)%I zVW1n1Sg?#ynJ7>-XPZD5Xl(2{S(DL%If1^(RMx7RM!jOO0@HNKNs_~*<$16dVJP5v z1soJmuEK2!zq3R6F`p;M;8BhT1XCjmX%=KL48+REk39atFm#Zvu!1Mk!+Lq1w8zm= zV>mi!a>(>oo3&b1hx#B}3oLnbQGL+v9<+Ou1#92xQL5ER%JH1*QTym(5<8I(ZQ6Oz z*?Sn;A)loV8stGVE(MPEDU-&f#ov)nt$D#4u=jx+0L{LJy_(-tB$qP*4=uVF>axSblh34K@;s8Uvj? zOoO@m;EA*Zp+CMbqM{f$`$gG8m|j@iG@El)dk(95_w6&WNM|w{xx4)B-?S#axZ9qT z&vawU-~J2;^JO>Ie%c+QnyD|lW9?_%Gt1xpbnDCRnfCM6H1=S1GWI>R!xR1pXzKXx zx5n{_V%nZQ9$Vvtlq=3=rE@M4ASgoSv#DAVE~ab-e*KB3{IYNy>hz@0_uD3i92tRzFYjA9EnaiT~`G7j69>bN|@ zB^uLq_IvG}jY0K%j(WJ&Yn{D)K(*UBPNwOrws9}#)-fa_Xsq2^y}xYZ4tA(3%gKT2 zKv$f`=t?()!`*N&5bBFMf1hE1^xuUH&Q*E};`|%Y%y8izCZEVV-<)6)cd!T=fS1`} z79fgYU6dLbkN{Df4`&FXvcQzJB_1xi!a;Zf*D<0U;5?MfE*v`%K$C`+RcM{zR7pwa z1i}GQG7O;6tl1Lc3RS5i%XszO_af2OrOCf|dwKJhkE1_~ekF*eMzF29ly)QKdp_@b zzTkUK_@0yhD8#gqB&T)$pL|m9w9bRxzJKTI=e7FFUo}KcT^sOP&EvJLbBT>}{nmwG z_Y0ifK6|>d`ttATyji{b;@PABs^5L_^`n1nC4y}e80s93pDj?~KYwyTL;DsJC6p#? zeF#e5UyfaS{Aw(^KHfTaXL9PSF){Y!2gcM?>wQ!r+;1^_Z?L`|d-P2d#F-emG5*1m zu{$q_pHIZrCm#LB6b-U5M@Jpy9+9&1A8T2#T5PL#IAwr}Zf+9C8}aCiAF&Lj=6HOV z0dSd=8$+m?SB~m`h`eh$}c$S}yWmqp9?%z&7XMA@S*ep9?q` zpaEFJSt8O6INDWln$N=q4GRZa3V5w78m5iM*N*EAc_IWiC`_xBJRl-od`v%L#zB)n zmj;4}q40~BX2MN_*YO{t=FPH_^2HtG+8x5Vwd6p}R!1lEfE>961T|5@ydZdCge{P9%F%%g?6dKtIZBPDoe7PHY_H=b~<>fCQM_zzXKHvTtMc{eg7~`8d zmHxiJbrTs+Dix{J=}lvbDt^}o_^!|JnnZv7T;E7+8t16yKl^vr&r_}Vn;e^j2^bd) z;;|aOnQ5m@nqMYlHz$!lmngN`JE(S5zaV$tpdy1CD1 ze9vd`EH0Pm{<@7OfBM_iyMJguewAA7#$J5-_|*(A{5xY@lp5nGULSw_YT7BE=H+w7 zG?h;e$`ej`g31$+gA}jGt=_nSYioK_uBu&w4}%AC3-lMtF!1Ar^F={gIbEe_hVEkd z3(b^+<$N|+h5JJ$gVT8_W0#a7Fy+mG3$`U0iz~o%siIY@s)@I8Rm5IAQR=w`-GcKD zP%=0$;+^mcOp7Y`yGQECYheDQcQ9hNGOpQ^ zYPWrVA8&Zmd#T6>!;h2p_B~1))7!yEpB`N~D&Y_5*$Vso=q67Uup{f}60%Y**kaS% zw-kde$vu@aX>?!x(f4p)J(-SueErFp<%#Ii<;nD0D}S{aeO7z&HeS5A`Nis`=dsw> zlRws{V8y@DVvqh1N#)Y4sUwf$WJ#bl77oZrd3=8E1Yc03Wu=#lc%H`pj`?XihP?#I zQrMN?%k@a}IWO1KeKW3H-QV#+t~z*4K0;A?bJNt8mhrMsQoLYY-rc*uD^ly&iv?^X LK8g@V7sdY#(7{XJ 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 a1f70e99a3bd44e22595f703f04eea54d060cf27..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 10847 zcmc&)Yj7Lab>3Zo;2Q!TrYuT!))q;%v>}U>tOwOLrWGSQpuB%Lv*GwBceM>5m?XpcAV7+CVy83ZNVukxUBbn5cIysX)Hj`D4PEM)Q zlQUC8DfKAo)u#hy-^oYPljEsfndH>eiCrU^k?CW*QWM7~r*~0yXmTpG>xtx%sgYD> zS9WqTGrgcJ9z{P=-kw~=|Q!# zYs>sB zS8|?qGvSK{eDQ!+kH-2F?fIOiL(NVe^JY@VQyCK3xB?dWS92A?{-{5p8`1nZ`IK@G z7*U};*0JPlL8 z0OB-Ryi19cru@0`{5c2c}^c!i)kh#?-HH!ka|JFg0Qln0YtUf ziw=UdK7X#vx_5C-b$%n7h#O&bz!%qPlZ(?0sO`RR;rz6#URqdIojj^0GZ~)ckwp>k zeC>sun4H;gJf&tPlf$Xujf(?ytL+gzsz>@GUTj0cB!&^lY&~(zj*LTs*-4VKno16( zRY)}ZAju&)lgV;ZCwP%eD~mJ5+DfO0wVlnaS~d(<*0x6sGhv&8c9MakL%Afe<GCZQuoyhrU(SSD?ls(UF@p6Tk(V6%MA&*BjL)vud3>(g}dIB70TcPcf_(!`{b z>ToifJd&JFk^DbrsosR)#mVt?`%LY(UAEJrWj8NfcIf~tf=beAuOGU{#fE|s!f*w2 zzb|3LO_B!bLPbFHhkbFai}TQAzY*JqygOiM1HSNX9KRS&e*Qe2o=TWfUl`hBp2q&8 z!bxUB9GD6+5Ol0i-5Bxp!Cb;pYS95bZbWG>tu@uKIK(Jd-_hyCUE$rnUG3P^wYjtF z;Z3jQ9(r1f>*mQv$lm#lxK_A+b|nlWY!*t3m(ez|e-3P-eE(2^A$4Bjhx;4oiv+KQS~^nsG^^DHZjfPlrOU4T&B}bYF*SS4Dy~UT)F3-Gocqa z7iu0-1XC{Zk033U|IaEtl7ozP4edy*uZL})gZ6V(EUqOI`(P6zK7ZUW9ki#lqLQe> zW+I6(Lk&Z*$U_z)K!n{qIzGT*U+PF)P#)+4H*9Z zMZ0kyO=dNkoKZa-rb0amt86Kd)rMA@R9|bgP(oMn>eiBF@@n&<#_~4x{TeZU5p~W&;d#imOxx4%3qM2Ebl3bINv548qmxN4 z*{yb~cE)NMvBrn3mO~)(_(Q&Ej}{OYD>TSjzsH)`VU2CEGWS_y>#U5+x=*%RoI!zo zTs>i<+ZVQKtqC^k6IKfhgbfmk7-1R^!-1x=IeD*DE3A(kvzjS)Hh0ew$+P7tPSzxP zg%-7^-$-a+a!#?1ThrCnR~bX~{3b{4Z~s94a}=d~iKdKDX9BDm=Cp$A!k2 zkwqax%mQ;MKC8)NHC1+58#Y-Reit$({0DFu@OJN0t(LXcGfh@YwbepsvfAe54H|LT z+8{}9Vz~m{Fk0}Yo;n81lbTvQo;F5#UBbr7=XNW5<*OlOzkIz{xuHAGjGRiJ)#X$A zO5(itanC|&6xIjQ&0I}O3!7lt=14x*P$-t%pJlY4FS6Z>!R-i8u?0n#N?5W;jJWEWDL8_?qWnyCd#?T@)=>Q56GAwz)k z)QA(RM|+lDAJ%#ziI-?70-X52DrT zU{lq!OwVk~W1WO>7d<+w$x+QxdX@}G0~-)wwY9x5IKW!bkTgyt$5Y;;6L%VqhTV$H z*5W)evIjr5;=YBEWLt6JjFt_CjIc(-1CGi5mF8DsK$iQcu_C>|XYk)05-zbi0YYMN zJ(>{M1Z#u|6&BR7(>mD7MznmZHP&He)?%S+N*2of;3dJ2fXmusZ4d%^iv+T&gf8lf zXt1iv1AwL02KW;((UVEw>eZ^aUrwDuFK4$A*vH1VL0H^7MYg867|!kXu^lO#_{)&d z7d!D1_Hl#DYLTI$<%?5dNlR_T!5ERQC}eC|iDoFO)l?1HHqd$Z+UCZNb2yvOP~nUB zkVMQn8kP?1We7)JOP&JYRvT}1KDUZ)IYNYRMma|EO0K4@#8BmP6p`xcLKQ2;y}avp zKMRWtmv*0t=S)B?Z5pD5OKU+;^)l4c0 z=RTW;w>qAjI3YZ8HZdg0A6T6%jQdOG$y+G=3M=)s92K0eWZ>ON;e21L}u8j9{9v4bnAF!)S^4)P`&=kXz zbsPIQ_JTuNm={l#Vi9L^m4!M{EEhddDA|C`(wo-y{Ofd&N*5<2=_^-KpUOCI z=SMS6ag0*KqrZ4(^H?(UaicUp_G2nNkWr|p*u}PtBYAb~$7r}W@X{9Loi^t_== znz)+gmVVw|WL@)movhHPyw8nNs8Jc?Y{)x5ATkSzZO;|O>U21)4u=zI8MLpm-3|}7 zJ6tH%6(gAh-5u*d@3+HoH#n21TMgUCKh$kEV3-;Lkmi1!QNX2jPq%o_A-4feLa06eKWKm-AV)aM$bf_OJ9=L$;b~j z@qQR?!NPDC!9Vvct+-ZNxL#VgQCc{7(PkPEJbN$SwQQ8pUJQIUVD~5>w^46+KEC}& zbH@rq^@f`-$oUct(i;_Ct>NZmu&K5TLXzhD?&RI)2HVDYqcKzU@$GMaQwYLn9D5&? zb3Zrgk*S}bdpUe(&oD%z+`9D1zuX+%?VgXoT#Kvp14j)kDcrsG{^%gWN?xF^1j63! zd~f_`wIa#5HOu{B!|abE%#CvhwBYF3vXw&xDJJ`ncGHKOryLP;a_g!5K(T2JsXlp6 z9LpjV_-L_F`iElnrpS(nWV^Ma6CKNKy=?>kTKL{HOJk4%RumH`9}LEgNWfeL$|^nT zwRO0XW>9C9Q&NQmRMF@GM&&g8U-AfNDEn>Bo~P_N&R(GG3!HsphLel;S%=qQtg09y z{lWflI2f$}k$fnhYng4;jwdrS$t*<{lSi`@s9J8KHvd#nH=h|1G#e>DviIsau zcorxhh2Fc#C2h_m$BzsrDYm|Rr`RK*6ADy83_r-{+qA~8P2KMZtakjB^QZ8E0=ywCOm=LJyK7_ zx4Dvzuk@{A)&eVc*nlHt;vV7afGGZ;NbwC&cz`@Zh<4!iruR6%_BGM|B-#)P6m0}W zaC41`rlV-8DKt@Fa=)nWCw8V0ObjA|?X~;pqK#a_+Ql~Nv|Ti8M#EYPGB0~(DD>YT z$nFQ(-7Aq1s~V>HNFs9~y@e;X*|s2FLuc?j&^6n+DKSf7Md^G#S3BEg;%!S*`l#}` zd~VHbTLdpOc%M@BiRo-|VyHkcmCxN>Y#c~UP2&jKos;?8UB$KpUc2lDybgk+Ie9eu zWO6E{F75Rw9p_?WNwv!&8dlH@TvbQUug`X($@w`Kor5Mih262ny-@`CD&mopc-^9M^p|VDJKwB8B*cf z{Hvp!cku&jmvb3*;(Dn3mjF$kgpu%xCqI+n6=Rye5IXf$PHs1F@{ux(`?HL}khOj< z*Zmh$|LJEUpf_OrNQoG}E=NFS(F(HkY-_Wi2qU=!{Q$=}840=g7ZOEH70{BCyDs|? zzycIC^CS3mFGC>$$Lii|1QB`x5gfdj5BT?24j59-(KTbEfQPraj#;iP){c$TB1^5D z*!EUg#U+Pp6c=zcqC16?nL@cz4|=t|I-Wltx5^J#6{>Z3Et8ko;88%t9|G4cNLSO> z^fNl)x=Zr4!Ftw-ULls=BBp~bDf3Iq&ShoSvT{Xfd6<>)4{iRTg{p$!otK-I4vJgZ z36$4(ee_1SkMP~J-5&0}1KmNLc^7*5cd%aU0WGVd8NYN2aR03^f(uyhW`u#>%VN(X zWAERb`;YM0`#0uZ3N2Ku(5J!;X5h@4awB~`d?tK)&Xf;u<<0c1QJ~_80YEy2`{j=d7Y~;%iVGrt9#RZ;g)qGgFG52;a&xhNXGY`i>lF&kp zxHom>>ZMO2*XV#lmlidulJ;2oz)@v&a_(1^0GOOB(WGP4|ObJT7>(`(}HhJG8>Bt_E<@1<#Jv4?-Mrc8}X(Bu+H!MZ9at$d1 z0ZC1!PjSk8-9|itSKMX5^OWGe1mA6^v0nLNaFf|Id^wCs!@a!1Jhr}RJu2+JtfWS7 z|Jhht92H*vy~=l8gY{QVC&jZAisfmTz2}lwN3InJD*4!5Kb^c@s3{w}aXJa_mm6;J zFHW&YJ*Cz?YIuY-+Z{FBVK!2HXm1)G!!4%Kdr=_Vur6$vC>d^fWW;tzLx#IgaN+UM zWT%Rp@i3EOS-9%OvM?edkjk$oj!NvPyB+Z!zveAOKOU`=mw;9mV889T6+Yy`J4aie zw$I|D%(_rTA7yw6&Y92*S6qt$1h1l9xD6Xo^BA5;=#!10zL(!te!^RGh}z#PX0Ks3 z^{pamY)9^Od>uwqb1O6<20~5WLQ^$6wjzu|b>BqY-K~Jc3DawI_rjO<2J~Q1i{qOa zGFDJ~xUG*x1^`ME&w$v|iW$=P5cG6GgJyYJ!-vpT$8YMT%-Gh*sTk9wwvkUo>*wVQ z^Y#%rr_#?L3y1y?ui!_>JIz5Kum4>Xlpa6P{0*{Y40QOBNIoF0@%_S?a@Jbqd>I26 z*JzpKv1xoINZ%(>*9!=pCPv1|>!nY#W)IBnobAFtc!vS?so8^!Y1LVCwrv!r+>s_9 zwxQ_5vdrki7O;|NDMja1W}_;5-n4e3r$2pVx48aK&ux{jg?c&KlfKpW$KkoPeTecL zcHau0k3`#UK9A?egE#sV<@(%DSsAb34w`#61cS00C!*x7Lxdto{PI@FxU4@47X?$G z5AjOlx{Naf=qhGuA$6NS`%63rMG7hqr=SQ0BJfz7{FF;1l4CW!ey^cTqwjO#dQT`p zFW>l7kUyC7Pfi`16b?K3m4Bapeo(`GtUiSAtxECbp@mOy6w6&SegI_PYxQC|HMZZ) Os8xD{#{c@KpZ+gOjoWbm diff --git a/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~1~ b/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~1~ deleted file mode 100644 index de3f95f87479d7e596e2d241b2928905bd01e417..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 10042 zcmcIqdu&_RdB69PBK4%HM`TBFQl{1;Q*xb1&cjxU*c5pwUg?sTzL(S^FPD+&P!c7% z66MCtqS#KlBnz=bwv+G}4!W%ikOJMJr0C$cu(kWc!1l+A09&#Bw{!zG5A)yw3!28> z?>pyGBo!x3Qp}Kfp5Hm&`Ofz~cSZ7!hm1gIe)iy0F0&ArU&FK4#e4uaF&YfuAH_*RpV8?yi>mxzi5c_=zm>u^I?C9HGf8*`q zo64>8k|aIN{~9Ezxml)moh11sMJ~Qk@I`b(3t3t)sf7(Qq)5fr3jSU@8H|U6R#?^J ziBz(;Sn&4+^79APT;@-8DVvHXyu}kP z%#(ZZqdfd@v9LRqo|+RkN*uMYG&eUj_jKT~q4ZM=Q<>Zofx*n&WOg>aFcVl@n#yMu z1DHOZS(tw&U`#C@93YClQE(FiSekXP+lqyOaOS|&+*E#Qer}QTX+E0?2+j-S4HUNs|?;$#* zmvVVN)Q`3JU6wJ$*(y=Q*^U=BZPJV!r_MlVa*O%`XHn#mN2xK7EcCA@@Q%rJo1!! zz}bbBS7u z{|k<)CQTKR6C4cM+V6U7H=|>BR3E!?15ScE;%YSn-s8>I5)(pQh4oM{X<9Z>gLt7f ztc8rAr48^pI5}h{CQ$cH!2?1A_tAo<0UBt3Odpg{xNV;{x+qr**VLkLVQDF_lP zbhpKVBT$mik6L_Gx6C-*CA$?WLZ*cZEq(ne%z(OcCmDbp{R0o&_eSB~uV`mT>$&I> zfA(3;XNj&xNt$$XRcMzxJiG%2Vhw#LUVkwQMM;fsOHz|0t*iz_U4Y;>*Ux|IJwmna zJ%i@n+gGA5qKtM-Dg-P3Nb`P;hF@}#R&6AbB}Rt0a&i&DHzh1BnVf*qiUmWKX}gH% z^`etz8FsQ*=zt*^z!bGYw>e5tc9j%;JyB|nwNvqdDBcl8Q53JT_8bfu*@9@$j!vPz ziLOzlmdb6Gfz7=`8Xx}_#yx{(DjrTefNCum0eqy#?xy}=c-YkA9qb9RF3q-J;o^Q~zJGPAc95&u{LkI372?zyw{4pX|q2pota` zodonF0sE(bZLNaE3D@C%06356Aehqv=8ez5gf(Lw<~YHK4uW}2z`Xn!m`ePj1OsHVcozbY}+n2cNd%KV!6$1rj6y?>`s|=y8DFN;TbZ_!JxtF z*<64$`yA_plscBWY^WDu=Uo^&UXaIGy-)#if^|^sc;WUcDs%BKBWu%qg$}hhWhON& zazbH;*rJzxhr2I*Hy4|~QZAEd^^nL#*F_FuMvl#G4&(D(Gz<2FJ7)aQGHyn=IEu>J zn^=3@U92a-dTs+X$;pBT7gh%++E`~Zd)~)7y&wkNg|n6#F)f+(fFp1);Y@JjtY)4$ z2p1!>ur6$lOYo)yUXXY1QO-o=vr*-o?pm2Tl0B}=NA&Z+U2j+93r=~_DKFJZ(mr2V zUyNisI>>G7=)eTimmO9*coi-DZ5-|B!1NB|gNJApKdoZ=vj+7M_|0Ja7^HFhKa!1A z1IE5IV7wYI{-ptLg4M7r@PVEty!{d*fjS1Itnj-djwv*Dc5>xMR}w20T1(9e(^5mU ze~4?I1pM$Yt@5vELRmqV#1hp0bH4V=c~NW^#q9+6O?HTiZvemr5vBT8)ZNfq5o$E> zap}4!KH-qBU_knqSO1WzR{&50-bux&^$RieZ$$CeWr(#h#7}tjRhrJkyn-lRDNp|c zG5vdDYK9#eXNOW^*b+lSVrYOJqT@q(+tIi-c0XYQjXV_Z22a-nBT3D=gSea5RBcqV zCfaEPM@%I=z(M{!vdtut;P*C2kRBhZR@!VEO{=Mx<`b)x9A!R1`rC>LZ57+8)zeN? zO!ILpDkki!7~JIGQU(uVl=X3?;ale^t`XRCAZ97BfyleOoI1xyuv@uc3%#k0ClLK< zWdU!SOV4K119P7h>efAq%q96GDzYCx4wJrvon(he5sB4|MNLDa?ctTkY9(HdfL8`) z2{BIY2^5)2f^ldTMm=Ha@uaZzI1QAT&|$6~_QV#h#=Mf4~pj~oG%d(aF|aP`+Jbly#f zvwqAyL9PZ$68r(^@YN((!d>;aS*Hy4^R6SqsVOyxZQz=L_LW!c1>IUnN>xWeIH9`Y z=J);qSKxFXTZs5&kMB%$CF;*kD&%&tKByFI2&c9xSd-UjuQam9YS`m)9qW@xL`cr; zgcj0aFF6~^TT9F5l*y9+=Ug}4F6%EAwqlD!&;s=#iW}p&@;xhC*pt``=>oV^r6|qE z`jxg~q1&pA>;mb0AeTuaoXlqtAI+xc4vQF&OEGDcORS$W<83AEKt|AjAD+6L^Y17Y z+DhlI4DoJ8fE~c&#AaNPI~g3IKv>j7l;J|3=t6SEsf9{4PZF_le29vOqL)_~XQdYz&f`$sW`Z2ipiwL|l|y@&>@dQ3 zWJ0)`4*rU#VuPBcnh{k8`}3gQhS&wUu~sW5^MLM;fP#mteK46pwb8*%CFRu$Zt(@J zAs$Vrnq`?5C2u_TgbnQ{Co#PF*|0tGoRgv2UdD@UZ-6 z)B9T1%ofxC>9yC7uBM$SEv654X06N=dYgjNm}EQ0+UsjDHd4LZhz~2Zt(k4PCaiR% zK<6~uWJ_sEm6o+tW>f*O7L+7+r&a?*=@Dn*$jSJ&5v zq^rcjhNM6ZSwETOU18nfF{~K%w1IKI>C2Xq3X-Ldh$75ytTlKQE$k3{^Mey_a<|Z#$Gsl zbBKRNve-KfHug~r)saijKD9qhxz~+1#6u|B<9~1`M^I9T0|&3rzTBk)A>hV^htgjq zbbf@WtO}jQOn&KL6~?EFg<8m8kYo^AU@Miq^e?a+EQgu_bS!r@mD92$ozg#oT7D-b z6;>Ulq0~v;*HxL@-#;L@WP^qt6?kYc_pMhDaI(3fmD(hBf}4qA;Om{ zCWabILzK{p2#^phXPc4a7*dm}12Z7TDA1{2A0r?U%w3_>({1!dvLSz5g8!y~r#NrR z&8E>(jeO2ksqR_4n=E%n@Org`obSML|9#12d%jqxU+%W?SRp!slf}ZV%iS@g+ws^C z(B~HO>AA_$;8?M+r93#ASy+U;IDjL?!Y$>oB%Usuf!%yXd;UQFyXl2Ypc)FkT08bH z4OW2l@b&23WCI8uOi%y1Vadv0{yNg=1Dc8z|U)|zEk*)~-;EMvYZkHrN~#SM?82Bn8z(!V(2-AC*Z z_XgjDkAsuHhEw8Cn#rJevaz}Q!hHtEaLn+9|FcyviSljOwHoehux+Ef@4xx%Q#bW6 zNSs!noTxnZ885@$=wy)Ys_-!2Fu1w5;o-la9(tOfn$G7IfGJ)&ykI^L*E<~3ODt!!UApMJvy_00XOci}5tmd<9+=_@*XCHYnP+*k|U z_%L^HN`4YpL|GfIXt}Feo~l-DRf~wzbXqKm8dtTK-5<18Yy&IkhVRsNe)@tj!o8-9 z7&V5geJ1cFXgrMnV=Y8uLcX>Gzr@EdG#gj-z=gUP6aLdHbc?Z>4==7>HD*4%u=-Z? za_z?XwLYwZC2{E&vgeHz{7tfJc zfkU*N3JH;&uiD};Ir{s1+P4GpAXz4zXsik#1n!yYQ2aSJT@NdQTw|v)NXo1 zrpD8JiI=GQIOZu`_foZ;?V&-uB7Sc&oCfc@FYSc=;ww90@BVI17&Of1IAOp4 z#SYkXh4XdGZ*ji3rus9YjNCK>e0|^(NI>*5#WErdCf8RxiE`mg7%(Izj5^HjNP51wYb9mV|jndxiq%w$O%aMU}L zpL)hx&KynC^8*^*EELuY>9bSkoHoSi{LwTe_%T{DbKz(jQ6M^<)IMqu(Xx4qn|@M5 zd*Y_gfP#ViT{Qisk9HeA#eG6UC&k07rca)l;_+G3^oV5K_6qoq2@ zyvWA!l)9@9SK{kM(jug(rD%S4om}PndEgK`5lrcG7bL*DN3;nhMDaSsIP{3El9yzo z<*~E`e928j)SpAJ8y`pRoSwKN`Z!OxpW&1qr|}<`s|?t*bcv*+liHnuYHRv{_)|eLOY_A1^tLiT*BNMqe&a zPMbDMb9A1JW2~7!aaJxA<%9deqPUl03pzJHwxGpT3eu$Wpn*%jmt+1O>TY{1$j|*l zG?bwb&3PNu8tza$$d^mq#f#(?Dx~WT%v;JxG-|o@!9{#1Mc;8ihP#tfvlRK!=PS#P zEkC?GfImb?;lMM?PjFW;uxu}Pk3%e7S&HLY%W)j16FvT85AmY19>B>-jzH6Cwg-@p zWY6po7Wn9DpL{Ml%##?|OCzrzGgdc`$d`IluaE;H@*T6RUq0 zg#y^)g=#40z(oX3RF`*vv^A+X9DPoOHzod&7P&NJ;wwu2ebSE4|31k@UtHB9DyMkd z=JA-kP{R+gAi3~Wm5bdIzI6q;W+I4{Cf(A)bn`uTYshhZc5 n{DIYpudrAHy?pq}Itm^T)@8#uMWYjKa$it7g(c+YZ`}Alm@lt) diff --git a/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~2~ b/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~2~ deleted file mode 100644 index 1b850727a213ccab6cb449846f7bcd0a86d1ec3b..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 10456 zcmcgydu&_hb-(wLq8^rLT2f?NjuU2<{Vb}+CPH0%hm!( z_B-dhd`V8)G{6jt-}9XNedjxm-*@g^lxp_*LT=y8^zn&wa@IXFpFKXGbswFXbB zAJf#3C$5Fnn6dM*t~#TP(b#MkUYVqfi6ght}=L~2e)fZE}an&EveTtNSG3V+u;@*hg8}oa#NOU;fna{bp z+}WAqo^R=^_v`?;FHaKsna^ho}^d|KHAhAzJv&?2gb_<}s3*MXy5kE#)+ z76cA`I1ZLosMh+mn99UTbN;-Ydaw?E+}j^g^En$%16|couW!gZpytmj`E$7jFfVj0 z=5rhNsWE+@$ESzGdc+gbjA%YrZHZmZ=N!*Q=F{otB#1)VQV;{}pG2`tm5umwNnq5y zYI}1SkW3rxO0L7Msvwm0Lj@b@bbDxHS@+CQcOsqURURpdfY)nn?9|Ns_7h2WdL}WR9N$@d zP`|q~tVOi&aM*)mh#SN(44G{sj@gN6NH9A?a&{*ZV<|Tzn%zNiNX)0RJk$+dB-7f` zO0l={C1P*qa_d(;hCAyz!@3c-%)OIjU@McsOkh4URyvi!Sr@lAx6|#84M#lvYQz@| zdt*a}djdrNZd=-M^h8fkt3d?)>Bv}9ayTf zk}0ortpf^Yw_b+bOrB~Fm$(sE~$b1Y3PI^iBqWD`dcb4il_XKd9I*FCTt zZ@<@2zv#B@CT+X5a@*w(U=h@kR(pKVJ#ID?ln^e zCj0d0e$<_QT^;d;`e1%hSbqKjSx+sTs5b=dG0x!p(P1aIAq=L590Zvax|_q^Avj9- zNHsE|#q59?wo%i7Qms86G9r^+QmW-3Ek-*Uw z%O3cFY78-m0UqyP#vB2Ylt;~$I_qiLFI;K zTbwwZI;Y8}wVSk4twoV<6)K0F>|vvk+DcHcwUtQp##E?PRH;dS zYbLa|f}}Na`8SzcGjr3MQxWQACZ9stj0rRcf2UKr^YWfbdfoZ?7`WCjaD6TYg;iGW zaY(F?A_8s4C7EQ8XQ2xUpED_1uD-2}{U;q?IG<}OG|NI+6`j)&c3e?le?K*A(1fpp zD+))6>t8eP-=*r;M0K|)w$kjdd4dWJL^fDC)m7B(aD4%4^oa3xQQXIr&(pwGuD(Fk z^&qH%t_?@fl0M+6(vL;)FGULJpNbUla5VGl^z*iu_l785FHL`?H2oW5`ZMN<3G+l! zOi7605it}rPxxuy(P1MPQAhh|MR4o`k)5!EDsLdJ#U0 zwU!b&aE@$tvCnBNS1;j7%;zA~;-$)LvDLDK&XPlDVuv7HuevXa+oxJ`49%IubkcJ) zv(_0j^(iu2{{>WJ7k(^-eG^ZTErrERuxd1@hg5nz5Rv@o>a`UeLdE4UTA0T02(Hj3 zA>wQhXdxQYB5?sCurIhl;RS6EnTPISM_9eXoVwpkw_tOd%QnY!xSRmK}z z69v=0jIPgT+7b?KdzINHLm#V)>tWGK_ZFT+uyBo7aX4iq2U;iTu0NnVCX)i$|_fA0)pYn%yh{P7JLP0WI5-LQg)|T#!Qft@ci0=uvPY z8=(yLxOa%|{-P!>RyOpBF65M~ny*lE#E}k&4DfheJm!V-Gbm}K0aJlXO`(fh4kTb; zbD|y{K5!tUih7{bUlpJX5_j7I0c);b8|n6Ri@99yvg*Knv0<(wM#QuctGle;AJaz- z@tCT9eLrV5V2g!y@lxrge=b*B=o8IqL5W70?0ckF&0YCR6dI*V8A-bLN^<&>+ZU2) z`|Xz|({?tQTWo?73&?D)Lo26j0GDWqZXL*Fn6-D@HMKQZ=HnYoSM_C1ptL?P% zZJjm;nj1=~L6OMoGPN^ z8uRD@j|L;)T!sMy^fG4fluzb+>>`%nAkg8BA49d?TAPQwL=#TI36H^dB99u2=`qS# zIgI@V+%2Lg5I$#bt;F2U(z?uT%>4!6@`d(=c3q@?XEN@ExrKH*t+Pm`qLiN^5eA#3 z{iS>HXbZ`>;Pyz0%fS^TxFU{|Al`CHqti=WOI=UhNZkysNVigerIE$RS5j}w4jJ{) z7CHsp$>h4T2+5hStbMJle!Z-IqpW`D6~Qgc%myzvRWP3%#M3qb3QqzD>y5hWquYP9 zbj+I4s5>dvEteEUYgTA$x|4oKTk5K4cxW}xAt%^1FYC?ehL3Ll;qURL_2#K}(6{tc zy%Ckh<)sUu)np+ELAmwz$NzhCvd_63hWlN|Uj98>J^UkXTAjm@QRHJhz)NvtiaUAq zzt<^}jJQ|r3+cvi44Gk=7-GC_pyy$_x5`1D_5oEp5JjqyWTsm*wKtT8WKwRr!*CJ^ zgVMhh2XSYm4q_p_C8}Q*MVGmI2MDVz&Abo%>u}YjRqCUZ>A8!ZI2wrQVZY(T%myvu zv9z?7*!{w+rs8MVKm$G9&lsAz1i)OR>Unc1)uv5Y}0vr&p_wqTX4`DXr5euB2<93IXXfD0gQ7FOFb?MyI)3Rw}}PLfeDVzyZe*l*5hGT;xu+ ztKTVA&w`aRq~ls+APTTEKPg7D7;ym^29ZZVu%*{hK6O%z9mN>3X=03!1LDn-VrUI*}Z*Nce$L1JgltjPtF}!Z?pqU>r{+#@SxPIQJGX&cwB)d*YQSXZR{b zB?daFYa=D7L)fQgnSL9VH^{b9G%JHWqs~g)V*}o?1NT&+bnt2Ym#v!1_sl)^RS1Xs zq1wL&v~k7txL3UIG8hCg@_3UuevskfHv0(aL*)o!U=>3abK58n{SVLngHOdN7vaRn z&c3l0rx*oqMlutQV?|*fhtvpWEODxkmB93f&Js;utp_9&`8oG$KoGF63q|aO0v*o8vH|<~k%% z3Z{1u?OHA1QTJ(h**9ud8)nVj=3(K0t5{ZNEaY|>uxmxSn!2VfY6QD3%GX94Nd*R3 z7K25|1+7t*E1LGorlYc1Q`Q`3m3vJv4z4sW{OcrED&7-)p?B#%OT~)(p!VH5*}f;^eE0j1Xt=gv}wxKw?Ce^MivWwDQb;K zjl5@TFoi4rc`cA1sRAR5g68aUl5*tXevwzh1(8}gw1E5gK1uBbgnB!@ny1Dzv-lcS z6PTy8KSp}1oc=JOI0h9&GYmRT1CMq?}h+--=i+s zE+FLMUY>BFpNp4zxOiCvk=KYyuK(3xob->M8^(S6i@~_pKNH5C`D_@MDT8o#{SpYr ze(YN;IoC5-vkS^Xh7ergTaw80$xW4D6R;L)K=@9T>4TCgZ@(Uk<0WMo9-I?AD{$8? zI>)d7$_S7-H2r$8kDkP!Uao|GUwYMi!t&n#nVh`+CsQdl4chWO%3nA}8?T&6@EaPm zs#9=eUrAh@xMmI4kbzx4leliRtEO(8N#L$Y-M8ommdb^z%uh#j7dxoFi0%xL>mj?m zsk?M1KY8#K#+f0Fy%N`Tr#vws?tnqvImFcTMD&Y7k<%_BF1GjcTNNK8=Q8T4&x2V9LC9=(4McUO;J3k1{{KJHLYVnx+YhDQJv;|y@yu{!!}gcAGo zKnA$-_z0M6;Mc|FjC5Xaa!?dKbcdn6^VS7m`H(Jy(%(T2Htj)P{a>PPH%7g@_wS;i z4ESiyTc}nsAbE`09ejX`1MI_Od%aoBG4vwxHflO?d=8(h(ML2y`aF`4@rh}=WzzRU z3kMe-Tj<4q+{XOwlM9C!bGm_RI}$KnTZ-MUX4{Cfs6jG- z(f~+VV^i`;PFu?-C0i4{-K9%=Eqy%_(*}ZZdb5j9*!XiU-^}ds8F4cPUG)#>=Z6hU qV-6wTZPtn};>>mQCdgTGX8=&(Ytqf8-n!s2tdw4+=YRE+PyP?M8_E9w diff --git a/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~3~ b/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~3~ deleted file mode 100644 index f78a8ae507011e868deeb68dd82715c0020eb795..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 10847 zcmc&)Yj7Lab>3Zo;2Q!TrYuT!))q;%v>}U-ElZR~76>eeB>^mi1xYf}uB=uA#MGC8GA zPtHsoPOC>yuRa|#`%gTQnH*2=$fl;Ij_(-Bj!Yljk)AjWgHJrrBk`|uo{{g8BQI)U+wa#{+TCcrgLi7 zwyj%H-rDWk*8QMw+k@M-JiOVrWn+EFZ$`vyihYwa>1pol+oT$YbCZX#0N*Cxru$W2 z_vVKeJ3r*xSpVsT!t2WVNeO>XEdJC|uAxEZ>S`)@Bt@4IxU21Ofs5hHFmd=vM#uczAyqd2H4a5RT-G~*=$|se( zz|a%aLV8T|5?^!=86I$S8gVVA)S`pS7)XMp3)$+Rp3u0na%bVJlWH)JVA9_c(F%D7 zHVajiaetuS->VhQDupxo8Za+boG#=Wc54Y^w>Mx!qejdd(am@vUukcKT*$kgj?HAV zCnN|&x~C)ymH`W7p0lfkIKa-gY?0H{VmWASvIlFc#LVLfBkov>LgUh1$0SS_s;g8LOLfzLZbZo!clb$%7 z8Ba}(snatfx%9LO^4;mF$*0r^^s$>{_gdab698+g)mmG~cL&o)MkYpbBa;);tm3&$ zS{3T4=8hjt->;@7hE=K@CPHWv4UO_R*ePIFXK!P2Ph2x0d6(#1fYgf;7KGJB4Irw; zUUU$w^@Xz)*4>M9Y6uvyWWtE3gZ_k0n_QZ1Q0??bisz?O_0qy}>f{kMmCf=j4=sv- z=W8$Q_~gunV`()znHo+HZ(JOxN9~O2F+DmE^6CNYdcX6uP#Ze$!1%uSM<)pY7` zMukLk_mdn_Gua$B`M`^0T3wnc)>b}6tnEyG)v{r@vc5BFm`U3dbdn4lWipry%}g9F z?MiX47ne7^QB@NIF>j9+3xuQoM8BzyU`p7haZ-}>L~iQ%b~UJ(frQ?J^A(Lpw5S$K z`soZ3X$m@W$a};dg=Nx#sk)ak<(aPj3^vQ>{45T^U;Vmyvp!9yj*;flbf?nOEKN*0 zr4FZZsY9vhG|B&Smg-F!UYs0%kKfdO+hsc~T6XKwWtR`YBB&;<_6DGPTx=>TAq-bg z5BQTt!X#;sE>s1zK*XQWx;YO`4jA!0$h(7vHt3J+#PN&c8XY(^+%vR<|*ty zDx73C#DS?I13||M)y+|VKg=a8r4}316Gn{o(ppmsi$jd^ja@!3?h5bLt!me%?#;gL zhc>;If8c2?p_?ZjA$u1v5?b;4*^xAih*>NxUPcd-{c~Uw<$FKd1|~{Pb!7AoJB4jD zm)E;QJzpX7+{oG8-^s8U6;+QDiyHcQXA{#rPWcim&SiaeQtzTxVUTxS=E_}noesai zxp3=YMKI+e{|M4j`TwlaBRR-u*U^r|`+M2;IcPsu#S>aGxd%2e>JKCg(?NS$FDi*D zVkQguR@_+KAn}%&PTS_nj^aI1PaCn$YN4c(6X`>d{F6xD70CtMnsnWS{braBU;*V- zq%B^m@$w}(fk{;MYD_bTc2|!v5DUipk*$KhL0$Fe4yyMD`wTtSVeO|&tijZh-k=c} zShO4W&}3Gl$r;ll5h^sIu*#MKS#4;gN%i$s8zpoVuWm0}Cg1j$392kwq4Y5r)DQzv zNmak(zS6&=Z_|>#Smk2BpP`>iR8XIvh(15Mtxr&kEcSVi`iKhZ^Fz_+`?vKepWjXD zQ<~cq(dVy4@|H+m1^lQ@Xe@72->VVx7g6Ud7M_P}E3{n${>U>_O?S=jkz_hqGCG;$ zvfb*m>SwIB5o>(dYC8ZjPay1%^=d(Ju|k8a^}DQzZPwU>R`woiY@L;LS@+0Rn=>S^ zkE=Ig^!OuIy*0sReZp#kfv`bB2_sAcVmQ!rCNJ-{>V@@@<5nx>&gAb}B6+qvrOBE^ zuh61)4H!ucOwKCSF>AWk`YL0n-rwZN{jIVfPWlFMl*465nGdc^ixNHdD2sh$J53ruS?ii`Rq<*w|ph6?3J(eDc5z!>5-F}GrD|I zzrl;vTNL@`V(y?@m?Ww_=$Ws=jHQE(%gt0Y)7r`av$d6b8jYDqtDWZx{#k*lwG};E zW0!)0akF4-G-qN|FPMD}gJw_>A^xAt8175jayEwhOYrfmz{m5&`IP3peD(ce&V2pQ zGCh(-C+=A&jl%jsx|y$QYhx2k+Z-+An~KG<`?G@f^F_9Makw2pDz>2rQwd8JjT6^@ zWZvJP>}w+Xh)C`t>M83OCFAJifRUhl26-neXNU>|qFocoPVV_4HEieXOO(AI9V(!c z12HPqGpY2kNPfB4L%OxtL;5LaUk17KcY^M_BAF|Zzg;4~P$GZcI+nAJO$xG6L2^Je z$E;&Itvx%&@4WU(?bx8PRv31G+3n`co*aH6bnl|7eI_aU@e zU2Ljamg$*od8`u;M z*;<@KM)u&xR@}ERl58t3oY9J*uo2N{c)&3^u+sd>49IdHHD00@_zeELL&7E2AV5ew zp~sQ}n_!JFp~8YXwp;t#*@#wdvBtWr>{={zP1!=ZAG{>^5pY>stPMgSZ;?P&mC?og zQ4LmAxeu_^+5mqdE_yNvT)lb~_shwX=;iD&f_vEbHVKP+yU5m*7Q?xnezqgU6MqRZ z`eG+u!ai zUXqB}K*Q33y#(RNYspgp-0I-1F639yEk}qD&M3!7Udh*Wlo_f*o+47+-Kb)vxSMzV zHfVi1?8zKf2%B16uz27H$6|@YEH7@j(qQd#S&zweR+mhtmX5v|*8)0#1D_1Jqim3@ za#;Edc{n7?SIDo!U~zu}ONE_S?p2r63<5iVQ4!q$@+|ty4VF(qB%&ix?q{p1oSIFi z;N0gj@K(oD6UT)|&L)N=`2)+x!nn6=p1g&^&wwzv!4}BoLcX~ukaE9!C5dcS0D@LS zMVv{0KSd`*PPl#!)QKv@zU*9}m~$l&u!!|?dwnwDhm|xbxTOQLflF1fic2nph;SH1 zK0dH_Z$uOMP^rEmM3FA8c7#GUZBQTdd3}PG^IdixxH2)od0Z$7ebBBh%l9OVAyW)f z(PQl4*b5G6ab7%Cibb5sR~PFjTLyT0k#)`M4YER`@;*09;bvuwvtjT2pvWvJwmnxA%ja-dT@EMG3TR(-ryU;b zbhuD#C`B?w+_BTz>ToL0eu_WaG;^;GBTfg@A1UN(N}(5^jUd7-h*YtE167L+M0>P^ z*9dua90(4&m^hMt#u?snVsf~p^O%B*fQmmkf^3~VH!sUU9X&aIL&>y}Yphg3UB4c=lboW7#O9eHi#o!0u5%Zllrge0=MV z=8hJL8VxsJkn?34q&F+PTEorBP)mIUge1-P-_E<=4YtkmMsv32<6GbUrVxbDJoY{+ z=YDQ9BGWiO_j2U+o)L&fxq0!Ef4MQb(>))BxfWOH2aY;eQn-7a1F<25mApV-Nrb&S z`QG@?T1Ap^YgPs#hB=Txm>cI1Xu;9j)y1KLG?RTuyXnWxQ;CQ8Z=jdvPO@2 zZ5^(r88ldxl+<7WH8gsVQ8^9&mpsC0%6^-(=O}xYv*#)M0%zZt;pDfct0s;} ze`p{Q3B{^FBp)c`+h*IfW2x*+Do2sU)R7#8s_p0|$E;^ltn)zl`OXz+@nA7^eB~Yz zo&_pLq4#cbNn5k2@k7HYimfl-DfUQd(*KRUIf;}!Mg%hQEwk-9CWN{1;iK@TJss&? zIJrxvGo8-O94()*^gZ1FIKO^6!-sI!Qrby>>a4%y&#S1IZLcYX-RWdY{{v}x?2u#7 zYby`MuBso4Clld;SikRSz|4Dv0*4n|0#)oP9sP`LLV+rX;Rl7hJAj*c!YgJuKFwF? z;;NnNh)l+oQ=-&xBKpdb+`>hiD&eND7Ki8h1+MH@j8 z++1U#=?I$YicJ)l+$-t_h@EMKl0%4Kd+k2DXd{=fezA=@Z50ih(Xf_+%*&n`iv2eT zvU@>x=SpP6s*Y(slE_?0Z{dk;wj+es&>1`rbkF)WC1)wDD4i?h>t{Pmylsg}KUF?g z$gi30h~k9??^CKiF`Y|I94-<}74mnM8VA!;(>Q{5=TsqoN2x7|*DkvOuY=%dP9DiU znVL$gOM5*^$GOy4)@>v6qo=lIUGAa_xPu$Y$N`>q*x>2X=Ypq)mVhVkQtXjIR~kd8%+;<{M;3*>zYBsD|9j5tRc-$_YeOfmHZ5 z|LUmZUHrh>;arBDxE?D1B|wuWX(avP$a9cs@!K)sn)@@OkQDwM*$Ik2wb-yUCCV4 zPwRy1F3MMj8d)d$gjo7Ym=3z6%r7lFmz7=1%2nm%VOGXJwE2e@YKnq)UTRr7C~jpZ zP+s%3(d&_Z!gteld!+9+bO&|jUFhTAp+>O>w5+OD{L(4F{kOshE?~VIQ3iT1i#?By zy?By-$Q{KmwH!?Rzfr_J!gPt>n=hWO9 z`KIBH^>5(f$rqNBmTF!V z*%KmR#gslIFe&{#V@gCoQIMTSnBepvC+9+(oZrI98)DcC3_;c394Siw_C=ARbnUl8 zihusONb#l5M~X9LDDjS8gA&=~eUGFgdq|egW8RI>7(N-{1>vTN@TAlL-*pW&UOtr)&r&E>W?=T7OI;bcS|q6EV|VRT>RPd;V(j{<6ue(bh=@Qczn(a%v7_!z#Crmow;26+v|3&QT3vwsw&zy-kPGh|9sSxK zi;ptvLJfVC;Uzd{LNiR?3x!3V^7*Wlw(1aKWHGK}quhG*7U)megLm@4JZ)V6? zLG9tTJ{BDWC`~>CVoy6}NZ&)y(*+Hh<7o{aKwAU9sh2ZjTO+6AOp|_?d@5Q$FJG9q zkH|Tdeg;`M^apqaKSJJV4*7Zg@1mge28iZwkgZ^#!;eJrK5>oj70#5i-m2uw7{Itr z%chP_<10b>K8d=XN9Z&;GEQDEeVR49Z+81^H~zsp460Af?q^J^&YH6wqd4V`4EeB4 zB_Eb$Mjy6-l|)M^Ij=GsRoU~VwG%x9naexH^?zz^i+nZQ$I+h5&Hg`*%&qN5l;@!P zX5?Hn)^X!`JU{Ng-mfUv=6=e`co}!l+`C~Il$|&cWp5oK6hY#bw?M`f12MQLm;!x> zS02}8oFPD0DN74!*!gc3!*wL@@`}FgJI__ijBYbaFi!To?e1fA`?vn8XAOl~k56h{u{cc9B N(i=4X*FXLAe*ql!+hza& diff --git a/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~4~ b/internal/gabriel/tools/GABRIEL-TIMERS.dfasl.~4~ deleted file mode 100644 index a1f70e99a3bd44e22595f703f04eea54d060cf27..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 10847 zcmc&)Yj7Lab>3Zo;2Q!TrYuT!))q;%v>}U>tOwOLrWGSQpuB%Lv*GwBceM>5m?XpcAV7+CVy83ZNVukxUBbn5cIysX)Hj`D4PEM)Q zlQUC8DfKAo)u#hy-^oYPljEsfndH>eiCrU^k?CW*QWM7~r*~0yXmTpG>xtx%sgYD> zS9WqTGrgcJ9z{P=-kw~=|Q!# zYs>sB zS8|?qGvSK{eDQ!+kH-2F?fIOiL(NVe^JY@VQyCK3xB?dWS92A?{-{5p8`1nZ`IK@G z7*U};*0JPlL8 z0OB-Ryi19cru@0`{5c2c}^c!i)kh#?-HH!ka|JFg0Qln0YtUf ziw=UdK7X#vx_5C-b$%n7h#O&bz!%qPlZ(?0sO`RR;rz6#URqdIojj^0GZ~)ckwp>k zeC>sun4H;gJf&tPlf$Xujf(?ytL+gzsz>@GUTj0cB!&^lY&~(zj*LTs*-4VKno16( zRY)}ZAju&)lgV;ZCwP%eD~mJ5+DfO0wVlnaS~d(<*0x6sGhv&8c9MakL%Afe<GCZQuoyhrU(SSD?ls(UF@p6Tk(V6%MA&*BjL)vud3>(g}dIB70TcPcf_(!`{b z>ToifJd&JFk^DbrsosR)#mVt?`%LY(UAEJrWj8NfcIf~tf=beAuOGU{#fE|s!f*w2 zzb|3LO_B!bLPbFHhkbFai}TQAzY*JqygOiM1HSNX9KRS&e*Qe2o=TWfUl`hBp2q&8 z!bxUB9GD6+5Ol0i-5Bxp!Cb;pYS95bZbWG>tu@uKIK(Jd-_hyCUE$rnUG3P^wYjtF z;Z3jQ9(r1f>*mQv$lm#lxK_A+b|nlWY!*t3m(ez|e-3P-eE(2^A$4Bjhx;4oiv+KQS~^nsG^^DHZjfPlrOU4T&B}bYF*SS4Dy~UT)F3-Gocqa z7iu0-1XC{Zk033U|IaEtl7ozP4edy*uZL})gZ6V(EUqOI`(P6zK7ZUW9ki#lqLQe> zW+I6(Lk&Z*$U_z)K!n{qIzGT*U+PF)P#)+4H*9Z zMZ0kyO=dNkoKZa-rb0amt86Kd)rMA@R9|bgP(oMn>eiBF@@n&<#_~4x{TeZU5p~W&;d#imOxx4%3qM2Ebl3bINv548qmxN4 z*{yb~cE)NMvBrn3mO~)(_(Q&Ej}{OYD>TSjzsH)`VU2CEGWS_y>#U5+x=*%RoI!zo zTs>i<+ZVQKtqC^k6IKfhgbfmk7-1R^!-1x=IeD*DE3A(kvzjS)Hh0ew$+P7tPSzxP zg%-7^-$-a+a!#?1ThrCnR~bX~{3b{4Z~s94a}=d~iKdKDX9BDm=Cp$A!k2 zkwqax%mQ;MKC8)NHC1+58#Y-Reit$({0DFu@OJN0t(LXcGfh@YwbepsvfAe54H|LT z+8{}9Vz~m{Fk0}Yo;n81lbTvQo;F5#UBbr7=XNW5<*OlOzkIz{xuHAGjGRiJ)#X$A zO5(itanC|&6xIjQ&0I}O3!7lt=14x*P$-t%pJlY4FS6Z>!R-i8u?0n#N?5W;jJWEWDL8_?qWnyCd#?T@)=>Q56GAwz)k z)QA(RM|+lDAJ%#ziI-?70-X52DrT zU{lq!OwVk~W1WO>7d<+w$x+QxdX@}G0~-)wwY9x5IKW!bkTgyt$5Y;;6L%VqhTV$H z*5W)evIjr5;=YBEWLt6JjFt_CjIc(-1CGi5mF8DsK$iQcu_C>|XYk)05-zbi0YYMN zJ(>{M1Z#u|6&BR7(>mD7MznmZHP&He)?%S+N*2of;3dJ2fXmusZ4d%^iv+T&gf8lf zXt1iv1AwL02KW;((UVEw>eZ^aUrwDuFK4$A*vH1VL0H^7MYg867|!kXu^lO#_{)&d z7d!D1_Hl#DYLTI$<%?5dNlR_T!5ERQC}eC|iDoFO)l?1HHqd$Z+UCZNb2yvOP~nUB zkVMQn8kP?1We7)JOP&JYRvT}1KDUZ)IYNYRMma|EO0K4@#8BmP6p`xcLKQ2;y}avp zKMRWtmv*0t=S)B?Z5pD5OKU+;^)l4c0 z=RTW;w>qAjI3YZ8HZdg0A6T6%jQdOG$y+G=3M=)s92K0eWZ>ON;e21L}u8j9{9v4bnAF!)S^4)P`&=kXz zbsPIQ_JTuNm={l#Vi9L^m4!M{EEhddDA|C`(wo-y{Ofd&N*5<2=_^-KpUOCI z=SMS6ag0*KqrZ4(^H?(UaicUp_G2nNkWr|p*u}PtBYAb~$7r}W@X{9Loi^t_== znz)+gmVVw|WL@)movhHPyw8nNs8Jc?Y{)x5ATkSzZO;|O>U21)4u=zI8MLpm-3|}7 zJ6tH%6(gAh-5u*d@3+HoH#n21TMgUCKh$kEV3-;Lkmi1!QNX2jPq%o_A-4feLa06eKWKm-AV)aM$bf_OJ9=L$;b~j z@qQR?!NPDC!9Vvct+-ZNxL#VgQCc{7(PkPEJbN$SwQQ8pUJQIUVD~5>w^46+KEC}& zbH@rq^@f`-$oUct(i;_Ct>NZmu&K5TLXzhD?&RI)2HVDYqcKzU@$GMaQwYLn9D5&? zb3Zrgk*S}bdpUe(&oD%z+`9D1zuX+%?VgXoT#Kvp14j)kDcrsG{^%gWN?xF^1j63! zd~f_`wIa#5HOu{B!|abE%#CvhwBYF3vXw&xDJJ`ncGHKOryLP;a_g!5K(T2JsXlp6 z9LpjV_-L_F`iElnrpS(nWV^Ma6CKNKy=?>kTKL{HOJk4%RumH`9}LEgNWfeL$|^nT zwRO0XW>9C9Q&NQmRMF@GM&&g8U-AfNDEn>Bo~P_N&R(GG3!HsphLel;S%=qQtg09y z{lWflI2f$}k$fnhYng4;jwdrS$t*<{lSi`@s9J8KHvd#nH=h|1G#e>DviIsau zcorxhh2Fc#C2h_m$BzsrDYm|Rr`RK*6ADy83_r-{+qA~8P2KMZtakjB^QZ8E0=ywCOm=LJyK7_ zx4Dvzuk@{A)&eVc*nlHt;vV7afGGZ;NbwC&cz`@Zh<4!iruR6%_BGM|B-#)P6m0}W zaC41`rlV-8DKt@Fa=)nWCw8V0ObjA|?X~;pqK#a_+Ql~Nv|Ti8M#EYPGB0~(DD>YT z$nFQ(-7Aq1s~V>HNFs9~y@e;X*|s2FLuc?j&^6n+DKSf7Md^G#S3BEg;%!S*`l#}` zd~VHbTLdpOc%M@BiRo-|VyHkcmCxN>Y#c~UP2&jKos;?8UB$KpUc2lDybgk+Ie9eu zWO6E{F75Rw9p_?WNwv!&8dlH@TvbQUug`X($@w`Kor5Mih262ny-@`CD&mopc-^9M^p|VDJKwB8B*cf z{Hvp!cku&jmvb3*;(Dn3mjF$kgpu%xCqI+n6=Rye5IXf$PHs1F@{ux(`?HL}khOj< z*Zmh$|LJEUpf_OrNQoG}E=NFS(F(HkY-_Wi2qU=!{Q$=}840=g7ZOEH70{BCyDs|? zzycIC^CS3mFGC>$$Lii|1QB`x5gfdj5BT?24j59-(KTbEfQPraj#;iP){c$TB1^5D z*!EUg#U+Pp6c=zcqC16?nL@cz4|=t|I-Wltx5^J#6{>Z3Et8ko;88%t9|G4cNLSO> z^fNl)x=Zr4!Ftw-ULls=BBp~bDf3Iq&ShoSvT{Xfd6<>)4{iRTg{p$!otK-I4vJgZ z36$4(ee_1SkMP~J-5&0}1KmNLc^7*5cd%aU0WGVd8NYN2aR03^f(uyhW`u#>%VN(X zWAERb`;YM0`#0uZ3N2Ku(5J!;X5h@4awB~`d?tK)&Xf;u<<0c1QJ~_80YEy2`{j=d7Y~;%iVGrt9#RZ;g)qGgFG52;a&xhNXGY`i>lF&kp zxHom>>ZMO2*XV#lmlidulJ;2oz)@v&a_(1^0GOOB(WGP4|ObJT7>(`(}HhJG8>Bt_E<@1<#Jv4?-Mrc8}X(Bu+H!MZ9at$d1 z0ZC1!PjSk8-9|itSKMX5^OWGe1mA6^v0nLNaFf|Id^wCs!@a!1Jhr}RJu2+JtfWS7 z|Jhht92H*vy~=l8gY{QVC&jZAisfmTz2}lwN3InJD*4!5Kb^c@s3{w}aXJa_mm6;J zFHW&YJ*Cz?YIuY-+Z{FBVK!2HXm1)G!!4%Kdr=_Vur6$vC>d^fWW;tzLx#IgaN+UM zWT%Rp@i3EOS-9%OvM?edkjk$oj!NvPyB+Z!zveAOKOU`=mw;9mV889T6+Yy`J4aie zw$I|D%(_rTA7yw6&Y92*S6qt$1h1l9xD6Xo^BA5;=#!10zL(!te!^RGh}z#PX0Ks3 z^{pamY)9^Od>uwqb1O6<20~5WLQ^$6wjzu|b>BqY-K~Jc3DawI_rjO<2J~Q1i{qOa zGFDJ~xUG*x1^`ME&w$v|iW$=P5cG6GgJyYJ!-vpT$8YMT%-Gh*sTk9wwvkUo>*wVQ z^Y#%rr_#?L3y1y?ui!_>JIz5Kum4>Xlpa6P{0*{Y40QOBNIoF0@%_S?a@Jbqd>I26 z*JzpKv1xoINZ%(>*9!=pCPv1|>!nY#W)IBnobAFtc!vS?so8^!Y1LVCwrv!r+>s_9 zwxQ_5vdrki7O;|NDMja1W}_;5-n4e3r$2pVx48aK&ux{jg?c&KlfKpW$KkoPeTecL zcHau0k3`#UK9A?egE#sV<@(%DSsAb34w`#61cS00C!*x7Lxdto{PI@FxU4@47X?$G z5AjOlx{Naf=qhGuA$6NS`%63rMG7hqr=SQ0BJfz7{FF;1l4CW!ey^cTqwjO#dQT`p zFW>l7kUyC7Pfi`16b?K3m4Bapeo(`GtUiSAtxECbp@mOy6w6&SegI_PYxQC|HMZZ) Os8xD{#{c@KpZ+gOjoWbm 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