‘XCL Compiler output for source file {DSK}larry>medley>sources>CMLENVIRONMENT.;2 Source file created 12-Aug-2022 12:31:32 FASL file created Friday, 12 August 2022, 12:32:14 ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜ŒPACKAGE˜ŒLISP˜Œ READTABLE˜ŒXCL˜ŒBASE ˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•ŒCMLENVIRONMENTCOMS˜•Œ FILEDATES˜•ŒCMLENVIRONMENT˜“˜“˜•Œ*˜•Œ;;˜ŒMisc environmental functions:˜“˜•Œ FUNCTIONS˜ŒLISP-IMPLEMENTATION-TYPE˜ŒLISP-IMPLEMENTATION-VERSION˜ŒMACHINE-INSTANCE˜ŒMACHINE-VERSION˜Œ SOFTWARE-TYPE˜ŒSOFTWARE-VERSION˜Œ MACHINE-TYPE˜“˜•Œ VARIABLES˜’Œ*SHORT-SITE-NAME*˜‘˜ŒXEROX-COMMON-LISP˜’Œ*LONG-SITE-NAME*™&˜“™˜ŒSHORT-SITE-NAME˜ŒLONG-SITE-NAME˜“™˜ŒROOM˜“˜•ŒCOMS˜“™™˜ŒCFunctions for printing the system information for Customer Support:˜“˜•ŒFNS˜•ŒPRINT-LISP-INFORMATION˜•ŒPRINT-LOADED-FILE-INFORMATION˜“™$˜Œ *FEATURES*˜“˜•ŒPROP˜“˜•ŒMAKEFILE-ENVIRONMENT˜•ŒFILETYPE™ ˜“˜”˜Œ12-Aug-2022 12:31:32•Œ1{DSK}larry>medley>sources>CMLENVIRONMENT.;2œ™˜–o™™˜“€˜Œ Venue Medleyœ™˜–0g` o` o` ™™˜“€*˜Œ CONCATENATE˜•ŒMKSTRING ˜ŒSTRING-CAPITALIZE$˜•Œ MAKESYSDATE˜•ŒLISP-RELEASE-VERSION˜•Œ MAKESYSNAME˜ŒSTRING˜Œ sysout of ˜Œ œ™˜–z`lð²>hoo X‘H‰o o X‘H‰o `¸ho`•€hHl çHlçÔHÔ ™™˜“€t˜ŒFORMATY˜•Œ ETHERHOSTNAMEA™R<˜•Œ UNIX-GETENV.˜•Œ UNIX-GETPARM$™T™US˜•Œ \PUP.READYG˜•Œ\MY.NSHOSTNUMBER˜•Œ \MACHINETYPEN˜Œ ~@[~A = ~]~O#7˜ŒHOSTNAME)˜ŒHOSTNAME˜ŒHOSTID˜ŒHOSTID ˜Œ~A ~Aœ™˜–YXgð²6hoo oÖÔ kl  ho ™™˜“€ S™RN˜•ŒREALMEMORYSIZEI˜•ŒMICROCODEVERSION=™R8™a3˜•Œ SUBSTRING+˜•ŒGDATE$™b˜•ŒIDATE˜•Œ MACHINETYPE˜•ŒMAIKOD˜Œ&Microcode version: ~D, memory size: ~D‚Q€˜Œ14-OCT-87 12:00:00˜Œ%Emulator created: ~A, memory size: ~Dœ™ ˜–o™ ™˜“€˜Œ Envos Medleyœ™!˜–!goPoP ˜•Œ MAKEINITDATES™!™˜“€™G™™M˜Œ, ˜Œ, Make-init dates: œ™"˜–\`lð•o`lð•o`lð•o`lð²o X‘Ho  ™"™˜“€V™HQ™fK™T=™U.™X™X™X™XF˜ŒMACH8˜ŒMACH(˜Œ Xerox 1186˜Œ Xerox 1132 ˜Œ Xerox 1108˜–o ¿g X‘Hhc™'˜ŒDEFVAR XCL:*SHORT-SITE-NAME*™˜“€˜ŒBOUNDP˜ŒPROCLAIM ™'˜“˜ŒSPECIAL™'˜–o ¿g X‘Hhc™(˜ŒDEFVAR XCL:*LONG-SITE-NAME*™˜“€™}™~ ™(˜“™™(œ™*˜– Q¸Q‘Ho™'™*™˜“€˜ŒUnknownœ™+˜–R¸R‘HS¹S‘Io™(™'™+™˜“€ ˜ŒUnknownœ™-˜–‚úemÿó”eló˜jl ¿edjð³ka¸i¹kÙdjð³laºkÙjð¯la»Œh¸h¹I‘hlºh»¼ldLÖ ½`l2Ôld ¾ldNmÿçÔN Õ_¿ioM ¿ioO ¿H‘H„J‘J€K²[i ¿J‘J€K²:io ¿JioJK ¿KioJK ¿io ¿H—Hið‘h‚H€hJK h™-‚ÿÿÿÿ™˜“˜“˜Œ &OPTIONAL˜ŒTYPES˜Œ PAGE-LIMIT˜Œ IN-USE-LIMIT‚ò˜•ŒSTORAGE‚ß™R‚Ó™R‚ÙR‚³™R‚ ˜ŒTERPRI‚Ž™R‚€™Rp˜’ŒSROUND™&e˜•ŒVMEMSIZE]™‚”M˜•ŒFIXRA˜•Œ STORAGE.LEFT˜’ŒARGUMENT-ERROR˜‘˜ŒSYSTEMS˜•Œ\LASTVMEMFILEPAGE‚Ú˜Œ:~%~%‚̘Œ(~:[~; and at least~] ~D instances in use‚¼˜Œ ~D pages allocated‚®˜ŒDatatypes with at least‚‡˜ŒVmem remaining:~25t~a%~%z˜ŒData area remaining:~25t~a%~%œ™3˜–.g@‘@€i hhhnokoh-˜’Œ *RESETFORMS*™‚™™M˜•ŒFILE™3™˜“˜“™‚Œ™‚¤™M˜Œ INTERLISP ˜•ŒOUTPUT™‚¨&˜–‚Úh ¿oh ¿h ¿oh ¿h ¿oh ¿h ¿oh ¿oh ¿h ¿oh ¿h ¿oh ¿h ¿h ¿oh ¿QP‘P„o j@¿ ™M™‚¤˜’Œ*UNWIND-PROTECT*™‚™˜ŒCLOSURE˜“˜“˜ŒG1526‚Ô˜Œ VALUES-LIST‚˘•Œ\MVLIST‚Æ™4‚¶˜•ŒPRIN1‚ª˜•ŒTERPRI‚£™‚°‚™!‚—™‚°‚‹™‚°‚…™ ™‚°s™‚°m™g™‚°[™‚°O™‚°I™C™‚°7™‚°1™"+™‚°™‚°™™‚°™‚°™ ‚Á˜ŒPATCH‚°˜Œ Patch files: ‚‘˜Œ version y˜Œ based on a˜Œmachine U˜Œ, =˜Œ, %˜Œ on ˜Œ version ˜–˜ŒClean-up forms™‚ª˜“€˜’Œ RESETUNWIND™‚™˜•ŒCOMPILED-CLOSUREœ™4˜–h`¸h¹H[‘K°TºA‘A„oJ ¡°;J @ ¿o@ ¿J g @ ¿@ ¿H¸°¨I˜•ŒX™M™‚¤™4™˜“˜“™‚Œ™‚¤™M™‚¦[™‚±T™‚°L˜•ŒGETPROPB˜•Œ NAMEFIELD;™‚°/™‚°)™‚Æ ˜•ŒSTRPOSG™˜•Œ LOADEDFILELST5˜Œ dated ˜ŒPATCH˜–o ¿oc™7˜ŒDEFPARAMETER *FEATURES*™˜“€™~ ˜“™‚¦˜ŒXEROX˜ŒCOMMON˜ŒIEEE-FLOATING-POINT˜ŒMEDLEY˜“™™7˜–"o ¿o ¿o ˜Œ3 top-level forms™˜“€˜•ŒPUTPROPS™‚×™‚ט“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚‚ÂÄ‚Æ‚É ˜“™™;˜Œ COMPILE-FILE˜“™™:˜“™ ˜ŒXCL™ ˜ŒLISPš‚ãÿÿ