(FILECREATED " 9-Dec-86 15:58:52" ("compiled on " {QV}LISP>TEST-UNBOXED-FLOAT-OPS.;2) "12-Nov-85 14:59:23" recompiled changes: PRINT-UNBOXED-FLOAT-BENCHMARK RUN-UNBOXED-FLOAT-BENCHMARKS SETUP-ARRAY TEST.POLYNOM TEST.UFABS TEST.UFDIFFERENCE TEST.UFGREATERP TEST.UFIX TEST.UFMAX TEST.UFMIN TEST.UFMINUS TEST.UFPLUS TEST.UFQUOTIENT TEST.UFTIMES in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED " 9-Dec-86 15:58:09" {QV}LISP>TEST-UNBOXED-FLOAT-OPS.;2 8232 changes to: (FNS RUN-UNBOXED-FLOAT-BENCHMARKS TEST.UFTIMES TEST.UFPLUS TEST.UFDIFFERENCE TEST.UFQUOTIENT TEST.UFMINUS TEST.UFMIN TEST.UFMAX TEST.UFIX TEST.UFABS TEST.UFGREATERP TEST.POLYNOM PRINT-UNBOXED-FLOAT-BENCHMARK SETUP-ARRAY) (VARS TEST-UNBOXED-FLOATCOMS UNBOXED-FLOATOPS-TESTS TEST-UNBOXED-FLOAT-OPSCOMS POLYARRAYLST) previous date: " 8-Dec-86 12:59:44" {QV}LISP>TEST-UNBOXED-FLOAT.;3) PRINT-UNBOXED-FLOAT-BENCHMARK D1 (P 0 TESTFN I 1 ARGS I 0 F F 1 VALUE) g@ i ¿oi ¿ki ¿@i ¿ki ¿oi ¿i ¿i i ¿i ¿oi ¿ki ¿@i ¿ki ¿oi ¿i ¿i o coi ¿ki ¿Qi ¿i ¿i oi ¿i ¿i i ¿oi ¿i ¿i o coi ¿ki ¿Qi ¿i ¿i i @i ki oi i i (415Q TERPRI 411Q TERPRI 405Q PRIN1 375Q SPACES 370Q PRIN1 363Q TERPRI 357Q RECLAIM 354Q TERPRI 347Q TERPRI 342Q PRIN1 334Q SPACES 326Q PRIN1 314Q TIMEALL 305Q TERPRI 300Q TERPRI 273Q PRIN1 262Q TERPRI 256Q \RELEASEWORKINGSET 253Q TERPRI 246Q TERPRI 241Q PRIN1 231Q TERPRI 224Q TERPRI 217Q PRIN1 211Q SPACES 203Q PRIN1 171Q TIMEALL 162Q TERPRI 155Q TERPRI 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.) ( 401Q "Finished" 322Q "Value is" 311Q (APPLY TESTFN ARGS) 267Q "Repeating the TIMEALL" 235Q "Releasing working set" 177Q "Value is" 166Q (APPLY TESTFN ARGS) 144Q "test" 111Q "Starting the" 55Q "Benchmark ******************" 22Q "***************") RUN-UNBOXED-FLOAT-BENCHMARKSA0001 D1 (NAME ERRORSET P 2 BM P 1 VALUE P 0 DRIBBLE.FILE F 3 RESETVARSLST F 4 MAKESYSNAME F 5 NO-DRIBBLE? F 6 RESETY F 7 MAKESYSDATE F 10Q BENCHMARKS) LgggToo gg ohhSc¿gd gi ¿Sc¿U³-goH hhhSc¿U³gH hhSc¿gg ¿ohhSc¿gg ¿i ¿oi ¿i ¿i ¿i ¿oi ¿Ti ¿i ¿i ¿oi ¿Wi ¿i ¿i ¿oi ¿i ¿i ¿i ¿oi ¿i ¿i ¿i ¿WŽdJJ µðoi ¿i ¿i c i(505Q TERPRI 500Q TERPRI 473Q PRIN1 456Q PRINT-UNBOXED-FLOAT-BENCHMARK 435Q TERPRI 430Q TERPRI 423Q PRIN1 417Q USERNAME 413Q PRIN1 402Q TERPRI 375Q TERPRI 370Q PRIN1 364Q DATE 360Q PRIN1 347Q TERPRI 342Q TERPRI 335Q PRIN1 326Q PRIN1 315Q TERPRI 310Q TERPRI 303Q PRIN1 275Q PRIN1 264Q TERPRI 257Q TERPRI 252Q PRIN1 246Q MACHINETYPE 242Q PRIN1 231Q TERPRI 224Q MOVD 175Q MOVD 152Q DRIBBLE 124Q CONCAT 100Q SETTOPVAL 70Q GETTOPVAL 41Q PACKFILENAME 27Q PACK* 20Q MACHINETYPE) (221Q PAGEFULLFN 216Q NILL 172Q PAGEFULLFN.SAVE 167Q PAGEFULLFN 146Q DRIBBLE 114Q PRIN1 74Q *PRINT-ARRAY* 64Q *PRINT-ARRAY* 35Q BENCHMARKS 32Q EXTENSION 10Q NAME 5 DSK 2 HOST) ( 467Q "Finished benchmarking" 407Q "USERNAME = " 354Q "DATE = " 322Q "MAKESYSDATE = " 271Q "MAKESYSNAME = " 236Q "MACHINETYPE = " 202Q (MOVD PAGEFULLFN.SAVE PAGEFULLFN) 120Q "Test Results in " 50Q (TERPRI) 24Q "-UNBOXEDFLOATOPS" 15Q "-") RUN-UNBOXED-FLOAT-BENCHMARKS D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 NO-DRIBBLE? I 0 BENCHMARKS F 3 POLYARRAYLST F 4 LISPXHIST F 5 RESETVARSLST) 5@¥`b¿g@”S ¿T!Uog ‘h‚gZ J“I(60Q ERROR! 53Q RESETRESTORE 41Q RUN-UNBOXED-FLOAT-BENCHMARKSA0001 21Q SETUP-ARRAY) (47Q ERROR 36Q INTERNAL 12Q POLYNOM 4 UNBOXED-FLOATOPS-TESTS) ( 33Q (RUN-UNBOXED-FLOAT-BENCHMARKSA0001)) SETUP-ARRAY D1 (I 0 LST) @ ggg@ (21Q MAKE-ARRAY 3 LENGTH) (24Q POLYARRAY 14Q :INITIAL-CONTENTS 11Q FLOAT 6 :ELEMENT-TYPE) () TEST.POLYNOM D1 (P 1 ORDER P 0 BASE I 0 TEST) #` ` kÙn?€jÑHI2dí@ (40Q FEQP 13Q ARRAY-TOTAL-SIZE 5 ARRAYBASE) (10Q POLYARRAY 2 POLYARRAY) () TEST.UFABS D1 (I 1 TEST I 0 X) @íídíA (13Q FEQP) NIL () TEST.UFDIFFERENCE D1 (I 2 TEST I 1 Y I 0 X) @íAíìdíB (16Q FEQP) NIL () TEST.UFGREATERP D1 (I 2 TEST I 1 Y I 0 X) @íAíìdBðNIL NIL () TEST.UFIX D1 (I 1 TEST I 0 X) @ííídíA (15Q FEQP) NIL () TEST.UFMAX D1 (I 3 TEST I 2 Z I 1 Y I 0 X) @íAíBíHIìJìdíC (31Q FEQP) NIL () TEST.UFMIN D1 (I 3 TEST I 2 Z I 1 Y I 0 X) @íAíBíHIìJìdíC (31Q FEQP) NIL () TEST.UFMINUS D1 (I 1 TEST I 0 X) @íídíA (13Q FEQP) NIL () TEST.UFPLUS D1 (I 3 TEST I 2 Z I 1 Y I 0 X) @íAíBíììdíC (23Q FEQP) NIL () TEST.UFQUOTIENT D1 (I 2 TEST I 1 Y I 0 X) @íAíìdíB (16Q FEQP) NIL () TEST.UFTIMES D1 (I 3 TEST I 2 Z I 1 Y I 0 X) @íAíBíììdíC (23Q FEQP) NIL () (PRETTYCOMPRINT TEST-UNBOXED-FLOAT-OPSCOMS) (RPAQQ TEST-UNBOXED-FLOAT-OPSCOMS ((FNS PRINT-UNBOXED-FLOAT-BENCHMARK RUN-UNBOXED-FLOAT-BENCHMARKS SETUP-ARRAY TEST.POLYNOM TEST.UFABS TEST.UFDIFFERENCE TEST.UFGREATERP TEST.UFIX TEST.UFMAX TEST.UFMIN TEST.UFMINUS TEST.UFPLUS TEST.UFQUOTIENT TEST.UFTIMES) (VARS POLYARRAYLST UNBOXED-FLOATOPS-TESTS) ( FILES (FROM VALUEOF DIRECTORIES) CMLARRAY) (FILES (FROM VALUEOF DIRECTORIES) UNBOXEDOPS) (FILES (FROM {QV}LISP>) ARRAYSUPPORT))) (RPAQQ POLYARRAYLST (1.0 2.0 3.0 4.0 5.0)) (RPAQQ UNBOXED-FLOATOPS-TESTS ((UFPLUS (1.0 1.0 1.0 3.0)) (UFDIFFERENCE (1.0 1.0 0.0)) (UFTIMES (1.0 2.0 3.0 6.0)) (UFQUOTIENT (4.0 2.0 2.0)) (UFGREATERP (2.0 3.0 NIL)) (UFGREATERP (5.0 3.0 T)) ( UFGREATERP (3.0 3.0 NIL)) (UFABS (-2.0 2.0)) (UFMINUS (-2.0 2.0)) (UFIX (2.0 2)) (UFMAX (1.0 2.0 3.0 3.0)) (UFMIN (1.0 2.0 3.0 1.0)) (POLYNOM (15.0)))) (FILESLOAD (FROM VALUEOF DIRECTORIES) CMLARRAY) (FILESLOAD (FROM VALUEOF DIRECTORIES) UNBOXEDOPS) (FILESLOAD (FROM {QV}LISP>) ARRAYSUPPORT) (PUTPROPS TEST-UNBOXED-FLOAT-OPS COPYRIGHT ("Xerox Corporation" 1986)) NIL