(FILECREATED "17-Jun-86 15:58:01" ("compiled on " {ERIS}CML>LAB>RECORD.;1) " 6-Jun-86 13:46:35" brecompiled changes: RECORDECL RECORDECL1 RECORDECLTAIL DECLARERECORD in "Xerox Lisp 6-Jun-86 ..." dated " 6-Jun-86 14:04:33") (FILECREATED "17-Jun-86 15:54:39" {ERIS}CML>LAB>RECORD.;1 144237 changes to: (FNS RECORDECL RECORDECL1 RECORDECLTAIL DECLARERECORD) previous date: " 3-Jul-85 12:51:26" {ERIS}SOURCES>RECORD.;4) \RECORDBLOCK/ACCESSDEF D1 (L (3 CFLG 2 TL 1 V1 0 FIELD) F 12Q DECLST F 13Q NOTRANFLG) D p@d²¿@ dgð¥dgð’¿i¿h‘h@™@d³Ub´PW@Aµ `@ X²<0 H°d¼@hL _šOµO__¿µâOH@i _O°é@”@ C³›@gZ²ic¿g@Jdghhg@ YZµ=gIµ&@lFW ` hBhddi Zd²Nb±ÿ+h¾]³ENId²+ °'Ið³ÃBJ bgIJ bB¿±þöh [ BµK¿NIdMð‘†M h ¾gMY°(470Q \NCONC2 463Q PACK 460Q LDIFF 437Q SHOULDNT 431Q \RECORDBLOCK/RECORDCHAIN 425Q \NCONC2 413Q /RPLNODE 402Q PACK 377Q LDIFF 365Q PACK 351Q PACK 322Q FIXSPELL 310Q \NCONC2 305Q \RECORDBLOCK/FIELDNAMESIN 277Q \RECORDBLOCK/FIELDNAMESIN 253Q UNPACK 202Q \RECORDBLOCK/RECORDCHAIN 164Q LAST 160Q \RECORDBLOCK/CHECKDEFS 124Q \RECORDBLOCK/ACCESSDEF4 121Q \RECORDBLOCK/RECORDECL 76Q \RECORDBLOCK/RECFIELDLOOK 65Q \RECORDBLOCK/RECFIELDLOOK 15Q \RECORDBLOCK/RECORDWORD) (474Q %. 372Q OF 302Q USERRECLST 263Q %. 247Q : 233Q SETFN 225Q ACCESSFNS 212Q ACCESSFN 72Q USERRECLST 27Q FETCH 21Q fetch) () \RECORDBLOCK/ACCESSDEF4 D1 (L (2 TL 1 TRAN 0 LST) P 2 AVOID) ¶@@AX²WB³gA›gABb¿@§HB hA@ Y²@I @HB µX@@HB 0A@ °6d[h@K XAµHAð¡H¡h‚B \–MµL^]¿µËN ]L°ó(257Q LAST 234Q \RECORDBLOCK/ALLPATHS 231Q \RECORDBLOCK/JOINDEF 224Q SHOULDNT 175Q \RECORDBLOCK/RECORDECL 161Q \RECORDBLOCK/RECFIELDLOOK 141Q \RECORDBLOCK/TOPPATHS 136Q \RECORDBLOCK/JOINDEF 123Q \RECORDBLOCK/ALLPATHS 120Q \RECORDBLOCK/JOINDEF 111Q \RECORDBLOCK/RECLOOK1 100Q \RECORDBLOCK/RECFIELDLOOK 60Q \RECORDBLOCK/JOINDEF) (37Q THE 23Q CHECK) () \RECORDBLOCK/ALLFIELDS D1 (L (0 TRAN) F 3 DECLST) >@!Hµ I@ Zgð²IJhSJi ¹HX°Ð(66Q \NCONC2 63Q \APPEND2 60Q \RECORDBLOCK/ALLFIELDS 55Q \RECORDBLOCK/RECORDECL 52Q RECLOOK 24Q \NCONC2) (33Q SUBRECORD) () \RECORDBLOCK/ALLOCHASH D1 (L (2 FLAG 1 SIZE 0 HASHTABLENAME) F 0 ALLOCATIONS) VA•Ad3—¿@lð¨Ao ¿B²6@´4ggg@hhg@dždiðª3µ g@hAhPc¿@A @(122Q SETUPHASHARRAY 25Q ERROR) (76Q QUOTE 60Q SETUPHASHARRAY 45Q GLOBALVARS 42Q EVAL@COMPILE 37Q DECLARE:) ( 22Q "bad hash array size") \RECORDBLOCK/ALLPATHS D1 (L (2 TL 1 LST 0 DECLS) F 12Q AVOID) Ñ @@d²B!LµMI²&^W³AN XœMi¹AHB ½L\°Ö@W Z@!LµM^W³sMN XHWABB³gH›gHBb¿0 H°)d[AKB HJ _šOµO__¿µØO ½L\±ÿ€ _O°ã(310Q LAST 276Q \NCONC2 273Q \NCONC2 242Q \RECORDBLOCK/TOPPATHS 226Q \RECORDBLOCK/JOINDEF 147Q \RECORDBLOCK/ALLPATHS 142Q \RECORDBLOCK/RECLOOK1 123Q \RECORDBLOCK/RECORDECL 74Q \APPEND2 60Q \NCONC2 55Q \RECORDBLOCK/ACCESSDEF4 40Q \RECORDBLOCK/RECORDECL) (171Q THE 155Q CHECK) () CHANGETRAN D1 (L (0 X)) @g (6 RECORDTRAN) (3 CHANGETRAN) () \RECORDBLOCK/CHANGETRAN1 D1 (L (0 CHANGEWORD) P 13Q BINDINGS P 7 FIELDNAMES P 6 ARGS P 5 NOTRANFLG P 4 VAR1 P 1 SUBSTYPE P 0 SPECIALFIELDS I 1 RECORDEXPRESSION F 14Q DECLST) 0o gbAoAA\W ^@gZ—AkJ±ö@dgð²!¿ggWLAgAh±ÏgðœgAh±½@dgð—¿o±®gð²8gA g OµOh±‹_¿gOOh_¿O_°Ý@dgð²¿A go°Ugð²ggAgh h°8@gð²)AW ºggJggJhh‡oA [K (455Q \RECORDBLOCK/EMBEDPROG 452Q \RECORDBLOCK/CSUBST 442Q \RECORDBLOCK/RECORDERROR 422Q SUBST 374Q \RECORDBLOCK/FIXDATUM 346Q \APPEND2 315Q SUBST 303Q \RECORDBLOCK/RECORDBINDVAL 206Q REVERSE 110Q \RECORDBLOCK/RECLISPLOOKUP 37Q \RECORDBLOCK/FIXDATUM 26Q \RECORDBLOCK/DWIMIFYREC 6 COPY) (413Q NEWVALUE 410Q DATUM 403Q PROG1 400Q DATUM_ 360Q swap 341Q DATUM 333Q APPEND 330Q DATUM_ 322Q pushlist 306Q NEWELT 270Q pushnew 241Q CONS 211Q DATUM 200Q DATUM_ 172Q push 155Q pop 136Q DATUM_ 131Q change 113Q DATUM 76Q + 73Q DATUM_ 64Q add 44Q CHANGEWORD 11Q CHANGE) ( 436Q "Undefined CHANGEWORD" 312Q (COND ((FMEMB NEWELT DATUM) DATUM) (T (DATUM_ (CONS NEWELT DATUM)))) 164Q (PROG1 (CAR DATUM) (DATUM_ (CDR DATUM))) 22Q (DATUM) 3 ((DATUM DATUM))) \RECORDBLOCK/CHECKDEFS D1 (L (3 MUST 2 FIELDS 1 RECS 0 DEFS) F 5 RECORDEXPRESSION) «@…d@ô”µøh¢±ŒA²A@2IºHµKb¿h²uoB²5o°3¼J²æL l gð¯K¢J[‹JdKô¤¿i°ÌJºHX°¼oo@A°d»oK hX–IµHZY¿µæJŽ YH°ïCš@µlBU¿@(245Q \RECORDBLOCK/RECORDERROR 224Q LAST 172Q RETDWIM2 103Q FNTH 76Q \RECORDBLOCK/RECORDECL) (107Q SYSTEM) ( 166Q " " 151Q "appears in" 145Q "field" 62Q "path" 52Q "ambiguous") \RECORDBLOCK/CHECKRECORDNAME D1 (L (2 OKSTRUCDIFF 1 3MUSTLISTP 0 NEEDSNAME) F 0 NAME F 1 DECL F 2 CREATEINFO F 3 TAIL F 4 STRUCNAME) ^P–Plð³!B“Pµ,@´ jQ ¿hc¿Qc¿Qc¿A³2R³.kQQlð²ÑPlð²ÈP³ÃPc¿Pc¿°Ïh(67Q \RECORDBLOCK/RECORDERROR 26Q \RECORDBLOCK/RECORDERROR) NIL () CLISPRECORD D1 (L (2 SETQFLG 1 FIELD 0 E) P 0 DECLST F 1 EXPR F 2 FAULTFN) ‹QR B²^Aµ@dgð³/¿³ñAH ¨H´õA ´ïgA`“g‚g@h`“g‚g `“g‚gA `“g‚gA`“g‚g@h (210Q RECORDTRAN 205Q \RECORDBLOCK/CONSFN 145Q RECORDTRAN 142Q \NCONC2 121Q \RECORDBLOCK/RECLISPLOOKUP 53Q RECORDFIELD? 43Q RECORDFIELD? 32Q SHOULDNT 4 GETLOCALDEC) (175Q OF 171Q of 165Q LCASEFLG 161Q FETCH 155Q fetch 151Q LCASEFLG 135Q WITH 131Q with 125Q LCASEFLG 116Q REPLACE 112Q replace 106Q LCASEFLG 74Q OF 70Q of 64Q LCASEFLG 60Q REPLACE 23Q REPLACE) () \RECORDBLOCK/CONSFN D1 (L (1 Y 0 X) F 0 DECLST) @P A(4 \RECORDBLOCK/RECLISPLOOKUP) NIL () \RECORDBLOCK/COPY1 D1 (L (0 X)) @µ g@h@NIL (6 PROGN) () \RECORDBLOCK/CREATEFIELDS D1 (L (0 FIELDS) F 4 FIELDS.IN.CREATE) I0@°dTd¸IµHhZH&¹µëJT1HµI d@™»Jµ KhZY¿HX°ãK&Z°÷(53Q \NCONC2) NIL () \RECORDBLOCK/CSUBST D1 (L (0 X) F 5 ARGS F 6 USINGEXPR F 7 FIELDNAMES F 10Q SUBSTYPE F 11Q CREATEINFO F 12Q RECORD.TRAN F 13Q SPECIALFIELDS F 14Q RECORDEXPRESSION F 15Q BODY F 16Q DECLST) P@d’±ÇWXµ@dW¢±x¿Wdgð¢±¿@ dlð“Hkð²HlHH YhºgJIHdgð¿WW °-dgð“¿V°#dgð”¿U°dgð”¿UŠgð’W‚YHI ’lˆgIh¹kIIgð²@hW VhggXµ@dgð¢±ädgð¦dgð²¿@@@ @@gð²g@@h@¼»LµKgð²KLLL h ¿L\°ÙL ²KLL h ¿L\°¼KL h ¿L\°«Hdgð’±ÿwdgð’±ÿngð²-@hhW@`µ@@ @@@b±þL@@ @²0@gð²'@ X@@@ @@H@Wdgð²-¿@dgð²{dW²shW V@ g°Wdgð²¿@ WU@ @°8gð²4@Xgð³@dgð²#Xgð²gH U µ@ @ @(1215Q \RECORDBLOCK/RECONS 1211Q \RECORDBLOCK/CSUBSTLST 1204Q \RECORDBLOCK/CSUBST 1175Q \RECORDBLOCK/COPY1 1172Q SUBPAIR 1163Q \RECORDBLOCK/MKPROGN 1160Q \RECORDBLOCK/CSUBSTLST 1105Q \RECORDBLOCK/RECONS 1101Q \RECORDBLOCK/CSUBSTLST 1074Q \RECORDBLOCK/RECLISPLOOKUP 1065Q \RECORDBLOCK/CSUBST 1046Q \RECORDBLOCK/MAKEACCESS 1040Q \RECORDBLOCK/CSUBSTLST 1030Q \RECORDBLOCK/ACCESSDEF4 763Q \RECORDBLOCK/RECONS 756Q \RECORDBLOCK/RECONS 751Q \RECORDBLOCK/RECONS 743Q \RECORDBLOCK/CSUBSTLST 724Q \RECORDBLOCK/CSUBSTLST 701Q \RECORDBLOCK/RECONS 675Q \RECORDBLOCK/CSUBSTLST 657Q \RECORDBLOCK/RECONS 653Q \RECORDBLOCK/RECONS 643Q \RECORDBLOCK/CSUBST 624Q \RECORDBLOCK/DWIMIFYREC 553Q \NCONC2 546Q \RECORDBLOCK/CSUBST 531Q \NCONC2 523Q \RECORDBLOCK/CSUBST 510Q \RECORDBLOCK/RECORDWORD 473Q \NCONC2 464Q \RECORDBLOCK/CSUBST 405Q \RECORDBLOCK/RECONS 401Q \RECORDBLOCK/RECONS 374Q \RECORDBLOCK/CSUBSTLST 314Q SHOULDNT 310Q \RECORDBLOCK/MAKEACCESS 277Q \RECORDBLOCK/ACCESSDEF4 237Q \RECORDBLOCK/SIMPLEP 230Q SHOULDNT 153Q \RECORDBLOCK/MAKECREATE1 112Q \RECORDBLOCK/RECORDBIND 107Q \RECORDBLOCK/COPY1 51Q \RECORDBLOCK/RECORD.FIELD.VALUE0) (1153Q NEWVALUE 1145Q DATUM 1134Q SETQ 1123Q DATUM_ 1112Q CHANGE 1054Q REPLACE 1043Q replace 1004Q SETQ 772Q WITH 714Q LAMBDA 630Q CLISPARRAY 610Q MATCHWORD 600Q RECORDWORD 567Q RECORDTRAN 444Q _ 411Q create 355Q the 347Q type? 334Q QUOTE 321Q CLISPWORD 305Q fetch 264Q WITH 246Q PROGN 220Q PARENT 206Q NEWVALUE 173Q DATUM 161Q USING 135Q CREATE 121Q PROGN 37Q CREATE) () \RECORDBLOCK/RECONS D1 (L (2 C 1 Y 0 X)) @dBð˜¿ABð‘B@ANIL NIL () \RECORDBLOCK/CSUBSTLST D1 (L (0 X)) @d¥d’ @ @(26Q \RECORDBLOCK/RECONS 22Q \RECORDBLOCK/CSUBSTLST 15Q \RECORDBLOCK/CSUBST 10Q \RECORDBLOCK/CSUBST) NIL () DECLARERECORD D1 (L (0 DEC)) êp@` Yµ@ Xµ k@ ¿HZ´M`° µ‚±ºId [Jð¤µóhY´$i¼Ih`¿`³6gJghid°#[°¹`Œd h¾]µµòh`Y¿H°2^I³!NH²ggNghid¿NI¹M°½d ¿µøI@ `šJµ@g ¿JKH LJ(346Q \RECORDBLOCK/RECREDECLARE 342Q UNION 331Q MARKASCHANGED 313Q /RPLACA 301Q EVAL 263Q LISPXPRINT 164Q \RECORDBLOCK/RECORDECL 145Q LISPXPRINT 117Q PUTHASH 67Q \RECORDBLOCK/RECORDECL 50Q \RECORDBLOCK/RECORDECL 30Q \RECORDBLOCK/RECORDERROR 20Q \RECORDBLOCK/RECORDECL 11Q MEMBER) (326Q RECORDS 316Q FILEPKGFLG 251Q redeclared 245Q field 242Q record 207Q USERRECLST 203Q USERRECLST 156Q USERRECLST 134Q redeclared 130Q record 123Q DFNFLG 114Q RECORDTRANHASH 42Q USERRECLST 6 USERRECLST) () \RECORDBLOCK/DECLSUBFIELD D1 (L (2 DEC 1 TRANSLATION 0 SUBDECL)) { @dgðšA³S°>A Xµ k@B¿HY³HAdgð”€Y¿AdIð³¿IA¨mÿ@BhAHA ¿AA@h (167Q \NCONC2 142Q \APPEND2 130Q \RECORDBLOCK/RECORDERROR 42Q \RECORDBLOCK/RECORDERROR 31Q \RECORDBLOCK/RECORDECL0) (65Q HASHRECORD 10Q SUBRECORD) () \RECORDBLOCK/DWIMIFYREC D1 (L (4 INDECL 3 ONEFLG 2 PARENT 1 NEWVARS 0 DWIMTAIL) P 3 DWIMIFYFLG P 2 FAULTFN P 1 VARS P 0 EXPR F 4 DECL F 5 VARS F 6 FAULTFN) <@´9D²!TATghg@BidCJg AU @BidCVg (71Q DWIMIFY0? 51Q \APPEND2 43Q DWIMIFY0?) (65Q VARSBOUND 37Q VARSBOUND 23Q VARSBOUND 15Q declaration) () EDITRECA0005 D1 (NAME ERRORSET F 0 EDITNEW F 1 EDITRECX) PQ ci(5 EDITE) NIL () EDITRECA0006A0007 D1 (NAME ERRORSET L (0 NIL) F 1 EDITOLD F 2 EDITRECVAL F 3 EDITNEW F 4 TEM F 5 EDITY) US°dHµ°Q cµ!H Rc¿µâQHµ`c h`¿°ád`´…`¿HX°Ö(115Q PUTHASH 30Q DECLARERECORD 20Q MEMBER) (112Q RECORDTRANHASH 103Q USERRECLST 73Q USERRECLST 67Q USERRECLST 56Q USERRECLST) () EDITRECA0006 D1 (NAME ERRORSET L (0 NIL) P 3 HELPFLAG F 4 EDITOLD) ;0`°dd•T hðd¸IµHhZH&¹µåJ¿oi h(65Q EDITRECA0006A0007 17Q MEMB) (51Q USERRECLST 5 USERRECLST) ( 61Q (EDITRECA0006A0007)) EDITREC D1 (P 6 TEM P 5 EDITY P 4 EDITRECVAL P 2 EDITOLD P 1 EDITNEW P 0 FAULTFN I 0 EDITRECX F 16Q RESETVARSLST) Bg¡ @¦`Z±š`@ Z0 @` °!dJ ³d_¿Oµ Oh_‚O&_¿µàO ZµXK³I@lF0 `°"d _O _šOµO__¿µßOh@ [œ±ÿx _O°åo@i¿J ¹oi oid¿¿hb¼g`Wc__¿og O¿OdWð—¿Oc°W œWkOO¿µ²šgM ¿J° d_` ³O ]Mg¿µáL(471Q \RECORDBLOCK/RECREDECLARE 456Q \RECORDBLOCK/RECORDECL 447Q MEMBER 431Q /SETATOMVAL 417Q ERROR! 405Q NLEFT 374Q TAILP 340Q EDITRECA0006 300Q ERROR! 274Q PRINT 262Q EDITRECA0005 251Q COPY 244Q ERROR 223Q LAST 213Q FIXSPELL 156Q \APPEND2 144Q \RECORDBLOCK/RECORDECL 115Q \NCONC2 53Q MEMB 43Q \RECORDBLOCK/RECLOOK1 27Q \RECORDBLOCK/RECFIELDLOOK) (466Q EDITREC 444Q USERRECLST 425Q USERRECLST 347Q USERRECLST 335Q INTERNAL 313Q USERRECLST 310Q USERRECLST 135Q USERRECLST 40Q USERRECLST 22Q USERRECLST 13Q USERRECLST 2 TYPE-IN) ( 332Q (EDITRECA0006) 267Q (declarations not changed) 256Q (EDITRECA0005) 236Q "No such record/field") \RECORDBLOCK/EMBEDPROG D1 (L (0 DEF) F 4 BINDINGS) àT¢±Û0T cd¸IµHhZH&¹µïJ0T° ddgð•d¡¸IµHhZH&¹µáJ"hc@².@gð²%Hd@ ³¿gH@ @I@ H³BIZgð²5J³/JJ [ð²"JK HJ@dgð‘h IgH@dgð‘hI@(302Q \NCONC2 277Q SUBPAIR 254Q LDIFF 242Q LAST 201Q \NCONC2 165Q \NCONC2 147Q \RECORDBLOCK/REBINDP 13Q DREVERSE) (321Q PROGN 312Q LAMBDA 266Q PROGN 221Q LAMBDA 155Q LAMBDA 135Q LAMBDA 62Q PROGN) () FIELDLOOK D1 (L (0 FIELDNAME)) `@ (6 \RECORDBLOCK/RECFIELDLOOK) (2 USERRECLST) () \RECORDBLOCK/FIELDNAMESIN D1 (L (0 DECS)) (0@°d X–IµHZY¿µëJ YH°ó(41Q LAST 16Q \APPEND2 12Q \RECORDBLOCK/RECORDECL) NIL () \RECORDBLOCK/FINDFIELDUSAGE D1 (L (0 EXPRESSION) F 0 FIELD.USAGE F 1 FIELDS.IN.CREATE) f@hðµ`@d¤b°ó³D@dQ²@Pc@d@b¿¿¿°Ïgðž@ @b¿¿°¹@ @b¿¿°«@ @b¿¿°ž(133Q \RECORDBLOCK/FINDFIELDUSAGE 116Q \RECORDBLOCK/FINDFIELDUSAGE 76Q \RECORDBLOCK/FINDFIELDUSAGE) (67Q LAMBDA) () \RECORDBLOCK/FIXDATUM D1 (L (0 FORM) I 1 DECLST F 10Q RECORDEXPRESSION F 11Q COMPILERMACROPROPS) 7@qHdlð²5¿`H ²Hd ´¿oHW¿HhgA Hghh¢±RHdgð³dgð¬dgð¦dgð²B¿HH µoHWHdgð¥dgð“¿H¿H og¿Hdgð«dgð¥dgð”¿H±Ùdgð¬dgð¦dgð²9¿gHHHgð“g‚gH»ºK3 µJKhhh±•kJ°òdgð¦dgð²¿ggHlhh°l¿HgYµ4HgµHW Y´PHdI Yô³EIX±þ· Ydgðž¿g°lð²ÊH°'gð“g‚gIgh Hh€hXµ g@Whih¾½H °d¼M•L ]¦Ld ’¿L‚ N¾µäNXhHdgð•¿g°dgð”¿gŽgð“g…HgA HdgðšgH‡o _¿Hdgð¥dgð˜¿HOh‚¿Oh(1022Q \APPEND2 767Q \RECORDBLOCK/RECLISPLOOKUP 700Q \RECORDBLOCK/RECORDBIND 671Q CONSTANTEXPRESSIONP 662Q \RECORDBLOCK/SIMPLEP 647Q REVERSE 633Q \RECORDBLOCK/RECORDERROR 607Q PACK 603Q \NCONC2 566Q SHOULDNT 523Q REVERSE 507Q MACROEXPANSION 476Q GETMACROPROP 236Q \RECORDBLOCK/MAKEACCESS 224Q \RECORDBLOCK/MKPROGN 171Q \RECORDBLOCK/RECORDERROR 153Q \RECORDBLOCK/ACCESSDEF 61Q \RECORDBLOCK/RECLISPLOOKUP 47Q \RECORDBLOCK/RECORDERROR 32Q CLISPNOTVARP 23Q STRPOSL) (1042Q CDR 1034Q CAR 1004Q NEWVALUE 775Q GETHASH 762Q SETFN 754Q PUTHASH 747Q GETHASH 743Q RPLACD 735Q CDR 727Q RPLACA 721Q CAR 625Q CHANGE 576Q R 571Q C 562Q CDR 555Q D 537Q CAR 531Q A 464Q CROPS 453Q SETFN 427Q NLEFT 424Q CDR 415Q FLAST 407Q LAST 343Q SUB1 337Q ADD1 332Q NLEFT 320Q CDR 311Q NLEFT 303Q FNTH 275Q NTH 262Q GETHASH 254Q CDR 246Q CAR 233Q change 207Q OF 201Q of 134Q FFETCH 126Q ffetch 120Q FETCH 111Q fetch 65Q NEWVALUE 55Q SETQ 17Q CLISPCHARRAY) ( 1017Q (NEWVALUE) 230Q (NEWVALUE) 161Q "unable to DWIMify" 41Q "unable to DWIMify") \RECORDBLOCK/FIXFIELDORDER D1 (L (0 EXPRESSION) P 3 FIELD.USAGE F 20Q FIELDS.IN.CREATE F 21Q BINDINGS) ¶ð@ ¿W °%d_K³OOhZO_¿OJK»µÜKµO ³KW"¯Kh_¿_µ*OZµKd³W[°ÓgJh¿KJ°(dKð”O_¿O°Âd_J¿Oh¿µìJJ¿K[°‚W ð›K»W c ¿±ÿnK ¨KW"²KW Z”Ji¿K[±ÿKW d³ ©W W"´W c ¿±ÿ(¸W h_¿_µTH¢±K_µkIµ¿I¼K½K»IMI¿LggZMh_Lh^¿MJ¿LN¿MO¿±þÊ_dKð’¿°£K •OH¸O°‰H ’O¹O°…KW Z”Ji¿K[±þ‡(630Q MEMB 606Q \RECORDBLOCK/NOTOKSWAP 513Q \RECORDBLOCK/RECORDBIND 457Q SHOULDNT 376Q CONSTANTEXPRESSIONP 323Q CONSTANTEXPRESSIONP 157Q \RECORDBLOCK/RECORDBIND 103Q CONSTANTEXPRESSIONP 17Q REVERSE 11Q \RECORDBLOCK/FINDFIELDUSAGE) (510Q SETQ 505Q PROGN 154Q SETQ) () \RECORDBLOCK/GETFIELDFORCREATE D1 (L (5 TOPDEFAULTS 4 USETYPE 3 COMPOSEWITHUSING 2 USEUNIVDEFAULT) I 1 USINGEXPR I 0 RNAME F 4 RECORD.TRAN F 5 FIELDS.IN.CREATE F 6 USINGTYPE) £T1D²C²@hT Ahgb¿@UZµDµ@HY²O:WP³6O:WJhiHdgð“¿g [`ð³O:Kh_8¿O6µO8h_6_4¿O2_2°¢O8&_6¿°ó@dgðš¿AWJB±3gð²C`AWJ´gWJh\B[ð³#gA_dŸdið«3µ gOhKh±ò`±ì@gðª@dgð¢±ß¿H˜Hdgð²¿A AO2µ)O4»H’±íK¦Ahh»g@gð¢±Œ0K °z_:WJgiH´g \`ð³O:L_8¿O6µO8h_6_4¿O2_2°£O8&_6¿°ód_¿gO_dŸdið«3µ gOhOh_2¿O4µ O2h_6‚O2&_4¿µÄO6°@0K °1d__dŸdið«3µ gOhOh_2šO4µO2_6_4¿µÐO6±Û _4O2°ìHdgð¢±™¿Kµ‚±ƒB¢±†gWJh±¯d_$¿@dgð²-¿gdO$_ dŸdið«3µ gO hO$hWJh°6gð²-gO$_"dŸdið«3µ gO"hgO$WJhh‚cJ¿µWJ±7`±1gðšgWJh±!@gðŸgWJoh±gWJh±gð¢±—H•HgðŸA AO2µO4»oºH³GK¾J±Ò_:WJgiH´g \`ð³O:Lh_8¿O6µO8h_6_4¿O2_2°¶O8&_6¿°óggJ ZHgð“g‚ggWJhhhJh±d@dgð¢±Æ¿A AO2µ-O4 ¾Hgð¨Hdgð²P¿N¤B¢±$h^¹gWJh±!_:WJidH ]`ð³O:Mh_8¿O6µO8h_6_4¿O2_2°¤O8&_6¿°ógðœh¾gWJh±×H³90N°d²d_2¿O4µ O2h_6‚O2&_4¿µâO6¾h¹gAh±±—gðª@dgð¢±Ö¿Hgð˜gWJh°C@gð´h¹H˜gWJh°/gAA°!¹gA_&dŸdið«3µ gO&hH´WJhºA h_,¿_*µB³iHgð²bJdgð’±`_,WJjiH´gA ]`ð³2I£g„h¹gO,A_(dŸdið«3µ gO(hJMhºO*°“J±µgð¨@gð¢±žo og#"@gð•A A ºOO:WP³6O:WJhiHdgð“¿g [`ð³O:Kh_8¿O6µO8h_6_4¿O2_2°£O8&_6¿°óg@WVºN²JIµgWX$J [hºN °$d_.hWT KO.gJºOFg¿µÝJ ZWL–JWL €J WJº0WN°'d_0O0hih_2¿O4µ O2h_6‚O2&_4¿µÚO6^±ÿq(3562Q \RECORDBLOCK/GETFIELDFORCREATE 3532Q \RECORDBLOCK/EMBEDPROG 3525Q \RECORDBLOCK/MAKEHASHLINKS 3512Q \RECORDBLOCK/EMBEDPROG 3507Q \RECORDBLOCK/MKPROGN 3465Q \RECORDBLOCK/MAKEACCESS 3452Q \RECORDBLOCK/ACCESSDEF4 3434Q DREVERSE 3424Q \RECORDBLOCK/RECORDBINDVAL 3400Q \RECORDBLOCK/RECORDERROR 3312Q \RECORDBLOCK/GETFIELDFORCREATE 3233Q \RECORDBLOCK/EMBEDPROG 3176Q \RECORDBLOCK/CSUBST 3170Q EVAL 3143Q COPY 3016Q \RECORDBLOCK/GETFIELDFORCREATE 2727Q DREVERSE 2724Q \RECORDBLOCK/CREATEFIELDS 2551Q SHOULDNT 2356Q \RECORDBLOCK/GETFIELDFORCREATE 2275Q DREVERSE 2257Q \RECORDBLOCK/CREATEFIELDS 2172Q \RECORDBLOCK/RECORDBIND 2104Q \RECORDBLOCK/GETFIELDFORCREATE 2027Q \RECORDBLOCK/CREATEFIELDS 1700Q SHOULDNT 1453Q LAST 1355Q DREVERSE 1171Q \RECORDBLOCK/GETFIELDFORCREATE 1144Q DREVERSE 1067Q \RECORDBLOCK/CREATEFIELDS 754Q \RECORDBLOCK/MAKECREATELST 715Q \RECORDBLOCK/MAKECREATELST 621Q \RECORDBLOCK/GETFIELDFORCREATE 541Q \RECORDBLOCK/EMBEDPROG 504Q \RECORDBLOCK/CSUBST 476Q EVAL 451Q COPY 336Q \RECORDBLOCK/GETFIELDFORCREATE 301Q DREVERSE 276Q \RECORDBLOCK/CREATEFIELDS 173Q \RECORDBLOCK/GETFIELDFORCREATE 153Q DREVERSE 135Q \RECORDBLOCK/CREATEFIELDS 114Q \RECORDBLOCK/SMASHPATTERN 65Q \RECORDBLOCK/MAKECREATELST 54Q \RECORDBLOCK/SMASHPATTERN) (3475Q FAST 3462Q replace 3412Q FAST 3372Q CREATE 3316Q MSBLIP 3306Q using 3300Q reusing 3207Q CREATE 3161Q CCREATE 3152Q CREATE 3127Q CCREATE 3121Q CREATE 3070Q QUOTE 3040Q REPLACEFIELDVAL 3032Q FREPLACEFIELDVAL 3022Q MSBLIP 3006Q reusing 2770Q MSBLIP 2760Q FREPLACEFIELD 2747Q reusing 2677Q QUOTE 2656Q NCREATE 2642Q ARRAY 2631Q COPYARRAY 2617Q ARRAYBLOCK 2605Q COPYALL 2600Q copying 2566Q DATATYPE 2557Q ARRAYBLOCK 2536Q ARRAY 2444Q COPYALL 2435Q copying 2362Q MSBLIP 2332Q COPYARRAY 2311Q reusing 2302Q using 2244Q ARRAYRECORD 2213Q GETPROPLIST 2210Q APPEND 2204Q COPYALL 2177Q copying 2166Q SETPROPLIST 2163Q PROGN 2110Q MSBLIP 2100Q reusing 2071Q NOTNIL 2021Q reusing 2006Q ATOMRECORD 1773Q APPEND 1753Q MAPCAR 1746Q ASSOCRECORD 1732Q COPYALL 1725Q copying 1717Q MSBLIP 1657Q CONS 1647Q QUOTE 1625Q CONS 1617Q PROPRECORD 1570Q QUOTE 1545Q CONS 1536Q ASSOCRECORD 1514Q APPEND 1467Q reusing 1403Q QUOTE 1275Q QUOTE 1253Q CONS 1175Q MSBLIP 1165Q reusing 1156Q NOTNIL 1130Q ASSOCRECORD 1124Q LIST 1057Q reusing 1042Q ASSOCRECORD 1033Q PROPRECORD 1024Q MSBLIP 1004Q QUOTE 763Q CONS 742Q CDR 731Q MSBLIP 723Q TYPERECORD 703Q RECORD 625Q MSBLIP 615Q using 607Q reusing 515Q CREATE 467Q CCREATE 460Q CREATE 435Q CCREATE 410Q QUOTE 360Q REPLACEFIELDVAL 352Q FREPLACEFIELDVAL 342Q MSBLIP 261Q DATATYPE 252Q ARRAYBLOCK 177Q MSBLIP 124Q ARRAYRECORD 104Q QUOTE 73Q TYPERECORD 35Q RECORD 23Q smashing) ( 3147Q (FAST) 3140Q ((DATUM CREATE) (OLDDATUM USING)) 2047Q (GENSYM) 1761Q (FUNCTION (LAMBDA (X) (CONS (CAR X) (CDR X)))) 455Q (FAST) 446Q ((DATUM CREATE) (OLDDATUM USING))) \RECORDBLOCK/MAKECREATELST D1 (L (2 NEEDACELL 1 USING 0 TEMPLATE)) @iAB(6 \RECORDBLOCK/MAKECREATELST1) NIL () \RECORDBLOCK/MAKECREATELST1 D1 (L (3 NEEDACELL 2 USING 1 CARFLG 0 TEMPLATE) F 5 USINGTYPE) ³@³@µC²y@B@µAhU A²`@ðš@b¿¿°Ô@²@Ak\Hó´HI@ b¿B´ gBhB´ gBh"@iH@hI»ºC³'J`ð² K`ð²`»JµKhZ¹LkÔ°©K&º°øgJd`ð‘¿HKd`ð‘¿Ih(155Q \RECORDBLOCK/MAKECREATELST1 146Q \RECORDBLOCK/MAKECREATELST1 105Q \NCONC2 45Q HELP 25Q \RECORDBLOCK/GETFIELDFORCREATE) (250Q MSBLIP 237Q MSBLIP 232Q CONS 203Q MSBLIP 175Q MSBLIP 166Q MSBLIP 130Q CDR 116Q CAR 34Q COMMENTFLG) () \RECORDBLOCK/MAKEHASHLINKS D1 (L (1 TRANS 0 DEF) P 7 RECORD.TRAN P 2 BINDINGS F 10Q USINGTYPE F 11Q USINGEXPR) r0Aµ@AKµLY@I _WidWdgð“¿g X²*Wgð’H°g@ bHO¾MµNh]¼K[°¢N&½°ø(117Q \RECORDBLOCK/RECORDBINDVAL 73Q \RECORDBLOCK/GETFIELDFORCREATE 35Q \RECORDBLOCK/EMBEDPROG 32Q \RECORDBLOCK/MKPROGN 27Q DREVERSE) (113Q PUTHASH 103Q smashing 67Q using 61Q reusing) () \RECORDBLOCK/MKACCESSFN D1 (L (3 FIELD 2 TYPE 0 FN) P 3 FIELDNAMES P 2 SUBSTYPE P 1 SPECIALFIELDS P 0 DECLST I 1 ARGS F 4 DECLST F 5 RECORDEXPRESSION) œ@µBgð“g‚gCU¿@gð’A@d–dgð”A dgð«dgð¥dgð’¿i¿h²BhAATµo@gg@g'@g'@g'h bgT@ABCo g@ (231Q \RECORDBLOCK/CSUBST 217Q COPY 207Q \RECORDBLOCK/MKACCESSFN 166Q CLISPLOOKUP0 55Q \RECORDBLOCK/CONSFN 24Q \RECORDBLOCK/RECORDERROR) (222Q REPLACE 173Q STANDARD 154Q FAST 147Q UNDOABLE 142Q STANDARD 136Q ACCESS 133Q DUMMY 77Q UNDOABLE 71Q STANDARD 63Q FAST 47Q LAMBDA 31Q DATUM 17Q FETCH 13Q REPLACE 6 replace) ( 214Q ((DATUM DATUM) (NEWVALUE NEWVALUE) (PARENT PARENT)) 125Q (DUMMY)) \RECORDBLOCK/MKCONS D1 (L (1 CDRPART 0 CARPART)) Agð¡A¨g@Ag@AhNIL (25Q CONS 14Q LIST 5 LIST) () \RECORDBLOCK/MKPROGN D1 (L (0 X)) @¢@g@NIL (10Q PROGN) () \RECORDBLOCK/NOTOKSWAP D1 (L (1 EXPR2 0 EXPR1)) @A hð(4 ARGS.COMMUTABLEP) NIL () \RECORDBLOCK/REBINDP D1 (L (1 EXP 0 OB)) A¥Ad‘@@A µùAb°ì(16Q \RECORDBLOCK/REBINDP) NIL () \RECORDBLOCK/RECDEC? D1 (L (0 X)) @µh`ð–@b°ð@`NIL (27Q CLISPRECORDTYPES 11Q CLISPTRANFLG) () \RECORDBLOCK/RECEVAL D1 (L (0 FORM) I 3 FIELDNAME I 2 NEWVALUE I 1 DATUM) @d²µABCl@gð³ò@ (32Q EVAL) (23Q LAMBDA) () \RECORDBLOCK/RECFIELDLOOK D1 (L (3 EDITRECFLG 2 VAR 1 FIELD 0 RECLST)) @@°}d[´lKdgð²'¿0K°d ¼MµLh^L&½µíNAB°>gðžK hAB°)BœKBð—KA °AK ¬C´AK ð´KhX–IµHZY¿µ„J YH°ó(210Q LAST 155Q \RECORDBLOCK/RECORDECL 142Q \RECORDBLOCK/RECORDECL 133Q \RECORDBLOCK/RECFIELDLOOK 114Q \RECORDBLOCK/RECFIELDLOOK 105Q RECLOOK 67Q \RECORDBLOCK/RECFIELDLOOK 40Q RECLOOK) (75Q SUBRECORD 21Q RECORDS) () \RECORDBLOCK/RECLISPLOOKUP D1 (L (3 VAR2 1 DECS 0 WORD) I 2 VAR1) 8@gA²@gYŸ@BCAH@gI HµgA —@`µ@(53Q MEMB 40Q CLISPLOOKUP0) (60Q LISPXFNS 47Q UNDOABLE 32Q CLISPCLASS 16Q CLISPCLASSDEF 3 LISPFN) () RECLOOK D1 (L (4 ERROR 3 PARENT 2 LOCALDEC 1 TL 0 RECNAME) P 3 FAULTFN) œ@d²¯@B µ @` …@ ’@µsD´pA²a@lF0B°d d“hX–IµHZY¿µéJ0`° YH°ëd ¸IµHhZH&¹µëJ oAhddi µg@Chhbb¿b±ÿi(215Q \RECORDBLOCK/RECORDERROR 200Q FIXSPELL 163Q \NCONC2 134Q \RECORDBLOCK/RECORDECL 122Q LAST 61Q \RECORDBLOCK/RECORDECL 31Q \RECORDBLOCK/RECDEC? 23Q \RECORDBLOCK/RECLOOK1 12Q \RECORDBLOCK/RECLOOK1) (210Q NAME 115Q USERRECLST 20Q USERRECLST) ( 167Q " -> ") \RECORDBLOCK/RECLOOK1 D1 (L (2 AVOIDDECS 1 DECS 0 RECNAME)) +@A°!d[B³K @ðd¸IµHhZH&¹µàJ(20Q \RECORDBLOCK/RECORDECL) NIL () RECORD.FIELD.VALUE D1 (L (0 FIELDNAME) F 0 FIELDS.IN.CREATE F 1 USINGEXPR F 2 USINGTYPE) @Pµ@QidR (15Q \RECORDBLOCK/GETFIELDFORCREATE) NIL () \RECORDBLOCK/RECORD.FIELD.VALUE0 D1 (L (0 FIELDNAME) F 0 FIELD.USAGE F 1 USINGEXPR F 2 USINGTYPE) @dQidR Pc(11Q \RECORDBLOCK/GETFIELDFORCREATE) NIL () RECORDACCESS D1 (L (3 TYPE 2 DEC 0 FIELD) P 10Q BINDINGS P 7 RECORDEXPRESSION P 6 VARS P 5 EXPR P 3 DECLST P 1 DWIMIFYFLG P 0 FAULTFN I 4 NEWVALUE I 1 DATUM) ! gg‚ @µ!Bµ`@ Z¢±—0J°G ²Bh°éd¦¿@b°Ö ¿@ °2kB °Òd_¿@hO _šOµIO__¿µßO \µ l@ ¿LgC²Cgð³Cgð®Cgð¨Cdgð²0¿gb¿h°q _O°·@h` hddddi d²b±ÿCgð³%Cgð³Cgð³Cgð®Cgð¨Cdgð²¿gb¿Ddždiðª3µ gDhh†o C (436Q EVAL 433Q \RECORDBLOCK/EMBEDPROG 430Q \RECORDBLOCK/MAKEACCESS 424Q ERROR 301Q FIXSPELL 267Q \RECORDBLOCK/FIELDNAMESIN 250Q LAST 170Q \RECORDBLOCK/RECORDERROR 157Q \RECORDBLOCK/CHECKDEFS 126Q \RECORDBLOCK/ACCESSDEF4 123Q \RECORDBLOCK/RECORDECL 104Q \RECORDBLOCK/RECORDERROR 75Q \RECORDBLOCK/RECORDCHAIN 70Q \RECORDBLOCK/UNCLISPTRAN 44Q \RECORDBLOCK/RECDEC? 26Q \RECORDBLOCK/RECFIELDLOOK) (406Q QUOTE 365Q replace 356Q /REPLACE 347Q FREPLACE 341Q REPLACE 332Q /replace 323Q freplace 314Q replace 264Q USERRECLST 237Q fetch 230Q FFETCH 221Q FETCH 213Q fetch 204Q ffetch 175Q DATUM 22Q USERRECLST 5 EVAL 2 TYPE-IN) ( 421Q "not FETCH or REPLACE") RECORDALLOCATIONS D1 (L (0 DECS)) 50@°#d` X–IµHZY¿µÞJ YH°ó(56Q LAST 33Q \APPEND2 21Q \RECORDBLOCK/RECORDECL 15Q \RECORDBLOCK/RECLOOK1) (12Q USERRECLST) () \RECORDBLOCK/RECORDBIND D1 (L (0 VAL) F 0 BINDINGS) @hPc(2 \RECORDBLOCK/RECORDGENSYM) NIL () \RECORDBLOCK/RECORDBINDVAL D1 (L (0 VAL)) @dl ‘@ (14Q \RECORDBLOCK/RECORDBIND 6 \RECORDBLOCK/SIMPLEP) NIL () \RECORDBLOCK/RECORDCHAIN D1 (L (0 LST)) @@ h@i(14Q \RECORDBLOCK/CHECKDEFS 6 \RECORDBLOCK/TOPPATHS) NIL () \RECORDBLOCK/RECORDECL D1 (L (0 DEC) P 0 ALLOCATIONS) @ Y´H˜IHI(6 \RECORDBLOCK/RECORDECL0) NIL () \RECORDBLOCK/RECORDECL0 D1 (L (1 PARENT 0 DEC)) 2@µh`´ú@`µ`–@`µ@A @H`H(56Q PUTHASH 43Q \RECORDBLOCK/RECORDECL1) (53Q RECORDTRANHASH 33Q CLISPARRAY 26Q CLISPARRAY 20Q RECORDTRANHASH 11Q CLISPRECORDTYPES) () \RECORDBLOCK/RECORDECL1 D1 (L (1 PARENT) P 37Q ARRAYDESC P 17Q FIELDNAMES P 11Q CREATEINFO P 10Q TAIL P 7 STRUCNAME P 6 NAME P 0 DECLARATIONCHAIN I 0 DECL F 51Q DECLARATIONCHAIN) )@WR’±ø@WRQ@ bd@@@@U@dgð²¿hi ¿O _±'dgð²B¿idd¿goOdŸdið«3µ gOhh_¿Oo _¿OO_±Ýdgð¬dgð¦dgð²6¿¿0O°dY@I_ ¿O"µ O h_$‚O &_"¿µâO$_±™dgð¢±¿¿o_¿jO»ºK²rK™JKØºK[°ñJkØºKd²õd²GµDKd²æggJO_¿KdKKKO&O(dO*¿O,O.O0K°«gJO_¿°²JO_±dgð¢±—¿@ h¾@_¿h°J@d›¿h¾@_¿@°6®h¾@_¿@h°&@ ›@_¿h@d¥h‚_Od3šµOO„Oih_gOh_±fdgð¨dgð¢±•¿hi ¿0Odlð²eh°ad]–Md˜¿kM@¿M²00M°"d\@LM_8¿O:µ O8h_<‚O8&_:¿µßO<ˆM@Mh_2šO4µO2_6_4¿µ O6_¿h__±Ì _4O2°ådgð®dgð¨dgð¢±‡¿@gðhðhi¿ @ _@_¿@dgð²'¿ggOdŸdið«3µ gOhh_¿O‡gð´1O>0#O°d_B¿ODµ OBh_F‚OB&_D¿µçOFO@O_°)¿@g_š@kOA @` ’±üÍk@ ¿OA(OH_Pµ8OJ_NOOOOhhddddh_¿O›NOO@O O²GOPdlð¬¿lOP@° ¢h°OPdOP›¿lOP@_N¿OLµONh_L_J¿OP±ÿyON&_L¿°ôh(1733Q \RECORDBLOCK/RECORDERROR 1676Q \RECORDBLOCK/RECORDERROR 1642Q \RECORDBLOCK/RECORDECLTAIL 1542Q \RECORDBLOCK/RECORDERROR 1531Q FIXSPELL 1520Q \RECORDBLOCK/RECORDECL1 1316Q \RECORDBLOCK/RECORDECLBLOCK 1306Q \RECORDBLOCK/CHECKRECORDNAME 1234Q LAST 1073Q \RECORDBLOCK/RECORDERROR 1027Q \RECORDBLOCK/CHECKRECORDNAME 755Q \RECORDBLOCK/ALLOCHASH 671Q GENSYM 657Q \RECORDBLOCK/RECDEC? 600Q GENSYM 565Q \RECORDBLOCK/RECDEC? 334Q \RECORDBLOCK/CHECKRECORDNAME 237Q \RECORDBLOCK/CHECKRECORDNAME 173Q \RECORDBLOCK/LISTRECORDEFS 117Q \RECORDBLOCK/CHECKRECORDNAME 74Q \RECORDBLOCK/LISTRECORDEFS 66Q \RECORDBLOCK/CHECKRECORDNAME 22Q RECORD.REMOVE.COMMENTS) (1526Q CLISPRECORDTYPES 1502Q USERRECORDTYPE 1405Q ARRAYBLOCK 1363Q QUOTE 1344Q DATUM 1341Q TYPENAMEP 1332Q DATATYPE 1276Q DATATYPE 1263Q ARRAYBLOCK 1255Q DATATYPE 1247Q BLOCKRECORD 1014Q CACCESSFNS 1006Q ACCESSFNS 766Q HASHRECORD 551Q HASHRECORD 521Q ARRAYRECORD 433Q D 430Q ARRAYRECORD 323Q ARRAYRECORD 230Q ASSOCRECORD 222Q ATOMRECORD 214Q PROPRECORD 146Q QUOTE 123Q EQ 105Q TYPERECORD 55Q RECORD) ( 341Q (ARRAYP DATUM) 170Q (D) 127Q (CAR (LISTP DATUM))) \RECORDBLOCK/RECORDECLBLOCK D1 (L (0 DEC) P 3 FIELDNAMES F 22Q STRUCNAME F 23Q ALLOCATIONS) "@±Hµ g@ h_¿_µ^@gð´W$I _¿@gð²2ggW$hgIhgOhgOhhW&c&¿KOBOµ‚±s±y_`ð’±^j_¿Od§gh_ºO_¿Odgð²¿JOµjL\± gð²FJOL¼gkOOÙ_¿¾Oâ_jð¯OµNkÔ°î ²øNµiOh_±¿O`]ŸJML¼O_±¦O`]²JM_`µL\±…Od3 kÙ_¿O_±ÿQh0`°d_¿Oµ Oh_‚O&_¿µçO0`°d_¿Oµ Oh_‚O&_¿µçOo hOhdi ’±þékO@¿KJh »IOh ¹Ojð©hºOkÙ_°áO±þ5_"¿OµOLgO"_ ¿OµO h__¿O_¿O_¿±þTO &_¿°ë(714Q \NCONC2 703Q \NCONC2 673Q \RECORDBLOCK/RECORDERROR 660Q FIXSPELL 646Q \NCONC2 643Q \NCONC2 460Q SHOULDNT 354Q \FZEROP 47Q TRANSLATE.DATATYPE 20Q \RECORDBLOCK/RECORDERROR) (765Q DATATYPE 574Q DATATYPEFIELDCOERCIONS 526Q DATATYPEFIELDTYPES 452Q DATATYPEFIELDTYPES 436Q DATATYPEFIELDCOERCIONS 405Q DATATYPEFIELDTYPES 307Q BITS 270Q BETWEEN 241Q BITS 215Q POINTER 174Q COMMENTFLG 120Q QUOTE 107Q QUOTE 100Q QUOTE 70Q QUOTE 65Q /DECLAREDATATYPE 57Q DATATYPE 36Q DATATYPE 14Q F) ( 640Q (BETWEEN BITS)) \RECORDBLOCK/RECORDECLTAIL D1 (L (4 TRANSLATION 3 DEC 2 TL) P 3 SETQPART P 2 SETQTAIL I 1 FIELDNAMES I 0 NAME F 5 ALLOCATIONS) o` @µ A2Bd¤A°÷¢±íBdgð²*¿gU\µ±Ðl gBh&¿Ll h±³dgð•¿B±¢dgð²¿gB ¿UB c ±‰dgð¦dgð²¿DBBD°edgð²¿DBµ DB°Cdgð›¿Dl B°1gðDl g °Bd`ð³d ²B¿B DC¿Bb±ÿBdgð²%@ð²gBhBb±þékBC¿±þÞIChHhi ¢±þÐK@ð²DgKD°DKKhD¿Jb±þ—(477Q \RECORDBLOCK/GETSETQ 461Q \RECORDBLOCK/RECORDERROR 400Q \RECORDBLOCK/DECLSUBFIELD 373Q \RECORDBLOCK/UNCLISPTRAN 363Q \RECORDBLOCK/RECDEC? 342Q /RPLACA 334Q FNTH 314Q FNTH 165Q \APPEND2 155Q APPLY 113Q NTH 71Q NTH 11Q \APPEND2) (520Q CREATE 432Q TYPE? 417Q @ 353Q COMMENTFLG 337Q SYSTEM 324Q SYSTEM 303Q DECL 241Q TYPE? 204Q CCREATE 176Q CREATE 147Q PROGN 140Q INIT 124Q SUBRECORD 74Q QUOTE 54Q /DECLAREDATATYPE 45Q INCLUDES 6 CLISPRECORDTYPES) ( 3 (CCREATE CREATE TYPE? SUBRECORD INIT DECL SYSTEM)) RECORDECLARATIONS D1 (L (0 DECS)) Š o @°rdYdlð™` µI²'Id`ð’Y`²I°'d²#d`ð²°goIh idhXdIðHHid ˆji¿¿µo h(206Q PRIN1 172Q TERPRI 166Q PRINTDEF 160Q PRETTYVAR1 131Q LISPXPRINT 124Q \APPEND2 33Q \RECORDBLOCK/RECLOOK1 11Q PRIN1) (112Q QUOTE 100Q CLISPTRANFLG 61Q CLISPRECORDTYPES 50Q CLISPTRANFLG 30Q USERRECLST) ( 203Q "] " 116Q (no RECORD declaration for) 6 "[DECLARE: EVAL@COMPILE ") \RECORDBLOCK/RECORDERROR D1 (L (3 CDRFLG 2 IN 1 AT 0 MESSAGE) F 1 DWIMIFYFLG F 2 FAULTFN) @dlð—¿o±Ågð–o±¹@dgð—¿o±ªlð–o±Ÿ@dgð—¿o±kð–o±†@dgð–¿o°wjð•o°n@dmÿð–¿o°agð•o°V@dgð–¿o°Hgð•o°=@dgð–¿o°/gð•o°$@dlð–¿o°gð”oŠ@dlð”¿obABð¥B§Ab¿hb¿Qgð²(A²B²@d£d‘hgB h A„@AµB ¿R k @d¤i ‰ihdddi ¿i A²]oi ¿A³Aid¿oi °>B²2AB µAB X²#C–BkH€HA ioohdi ˆA id¿B²oi ¿B id¿g h(651Q DWIMERRORRETURN 642Q LISPXPRINT 635Q RETDWIM2 630Q LISPXPRIN1 614Q LISPXPRINT 607Q RETDWIM2 602Q MAPRINT 562Q RETDWIM2 552Q NLEFT 537Q TAILP 530Q MEMB 516Q LISPXPRIN1 505Q LISPXPRIN2 472Q LISPXPRIN1 457Q LISPXTERPRI 452Q MAPRINT 437Q LISPXPRIN1 427Q LISPXSPACES 423Q FIXPRINTIN 416Q ERROR 404Q \APPEND2 376Q RETDWIM2) (646Q ALREADYPRINTED 372Q in 346Q EVAL 300Q CHANGE 250Q NAME 234Q FETCH 217Q REPLACE 203Q CREATE 166Q P 124Q F 73Q TYPE? 41Q WITH 23Q OF) ( 624Q "in " 573Q ") " 567Q "... " 512Q " " 466Q " at " 322Q "bad field name" 306Q "not an expression which can occur left of %"_%"" 273Q "no such record path" 256Q "undefined record name" 243Q "FETCH not defined for this field" 225Q "REPLACE not defined for this field" 212Q "CREATE not defined for this record" 174Q "can't parse this expression" 161Q "no corresponding field in parent declaration" 144Q "no record name" 133Q "no fields" 114Q "bad record declaration" 102Q "TYPE? not defined for this record" 63Q "field occurs twice" 50Q "no WITH" 31Q "no OF" 15Q "undefined field name") RECORDFIELD? D1 (L (1 DECLARATIONS 0 FIELD)) O0g@ X²!@kHkÙ ´1@HkØmÿhb¿b°ÖAµ`Yµhº@J Z–JµJI°æ(76Q \RECORDBLOCK/RECORDECL 42Q SUBATOM 27Q RECLOOK 24Q SUBATOM 11Q STRPOS) (61Q USERRECLST 5 %.) () RECORDFIELDNAMES D1 (L (1 FLG 0 RECORDNAME) P 0 DECL) ]@d¢ AµHgð—Hl H‰di I¹µõ0H°dIYºKµJh\J&»µìLHI(55Q RECORDFIELDNAMES 35Q FNTH 11Q \RECORDBLOCK/RECORDECL 6 RECLOOK) (25Q DECL) () \RECORDBLOCK/RECORDGENSYM D1 NIL `µ(14Q GENSYM) (6 PATGENSYMVARS 2 PATGENSYMVARS) () RECORDTRANA0023A0024 D1 (NAME ERRORSET P 0 LISPXHIST F 1 DEF F 2 FAULTFN) i¿QdhddRg hh(27Q DWIMIFY0?) (23Q VARSBOUND 6 NOSPELLFLG 3 DWIMESSGAG) () RECORDTRANA0023 D1 (NAME ERRORSET P 41Q FIELDNAMES P 40Q USINGEXPR P 37Q SPECIALFIELDS P 36Q SUBSTYPE P 35Q FIELDNAMES P 34Q RECORD.TRAN P 33Q USINGEXPR P 32Q SPECIALFIELDS P 31Q SUBSTYPE P 24Q DECLST P 22Q FIELDNAMES P 21Q USINGEXPR P 20Q USINGTYPE P 15Q SETQTAIL P 14Q SETQPART P 12Q FIELDS.IN.CREATE P 5 TAIL P 4 BINDINGS P 3 NOTRANFLG P 2 DEF P 0 DECLST F 42Q RECORDEXPRESSION F 43Q RESETVARSLST F 44Q FAULTFN F 45Q EXPR F 46Q WORDTYPE F 47Q CLISPCHANGE) ä"WJWH WDWDWLricN¿I`Zµ?Igð²\WDWDWDZ§lWD ¿WD]M dgð¦dgð²¿M]H¸JY°º¿MhWD¿JM hg±äIdgð²t¿WDWDWDZ§lWD ¿WD]M dgð¥dgð”¿M]¿MoWDi¿JMMM dgð¥dgð”¿M]¿MhWD¿MI±jgð¢±hWD¡WDWDHWDi _ _$¿Oµ*O ¢±ÃgO¢±©gOOh±›O _²SO²0OOðšOoh°oOoOhOWDˆO_ ¿O_¿O`WD¿O_±ÿ~OdO$WD`h` ¢±ÿh¿OO›lOWD±ÿQOO_¿O_±ÿEO _"¿Od iZ _&²egHgg_*Jh0O& °9d^hO µgNWDO*Ng_,¿O.µ O,h_0‚O,&_.¿µÈO0ZJ±ýIdgð²X¿ggghh2WDWDHWDi _8 _:¿WDgO:WD¿WD _6¿WD ±Ÿgð²mWDWDHWDi Z¬gWDWD¿WDWDidhWHg ¿Jd–`—JWD°LggghhWD !J °-Idgð² ¿WDWDHWDi „WD ºL”J ºg`g`WFcF__¿og O¿O_¿OdWFð—¿OcF°WF œWFkOO¿£¿J§gJhºK‘JˆWDJ ¿WDh(1733Q CLISPTRAN 1705Q ERROR! 1674Q NLEFT 1663Q TAILP 1614Q RECORDTRANA0023A0024 1550Q \RECORDBLOCK/EMBEDPROG 1541Q \RECORDBLOCK/CHANGETRAN1 1533Q \RECORDBLOCK/MKPROGN 1521Q \RECORDBLOCK/RECORDECL 1516Q RECLOOK 1463Q \RECORDBLOCK/CSUBST 1454Q \RECORDBLOCK/MKPROGN 1404Q DWIMIFY0? 1361Q \RECORDBLOCK/RECORDERROR 1335Q \RECORDBLOCK/RECORDECL 1332Q RECLOOK 1301Q \RECORDBLOCK/CSUBST 1276Q \RECORDBLOCK/MKPROGN 1263Q \RECORDBLOCK/RECORDBINDVAL 1252Q \RECORDBLOCK/DWIMIFYREC 1230Q \RECORDBLOCK/ALLFIELDS 1223Q \RECORDBLOCK/RECORDECL 1220Q RECLOOK 1103Q \RECORDBLOCK/MAKEACCESS 1070Q \RECORDBLOCK/RECORDERROR 1054Q \RECORDBLOCK/ACCESSDEF4 1037Q DREVERSE 1020Q \RECORDBLOCK/RECORDBIND 773Q \RECORDBLOCK/FIXFIELDORDER 767Q \RECORDBLOCK/MAKECREATE0 763Q \RECORDBLOCK/HASHLINKS 752Q \RECORDBLOCK/RECORDBINDVAL 721Q \RECORDBLOCK/RECORDERROR 674Q \RECORDBLOCK/GETSETQ 640Q \RECORDBLOCK/DWIMIFYREC 612Q \RECORDBLOCK/RECORDERROR 525Q \RECORDBLOCK/RECORDWORD 440Q \RECORDBLOCK/ALLFIELDS 433Q \RECORDBLOCK/RECORDECL 430Q RECLOOK 367Q \RECORDBLOCK/MAKEACCESS 360Q \RECORDBLOCK/DWIMIFYREC 326Q \RECORDBLOCK/RECORDWORD 312Q \RECORDBLOCK/DWIMIFYREC 255Q \RECORDBLOCK/RECORDWORD 242Q \RECORDBLOCK/RECORDERROR 231Q \RECORDBLOCK/ACCESSDEF 175Q \RECORDBLOCK/MAKEACCESS 166Q \RECORDBLOCK/MKPROGN 160Q \RECORDBLOCK/DWIMIFYREC 112Q \RECORDBLOCK/RECORDWORD 77Q \RECORDBLOCK/RECORDERROR 66Q \RECORDBLOCK/ACCESSDEF 20Q \RECORDBLOCK/RECORDWORD 6 GETLOCALDEC) (1714Q PROGN 1636Q NOSPELLFLG 1623Q DWIMESSGAG 1611Q INTERNAL 1566Q NOSPELLFLG 1563Q NOSPELLFLG 1557Q DWIMESSGAG 1554Q DWIMESSGAG 1473Q initrecord 1440Q USING 1435Q DATUM 1432Q TYPE? 1415Q LAMBDASPLST 1400Q VARSBOUND 1350Q TYPE? 1310Q type? 1242Q DATUM 1171Q USING 1166Q DATUM 1163Q WITH 1154Q with 1100Q replace 1061Q REPLACE 1015Q SETQ 1012Q PROG1 1002Q FAST 670Q CLISPRECORDWORDS 664Q CLISPRECORDWORDS 633Q CLISPRECORDWORDS 500Q THE 460Q CHECK 375Q create 340Q WITH 332Q with 267Q of 261Q OF 205Q replace 172Q fetch 124Q OF 116Q of 43Q fetch 33Q RECORDWORDS) ( 1606Q (RECORDTRANA0023A0024) 573Q "and" 564Q "both" 554Q "occurs twice" 304Q (with WITH)) RECORDTRAN D1 (I 1 WORDTYPE I 0 RECORDEXPRESSION F 2 RESETVARSLST) Cg`RcRYog H¿IdRð•¿HcR ™RkIH¿µ(77Q ERROR! 66Q NLEFT 57Q TAILP 31Q RECORDTRANA0023) (37Q PATGENSYMVARS 26Q INTERNAL 5 PATGENSYMVARS 2 PATGENSYMVARS) ( 23Q (RECORDTRANA0023)) \RECORDBLOCK/RECORDWORD D1 (L (2 WORDTYPE 1 TL 0 WORD)) ?@gXd²3Bµgð´)Hd™X Xb¿`A›H™AHð¤AH @(73Q /RPLACA 43Q \RECORDBLOCK/RECORDWORD) (54Q LCASEFLG 22Q RECORDTRAN 6 CLISPWORD) () \RECORDBLOCK/RECREDECLARE D1 (L (2 OLDFLG) I 1 RECFIELDS I 0 RECNAME) `š@ABl`¿`d•g (31Q MAPHASH) (26Q RECREDECLARE1 21Q CLISPARRAY 13Q RECORDCHANGEFN 2 RECORDCHANGEFN) () SETUPHASHARRAY D1 (L (1 SIZE 0 ARRAYNAME)) @ X²H «@Aµld @(32Q SET 27Q HASHARRAY 15Q HASHARRAYP 6 GETTOPVAL) NIL () \RECORDBLOCK/SIMPLEP D1 (L (1 N 0 X)) tA¤lb¿@•@d ‘Ag²jA@g Ùbóhð´*@b¿°Î@dgð²¿@ˆdA b•µõi¿h´Adgð¦dgð´ô¿`´î@`b´å°(105Q \RECORDBLOCK/SIMPLEP 43Q LENGTH 16Q CONSTANTEXPRESSIONP) (153Q CLISPARRAY 145Q CLISPARRAY 136Q FFETCH 130Q fetch 71Q PROGN 37Q CROPS 25Q CROPS) () \RECORDBLOCK/SUBDECLARATIONS D1 (L (0 TRAN) F 5 DECLST) MP@°=d\dgð²%hULi »L²Kd`ð’‡L €K¸IµHhZH&¹µÄJ(67Q \APPEND2 40Q RECLOOK) (54Q CLISPTRANFLG 23Q SUBRECORD) () \RECORDBLOCK/SUBFIELDCREATE D1 (L (1 DFLT 0 VAL) F 11Q RECORD.TRAN F 12Q RNAME F 13Q FIELDS.IN.CREATE) “ @W ALµM[@`ð³PA²]J°D_ XWð²$Hdgð©¿I³O¹Hº‹_¿Nµ Oh^½L\°¹O&¾°÷dW¤µøhŸJJ X`ð£Hb¿Kª@`ðhð´@@d`ð‘hK (220Q \RECORDBLOCK/MAKEHASHLINKS 154Q \RECORDBLOCK/MAKECREATE0 45Q \RECORDBLOCK/RECORDECL0 7 \RECORDBLOCK/SUBDECLARATIONS) (210Q MSBLIP 174Q MSBLIP 160Q MSBLIP 67Q HASHRECORD 25Q MSBLIP) () \RECORDBLOCK/TOPPATHS D1 (L (3 DECS 2 TL 1 LST 0 FIELD) I 4 AVOID F 0 DECLST) @C µ@P µ @` AB(31Q \RECORDBLOCK/ALLPATHS 24Q \RECORDBLOCK/RECLOOK1 13Q \RECORDBLOCK/RECLOOK1 4 \RECORDBLOCK/RECLOOK1) (21Q USERRECLST) () \RECORDBLOCK/UNCLISPTRAN D1 (L (0 EXPRESSION)) @`ð—@d ¿`—@h`@(32Q /PUTHASH 15Q /RPLNODE2) (27Q CLISPARRAY 21Q CLISPARRAY 4 CLISPTRANFLG) () RECORDPRIORITY D1 (L (1 PRIORITY 0 RECNAME) P 0 DECL) i@ !H Ydl £g‚gZAdgð²¿dgð³