(FILECREATED " 8-Dec-86 13:04:05" ("compiled on " {QV}LISP>TEST-BOXED-FLOAT.;1) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "28-Aug-86 14:23:43" {QV}LISP>TEST-BOXED-FLOAT.;1 7301 changes to: (VARS TESTFLOATCOMS TEST-BOXED-FLOATCOMS BOXED-FLOAT-BENCHMARK-SUITE) (FNS RUN-FLOAT-BENCHMARKS RUN-BOXED-FLOAT-BENCHMARKS PRINT-BOXED-FLOAT-BENCHMARK TEST.FABS TEST.FDIFFERENCE TEST.FGREATERP TEST.FMAX TEST.FMIN TEST.FMINUS TEST.FPLUS TEST.FQUOTIENT TEST.FTIMES TEST.FIX TEST.FEMPTYLOOP) (FILES UNBOXEDOPS) previous date: "20-Aug-86 18:19:21" {QV}LISP>TESTFLOAT.;5) PRINT-BOXED-FLOAT-BENCHMARK D1 (P 0 TESTFN I 1 N I 0 F F 1 VALUE) /g@ i ¿oi ¿ki ¿@i ¿ki ¿oi ¿i ¿i i ¿i ¿oi ¿ki ¿@i ¿ki ¿oi ¿Hi ¿ki ¿Ai ¿oi ¿i ¿i o coi ¿ki ¿Qi ¿i ¿i l djñ—¿kÙ°öi ¿oi ¿i ¿i o coi ¿ki ¿Qi ¿i ¿i l djñ—¿kÙ°öi @i ki oi i i (454Q TERPRI 450Q TERPRI 444Q PRIN1 434Q SPACES 427Q PRIN1 422Q TERPRI 411Q RECLAIM 400Q TERPRI 373Q TERPRI 366Q PRIN1 360Q SPACES 352Q PRIN1 340Q TIMEALL 331Q TERPRI 324Q TERPRI 317Q PRIN1 306Q TERPRI 275Q RECLAIM 264Q TERPRI 257Q TERPRI 252Q PRIN1 244Q SPACES 236Q PRIN1 224Q TIMEALL 215Q TERPRI 210Q TERPRI 203Q PRIN1 172Q PRIN1 164Q SPACES 156Q PRIN1 150Q PRIN1 137Q SPACES 131Q PRIN1 123Q SPACES 115Q PRIN1 104Q TERPRI 77Q TERPRI 73Q TERPRI 66Q TERPRI 61Q PRIN1 50Q SPACES 42Q PRIN1 34Q SPACES 26Q PRIN1 15Q TERPRI 6 PACK*) (2 TEST.) ( 440Q "Finished" 346Q "Value is" 335Q (APPLY* TESTFN N) 313Q "Repeating the TIMEALL" 232Q "Value is" 221Q (APPLY* TESTFN N) 177Q ")" 144Q "run (TIMEALL (" 111Q "Starting the" 55Q "Benchmark ******************" 22Q "***************") RUN-BOXED-FLOAT-BENCHMARKSA0001 D1 (NAME ERRORSET P 2 BM P 1 VALUE P 0 DRIBBLE.FILE F 3 RESETVARSLST F 4 MAKESYSNAME F 5 RESETY F 6 MAKESYSDATE F 7 BENCHMARKS) EgggToo gg ohhSc¿gd gi ¿Sc¿goH hhhSc¿gH hhSc¿gg ¿ohhSc¿gg ¿i ¿oi ¿i ¿i ¿i ¿oi ¿Ti ¿i ¿i ¿oi ¿Vi ¿i ¿i ¿oi ¿i ¿i ¿i ¿oi ¿i ¿i ¿i ¿WŽdJJ µðoi ¿i ¿i c i(476Q TERPRI 471Q TERPRI 464Q PRIN1 447Q PRINT-BOXED-FLOAT-BENCHMARK 426Q TERPRI 421Q TERPRI 414Q PRIN1 410Q USERNAME 404Q PRIN1 373Q TERPRI 366Q TERPRI 361Q PRIN1 355Q DATE 351Q PRIN1 340Q TERPRI 333Q TERPRI 326Q PRIN1 320Q PRIN1 307Q TERPRI 302Q TERPRI 275Q PRIN1 267Q PRIN1 256Q TERPRI 251Q TERPRI 244Q PRIN1 240Q MACHINETYPE 234Q PRIN1 223Q TERPRI 216Q MOVD 167Q MOVD 144Q DRIBBLE 121Q CONCAT 100Q SETTOPVAL 70Q GETTOPVAL 41Q PACKFILENAME 27Q PACK* 20Q MACHINETYPE) (213Q PAGEFULLFN 210Q NILL 164Q PAGEFULLFN.SAVE 161Q PAGEFULLFN 140Q DRIBBLE 111Q PRIN1 74Q *PRINT-ARRAY* 64Q *PRINT-ARRAY* 35Q BENCHMARKS 32Q EXTENSION 10Q NAME 5 DSK 2 HOST) ( 460Q "Finished benchmarking" 400Q "USERNAME = " 345Q "DATE = " 314Q "MAKESYSDATE = " 263Q "MAKESYSNAME = " 230Q "MACHINETYPE = " 174Q (MOVD PAGEFULLFN.SAVE PAGEFULLFN) 115Q "Benchmark Results in " 50Q (TERPRI) 24Q "-BOXEDFLOAT" 15Q "-") RUN-BOXED-FLOAT-BENCHMARKS D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 BENCHMARKS F 3 LISPXHIST F 4 RESETVARSLST) *@¥`b¿S!Tog ‘h‚gZ J“I(45Q ERROR! 40Q RESETRESTORE 26Q RUN-BOXED-FLOAT-BENCHMARKSA0001) (34Q ERROR 23Q INTERNAL 4 BOXED-FLOAT-BENCHMARK-SUITE) ( 20Q (RUN-BOXED-FLOAT-BENCHMARKSA0001)) TEST.FABS D1 (L (0 N) F 3 RESULT) @koIHó¯Jíííc¿IkÔY°ïSNIL NIL ( 5 1.0) TEST.FDIFFERENCE D1 (L (0 N)) @kooIHó©KJé»IkÔY°õKNIL NIL ( 11Q 0.0 5 1.0) TEST.FEMPTYLOOP D1 (L (0 N)) @kdHó‘hkÔ°øNIL NIL () TEST.FGREATERP D1 (L (0 N)) @kooIHó©JKò¼IkÔY°õLNIL NIL ( 11Q 1.0 5 2.0) TEST.FIX D1 (L (0 N)) @koIHó©JjØ»IkÔY°õKNIL NIL ( 5 1.0) TEST.FMAX D1 (P 4 RESULT P 3 Y P 2 X P 1 I I 0 N) $@koooIHó«JK ¼IkÔY°óL(31Q FMAX) NIL ( 15Q 0.0 11Q 2.0 5 1.0) TEST.FMIN D1 (P 4 RESULT P 3 Y P 2 X P 1 I I 0 N) $@koooIHó«JK ¼IkÔY°óL(31Q FMIN) NIL ( 15Q 0.0 11Q 2.0 5 1.0) TEST.FMINUS D1 (P 3 RESULT P 2 X P 1 I I 0 N) @kooIHóªJ »IkÔY°ôK(24Q FMINUS) NIL ( 11Q 0.0 5 1.0) TEST.FPLUS D1 (L (0 N)) @kooIHó©KJè»IkÔY°õKNIL NIL ( 11Q 0.0 5 1.0) TEST.FQUOTIENT D1 (L (0 N)) @kooIHó©KJë»IkÔY°õKNIL NIL ( 11Q 1.0 5 .99999) TEST.FTIMES D1 (L (0 N)) @kooIHó©KJê»IkÔY°õKNIL NIL ( 11Q 1.0 5 1.0001) (PRETTYCOMPRINT TEST-BOXED-FLOATCOMS) (RPAQQ TEST-BOXED-FLOATCOMS ((FNS PRINT-BOXED-FLOAT-BENCHMARK RUN-BOXED-FLOAT-BENCHMARKS TEST.FABS TEST.FDIFFERENCE TEST.FEMPTYLOOP TEST.FGREATERP TEST.FIX TEST.FMAX TEST.FMIN TEST.FMINUS TEST.FPLUS TEST.FQUOTIENT TEST.FTIMES) (VARS BOXED-FLOAT-BENCHMARK-SUITE))) (RPAQQ BOXED-FLOAT-BENCHMARK-SUITE ((FEMPTYLOOP 10000) (FPLUS 10000) (FDIFFERENCE 10000) (FTIMES 10000 ) (FQUOTIENT 10000) (FGREATERP 10000) (FABS 10000) (FMINUS 10000) (FIX 10000) (FMAX 10000) (FMIN 10000 ))) (PUTPROPS TEST-BOXED-FLOAT COPYRIGHT ("Xerox Corporation" 1986)) NIL