‘XCL Compiler output for source file {DSK}sources>IMPLICIT-KEY-HASH.;1 Source file created Wednesday, 16 May 1990, 18:10:26. FASL file created Sunday, 25 January 1998, 14:31:31. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒXCL˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•ŒIMPLICIT-KEY-HASHCOMS˜•Œ FILEDATES˜•ŒIMPLICIT-KEY-HASH˜“˜“˜•Œ STRUCTURES˜’ŒIMPLICIT-KEY-HASH-TABLE˜‘˜ŒXEROX-COMMON-LISP˜“˜•Œ VARIABLES˜’Œ*DELETED-IMPLICIT-HASH-SLOT*™˜“˜•Œ FUNCTIONS˜’ŒMAKE-IMPLICIT-KEY-HASH-TABLE™˜’ŒGET-IMPLICIT-KEY-HASH™˜’ŒPUT-IMPLICIT-KEY-HASH™˜’ŒIMPLICIT-KEY-MAP-HASH™˜’ŒCLEAR-IMPLICIT-KEY-HASH™˜’ŒIMPLICIT-KEY-REHASH™˜’ŒADJUST-IMPLICIT-KEY-HASH™˜“™˜’Œ GET-IK-VALUE™˜’Œ PUT-IK-VALUE™˜’Œ GET-IK-KEY™˜’ŒREPROBE™˜’Œ16BIT-+™˜“˜•ŒSETFS™ ™'˜“˜’ŒFILE-ENVIRONMENTS™˜ŒIMPLICIT-KEY-HASH ˜“˜”˜Œ16-May-90 18:22:09•Œ9{DSK}local>lde>lispcore>sources>IMPLICIT-KEY-HASH.;2˜–Zgio ¿goolg ¿ggg ¿g ¿g ˜Œ!DEFSTRUCT IMPLICIT-KEY-HASH-TABLE™˜“€T˜ŒESTABLISH-SETFS-AND-OPTIMIZERSI˜ŒESTABLISH-ACCESSORS>™)˜’Œ%STRUCTURE-DECLARE-DATATYPE˜‘˜ŒSYSTEM ˜ŒSET-PARSED-STRUCTUREO™D™9˜ŒTYPE-EXPAND-STRUCTURE4˜Œ TYPE-EXPANDER/™#˜ŒSTRUCTURE-OBJECT™™˜“˜“™˜•ŒPOINTER˜“™˜”˜•ŒBITS˜“™˜”™D˜“™˜”™D˜“™˜”™D˜“™™B˜“™B˜“™D˜“™D˜“™D˜“™D™B˜“˜ŒPS™˜’Œ%MAKE-IK-HASH-TABLE™˜“˜’ŒBASE™˜’Œ LAST-INDEX™˜’Œ NUM-SLOTS™˜’ŒNUM-KEYS™˜’Œ NULL-SLOTS™˜’Œ KEY-ACCESSOR™˜ŒDATATYPE€€˜’ŒIK-HASH-™˜“™U€˜ŒDEFAULT-STRUCTURE-PRINTER€€€˜“˜“™V€€™C˜’Œ IK-HASH-BASE™˜“™W˜“˜Œ UNSIGNED-BYTE€™F˜’ŒIK-HASH-LAST-INDEX™˜“™X˜“™c€™H˜’ŒIK-HASH-NUM-SLOTS™˜“™Y˜“™c€™J˜’ŒIK-HASH-NUM-KEYS™˜“™Z˜“™c€™L˜’ŒIK-HASH-NULL-SLOTS™˜“™[€€™M˜’ŒIK-HASH-KEY-ACCESSOR™€€™S€˜“˜ŒACCESSOR˜Œ PREDICATE€€œ™U˜–‚–gµh¸h¹ƒa¸i¹gµjºaºgµj»a»gµj¼a¼gµj½a½gµ h¾h_¿…a¾i_¿`_¿I•OH¿OJÍ¿OKÍ¿OLÍ¿OMÍ¿O•ON¿O™U ‚ÿÿÿÿ™˜“˜“˜Œ&KEY˜ŒBASE˜Œ LAST-INDEX˜Œ NUM-SLOTS˜ŒNUM-KEYS˜Œ NULL-SLOTS˜Œ KEY-ACCESSORa˜’ŒIMPLICIT-KEY-HASH-TABLETYPE#™K™~=™}/™|!™{™z™y˜–"o ¿g X‘Hoc™˜Œ#DEFVAR *DELETED-IMPLICIT-HASH-SLOT*™˜“€˜ŒBOUNDP˜ŒPROCLAIM ™˜Œ Unique string˜“˜ŒSPECIAL™œ™˜–‚…emÿó”eló˜jl ¿edjð¬ka¸kÙjð§la¹ˆl¸g¹HkÕlÛlçºl»KJó‘K…KKÔ»°ö[mÿçKmþçÔºgKk gKkÕgJgjgJgI ™‚ÿÿÿÿ™˜“˜“˜Œ &OPTIONAL˜ŒMIN-KEYS˜Œ KEY-ACCESSOR™UY˜•Œ \ALLOCBLOCK˜’ŒARGUMENT-ERROR™<x™~r™}l™|f™{^™zR™y)˜ŒFIRSTœ™ ˜–‚«AëoA ¿@Ò@Ónÿåààà@Óãâææ¸AȹHIåºAÉ[JàÐɼAɽW¾h_¿LWð_³L²@Mgð“LɃLkMð“°HhHHãæl?Iýó’l?€Iåkä_¿JOÐÓIåºKJàÐÉ\Nð_³L²@Mgð“LɃLkMð’ƒh°ÒL ™™ ™˜“˜“˜ŒITEM˜Œ IK-HASH-TABLE˜ŒERROR‚“™‚’P™‚’™˜Œ"Not an implicit key hash table: ~sœ™!˜–‚uAëoA ¿@Ò@Ónÿåààà@Óãâææ¸AȹAɺAÉ»W¼h½h¾h_¿h_¿h_¿HIå½JMàÐÉ^Lð•M_¿°N²@Kgð“NɃNkKð”°o±M_¿HHãæl?Iýó’l?€Iåkä_¿MOÐÓIå]Oð²O’OŠoA ½°UJMàÐÉ^Lð•M_¿°!N²@Kgð“NɃNkKð˜‰O’O½°&°° JMàÐB‘B€L¿B­AÈkÕ_¿AOÍ¿BB¡BjAÈð²= AÈ_¿AOOkÔmÿçÔK _¿AO bȹAɺh_¿±ÿMOð­AÈkÕ_¿AOÍ¿AÈkÔ_¿AOÍ¿JMàÐB¿B˜•Œ\INTERRUPTABLE ™‚› ™‚›™™!™˜“˜“˜ŒITEM˜Œ IK-HASH-TABLE˜Œ NEW-VALUE‚0™%‚%™$‚ ™‚¥™‚˜™‚˜‚™‚’^™‚’™‚Ÿ˜Œ-No vacant slot in Implicit key hash table: ~s˜Œ"Not an implicit key hash table: ~sœ™"˜–bAëoA ¿AɸAÈkÔ¹HIÐIкAÉ»W¼h½HJð‘hHÉ]—MLð‘h‚i€h²@¾MKgð“MɃMkKlN¿Hlи°Í™™"™˜“˜“˜ŒFN˜Œ IK-HASH-TABLE™‚˜G™‚’™˜Œ"Not an implicit key hash table: ~sœ™#˜–G@ëo@ ¿@ɸ@ÈkÔ¹HIÐIкHJð‹Hh¿Hlи°ñ@@ÈÍ¿@jÍ¿@™‚›™#™˜“˜“˜Œ IK-HASH-TABLE™‚˜™˜Œ"Not an implicit key hash table: ~sœ™$˜–}@ëo@ ¿A ¿@ÈAÈýó«oA ¿@ɸ@ÈkÔ¹HIÐIк@É»V¼h½HJð‘AHÉ]—MLð‘h‚i€h²Kgð“MɃMkKAM ¿Hlи°Í™™$™˜“˜“˜Œ FROM-TABLE˜ŒTO-TABLEp™!*™‚˜™#™‚˜_™‚’™$˜ŒTo table too small: ~s˜Œ"Not an implicit key hash table: ~sœ™%˜–1@AÉ¿@AÈÍ¿@AÈÍ¿@AÈÍ¿@AÈÍ¿@AÉ¿@™‚›™%™˜“˜“˜Œ OLD-IK-TABLE˜Œ NEW-IK-TABLEœ˜’Œexpand-GET-IK-VALUE™˜–"@X¹HºgIgJoh™‚»™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜•ŒLLSH ˜•Œ \GETBASEPTR˜“˜–&gg ¿ggo ˜ŒDEFMACRO GET-IK-VALUE™˜“€ ™ ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES™'™‚»™'˜“˜ŒBASE˜ŒINDEXœ˜’Œexpand-PUT-IK-VALUE™˜–)@X¹HZ»J¼gIgKoLh™‚Ì™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT™‚À˜•Œ\RPLPTR˜“˜–&gg ¿ggo ˜ŒDEFMACRO PUT-IK-VALUE™˜“€ ™ ™‚Æ™‚Ç™(™‚Ì™(˜“˜ŒBASE˜ŒINDEX˜Œ NEW-VALUEœ˜’Œexpand-GET-IK-KEY™˜–‚Ò@X¹Hºh»h¼Id3@ð]‘M…I ‘I]K»IL¼M½Jd3@ð^‘N…J ‘J^K»JL¼N¾gogMogNMhh¾gh½h_¿K _¿L _¿O¡°3OOh_¿M˜OO&_¿†Oh_½O_¿O_¿O_¿°ÌMNh™‚Û ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT‚˜ŒREVERSE‚„™‚àA˜ŒGENSYM9˜Œ CONSTANTP ™‚ᙂâx˜ŒLETg˜ŒFUNCALLZ™‚ÁP˜ŒIF`˜“U˜“˜ŒEQ™[™‚’˜–&gg ¿ggo ˜ŒDEFMACRO GET-IK-KEY™˜“€ ™ ™‚Æ™‚Ç™)™‚Û™)˜“˜ŒVALUE˜Œ KEY-ACCESSORœ˜’Œexpand-REPROBE™˜–C@X¹HºgggIgIohgl?Jhho™‚𙘓˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT+˜ŒMIN˜•ŒLRSH˜ŒLOGXOR˜ŒLOGAND ˜ŒLOGIOR;˜“ ˜“˜–&gg ¿ggo ˜ŒDEFMACRO REPROBE™˜“€ ™ ™‚Æ™‚Ç™*™‚ð™*˜“˜ŒBITS˜Œ LAST-INDEXœ˜’Œexpand-16BIT-+™˜–@X¹HºggIJhh™‚™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT˜•Œ\ADDBASE ˜•Œ\LOLOC˜–&gg ¿ggo ˜ŒDEFMACRO 16BIT-+™˜“€ ™ ™‚Æ™‚Ç™+™‚™+˜“˜ŒA˜ŒB˜–gg ˜ŒDEFSETF GET-IMPLICIT-KEY-HASH™˜“€ ˜ŒSET-SETF-INVERSE™!™ ˜–gg ˜ŒDEFSETF GET-IK-VALUE™˜“€ ™‚™(™'˜–+ggo ¿ggg ˜Œ+DEFINE-FILE-ENVIRONMENT "IMPLICIT-KEY-HASH"™˜“€%™™ ˜Œ COMPILE-FILE˜•ŒFILETYPE™˜•ŒMAKEFILE-ENVIRONMENT™ ˜“™ ˜ŒXCL™ ˜ŒXCL˜– o ˜Œ1 top-level form™˜“€˜•ŒPUTPROPS˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚ÂÄ‚Æš‚)ÿÿ