(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 4-Nov-93 17:44:48" ("compiled on " {DSK}export>lispcore>sources>CLTL2>LLARRAYELT.;2) "19-Feb-93 17:03:08" bcompl'd in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "19-Jan-93 10:43:28" {DSK}lde>lispcore>sources>LLARRAYELT.;2 154426 changes to%: (RECORDS HARRAYP HASHSLOT SEQUENCEDESCRIPTOR ARRAYP ARRAYBLOCK SAFTABLE) previous date%: " 4-Jan-93 23:51:47" {DSK}lde>lispcore>sources>LLARRAYELT.;1) AIN :D8 (L (3 FILE 2 N 1 INDEX 0 APTR)) / @ ¥@¡@„jAñ˜Al ¿p@d ²[¿@dÊjð¥ É¸@l ¹@dÊjð¥ Èº@dÊjð¥ ‚Ê‡dlCð’¿jlDð‘k‰o »k° É¸@Ê‡@Èõ¹@l º@Ê»@Ê¼ALÙ]Kjð¦Kdlð“¿I°AkðžJàºBàb¿Mà½Ià°/Klð§Kdlð²¿JààºBààb¿Màà½Iààlð‘h‡@l MBØýñ˜@l ¿Cg HMJØ OÉ É>¾OOOBlN@(264 \GETSTREAM 252 \LISPERROR 238 \LISPERROR 146 \GETBASEFIXP 122 SHOULDNT 94 %%ARRAY-TYPE-NUMBER 77 %%ARRAY-OFFSET 63 \GETBASEFIXP 51 %%ARRAY-BASE 35 STRINGP 24 \LISPERROR 5 STRINGP) (285 FDEV 278 STREAM 259 INPUT) ( 117 "Unknown type-number") AOUT :D8 (L (3 FILE 2 N 1 INDEX 0 APTR)) ' @ ¥@¡@„jAñ˜Al ¿p@d ²[¿@dÊjð¥ É¸@l ¹@dÊjð¥ Èº@dÊjð¥ ‚Ê‡dlCð’¿jlDð‘k‰o »k° É¸@Ê‡@Èõ¹@l º@Ê»@Ê¼ALÙ]Kjð¦Kdlð“¿I°9kðžBàb¿Mà½JàºIà°'Klð¥Klð²Bààb¿Màà½JààºIàà‡@l MBØýñ˜@l ¿Cg HMJØ OÉ É@¾OOOBlN@(256 \GETSTREAM 244 \LISPERROR 230 \LISPERROR 146 \GETBASEFIXP 122 SHOULDNT 94 %%ARRAY-TYPE-NUMBER 77 %%ARRAY-OFFSET 63 \GETBASEFIXP 51 %%ARRAY-BASE 35 STRINGP 24 \LISPERROR 5 STRINGP) (277 FDEV 270 STREAM 251 OUTPUT) ( 117 "Unknown type-number") ARRAY :D8 (L (4 ALIGN 3 ORIG 2 INITVAL 1 TYPE 0 SIZE)) x@jØbj@ñ§ddnÿÿñš¿@l ¿@qAdgð›¿@lØââ¸j±õgð³Agð©Adgð™¿@kØâ¸k±Ò²Agð©Adgð—¿k»l±·jð©Adgðš¿@à¸k»l± gð”l±”Adgð²¿Bµl±b¿°ógð@lØâââââ¸l°aAgð“l°U@Að“l°MAd²Cdgð²9dlñ”¿l°2lñ—@kØâ¸k°$Akñ™@lØââ¸j°@lØâââââ¸l„ ZldJÏ¿\d@ Ï‡¿LlkØÐ@ Í¿Cdjð®dkðªµk†l ½dMÏ¿dlj¿HKhD¾dN¿YB¢±ôdÉHàkÙ OOkÙÐ_¿Jdjð²¿Bjð’±ÍOBáBØÍ¿OdkÐOÄ±¹kð²Bjð’±®OBÍ¿OdkÐOÄ±Jdlð²!¿Bjð’±ŽOjB¿OdlÐOkÙÄ°vlð§Jdlð²#¿O_¿Hdjñ²OB¿OlÐ_¿kÙ°ë¿°Jlð²$oB ³8OBíÎ¿OdlÐOkÙÄ°#Jlð²Bjð³OnÿÿÍ¿OdkÐOÄ„I(628 SHOULDNT 572 FEQP 498 \PUTBASEFIXP 375 \ALLOCBLOCK 365 \PUTBASEFIXP 349 \LISPERROR 326 \LONUM 310 \HINUM 292 \ILLEGAL.ARG 24 \LISPERROR) (393 ARRAYP 229 BITS 203 SIGNEDWORD 181 BIT 171 FLOATP 154 FLOATP 140 FIXP 122 DOUBLEPOINTER 102 FLAG 93 POINTER 73 WORD 64 SMALLPOSP 55 SMALLP 36 BYTE) ( 566 0.0) ARRAYSIZE :D8 (L (0 X)) @HÊ‡HÈõNIL (5 ARRAYP) () ARRAYTYP :D8 (L (0 ARRAY)) j@Êdjð•gdlð•gdlð•gdkð•gdlð•gdlð•gdlð•glð•g(103 SHOULDNT) (97 BIT 87 FLOATP 76 FIXP 65 CODE 54 SMALLPOSP 44 POINTER 33 DOUBLEPOINTER 22 BYTE 10 ARRAYP 5 ARRAYP) () ARRAYORIG :D8 (L (0 ARRAY)) @ÊNIL (10 ARRAYP 5 ARRAYP) () COPYARRAY :D8 (L (0 ARRAY)) ›@d ² ¿@ @H @H @ @HÊ‡HÈõ#JIhH[H\Jdjñ²KL@L ¿LkÔ¼kÙ°æIgð²!H¼Jdjñ²KL@L ¿LkÔ¼kÙ°æK(142 SETD 137 ELTD 102 SETA 97 ELT 79 ARRAY 49 ARRAYTYP 43 ARRAYORIG 37 REHASH 30 \COPYHARRAYP 20 HASHARRAY 15 HARRAYSIZE 6 HARRAYP) (117 DOUBLEPOINTER 55 ARRAYP) () ELT :D8 (L (1 N 0 A)) Ð@@ÉA@ÊÙjIñ³I@ZÊ‡JÈõýñ¨Al ¿I@l ØY@Êdlð¤dlð˜¿HIÐIÐÉdlðž¿HIÐIÐXdÈHÈõdjð¤dlð”¿HIÂdkð–¿HIÐÈdlð²¿HIââââÐÈlIlåÙ kålðHIàÐdÈýÈÑí@l (205 \LISPERROR 176 LRSH 73 \GETBASEFIXP 58 \LISPERROR) (81 ARRAYP 66 ARRAYP 39 ARRAYP 20 ARRAYP 11 ARRAYP 5 ARRAYP) () ELTD :D8 (L (1 N 0 A)) ~@@dÊlð²c¿@ÉA@ÊÙ2jIñ³I@ZÊ‡JÈõýñ¨Al ¿I@l ØYH@[Ê‡KÈõ\ÐLÐIÐIÐÉA (123 ELT 89 \GETBASEFIXP 74 \LISPERROR) (98 ARRAYP 82 ARRAYP 55 ARRAYP 36 ARRAYP 27 ARRAYP 12 ARRAYP 5 ARRAYP) () SETA :D8 (L (2 V 1 N 0 A)) @bdÊ jðª¿@l ¿@ÉA@ÊÙjIñ³I@ZÊ‡JÈõýñ¨Al ¿I@l ØY@Êdlð¤dlðš¿HIÐIÐBBdlðœHIÐIÐjBdjð¤dlð•¿HIBÇdkð—HIÐBÍBdlð²G¿HIââââÐBjð²HIââââÐÈklIlåÙ nÿÿæå°HIââââÐÈklIlåÙ äÍBlð²HIàBíKLÐMÎ¿Mí@l (283 \LISPERROR 244 LLSH 215 LLSH 146 \PUTBASEFIXP 97 \GETBASEFIXP 82 \LISPERROR 28 \LISPERROR) (105 ARRAYP 90 ARRAYP 63 ARRAYP 44 ARRAYP 35 ARRAYP 13 ARRAYP 5 ARRAYP) () SETD :D8 (L (2 V 1 N 0 A)) ˜@@dÊlð²|¿@dÊ jðª¿@l ¿@ÉA@ÊÙ2jIñ³I@ZÊ‡JÈõýñ¨Al ¿I@l ØYH@[Ê‡KÈõ\ÐLÐIÐIÐBBAB(149 SETA 112 \GETBASEFIXP 97 \LISPERROR 43 \LISPERROR) (121 ARRAYP 105 ARRAYP 78 ARRAYP 59 ARRAYP 50 ARRAYP 28 ARRAYP 12 ARRAYP 5 ARRAYP) () SUBARRAY :D8 (L (4 NEWORIG 3 OLD 2 M 1 N 0 X) P 9 \INTERRUPTABLE) ð @@HÊ‡HÈõ@ÊABTjJñ•JHØkØºK¡HˆjKñ•KHØkØ»IJñhð´‚±¨JKñhð´‚±KHñhð´‚±’ Cµl@É¼dL¿KJÙkØ¾]dN Ï‡¿MlkØÐN Í¿@Ê_¿dOÏ¿@l JØIÙ_¿dlO¿dIÏ¿djÏ¿djÏ¿djÏ ¿djÏ¿(206 \PUTBASEFIXP 189 \GETBASEFIXP 154 \LONUM 138 \HINUM) (182 ARRAYP 163 ARRAYP 120 ARRAYP 111 ARRAYP 29 ARRAYP 11 ARRAYP 5 ARRAYP) () HARRAY :D8 (L (0 MINKEYS)) @g (10 HASHARRAY) (5 ERROR) () HASHARRAY :D8 (L (5 REHASH-THRESHOLD 4 RECLAIMABLE 3 EQUIVFN 2 HASHBITSFN 1 OVERFLOW 0 MINKEYS)) €E3 ŸA3 ´ AEñ´EAëb ¿n@l@EšdkÙEë ‡@kÙlÛàànüHñ‘H‚nüHdIñ¡¿IK²"Kjð³,K—K ³ jKó”n@IƒIn@ó®IdJñ“µi†d[Ô¹°ÐhµQní@nínüñ“nü‚níEš@kÙEë ‡@kÙlÛààHdIñ‘¿IHdIñ¡¿I2IdHó²#¿hµn€AHàZdnÿýñ²Ko@ l¼»LKó³ILÜZjð³JµLkÔ\°ë ²õh€i•Iµ¯i°¬IkÔY°ŸEµ*HâHââØY`Jk »dK¿HkÙ¼dLÍ¿dDšk‰Hê °×jÏ¿dA¿dIÍ¿dIÍ¿djÍ¿dB¿dC ¿(344 FIXR 317 \ALLOCBLOCK 276 \FZEROP 243 FIXR 238 SQRT 232 ERROR 160 FIXR 93 \FZEROP 37 FIXR) (309 |HARRAYPTYPE#|) ( 226 "HARRAY TOO LARGE") HARRAYP :D8 (L (0 X)) @Ã´@NIL (5 HARRAYP) () HARRAYPROP :D8 (L (0 NARGS)) 4eHjñ´kaHkñ´laHlñ#I¼K“la½Jdgðœ¿K’±ÀL gð²#IµLÉK™LM¿K“IM¿Jdgðž¿K’±LÈgð²$LÉ K²LdÈjð²UM ¿Jdgð²"¿LÊjðhðKžLM‘k€jÏ¿gð²2LÉK²&LdÈjð®¿¿oJ hM¿LÉYJ'K²IµLJMh¿JM¿(304 LISTPUT 253 ERROR 59 HARRAYSIZE) (288 HARRAYP 271 HARRAYP 260 HARRAYP 235 HARRAYP 223 HARRAYP 214 HASHBITSFN 199 HARRAYP 184 HARRAYP 174 RECLAIMABLE 162 HARRAYP 151 HARRAYP 139 HARRAYP 130 EQUIVFN 122 HARRAYP 108 NUMKEYS 88 HARRAYP 78 HARRAYP 65 OVERFLOW 45 SIZE 31 HARRAYP) ( 247 "Can't update this hash array property") HARRAYSIZE :D8 (L (0 HARRAY)) @ÈNIL (10 HARRAYP 5 HARRAYP) () CLRHASH :D8 (L (0 HARRAY) P 4 \INTERRUPTABLE) \@1HÉYIHÈZÐJÐJÐJÐlÐ»Ih¿Ih¿IlÐYdKð´ð¿HHÈÍ¿HjÍ@NIL (85 HARRAYP 74 HARRAYP 68 HARRAYP 27 HARRAYP 14 HARRAYP 5 HARRAYP) () MAPHASH :D8 (L (1 MAPHFN 0 HARRAY)) R@!HÉYdHÈZÐJÐJÐJÐlÐ`IÉ]µLðhð´MIÉlA¿IlÐYdKð²â@NIL (42 \HASH.NULL.VALUE 24 HARRAYP 14 HARRAYP 5 HARRAYP) () GETHASH :D8 (L (3 RETURNMVS 2 DEFAULT 1 HARRAY 0 ITEM)) +A±HÉ_—@kO°@Ò@Ónÿåààà@Óãâææ_HÈkØÜ¹HÉ_IÐIÐIÐIÐZÉ_²%@JÉ[ð’±šHÉ _²%@KlO²±JÉ¦C’±˜BHÉ _¿I¼OdãæHÈkØ_¿l@Oñ’Ol@Ükä½HÈkØ¾IMØNÜYLðšo ¿OIÐIÐIÐIÐZÉ_²-JÉ[@ðO²Ò@KlO²ÈC²%O`ðhð´Oi$JÉ³C¢±ÿnBh$O`ðhð´O(205 SHOULDNT) (289 \HASH.NULL.VALUE 254 \HASH.NULL.VALUE 181 HARRAYP 153 HARRAYP 135 HARRAYP 99 HARRAYP 64 HARRAYP 52 HARRAYP 14 HARRAYP 5 HARRAYP) ( 200 "Hashing in full hash table") PUTHASH :D8 (L (2 HARRAY 1 VAL 0 KEY)) @ABAhðA(10 \HASHACCESS) NIL () CL::PUTHASH :D8 (L (0 -args-)) NekaQlaºla»lHñ‘h„i¼la½J^Ã–IL²M°igNgh Z°ÞKJhK(74 \HASHACCESS 63 CHECK-TYPE-FAIL) (56 CL:HASH-TABLE 50 CL:HASH-TABLE 36 HARRAYP) () REMHASH :D8 (L (1 HARRAY 0 KEY)) @hAi(8 \HASHACCESS) NIL () \HASHRECLAIM :D8 (L (0 HARRAY) P 3 \INTERRUPTABLE) k@!HÉYIHÈZÐJÐJÐJÐlÐjIÉ^²Nið³N Ii¿Ih¿MkÔ½LIlÐYð²ÙHHÈMÙÍ@(61 \EQREFCNT1) (97 HARRAYP 91 HARRAYP 27 HARRAYP 14 HARRAYP 5 HARRAYP) () \HASHACCESS :D8 (L (3 REMOVE 2 HARRAY 1 VAL 0 ITEM) P 13 \INTERRUPTABLE) ºBÁHÉ_—@kO°@Ò@Ónÿåààà@Óãâææ_¿OHÈkØÜºHÉ_JÐJÐJÐJÐ[dÉ²&¿@KÉ\ð’±œHÉ _²"@LlO²±ƒÉ¢±©K¹HÉ _¿J½OdãæHÈkØ_¿l@Oñ’Ol@Ükä¾HÈkØ_¿JNØOÜZMðžIµ]o °QOJÐJÐJÐJÐ[dÉ²;É\@ðO²Ï@LlO²Å C²4Ki¿Kh¿HHÈmÿÔÍ° É¨I‘I»C²hI³‘K¹°KAµ`iHÈjð²/HÊjð¦H ¿Bµ` b¸h¹±þ» KIð³HHÈmÿÔÍ¿HHÈkÔÍ¿K@¿KAµ`A(362 HASHOVERFLOW 348 \HASHRECLAIM 211 ERROR) (436 \HASH.NULL.VALUE 415 HARRAYP 409 HARRAYP 395 HARRAYP 389 HARRAYP 369 HARRAYP 357 SYSHASHARRAY 336 HARRAYP 324 HARRAYP 314 \HASH.NULL.VALUE 277 HARRAYP 271 HARRAYP 181 HARRAYP 153 HARRAYP 135 HARRAYP 102 HARRAYP 67 HARRAYP 55 HARRAYP 14 HARRAYP 5 HARRAYP) ( 206 "No vacant slot in hasharray") REHASH :D8 (L (1 NEWAR 0 OLDAR)) GA @AHÉYHÈ\ÐLÐLÐLÐºIÉ[šIÉKA¿IdJð‘AlÐY°æ(55 PUTHASH 5 CLRHASH) (29 HARRAYP 20 HARRAYP 11 HARRAYP) () \COPYHARRAYP :D8 (L (1 TARGET 0 SOURCE)) hA@ÈÍA@ÈÍA@ÉA@ÉA@ÈÍA@ÈHIÍINIL (91 HARRAYP 85 HARRAYP 75 HARRAYP 69 HARRAYP 59 HARRAYP 53 HARRAYP 43 HARRAYP 37 HARRAYP 27 HARRAYP 21 HARRAYP 11 HARRAYP 5 HARRAYP) () \HASHTABLE.DEFPRINT :D8 (L (1 STREAM 0 CL:HASH-TABLE) F 3 \THISFILELINELENGTH F 4 *READTABLE*) \S²lAÈØSñ–A ¿ATÊHÉ(ºHIlJoA @A AÉ(Al>lHi(70 \PRINTADDR 63 \SOUT 22 FRESHLINE) (76 STREAM 42 STREAM 30 READTABLEP 10 STREAM) ( 57 "@d²:id³0@dÈZÐJÐX`ð³H`ð³HdÊðjðhðYhð ¡I‘hH @ @H h(89 \ARRAYBLOCKMERGER 82 \DELETEBLOCK? 76 \DELETEBLOCK? 65 \CHECKARRAYBLOCK 20 \CHECKARRAYBLOCK) (45 \ArrayFrLst2 36 \ArrayFrLst 7 \ARRAYMERGING) () \ARRAYBLOCKMERGER :D8 (L (1 NBASE 0 BASE)) ^@ÈAÈ2nÿÿHÙZIJñ²