‘XCL Compiler output for source file {DSK}local>lde>lispcore>library>CASH-FILE.;2 Source file created 11-Jun-90 14:33:44 FASL file created Saturday, 19 September 2020, 22:04:31 ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜“˜’Œ DEFPACKAGE˜‘˜ŒXEROX-COMMON-LISP˜Œ CASH-FILE˜“˜ŒUSE˜ŒLISP˜ŒXCL˜Œ{Null}˜–local>lde>lispcore>library>CASH-FILE.;2˜–!oo ¿oo ˜Œ2 top-level forms™˜“€™8 ™4˜Œ CASH-FILE˜Œ HASH-FILE˜ŒHASH-FILE.DFASL˜Œ HASH-FILE˜–Dgio ¿goolg ¿ggg ˜ŒDEFSTRUCT CASH-FILE™˜“€>™)˜’Œ%STRUCTURE-DECLARE-DATATYPE˜‘˜ŒSYSTEM ˜ŒSET-PARSED-STRUCTURE9˜ŒTYPE-EXPAND-STRUCTURE4˜Œ TYPE-EXPANDER/™'#˜ŒSTRUCTURE-OBJECT™'™'˜“˜“™'˜•ŒPOINTER˜“™'™g˜“™'™g˜“™'™g˜“™g™g™g™g˜“˜ŒPS™'˜’ŒMAKE-CASH-FILE-INTERNAL™"˜“˜’ŒCACHE™"˜’Œ CACHE-SIZE™"˜’ŒQUEUE™"˜’Œ HASH-FILE˜‘˜Œ HASH-FILE˜ŒDATATYPE€€˜Œ CASH-FILE-˜“™o™(™@˜’ŒCOPY-CASH-FILE™"€€˜“˜“™p€˜Œ HASH-TABLE™h˜’ŒCASH-FILE-CACHE™"˜“™q€˜ŒINTEGER™i˜’ŒCASH-FILE-CACHE-SIZE™"˜“™r€˜ŒLIST€™j˜’ŒCASH-FILE-QUEUE™"˜“™u€™u™k™)€€™m€˜“˜ŒACCESSOR˜Œ PREDICATE€€€œ™(˜–@Ù(™˜“˜“˜ŒOBJECT™'˜–"g ¿g ¿g ™^™˜“€˜ŒESTABLISH-SETFS-AND-OPTIMIZERS˜ŒESTABLISH-ACCESSORS˜ŒESTABLISH-PREDICATE™' ™'™'œ™o˜–zgµh¸h¹ƒa¸i¹gµhºh»ƒaºi»gµh¼h½ƒa¼i½gµ h¾h_¿…a¾i_¿`_¿I•OH¿K•OJ¿M•OL¿O•ON¿O™o ‚ÿÿÿÿ™˜“˜“˜Œ&KEY˜ŒCACHE˜Œ CACHE-SIZE˜ŒQUEUE˜Œ HASH-FILEM˜’ŒCASH-FILETYPE#™"7™‚˜%™‚—™‚–™‚•œ™z˜–H@¸@Ñ°igHgh b¿°ß`X@É¿H@É¿H@É¿H@É¿H™z™˜“˜“˜Œ CASH-FILE˜•ŒCHECK-TYPE-FAIL$™‚›™' ™'™'œ™@˜–,Ao@ÉÉX Y‘I€H ™@™˜“˜“˜Œ CASH-FILE˜ŒSTREAM˜ŒDEPTH&˜ŒFORMAT˜Œ NAMESTRING˜ŒPATHNAME™u™'˜Œ#˜–#gh ¿o¿o ˜ŒDEFCONSTANT NOT-IN-HASH-FILE™˜“€˜ŒPROCLAIM˜’Œ SET-CONSTANTP™ ™C™C˜“˜’ŒCONSTANT™a™C ˜“™Cœ™#˜–4g@A ggBgg gB ™#™˜“˜“˜Œ FILE-NAME˜ŒSIZE˜Œ CACHE-SIZE.™o"˜ŒMAKE-HASH-TABLE˜’ŒMAKE-HASH-FILE™t'™‚–˜ŒEQUAL˜ŒTEST˜ŒSIZE ™‚•™‚˜œ™$˜–Xekó¨lh ¿gµ g¸a¸g@gH ggAgg gA ™$‚ÿÿÿÿ™˜“˜“˜Œ FILE-NAME˜Œ CACHE-SIZE™‚”™R™oF™‚¹,˜’ŒOPEN-HASH-FILE™t˜’ŒARGUMENT-ERROR™a K™‚–A™‚»<™‚¼6™‚½1™‚•&™ ™‚˜˜ŒINPUT™œ™%˜–w@AÉ X¹HZ²#@A ¿I`ð•Bh$I i$@AÉ [¹Kº@J‘I„`A ¿J•Ii$Bh$™%™˜“˜“˜ŒKEY˜Œ CASH-FILE˜Œ &OPTIONAL˜ŒDEFAULTc™JL˜•Œ\MVLISTG˜’Œ GET-HASH-FILE™t4˜Œ COPY-TREE™I™‚Í ˜ŒGETHASH]™C@™'&™C™'œ™E˜–@AÉB ¿@BA ¿B™E™˜“˜“˜ŒKEY˜Œ CASH-FILE˜ŒVALUE™J ˜’Œ PUT-HASH-FILE™t™'œ™&˜–@AÉ X—@A ¿H™&™˜“˜“˜ŒKEY˜Œ CASH-FILE™K ˜’Œ REM-HASH-FILE™t™'˜–gg ˜ŒDEFSETF GET-CASH-FILE™˜“€ ˜ŒSET-SETF-INVERSE™E™%œ™I˜–CA@AÉgggk ¿A¸@AɹHZI¿I™I™˜“˜“˜ŒKEY˜Œ CASH-FILE!˜ŒDELETE7™'-™'˜ŒCOUNT™‚»™‚¼ ™'™'œ™J˜–WBÉXg BÉýó³BÉ B ¿@HA ¿B¹@BɺIJ¿A™J™˜“˜“˜ŒKEY˜ŒVALUE˜Œ CASH-FILE8˜ŒPUTHASH/™K(˜ŒLAST˜•Œ HARRAYPROPL™'B™'!™'™' ˜•ŒNUMKEYS™'œ™K˜–8A@AÉgggk ¿@AÉ ™K™˜“˜“˜ŒKEY˜Œ CASH-FILE2˜ŒREMHASH!™‚ç+™'™‚虂»™‚¼ ™'™'˜–"o ¿o ¿o ˜Œ3 top-level forms™˜“€˜•ŒPUTPROPS™‚ü™‚ü˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚ÂÆ ˜“™™O˜ŒXCL-COMPILE-FILE˜“™™N˜“™ ˜ŒXCL™ ˜“™˜Œ CASH-FILE˜“™˜ŒLISP˜ŒXCLš‚ ÿÿ