(FILECREATED "17-Mar-86 14:38:32" ("compiled on " {PHYLUM}LISP>COMPARESOURCES.;10) "15-Mar-86 22:25:09" recompiled exprs: COMPARESOURCES \CS.COMPARE.MASTERS in "Xerox Lisp 15-Mar-86 ..." dated "15-Mar-86 22:34:44") (FILECREATED "17-Mar-86 14:38:13" {PHYLUM}LISP>COMPARESOURCES.;10 24091 changes to: (FNS \CS.COMPARE.MASTERS COMPARESOURCES) previous date: "13-Mar-86 17:17:44" {PHYLUM}LISP>COMPARESOURCES.;9) COMPARESOURCES D1 (P 15Q TYPE P 14Q Y P 13Q X P 11Q Y P 4 DECLAREY P 3 DECLAREX P 2 BODYY P 1 BODYX P 0 DIFFERENCES I 3 DW? I 2 EXAMINE I 1 FILEY I 0 FILEX) ¶P@i µ@i oi i bAi µAi oi i b@ YA Zoi ¿@i ¿oi ¿Ai ¿oi ¿i ¿i I1MµNN[IK YJ1Mµ`N\JL ZIJCK YL ZIJA MµaN Yd1 Oµ}i H dgð_¿OµOh_^¿M]°—O&_°õdgð_¿OµOh_^¿M]°…O&_°õ_I ³Oh_¿OµOh_¾M]±ÿ~O&_¿°ô_J _¿O_¿OOOO _¿ _£O²Ei ¿oi ¿gO` o i ¿oi ¿i ¿O O C¿O_±ÿ(653Q \CS.COMPARE.MASTERS 647Q REVERSE 642Q REVERSE 634Q TERPRI 627Q PRIN1 616Q PRIN1 611Q \APPEND2 602Q EQLDIFFERENCE 566Q PRIN1 555Q TERPRI 542Q LDIFFERENCE 534Q LDIFFERENCE 505Q SASSOC 432Q SASSOC 313Q REVERSE 307Q TERPRI 270Q \APPEND2 251Q \CS.SORT.DECLARES 244Q \CS.SORT.DECLARES 240Q \CS.COMPARE.MASTERS 231Q EQLDIFFERENCE 210Q EQLDIFFERENCE 170Q TERPRI 163Q TERPRI 156Q PRIN1 145Q PRIN1 137Q PRIN1 126Q PRIN1 120Q PRIN1 107Q \CS.FILTER.GARBAGE 104Q READFILE 77Q \CS.FILTER.GARBAGE 74Q READFILE 65Q TERPRI 61Q PRIN1 51Q PRIN1 42Q FINDFILE 32Q TERPRI 26Q PRIN1 16Q PRIN1 7 FINDFILE) (577Q DEFAULT.DECLARE.TAGS 572Q DECLARE: 365Q DECLARE: 322Q DECLARE:) ( 623Q " forms------" 606Q (--) 562Q "------" 152Q ":" 133Q " and " 114Q "Comparing " 55Q " not found" 22Q " not found") \CS.COMPARE.MASTERSA0001 D1 (NAME ERRORSET L (0 NIL) P 1 X F 2 Y F 3 FNSX F 4 FNSY) 0i¿SHµhhYTcŸIi ¿Ri ¿HX°Ý(50Q DWIMIFY 40Q DWIMIFY) (3 NOSPELLFLG) () \CS.COMPARE.MASTERSA0002 D1 (I 1 Y I 0 X) @A (10Q COMPARELISTS) NIL () \CS.COMPARE.MASTERS D1 (P 33Q EXTRAS P 32Q COMMENTY P 31Q COMMENTX P 30Q X P 23Q X P 16Q TYPE P 15Q MACROY P 14Q MACROX P 7 TMP P 6 Y P 5 DIFS P 4 PRED P 3 XTHING P 2 YTHING P 1 FNSY P 0 FNSX I 2 DW? I 1 BODYY I 0 BODYX F 34Q DIFFERENCES F 35Q RESETVARSLST F 36Q EXAMINE F 37Q FILEY F 40Q FILEX) Í€@1OµOX@H b0 H°;dgðž_¿OµOh__¿O_°ÏO&_°ód_šOµ+O__¿µìOXA1OµOYAI b0 I°E _O°Õdgðž_¿OµOh__¿O_°ÅO&_°ód_šOµ_O__¿µìOYH¤d¢±‡oi ¿i ¿B²[g`W:c: W:_¿og O¿OdW:ð²¿Oc:° _O°¡W: œW:kOO¿£¿HIhgg ]šgMW8c8¿`±‡dO¼@AOµ‚±"O »AAO(µ‚±;O*º@K b¿AJ b¿KJOµO i OOµg ]²O_W8_µ‚±ºOMW8c8¿µ‚±ÿxA@dA b¿ b@¦d´‚±Ùi ¿oi ¿i jd@1Oµ‚±ÆObA1Oµ‚±åObO2jð•O4jð³4oO2i¿oi ¿oO4i¿oi ¿i ¿i ¿@¢±âA¢±Ê@A ¿h±çM ±ÿN_&kL²O&_$¿O"µO$h_"_ ¿O_±þ»O$&_"¿°ò_0kL²O0_.¿O,µO.h_,_*¿O(_(±þ¢O.&_,¿°òd`ð˜¿O2kÔ_2¿_¿OµOh__¿O_±ÿO&_¿°òd`ð˜¿O4kÔ_4¿_¿OµOh__¿O_±þñO&_¿°òoi ¿W>i ¿@°A´oi ¿W@i ¿A_6²(oi ¿i ¿O6°dO&illµî@¢A²#W " 1076Q (FIX 1) 775Q "---Expressions:" 360Q (\CS.COMPARE.MASTERSA0001) 313Q "---Functions: ") \CS.COMPARE.TYPES D1 (P 6 Y P 4 TAIL P 3 NAME P 2 RESULT P 1 Y P 0 X I 4 IDFN I 3 COMPAREFN I 2 TITLE I 1 YTHING I 0 XTHING F 7 EXAMINE F 10Q FILEY F 11Q FILEX) l@µ A´‚±c@Ad@ b¿ b¦A´‚±L@B²)i ¿oi ¿Bi ¿oi ¿i ¿i ¿@±ÂdLXkD»AMµBhY³PKi ¿oi ¿Wi ¿i ¿Wið³Wgð¬W²rgW²jH °c^kDKô•Nµ¸i°µM]°¬Ki ¿oi ¿i ¿C–HIlC„HI ¿i ¿Wið³WgðªWŸgW˜HIh ¿IAh¿Lh¿KJZµ‚±ÿ=A@ °IdNkD[i ¿oi ¿Wi ¿i ¿Wið³WgðªW›gW”N ¿KJZµ¸J(536Q EDITE 501Q TERPRI 474Q PRIN1 465Q PRIN1 454Q PRIN1 434Q LDIFFERENCE 377Q EDITE 336Q TERPRI 331Q COMPARELISTS 312Q TERPRI 305Q PRIN1 274Q PRIN1 242Q EDITE 203Q TERPRI 176Q PRIN1 167Q PRIN1 156Q PRIN1 114Q TERPRI 107Q TERPRI 102Q PRIN1 71Q PRIN1 63Q PRIN1 52Q TERPRI 26Q LDIFFERENCE 20Q LDIFFERENCE) (526Q NEW 515Q NEW 363Q OLD 352Q OLD 231Q NEW 217Q NEW) ( 461Q " is not on " 301Q ": " 163Q " is not on " 76Q ":" 57Q "---") \CS.SORT.DECLARES D1 (P 1 DEC P 0 RESULT I 0 DECLS) @ŠdY` ¿µôH(15Q \CS.SORT.DECLARE1) (12Q DEFAULT.DECLARE.TAGS) () \CS.SORT.DECLARE1 D1 (P 4 COMPLEMENT P 3 TAG P 2 CURRENT P 1 TAIL I 1 TAGLST I 0 DEC F 5 RESULT) õ@AHYµh[d’±²dgð•¿g°gð“gŠKdgð”¿g[A ’±µgK šAKIYh°kKdgð•¿g°Ogð”g°EKdgð•¿g°8gð”g°.Kdgð•¿g°!gð”g°Kdgð”¿gˆgð´g\A–KLA†AKh b¿hZ°-gð–KA ° JµAU ZµUAhZh c ¿JKJ¿I±ÿ(344Q \NCONC2 327Q SASSOC 315Q \CS.SORT.DECLARE1 273Q \APPEND2 263Q SUBST 103Q STRPOS 70Q MEMB) (306Q DECLARE: 251Q FIRST 243Q NOTFIRST 237Q NOTFIRST 231Q FIRST 222Q EVAL@LOAD 215Q DONTEVAL@LOAD 210Q DONTEVAL@LOAD 202Q EVAL@LOAD 173Q EVAL@COMPILE 166Q DONTEVAL@COMPILE 161Q DONTEVAL@COMPILE 153Q EVAL@COMPILE 144Q COPY 137Q DONTCOPY 132Q DONTCOPY 124Q COPY 77Q WHEN 63Q COPY 55Q DOCOPY 47Q EVAL@COMPILE 42Q DOEVAL@COMPILE 35Q EVAL@LOAD 27Q DOEVAL@LOAD) () \CS.FILTER.GARBAGE D1 (L (0 FILECONTENTS)) U@AHµI\gð³9Ldgð²'dgð²d²¿gL³gL©L»JµKhZ¹HX°¸K&º°øNIL (71Q FILEMAP 57Q COPYRIGHT 41Q DONTCOPY 30Q DECLARE: 17Q FILECREATED) () EQLDIFFERENCE D1 (L (1 Y 0 X)) &@1HµIdA ¨»Jµ KhZY¿HX°çK&Z°÷(17Q MEMB) NIL () \CS.ISVARFORM D1 (L (0 X)) @dgð¬dgð¦dgð´iNIL (21Q RPAQ? 13Q RPAQQ 5 RPAQ) () \CS.COMPARE.VARS D1 (P 2 YVAL P 1 XVAL I 1 Y I 0 X) ž@dAðšA gð²@Hdždiðª3µ gHhƒ@Adgð²Hdždiðª3µ gHh‚IJô²3@gð“g‚gi oi Agð“g‚gi i IJ (233Q COMPARELISTS 225Q TERPRI 221Q PRIN1 177Q PRIN1 167Q PRIN1 20Q COMPARELISTS) (215Q VARS 211Q INITVARS 204Q RPAQ? 163Q VARS 157Q INITVARS 152Q RPAQ? 124Q QUOTE 75Q RPAQQ 55Q QUOTE 25Q RPAQQ) ( 173Q " -> ") \CS.ISMACROFORM D1 (L (0 X)) @dgð‘igð´ @`NIL (26Q MACROPROPS 14Q PUTPROPS 5 DEFMACRO) () \CS.ISRECFORM D1 (L (0 X)) @`NIL (4 CLISPRECORDTYPES) () \CS.ISCOURIERFORM D1 (L (0 X)) @gðNIL (4 COURIERPROGRAM) () \CS.ISTEMPLATEFORM D1 (L (0 X)) @gðNIL (4 SETTEMPLATE) () \CS.COMPARE.TEMPLATES D1 (I 1 Y I 0 X) 7@Aô²)@dgð²¿AgðŸ@A @A (64Q COMPARELISTS 56Q COMPARELISTS) (35Q QUOTE 21Q QUOTE) () \CS.ISPROPFORM D1 (L (0 X)) @gð´ @hðNIL (4 PUTPROPS) () \CS.PROP.NAME D1 (L (0 X)) @@hNIL NIL () \CS.COMPARE.PROPS D1 (I 1 Y I 0 X) @A (14Q COMPARELISTS) NIL () \CS.ISADDVARFORM D1 (L (0 X)) @gðNIL (4 ADDTOVAR) () \CS.COMPARE.ADDVARS D1 (I 1 Y I 0 X) @A (10Q COMPARELISTS) NIL () \CS.ISFPKGCOMFORM D1 (L (0 X)) @gð´@oôNIL (4 PUTDEF) ( 17Q (QUOTE FILEPKGCOMS)) \CS.COMPARE.FPKGCOMS D1 (I 1 Y I 0 X) @A (20Q COMPARELISTS) NIL () (PRETTYCOMPRINT COMPARESOURCESCOMS) (RPAQQ COMPARESOURCESCOMS ((FNS COMPARESOURCES \CS.COMPARE.MASTERS \CS.COMPARE.TYPES \CS.SORT.DECLARES \CS.SORT.DECLARE1 \CS.FILTER.GARBAGE EQLDIFFERENCE) (FNS \CS.ISVARFORM \CS.COMPARE.VARS \CS.ISMACROFORM \CS.ISRECFORM \CS.ISCOURIERFORM \CS.ISTEMPLATEFORM \CS.COMPARE.TEMPLATES \CS.ISPROPFORM \CS.PROP.NAME \CS.COMPARE.PROPS \CS.ISADDVARFORM \CS.COMPARE.ADDVARS \CS.ISFPKGCOMFORM \CS.COMPARE.FPKGCOMS) (VARS COMPARESOURCETYPES DEFAULT.DECLARE.TAGS) (DECLARE: EVAL@COMPILE DONTCOPY ( RECORDS CSTYPE) (GLOBALVARS COMPARESOURCETYPES CLISPRECORDTYPES MACROPROPS NOSPELLFLG DEFAULT.DECLARE.TAGS)))) (RPAQQ COMPARESOURCETYPES ((VARS \CS.ISVARFORM \CS.COMPARE.VARS) (MACROS \CS.ISMACROFORM) (RECORDS \CS.ISRECFORM) (PROPS \CS.ISPROPFORM \CS.COMPARE.PROPS \CS.PROP.NAME "Properties") (ADDVARS \CS.ISADDVARFORM \CS.COMPARE.ADDVARS CADR "Additions to lists") (TEMPLATES \CS.ISTEMPLATEFORM \CS.COMPARE.TEMPLATES CADADR) (COURIERPROGRAMS \CS.ISCOURIERFORM) (FILEPKGCOMS \CS.ISFPKGCOMFORM \CS.COMPARE.FPKGCOMS CADADR))) (RPAQQ DEFAULT.DECLARE.TAGS (EVAL@LOAD DONTEVAL@COMPILE COPY NOTFIRST)) (PUTPROPS COMPARESOURCES COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL