‘XCL Compiler output for source file {DSK}export>lispcore>sources>CLTL2>CMLMODULES.;1 Source file created Friday, 22 October 1993, 15:09:59. FASL file created Tuesday, 2 November 1993, 22:15:17. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜Œ READTABLE˜ŒXCL˜ŒPACKAGE˜ŒLISP˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•ŒCMLMODULESCOMS˜•Œ FILEDATES˜•Œ CMLMODULES˜“˜“˜•Œ VARIABLES˜Œ *MODULES*˜“˜•Œ FUNCTIONS˜ŒPROVIDE˜ŒREQUIRE˜“˜•ŒPROP˜•ŒFILETYPE™˜“™˜•ŒMAKEFILE-ENVIRONMENT™ ˜“˜”˜Œ22-May-91 09:10:07•Œ0{DSK}sources>lispcore>sources>CMLMODULES.;2˜–1o ¿g X£hc¿ggo ™˜ŒDEFVAR *MODULES*™˜“€+˜•ŒSET-DOCUMENTATION˜ŒBOUNDP˜ŒPROCLAIM!˜ŒVARIABLE™ ™&˜Œ7A list of all modules currently provided to the system.˜“˜ŒSPECIAL™œ™˜–+@d3@ð˜@ b¿@Pgg c¿@™™™˜“˜“˜Œ MODULE-NAME!˜ŒADJOIN˜ŒSYMBOL-FUNCTION˜Œ SYMBOL-NAME˜ŒSTRING=˜ŒTEST˜–ggo ˜Œ DEFUN PROVIDE™˜“€™)˜ŒFUNCTION™ ˜Œ3Declare that module-name is provided to the system.œ™—˜–‚ŸnX@¿HÉVgg ‘hhHý¿A¹AºA²KA»AÃ\‘LK ]‘M…KÔAh°.J‘h€i[‘K…JÃ’A°hgIoh „HÉh¹hºI‘I‡hZ[‘KiZkoH-¿I¹°æ™™™˜“˜“˜Œ MODULE-NAME˜Œ &OPTIONAL˜ŒPATHNAMEu˜•ŒCHECK-TYPE-FAIL?˜ŒSTRINGP˜ŒMEMBER™5h˜ŒPATHNAME^˜•ŒLISTPI™G5˜•ŒLITATOM™7™8n˜“˜ŒOR˜ŒNULL˜“™J˜ŒSYMBOL˜ŒSTRING™G˜ŒLIST˜•Œ \PTRHUNK2™R‚’˜–5@SloH-Y‘I@hhloH-Z‘Joo@HÉ ˜•Œ*COMPILED-EXTENSIONS*˜ŒTRY˜ŒCLOSURE˜“˜“˜ŒPATHNAME/˜ŒCERROR&˜Œ*Can't find file ~S for required module ~S.!˜ŒDon't load file ~S~*.™\˜–GUV¹hºI‘IhºA»h¼K‘K°+¼@gLgJ koH-‘iK»°ÓI¹°Â˜Œ*DEFAULT-PATHNAME-DEFAULTS*˜•Œ DIRECTORIES˜ŒTRY-MANY™U˜“˜“˜ŒPATHNAME˜ŒTYPES-˜ŒMERGE-PATHNAMES(˜Œ MAKE-PATHNAME"˜ŒDEFAULTS˜ŒTYPE™\™h™h3˜–w@HÉgg ‘h@HÉHý¿@ ²Ngho@ @ g@ g@ ` ¦@ ¿ih˜ŒTRY-ONE™U˜“˜“˜ŒPATHNAME m˜ŒLOADf˜ŒFIND\˜•Œ PACKFILENAMEV˜ŒPATHNAME-VERSIONK˜Œ PATHNAME-NAME@˜ŒFORMAT;˜ŒPATHNAME-DIRECTORY5˜Œ PATHNAME-HOST"˜Œ PROBE-FILE™Fa˜•Œ LOADEDFILELSTP˜•ŒVERSIONE˜•ŒBODY)˜•Œ DIRECTORY ˜ŒEQUAL™8/˜Œ{~a}~a˜–ggo ˜Œ DEFUN REQUIRE™˜“€™)™<™ ˜Œ‚þDeclare that module-name is needed. If already loaded do nothing. If not, load using the pathname, which is a single pathname or list of pathnames. If pathname is not provided use the system default paths (*default-pathname-defaults* and directories).˜–"o ¿o ¿o ˜Œ3 top-level forms™˜“€˜•ŒPUTPROPS™‚ƒ™‚ƒ˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚‚ÂÄ‚Æ‚Ç ˜“™™ ˜“™ ˜ŒXCL™ ˜ŒLISP˜“™™˜Œ COMPILE-FILEš‚ÿÿ