(FILECREATED " 6-Nov-84 11:17:06" ("compiled on " {ERIS}PATCHES>RECORDPATCH.;1) " 2-Nov-84 12:09:41" tcompl'd in "INTERLISP-D 2-Nov-84 ..." dated " 2-Nov-84 12:25:16") (FILECREATED " 6-Nov-84 11:16:45" {ERIS}PATCHES>RECORDPATCH.;1 13179 changes to: (VARS RECORDPATCHCOMS) (FNS \RECORDBLOCK/MAKECREATE1)) \RECORDBLOCK/MAKECREATE1 D1 (P 42Q BINDINGS P 41Q DECLST P 40Q X P 33Q VAR1 P 32Q FIELD.USAGE P 31Q SUBSTYPE P 30Q DECLST P 27Q SPECIALFIELDS P 26Q FIELD P 7 BINDINGS P 6 SMASHFIELDS P 5 VAL P 4 TEM3 P 3 TEM P 2 DEF P 1 CKVALFLG P 0 USINGTYPE I 2 NEEDACELL I 1 CREATEINFO I 0 TYPE F 43Q USINGEXPR F 44Q MSBLIP F 45Q HASHLINKS F 46Q FIELDINFO F 47Q FIELDS.IN.CREATE F 50Q USINGTYPE F 51Q RECORDEXPRESSION F 52Q DECLST F 53Q RECORD.TRAN) ö# WPiòWJ“ib¿Hgð¢±¸@dgð²¿Ad™¿WFA ±-WFB±$gð²WFAgAh± @dgð²Q¿A AO$µO& ^±í_,WFidH ]WHð³O,Mh_*¿O(µO*h_(_&¿O$_$°ÆO*&_(¿°ógð¨@dgð²u¿WFºA O*µJ±_,WFjiHA ]WHð³>I£g„h¹gO,A _d²dið³d¥d¡µ gOhJMhºO*_*°¡gð¢±Œo og#@gð•A A ºO.gðWLA O8µO:¾J ±ë_@²IO@O4 ³?O@WN ³5O@WFhiHdgð“¿g [WHð³O@Kh_>¿O<µO>h_<_:¿O8_8°ŸO>&_<¿°ó@dgðš¿AWFB±}gð²KWHAWF´gWFh\B[ð³-gA_d²dið³d¥d¡µ gOhKh±3WH±.@gðª@dgð¢± ¿H˜Hdgð²¿A A O8µ*O:»H’±K¦Ahh»g@gð¢±–0K ±„_@WFgiH´g \WHð³O@L_>¿O<µO>h_<_:¿O8_8°£O>&_<¿°ód_¿gO_d²dið³d¥d¡µ gOhOh_$¿O&µ O$h_(‚O$&_&¿µºO(°J0K °;d__d²dið³d¥d¡µ gOhOh_$šO&µO$_(_&¿µÆO(± _&O$°ìHdgð¢±°¿Kµ‚±—B¢±žgWFh±Ýd @dgð²7¿gdO@_d²dið³d¥d¡µ gOhO@hWFh°@gð²7gO@_d²dið³d¥d¡µ gOhgO@WFhh‚cFµ‚±ÿxWF±MWH±HgðšgWFh±8@gðŸgWFoh±"gWFh±gð¢±–H•HgðŸA A O8µO:»oºH³FK¾J±é_@WFgiH´g \WHð³O@Lh_>¿O<µO>h_<_:¿O8_8°·O>&_<¿°óggJ ZHgð“g‚ggWFhhhJh±|@dgð¢±Å¿A AO$µ-O& ¾Hgð¨Hdgð²O¿N¤B¢±-h^¹gWFh±9_,WFidH ]WHð³O,Mh_*¿O(µO*h_(_&¿O$_$°¥O*&_(¿°ógðœh¾gWFh±ðH³90N°d²d_$¿O&µ O$h_(‚O$&_&¿µâO(¾h¹gAh±¶±°gðª@dgð¢±ì¿Hgð˜gWFh°M@gð´h¹H˜gWFh°9gAA°+¹gA_ d²dið³d¥d¡µ gO hH´WFhºA O*µB³uHgð²nJdgð’±WH_,WFjiH´gA ]WHð³>I£g„h¹gO,A _"d²dið³d¥d¡µ gO"hJMhºO*_*°ˆJ±¸gð¨@gð¢±¡o og#@gð•A A ºO.gðWLA O8µ O:¾J °g_@²IO@O4 ³?O@WN ³5O@WFhiHdgð“¿g [WHð³O@Kh_>¿O<µO>h_<_:¿O8_8° O>&_<¿°óg@WRºN²MIµgWT"J [hºN °'d O@hWV KO@gJºOBgµÚJ ZWJ–JWJ €J WFº0WL°+dO,O,hih_$¿O&µ O$h_(‚O$&_&¿µÖO(^±ÿj(3721Q \RECORDBLOCK/GETFIELDFORCREATE 3666Q \RECORDBLOCK/EMBEDPROG 3661Q \RECORDBLOCK/MAKEHASHLINKS 3646Q \RECORDBLOCK/EMBEDPROG 3643Q MKPROGN 3621Q \RECORDBLOCK/MAKEACCESS 3606Q \RECORDBLOCK/ACCESSDEF4 3565Q DREVERSE 3555Q \RECORDBLOCK/RECORDBINDVAL 3531Q \RECORDBLOCK/RECORDERROR 3444Q \RECORDBLOCK/GETFIELDFORCREATE 3414Q FASSOC 3402Q FASSOC 3361Q \RECORDBLOCK/EMBEDPROG 3324Q \RECORDBLOCK/CSUBST 3316Q EVAL 3271Q COPY 3161Q FASSOC 3127Q \RECORDBLOCK/GETFIELDFORCREATE 3041Q DREVERSE 3036Q \RECORDBLOCK/CREATEFIELDS 2651Q SHOULDNT 2457Q \RECORDBLOCK/GETFIELDFORCREATE 2376Q DREVERSE 2360Q \RECORDBLOCK/CREATEFIELDS 2273Q \RECORDBLOCK/RECORDBIND 2206Q \RECORDBLOCK/GETFIELDFORCREATE 2131Q \RECORDBLOCK/CREATEFIELDS 1777Q SHOULDNT 1526Q LAST 1416Q DREVERSE 1221Q \RECORDBLOCK/GETFIELDFORCREATE 1173Q DREVERSE 1116Q \RECORDBLOCK/CREATEFIELDS 772Q \RECORDBLOCK/MAKECREATELST 734Q \RECORDBLOCK/MAKECREATELST 641Q \RECORDBLOCK/GETFIELDFORCREATE 611Q FASSOC 577Q FASSOC 555Q \RECORDBLOCK/EMBEDPROG 520Q \RECORDBLOCK/CSUBST 512Q EVAL 465Q COPY 367Q FASSOC 335Q \RECORDBLOCK/GETFIELDFORCREATE 300Q DREVERSE 275Q \RECORDBLOCK/CREATEFIELDS 173Q \RECORDBLOCK/GETFIELDFORCREATE 153Q DREVERSE 135Q \RECORDBLOCK/CREATEFIELDS 114Q \RECORDBLOCK/SMASHPATTERN 65Q \RECORDBLOCK/MAKECREATELST 54Q \RECORDBLOCK/SMASHPATTERN) (3631Q FAST 3616Q replace 3543Q FAST 3523Q CREATE 3440Q using 3432Q reusing 3335Q CREATE 3307Q CCREATE 3300Q CREATE 3255Q CCREATE 3247Q CREATE 3214Q QUOTE 3150Q REPLACEFIELDVAL 3142Q FREPLACEFIELDVAL 3117Q reusing 3072Q FREPLACEFIELD 3061Q reusing 3011Q QUOTE 2756Q NCREATE 2742Q ARRAY 2731Q COPYARRAY 2717Q ARRAYBLOCK 2705Q COPYALL 2700Q copying 2666Q DATATYPE 2657Q ARRAYBLOCK 2636Q ARRAY 2544Q COPYALL 2535Q copying 2433Q COPYARRAY 2412Q reusing 2403Q using 2345Q ARRAYRECORD 2314Q GETPROPLIST 2311Q APPEND 2305Q COPYALL 2300Q copying 2267Q SETPROPLIST 2264Q PROGN 2202Q reusing 2173Q NOTNIL 2123Q reusing 2110Q ATOMRECORD 2075Q APPEND 2055Q MAPCAR 2050Q ASSOCRECORD 2034Q COPYALL 2027Q copying 1756Q CONS 1746Q QUOTE 1712Q CONS 1704Q PROPRECORD 1655Q QUOTE 1620Q CONS 1611Q ASSOCRECORD 1567Q APPEND 1542Q reusing 1456Q QUOTE 1336Q QUOTE 1302Q CONS 1215Q reusing 1206Q NOTNIL 1157Q ASSOCRECORD 1153Q LIST 1106Q reusing 1071Q ASSOCRECORD 1062Q PROPRECORD 1034Q QUOTE 1001Q CONS 760Q CDR 742Q TYPERECORD 722Q RECORD 635Q using 627Q reusing 531Q CREATE 503Q CCREATE 474Q CREATE 451Q CCREATE 422Q QUOTE 356Q REPLACEFIELDVAL 350Q FREPLACEFIELDVAL 260Q DATATYPE 251Q ARRAYBLOCK 124Q ARRAYRECORD 104Q QUOTE 73Q TYPERECORD 35Q RECORD 23Q smashing) ( 3275Q (FAST) 3266Q ((DATUM CREATE) (OLDDATUM USING)) 2151Q (GENSYM) 2063Q (FUNCTION (LAMBDA (X) (CONS (CAR X) (CDR X)))) 471Q (FAST) 462Q ((DATUM CREATE) (OLDDATUM USING))) (PRETTYCOMPRINT RECORDPATCHCOMS) (RPAQQ RECORDPATCHCOMS ((FNS \RECORDBLOCK/MAKECREATE1))) (PUTPROPS RECORDPATCH COPYRIGHT ("Xerox Corporation" 1984)) NIL