‘XCL Compiler output for source file {DSK}sources>CLOSURE-CACHE.;1 Source file created Wednesday, 16 May 1990, 12:24:08. FASL file created Sunday, 25 January 1998, 9:35:47. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒXCL˜Œ{Null}˜–,ggo ¿o¿o ˜Œ3 top-level forms™˜“€&˜•Œ FILESLOAD˜•ŒPUTPROP˜•ŒCLOSURE-CACHECOMS˜•Œ FILEDATES˜•Œ CLOSURE-CACHE!˜“˜•ŒIMPLICIT-KEY-HASH˜“˜“˜•ŒFILES™˜“˜•Œ VARIABLES˜’Œ*CLOSURE-CACHE*˜‘˜ŒSYSTEM˜“˜•Œ FUNCTIONS˜’ŒGET-CACHE-CLOSURE™˜“˜•Œ*˜•Œ;;˜Œ Utilities ˜“™ ˜’ŒINSTALL-CLOSURE-CACHE™˜’ŒDISABLE-CLOSURE-CACHE™˜“™ ˜’ŒCLEAR-CLOSURE-CACHE™˜’ŒSHOW-CLOSURE-CACHE˜‘˜ŒXEROX-COMMON-LISP˜“˜•ŒDECLARE:˜•Œ DONTEVAL@LOAD˜•ŒDONTEVAL@COMPILE˜•ŒDOCOPY˜“˜•ŒP˜“™'˜“˜’ŒFILE-ENVIRONMENTS™,˜Œ CLOSURE-CACHE ˜“˜”˜Œ16-May-90 12:36:15•Œ5{DSK}local>lde>lispcore>sources>CLOSURE-CACHE.;2˜–)o ¿g X‘Hl@g c™˜ŒDEFVAR SI::*CLOSURE-CACHE*™˜“€!˜’ŒMAKE-IMPLICIT-KEY-HASH-TABLE™,˜ŒBOUNDP˜ŒPROCLAIM˜ŒFIRST ™˜“˜ŒSPECIAL™œ™!˜–A@U X¹H‘Il ºJnðJÈå@ÒnÿåäÍ¿JjkØÐ@ÓÍ¿@UJ ¿J˜•Œ\INTERRUPTABLE™H™™!™˜“˜“˜Œ CODE-BLOCK8˜’ŒPUT-IMPLICIT-KEY-HASH™,˜’ŒGET-IMPLICIT-KEY-HASH™,œ™'˜– Q‘hic™H˜’Œ*CLOSURE-CACHE-ENABLED*™™'™˜“€œ™(˜–Qžhc¿¿ih™H™O™(™˜“€ ™*œ™*˜–noQ ¿Q ™H™™*™˜“€˜’ŒCLEAR-IMPLICIT-KEY-HASH™,˜’ŒIMPLICIT-KEY-MAP-HASH™,˜–@˜Œlambda in CLEAR-CLOSURE-CACHE˜ŒCLOSURE˜“˜“˜ŒBLOCK˜ŒCLOSURE˜•ŒCOMPILED-CLOSUREœ™-˜–Un¸emÿó”eló˜jl ¿edjð³kaHý¿kÙjð®laHý¿‹hHý¿iHý¿noHQ ™™-‚ÿÿÿÿ™˜“˜“˜Œ &OPTIONAL˜ŒLONG-P˜ŒSTREAMO™V˜’ŒARGUMENT-ERROR™D˜–2HÉžHÉoA ¿HÉo@ ¿HɘHÉ h˜Œlambda in SHOW-CLOSURE-CACHE™X˜“˜“˜ŒVAL˜ŒKEY*˜ŒTERPRI˜ŒFORMAT™l˜Œ Closure: ~s~%˜ŒCode block: ~s~%@™^˜•Œ \PTRHUNK2˜–˜Œ1 top-level form™˜“€™'˜–+ggo ¿ggg ˜Œ'DEFINE-FILE-ENVIRONMENT "CLOSURE-CACHE"™˜“€%™™ ˜Œ COMPILE-FILE˜•ŒFILETYPE™˜•ŒMAKEFILE-ENVIRONMENT™ ˜“™ ˜ŒXCL™ ˜ŒXCL˜– o ˜Œ1 top-level form™˜“€˜•ŒPUTPROPS˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚ÂÄ‚Æš‚†ÿÿ