‘XCL Compiler output for source file {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>CLOS>CURRENT>defsys.lisp;2 Source file created Saturday, 5 December 2020, 11:17:25. FASL file created Saturday, 5 December 2020, 11:18:39. ÿ˜–eogg X’H°ggo g X’H°ggo g h ˜Œ1 top-level form˜ŒFUNCTION˜“€_˜Œ IN-PACKAGEV˜Œ FIND-PACKAGEL˜Œ MAKE-PACKAGE3™)™™Q˜ŒLISPB˜ŒUSE=˜ŒITERATE.™™˜ŒWALKER ™ ™G˜“™™ $˜“™˜ŒCLOS˜–*g g g ˜Œ1 top-level form™˜“€$˜ŒEXPORT™˜ŒINTERN™˜Œ SYMBOL-NAME™ ™™˜–'o ¿g X‘Hg c˜’Œ*THE-CLOS-PACKAGE*˜‘™ ˜ŒDEFVAR *THE-CLOS-PACKAGE*™˜“€™˜ŒBOUNDP˜ŒPROCLAIM˜ŒCLOS ™˜“˜ŒSPECIAL™˜–"o ¿g X‘Hoc˜’Œ*CLOS-SYSTEM-DATE*™˜ŒDEFVAR *CLOS-SYSTEM-DATE*™˜“€™™ ™˜Œ5/10/91 Interim CLOS release˜“™™˜–iS¸h¹H‘H°4Yd3@ðœI oÌ€h²SºgS‘J†gJc¿H¸°Ê`gð™gScS¹gS‘I†gIc˜Œ *FEATURES*˜Œ2 top-level forms™˜“€™_˜Œ XEROX-MEDLEYU™'I˜Œ XEROX-LYRICB˜ŒLYRIC=˜•Œ MAKESYSNAME.˜ŒCMU$™+˜ŒCMU˜– o ˜ŒDEFVAR *SYSTEM-DIRECTORY*™˜“€™˜“™˜’Œ*SYSTEM-DIRECTORY*™˜–"o ¿g X‘Hoc˜’Œ*PORT*™˜Œ DEFVAR *PORT*™˜“€™™ ™3˜“˜’ŒXEROX™˜’Œ XEROX-MEDLEY™˜“™™3˜–"o ¿g X‘Hoc˜’Œ*PATHNAME-EXTENSIONS*™˜ŒDEFVAR *PATHNAME-EXTENSIONS*™˜“€™™ ™;˜”˜ŒlispŒdfasl˜“™™;œ˜’Œ GET-SYSTEM™˜– @ÁÉg'™B™˜“˜“˜ŒNAME˜’ŒSYSTEM-DEFINITION™œ˜’Œ SET-SYSTEM™˜–@gA ™H™˜“˜“˜ŒNAME˜Œ NEW-VALUE˜•ŒPUTPROP™Fœ˜’Œexpand-DEFSYSTEM™˜–‚†@X¹HZ»J¼ggIhggghKhhggLhhgL½h¾h_¿h_¿M¢N°M_¿N˜OO&_¿†Oh_¾M½°àhhh™O ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENTF˜ŒQUOTE:™T5˜’Œ MAKE-MODULES™'˜ŒLAMBDA"˜ŒFUNCTION˜ŒLIST™T™H˜–&gg ¿ggo ˜ŒDEFMACRO DEFSYSTEM™˜“€ ™M ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES˜’Œ DEFSYSTEM™™O™^˜“˜ŒNAME˜Œ DIRECTORY˜ŒFILES˜–Dgio ¿goolg ¿ggg ˜ŒDEFSTRUCT MODULE™˜“€>™M)˜’Œ%STRUCTURE-DECLARE-DATATYPE˜‘˜ŒSYSTEM ˜ŒSET-PARSED-STRUCTURE9˜ŒTYPE-EXPAND-STRUCTURE4˜Œ TYPE-EXPANDER/˜’ŒMODULE™#˜ŒSTRUCTURE-OBJECT™l™l˜“˜“™l˜•ŒPOINTER˜“™l™n˜“™l™n˜“™l™n˜“™n™n™n™n˜“˜ŒPS™l€˜“˜’ŒNAME™˜’ŒLOAD-ENV™˜’ŒCOMP-ENV™˜’ŒRECOMP-REASONS™˜ŒDATATYPE€€˜ŒMODULE-˜“˜“˜’Œ MAKE-MODULE™˜“™v˜’ŒMODULE-P™˜“™V˜“˜’ŒM™˜’ŒS™˜’ŒD™˜“˜ŒDECLARE˜“˜ŒIGNORE™‚„˜“˜ŒFORMAT™‚ƒ˜Œ #˜“˜’Œ MODULE-NAME™™‚‚˜’Œ COPY-MODULE™€€˜“˜“™v€€™o™‚Œ˜“™w€€™p˜’ŒMODULE-LOAD-ENV™˜“™x€€™q˜’ŒMODULE-COMP-ENV™˜“™y€€™r˜’ŒMODULE-RECOMP-REASONS™€€™t€˜“˜ŒACCESSOR˜Œ PREDICATE€€€œ™‚˜–@Ù‚™˜“˜“˜ŒOBJECT™l˜–"g ¿g ¿g ™d™˜“€˜ŒESTABLISH-SETFS-AND-OPTIMIZERS˜ŒESTABLISH-ACCESSORS˜ŒESTABLISH-PREDICATE™l ™l™lœ™}˜–`X@¿Hh¿Hh¿Hh¿H™}™˜“˜“˜ŒNAME˜’Œ MODULETYPE#™œ™‚˜–H@¸@Ñ°igHgh b¿°ß`X@É¿H@É¿H@É¿H@É¿H™‚™˜“˜“˜ŒMODULE˜•ŒCHECK-TYPE-FAIL$™‚ª™l ™l™lœ™U—˜–‚ÍnX¿hHý¿@¹hºI‘I°kZ»J¼h½L‘h€i^‘NƒLW²JKkoH-]JkoH-¿MJkoH-¿MJkoH-¿I¹°“@ºh¹h»h¼J¢I°J¼I”KL&»„Lh[¹Jº°èHý¿HÉnoHgg ™3™U™˜“˜“˜ŒSYSTEM-DESCRIPTION‚ǘŒSORT‚˜ŒSYMBOL-FUNCTION‚½™‚Œ‚¸˜ŒKEYf™lQ™l=™l‚®˜– A@HɘŒlambda in MAKE-MODULES˜ŒCLOSURE˜“˜“˜ŒNAME1˜ŒNAME2‚ª˜•ŒCOMPILED-CLOSURE˜•Œ \PTRHUNK2™‚Àq˜–‚ÙnHY¿@ið™HÉ @Zgð²;HÉ @»h¼h½h¾K¢L°KkoH-¾L”MN&½„Nh]¼K»°á Jgð²N@»h¼h½h¾K¢L°KkoH-¾L”MN&½„Nh]¼K»°áIý¿noIHÉ @»h¼h½h¾K¡LKkoH-¾L”MN&½„Nh]¼K»°â˜Œ PARSE-SPEC™‚¸˜“˜“˜ŒSPEC‚«˜Œ REMOVE-IF‚¦˜ŒREVERSEV˜ŒAPPEND'™‚Æ™‚Æ]˜Œ-˜Œ+‚˜˜–@HɘŒlambda in PARSE-SPEC™‚¸˜“˜“˜ŒM‚”™‚¾™‚¿™‚À[™‚Ï™‚ÀF™‚Ï™‚Ï‚À˜–/@HÉgg Y‘I@ HÉdHý¿˜Œ GET-MODULE™‚¸˜“˜“˜ŒNAME™}˜ŒFIND™‚µ ™‚Œ™‚¶™‚Ïv™‚Õ™‚Ï=™‚Õ™‚À5™‚Õœ˜’ŒMAKE-TRANSFORMATIONS™˜–+hh¸@¹hºI‘I°ZHlA–JHlB¿I¹°èH ™‚Ö™˜“˜“˜ŒMODULES˜ŒFILTER˜ŒMAKE-TRANSFORM%™‚Æœ˜’ŒMAKE-COMPILE-TRANSFORMATION™˜–‚nX@¿A¹hºI‘I‚h°Zgð™JHÉð‘i„I¹°â‘hHÉɺh¹J‘J€YA ¿Jº°ïA¹noHA ºIJ¿gHÉhA¹AI™‚Ý™˜“˜“˜ŒMODULE˜Œ TRANSFORMSc™‚ÅF˜’ŒMAKE-LOAD-TRANSFORMATION™m˜ŒCOMPILE4™l™‚ãW˜–@gð—@HÉðh˜Œ%lambda in MAKE-COMPILE-TRANSFORMATION™‚¸˜“˜“˜ŒTRANS˜ŒLOADS™‚¾™‚¿˜–o ¿g X‘Hhc˜’Œ*BEING-LOADED*™˜ŒDEFVAR *BEING-LOADED*™˜“€™™ ™‚똓™™‚뜙‚☖~@V²@Aº@V»JK @AV@¹nÀ½Aºh»J‘J‚h°[gð•K@ð€h‘i„Jº°â‘h@É»hºK‘K€ZA ¿K»°ïg@hAºAJ˜’Œ*CATCH-RETURN-PC*™g™‚똒Œ*CATCH-RETURN-TO*™g™‚뙂♘“˜“˜ŒMODULE˜Œ TRANSFORMSa™‚☒ŒINTERNAL-THROW™gl™‚èO™l5™‚蜘’Œ-MAKE-LOAD-WITHOUT-DEPENDENCIES-TRANSFORMATION™˜–8A¸h¹H‘H‚h°Ygð—I@ð‘I„H¸°ä‘hg@hA¹AI™‚ø™˜“˜“˜ŒMODULE˜Œ TRANSFORMS&™‚虂蜘’ŒCOMPILE-FILTER™˜–‚…@ɸh¹H‘H‚h°0¹Aºh»J‘J‚h°[gð•KIð€h‘i„Jº°â‘i„H¸°ÍY‘I@É ‘h€iX‘H@É @É ó™‚þ™˜“˜“˜ŒMODULE˜Œ TRANSFORMS~˜ŒFILE-WRITE-DATEy˜’ŒMAKE-BINARY-PATHNAME™l™‚g˜’ŒMAKE-SOURCE-PATHNAME™R˜Œ PROBE-FILEM™‚r™l`™lF™l#™‚ã™lœ˜’ŒOPERATE-ON-SYSTEM™—˜–‚nXBC¿@ Y«o@ ¿jIIºh»Agð²Jg g ±þAgð² Jnog ±×Agð²#JnoHg ±­Agð² Jnog ±†Agð²Jnog °_Agð²Jnog °9Agð²Jnog °hgAo »K¡iK½K»M]^gðMkoH-¿°*NgðMkoH-¿°hoNo ¿°µ™0™‚™˜“˜“˜ŒNAME˜ŒMODE˜Œ &OPTIONAL˜ŒARG˜Œ PRINT-ONLY‚•˜•Œ ECASE-FAIL‚J™‚‚7™‚Ö‚2™‚µ‚™‚Ö‚ ™‚µ‚뙂ւ時µ‚Ä™‚Ö‚¿™‚µ‚™‚Ö‚˜™‚µs™‚Ön™‚µL™‚ÖG™‚µ=™‚µ˜ŒERROR™B‚t™‚è‚^™‚ã‚?˜’ŒMODE™‚-™‚ø‚˜Œ QUERY-LOAD‚™‚â‚ó™‚è‚ᙂ݂͘ŒCONFIRM-COMPILE‚º™‚Ý‚¦˜Œ QUERY-COMPILE‚“™‚Ý|˜ŒRECOMPILE-SOMEi™‚ÝU˜Œ RECOMPILEB™‚Ý8™‚þ/™‚゘“™‚㙂è‚Š˜“˜ŒCAR˜’Œ TRANSFORM™‚E˜“™‚㙂™‚™‚™‚™‚虂‚&˜–o@É ˜Œlambda in OPERATE-ON-SYSTEM™‚¸˜“˜“˜ŒM˜Œ TRANSFORMS˜ŒY-OR-N-P™l˜ŒLoad ~A?‚Ú˜–@A ²o@É h˜Œlambda in OPERATE-ON-SYSTEM™‚¸˜“˜“˜ŒM˜Œ TRANSFORMS™‚"™‚þ™l ˜ŒGo ahead and compile ~A?‚³˜–@A X‘Ho@É ˜Œlambda in OPERATE-ON-SYSTEM™‚¸˜“˜“˜ŒM˜Œ TRANSFORMS™‚"™‚þ™l ˜Œ Compile ~A?‚‰˜–@ÉHÉY‘I@A ˜Œlambda in OPERATE-ON-SYSTEM™‚¸˜“˜“˜ŒM˜Œ TRANSFORMS™‚þ™l˜ŒCan't find system with name ~S.‚"™‚¾‚ü™‚¾‚Ö™‚¾‚¯™‚¾‚…™‚¾^™‚¾™‚¿™‚:‚˜– @ɹI »IKloH-˜Œ*LOAD-VERBOSE*˜Œ LOAD-MODULE™‚¸˜“˜“˜ŒM™‚™l™‚@˜–io@ ¿HɹHÉ‘IA ˜Œ LOAD-BINARY™‚¸˜“˜“˜ŒNAME˜ŒPATHNAME˜ŒLOAD™‚Š˜Œ~&Loading binary of ~A...™‚:‚i˜–Nio@É ¿HÉ‘h@ÉY ggI gg ˜ŒCOMPILE-MODULE™‚¸˜“˜“˜ŒMH˜Œ COMPILE-FILEC˜Œ MAKE-PATHNAME4™‚$™‚™‚Š>˜ŒNEWEST9˜ŒVERSION.˜ŒDEFAULTS)˜Œ OUTPUT-FILE™l™l˜Œ~&Compiling ~A...™‚:‚˜–i˜ŒTRUE™‚¸˜“€™‚:b™‚Wœ™‚˜– @g ™‚™˜“˜“˜ŒNAME˜’ŒMAKE-PATHNAME-INTERNAL™˜ŒSOURCEœ™‚˜– @g ™‚™˜“˜“˜ŒNAME™‚[˜ŒBINARYœ™‚[˜–‚½Agð“T°Agð“T°hgAo ¸S¹SºS ’S°RSÃ’S°HJò-Agð“S°4Agð“S°(hgAo °hgIoh  ¹g@ gHgIgg Z™0™;™‚[™˜“˜“˜ŒNAME˜ŒTYPE‚¶™‚N‚š˜ŒSTRING-DOWNCASE‚•˜ŒSTRING‚‰˜ŒPATHNAME‚„™‚¯o™‚0˜ŒSTRINGP%™‚‚°™‚O‚«™‚P‚¥™‚Q‚Ÿ˜ŒTYPE‚˜ŒNAMEw™0d˜ŒTYPEX™‚aL™‚\D˜•ŒLISTP:™‚i™‚m™‚a™‚\}˜“˜ŒOR™‚h™‚i˜ŒCONSj˜“™‚\™‚a ˜“™‚\™‚aœ˜’Œ LOAD-TRUENAME™—˜–"nX@¿R Y‘I‡joH- ˜Œ*STANDARD-INPUT*™‚u™˜“˜“™‚ ˜ŒERRORP™‚i ˜•ŒFULLNAME™‚¿™‚{˜–HÉšo h˜ŒBAD-TIME™‚¸˜“€ ™‚˜Œ3LOAD-TRUENAME called but a file isn't being loaded.˜–1o ¿g X‘Hi Y‘I‰o c˜’Œ*CLOS-DIRECTORY*™˜ŒDEFVAR *CLOS-DIRECTORY*™˜“€)™‚™‚u™™ ™‚€$˜Œ‚ÌBecause load-truename is not implemented in this port~%~ of CLOS, you must manually edit the definition of the~%~ variable *clos-directory* in the file defsys.lisp.˜“™™‚€˜–*gnoo oh ˜Œ1 top-level form™˜“€$™H™U˜’ŒCLOS™˜“&˜’ŒPATCH™˜’ŒPKG™˜’ŒWALK™˜’ŒITERATE˜‘˜ŒITERATE˜’ŒMACROS™˜’ŒLOW™˜’ŒLOW2™˜’ŒFIN™˜’ŒDEFCLASS™˜’ŒDEFS™˜’ŒFNGEN™˜’ŒLAP™˜’ŒPLAP™˜’ŒCACHE™˜’ŒDLAP™˜’ŒBOOT™˜ŒVECTOR˜’ŒSLOTS™˜’ŒINIT™˜’Œ STD-CLASS™˜’ŒCPL™˜’ŒBRAID™˜’ŒFSC™˜’ŒMETHODS™˜’ŒCOMBIN™˜’ŒDFUN™˜’ŒFIXUP™˜’Œ DEFCOMBIN™˜’ŒCTYPES™˜’Œ CONSTRUCT™˜’ŒENV™˜’ŒCOMPAT™˜’ŒPRECOM1™˜’ŒPRECOM2™˜’ŒPRECOM4™˜’ŒCLOS-ENV™˜’Œ WEB-EDITOR™˜’ŒNEW-CLOS-BROWSER™˜“&˜“™‚‰€™6˜“™‚Š€˜“™‚‹˜“™‚Š˜“™‚Š€˜“™‚Ž€˜“™‚€˜“™‚˜“™‚Š™‚˜“™‚˜“™‚‘˜“™‚˜“™‚˜“™‚™6˜“™‚’˜“™‚˜“™‚“˜“™‚˜“™‚”˜“™‚“™‚™‚Ž˜“™‚•˜“™‚˜“™‚–˜“™‚˜“™‚—˜“™‚˜“™‚˜˜“™‚™‚”˜“™‚™˜“™‚”™‚™‚’™‚˜™‚–˜“™‚š˜“™‚”™‚’˜“™‚›˜“™‚š™‚”™‚˜™‚’˜“™‚œ˜“™‚›™‚š™‚”™‚™‚˜™‚’˜“™‚˜“™‚›™‚š™‚”™‚™‚˜™‚’˜“™‚ž˜“™‚›™‚š™‚”™‚™‚˜™‚’™‚œ˜“™‚Ÿ˜“™‚›™‚š™‚”™‚™‚˜™‚’™‚œ˜“™‚ ˜“™‚š™‚”™‚™‚’™‚˜˜“™‚¡˜“™‚“™‚š™‚”™‚™‚’™‚˜˜“™‚¢˜“™‚“™‚š™‚”™‚™‚’™‚˜˜“™‚£˜“™‚“™‚š™‚”™‚™‚’™‚˜˜“™‚¤˜“™‚™˜“™‚¥˜“™‚É™‚«™‚¬™‚­˜“™‚š™‚”™‚™‚’˜“™‚¦˜“™‚“™‚š™‚”™‚™‚’˜“™‚§˜“™‚“™‚¦˜“™‚¨˜“™‚“™‚š™‚”™‚˜“™‚©˜“™‚“™‚š™‚”™‚™‚’˜“™‚ª€˜“™‚«˜“™‚™˜“™‚”™‚™‚˜™‚’™‚¤˜“™‚¬˜“™‚™˜“™‚”™‚™‚˜™‚’™‚¤˜“™‚­˜“™‚™˜“™‚”™‚™‚˜™‚’™‚¤˜“™‚®€™6˜“™‚¯€™6˜“™‚°€™6 ˜–P™‚€˜Œlambda in 1 top-level form™‚¸˜“€™‚¾œ˜’Œ COMPILE-CLOS™˜–‚³@¢± @gð²gghi @gðŸgg @gðŸgg @iðŸgg @‘h€iX‘H…@‘i€h²gg@ @d3@ð²gg@h hgg ™‚™˜“˜“™‚ ˜ŒM‚­™‚‚›™‚‚™‚_™‚K™‚3™‚™‚‚¨™‚ã‚£™‚ˆ‚“™‚‚Ž™‚ˆ{˜Œ COMPILE-FROMv™‚ˆZ™‚U™‚ˆF™‚A™‚ˆ:˜ŒCONFIRM.™‚)™‚ˆ"˜ŒQUERY™‚㙂ˆ˜ŒPRINTœ˜’Œ LOAD-CLOS™˜–D@²@gð²#gg ¿gg ¿Q¸gQ‘H†gHc™$™‚ ™˜“˜“™‚ ˜ŒM(™‚™‚:™0™#™‚虂ˆ™‚ ™‚ˆ™‚ œ˜’ŒBUG-REPORT-INFO™˜–5emÿó“ekó—jk ¿ejð£ka¸Q¸HoRS ˜Œ*STANDARD-OUTPUT*™™$™‚‚ÿÿÿÿ™˜“˜“™‚ ˜ŒSTREAM/™‚Š(˜ŒLISP-IMPLEMENTATION-VERSION#˜ŒLISP-IMPLEMENTATION-TYPE ˜’ŒARGUMENT-ERROR™g˜Œ‚¡~&CLOS system date: ~A~ ~&Lisp Implementation type: ~A~ ~&Lisp Implementation version: ~A~ ~&*features*: ~Sœ˜’Œ RENAME-CLOS™˜–>g ¸h¹H‘Hh¹hºh»UI ºI »JK ¿H¸°Ô™0˜Œ*DEFAULT-PATHNAME-DEFAULTS*™‚™˜“€3˜Œ RENAME-FILE+™‚"™‚™B™‚ˆš‚ ÿÿ