(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "29-Nov-2021 14:05:50" ("compiled on " {DSK}kaplan>Local>medley3.5>my-medley>sources>COMPARE.;3) "27-Nov-2021 13:32:04" brecompiled exprs%: COMPARE1 in "FULL 27-Nov-2021 ..." dated "27-Nov-2021 13:32:10") (FILECREATED "29-Nov-2021 14:05:45" {DSK}kaplan>Local>medley3.5>my-medley>sources>COMPARE.;3 12592 changes to%: (FNS COMPARE1) previous date%: " 5-Nov-2021 20:53:09" {DSK}kaplan>Local>medley3.5>my-medley>sources>COMPARE.;2) COMPARELST :D8 (I 2 LOOSEMATCH I 1 Y I 0 X) Bm@A b@A (21 COMPARE1 11 COMPAREMAX) NIL () COMPARE1 :D8 (I 1 Y I 0 X F 0 LOOSEMATCH) \@A6@d!A#@d`A`@@A @A PiA@A h@bAb(74 COMPARE1 54 COMPAREFAIL 46 EQUALALL) (32 COMMENTFLG 22 COMMENTFLG) () COMPAREPRINT :D8 (P 3 FIN P 2 PLVLFILEFLG P 1 *PRINT-LENGTH* P 0 *PRINT-LEVEL* I 2 STREAM I 1 Y I 0 X F 4 *COMPARE-LEVEL* F 5 *COMPARE-LENGTH*) xTUi@Ah@dA@B AB QgB @AB gB B gB A@B gB B i(116 TERPRI 109 PRIN1 97 COMPAREPRINT1 88 PRIN1 76 TERPRI 69 PRIN1 57 COMPAREPRINT1 48 PRIN1 35 PRINT 27 PRINT) (103 %) 82 %( 63 %) 42 %() () COMPAREPRINT1 :D8 (P 8 K P 7 TAILY P 6 TAILX P 5 L1 P 4 DOTFLAG P 3 SPACE P 2 Y P 1 X P 0 N I 2 STREAM I 1 B I 0 A F 9 **COMMENT**FLG)  j@A_LNONOIJ _IJO _"KId3@HdjIB HkظHKiB jIFJBI`WB J`%NJ`W B OgOLN8OIdJ[IB rOIm Jd)i &NJm IB N B OgB IJB gB iLNNdHKhB [hONOHKhB LoB NB $kB NB NoB h(420 PRIN1 403 CL:PRIN1 393 SPACES 383 CL:PRIN1 374 PRIN1 359 COMPAREPRINTN 328 COMPAREPRINTN 306 PRIN1 294 COMPAREPRINT1 285 PRIN1 267 SPACES 261 COMPARENCHARS 249 CL:PRIN1 240 COMPARELST 223 NCHARS 210 COMPARELST 192 CL:PRIN1 155 SPACES 149 NCHARS 116 PRIN1 87 COMPAREPRINTN 68 CL:PRIN1 41 COMPARELST 30 COMPAREMAX) (300 %) 279 %( 139 COMMENTFLG 124 COMMENTFLG 105 COMMENTFLG) ( 414 " --" 368 " . ") COMPARELISTS :D8 (P 2 PAIR P 1 TAIL P 0 DIFFERENCES I 2 STREAM I 1 Y I 0 X) gBg b@Ai @AB H>gB B hdIBoJJ IoB װ(93 PRIN1 78 CL:FORMAT 54 TERPRI 47 PRIN1 32 COMPAREPRINT 23 COMPARELST 10 GETSTREAM) (41 SAME 5 OUTPUT) ( 87 ", " 69 "~S -> ~S") COMPAREPRINTN :D8 (I 3 STREAM I 2 FLG I 1 SPACE I 0 N) g@jUAkC ib@kg5C lhC C gC @C gC B A kC (100 SPACES 86 PRIN1 74 PRIN2 66 PRIN1 54 TERPRI 45 LINELENGTH 35 POSITION 13 SPACES) (80 - 60 - 27 &) () COMPARENCHARSA0001 :D8 (I 1 C I 0 S F 0 COMPARECNT) PkcNIL NIL () COMPARENCHARS :D8 (P 2 *READTABLE* P 1 *PRINT-ESCAPE* P 0 COMPARECNT I 0 X F 3 *READTABLE*) jiSg@ H(21 \MAPPNAME.INTERNAL) (15 COMPARENCHARSA0001 7 READTABLEP) () COMPAREFAIL :D8 (P 1 OLD P 0 FN I 1 Y I 0 X F 2 LOOSEMATCH F 3 DIFFERENCES) j`d@AlHhRh3A@Rk cj@AAdih@SIAIS@Ah c(101 \NCONC2 49 COUNTDOWN 44 COUNTDOWN) (4 COMPARETRANSFORMS) () COMPAREMAX :D8 (I 1 Y I 0 X) lA@l Al l(17 COUNTDOWN 9 COUNTDOWN) NIL () COUNTDOWN :D8 (I 1 N I 0 X) @AjA@@Ak bb(20 COUNTDOWN) NIL () (PRETTYCOMPRINT COMPARECOMS) (RPAQQ COMPARECOMS ((FNS COMPARELST COMPARE1 COMPAREPRINT COMPAREPRINT1 COMPARELISTS COMPAREPRINTN COMPARENCHARS COMPAREFAIL COMPAREMAX COUNTDOWN) (ADDVARS (COMPARETRANSFORMS)) (INITVARS ( *COMPARE-LEVEL* 1) (*COMPARE-LENGTH* 2)) (SPECVARS *COMPARE-LEVEL* *COMPARE-LENGTH* DIFFERENCES LOOSEMATCH) (GLOBALVARS COMPARETRANSFORMS COMMENTFLG))) (ADDTOVAR COMPARETRANSFORMS) (RPAQ? *COMPARE-LEVEL* 1) (RPAQ? *COMPARE-LENGTH* 2) (PUTPROPS COMPARE COPYRIGHT ("Venue & Xerox Corporation" 1987 1990)) NIL