‘XCL Compiler output for source file {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>CLOS>CURRENT>defcombin.lisp;1 Source file created Tuesday, 25 June 1991, 13:46:00. FASL file created Friday, 4 December 2020, 19:46:04. ÿ˜– g ˜Œ1 top-level form˜ŒFUNCTION˜“€˜Œ IN-PACKAGE˜’ŒCLOS˜‘˜ŒUSERœ˜’Œ expand-DEFINE-METHOD-COMBINATION˜‘˜ŒCLOS˜–*@²@X‘h€iY‘I‡H‘i‚h€h–@ @ ™ ™˜“˜“˜Œ $$MACRO-FORM˜Œ$$MACRO-ENVIRONMENT$˜’ŒEXPAND-SHORT-DEFCOMBIN™ ˜’ŒEXPAND-LONG-DEFCOMBIN™ ˜–&gg ¿ggo ˜Œ"DEFMACRO DEFINE-METHOD-COMBINATION™˜“€ ˜•ŒPUTPROP ˜•ŒSETF-MACRO-FUNCTION˜•ŒARGNAMES˜’ŒDEFINE-METHOD-COMBINATION™ ™ ™˜“˜Œ&WHOLE˜ŒFORM˜Œ&REST˜ŒARGS˜–‚gghggghihohhhno ¿ggogggoghgohgggoghgohhhh ¿gghihohhhno ¿gghghohhhno ˜Œ4 top-level forms™˜“€‚˜’ŒLOAD-DEFMETHOD™ ‚Ô™ ‚¬˜’Œ LOAD-DEFCLASS™ 7™ ‚嘒ŒSHORT-METHOD-COMBINATION™ ‚ߘ’ŒSHORT-METHOD-COMBINATION-P™ ‚Ú˜’ŒSTANDARD-METHOD™ ‚·™#‚²™$‚“˜ŒINITARGS‚˜ŒWRITERS‚ƒ˜ŒREADERS~˜’ŒIDENTITY-WITH-ONE-ARGUMENT™ y˜ŒNAMEf™%`™&V™'Q˜’ŒOPERATOR™ L™)B˜’ŒSTANDARD-CLASS™ =™"˜’ŒSTANDARD™ ˜ŒEQL ˜’ŒGENERIC-FUNCTION™ ˜’ŒFIND-METHOD-COMBINATION™ ™$ ‚ø˜–i˜Œlambda in 4 top-level forms˜ŒCLOSURE˜“˜“˜ŒX‚옓˜’ŒX™ ‚̘–h˜Œlambda in 4 top-level forms™1˜“˜“˜ŒX‚À˜“™6‚˜˜“˜ŒIDENTITY-WITH-ONE-ARGUMENT‚ˆ˜“˜’Œ,SHORT-COMBINATION-IDENTITY-WITH-ONE-ARGUMENT™ k˜“˜ŒOPERATOR[˜“˜’ŒSHORT-COMBINATION-OPERATOR™ G˜“˜’ŒSTANDARD-METHOD-COMBINATION™ /˜–Bšo ¿P˜’Œ*STANDARD-METHOD-COMBINATION*™ ˜Œlambda in 4 top-level forms™1˜“˜“˜ŒGENERIC-FUNCTION˜ŒTYPE˜ŒOPTIONS˜’ŒMETHOD-COMBINATION-ERROR™ ˜Œ8The method combination type STANDARD accepts no options.#˜“™.˜ŒTYPE˜’ŒOPTIONS™ ‚ô˜•ŒCOMPILED-CLOSURE‚È™U+™Uœ™˜–t@¸@go ¹@g'º@gH »gHhoggHhgKhgJhgIhh ™™˜“˜“˜ŒWHOLEn˜’ŒMAKE-TOP-LEVEL-FORM™ +˜ŒGETF™[ _˜ŒQUOTEV™\M™\D™\?˜’ŒLOAD-SHORT-DEFCOMBIN™ 1™%™B™>˜Œ DOCUMENTATION:˜“˜ŒLOAD˜ŒEVAL ˜Œœ™]˜–‚ÁnXABC¿¹g gg@ Thºg hJh »hHý¿gghgJgognoHgg@hIh Hý¿K²g K ¿g HÉ ˜’Œ *THE-CLASS-T*™ ™]™˜“˜“˜ŒTYPE˜ŒOPERATOR˜ŒIOA˜ŒDOC ‚»˜’Œ ADD-METHOD™ ‚³˜ŒSYMBOL-FUNCTION‚¨˜’Œ REMOVE-METHOD™ ‚¢™l‚˜’Œ MAKE-INSTANCE™ C˜’Œ GET-METHOD™ ;™l+™n˜’Œ FIND-CLASS™ ˜’Œ LOAD-TRUENAME™ ‚®™/‚™/‚‚™}˜ŒDEFINITION-SOURCEj™`˜Œ LAMBDA-LISTZ˜Œ SPECIALIZERST˜Œ QUALIFIERSO™$6™/%˜ŒOBJECT ˜’ŒEQL-SPECIALIZER™ ™.s˜–ABHÉHÉHÉHÉ ˜Œlambda in LOAD-SHORT-DEFCOMBIN™1˜“˜“˜ŒGF˜ŒTYPE˜ŒOPTIONS˜’ŒDO-SHORT-METHOD-COMBINATION™ e˜“™.™R™So™U˜•Œ \PTRHUNK4œ™~˜–]A²#AoÌX³!AoÌY³o@ ¿‡ob¿gg@gAgBgCgDgE ™~™˜“˜“˜ŒTYPE˜ŒOPTIONS˜ŒOPERATOR˜ŒIOA˜ŒMETHOD˜ŒDOCW™n™OP™^J™rD™>>™B8˜ŒOPTIONS2˜ŒTYPE-™"%˜“˜ŒMOST-SPECIFIC-FIRST˜Œ‚ÅIllegal options to a short method combination type.~%~ The method combination type ~S accepts one option which~%~ must be either :MOST-SPECIFIC-FIRST or :MOST-SPECIFIC-LAST.˜“˜ŒMOST-SPECIFIC-LAST˜“™‚˜–|gghggihohhhno ¿ggogggoghgohhhh ˜Œ2 top-level forms™˜“€v™!/™ ^™%X™&N™'I˜ŒFUNCTIOND™):™+5˜’ŒLONG-METHOD-COMBINATION™ ™" ™.˜’ŒCOMPUTE-EFFECTIVE-METHOD™ ™$c˜“™S˜“˜’Œ LONG-METHOD-COMBINATION-FUNCTION™ ?˜“™F'—˜–‚FnX¿A Hý¿A ¹A ºh»h¼B½h¾M‘M°g^ _²GO²NoloH-¿°/Ogð•NK»°OHÉð”NL¼NoloH-¿NoloH-¿M½°—K »L \‘h„J‘i€hŸgLo°BIL¾h½h_¿h_¿N¢M°/N_¿gOo_¿M˜OO&_¿†Oh_½N¾°Ð¾L²%K² gKKgNhh hNgogHÉhg@hh˜Œlambda in 2 top-level forms ™1˜“˜“˜ŒGENERIC-FUNCTION˜ŒCOMBIN˜ŒAPPLICABLE-METHODS‚˜ŒAPPEND‚›˜ŒNREVERSE‚”™‚¤0˜’ŒMETHOD-QUALIFIERS™ ™@™D˜’ŒMETHOD-COMBINATION-TYPE™ ‚7™\‚,™\‚"˜ŒERROR‚ ˜’Œ MAKE-METHOD™ ‚˜’Œ CALL-METHOD™ ‚Ò™‚©‚«™‚©S˜ŒAROUND‚'˜Œ*No ~S methods for the generic function ~S.‚Ù˜“€‚²˜“€˜Œhas no qualifiersn˜Œhas an illegal qualifier?˜Œhas more than one qualifier˜•Œ \PTRHUNK2™‚²‚†˜–@o@AHÉHÉ ˜ŒLOSE™1˜“˜“˜ŒMETHOD˜ŒWHY˜’ŒINVALID-METHOD-ERROR™ ˜Œ‚*The method ~S ~A.~%~ The method combination type ~S was defined with the~%~ short form of DEFINE-METHOD-COMBINATION and so requires~%~ all methods have either the single qualifier ~S or the~%~ single qualifier :AROUND.™‚²u™‚º™‚²F™‚º˜“™.˜’ŒCOMBIN™ ˜’ŒAPPLICABLE-METHODS™ #™Uœ™˜–‚¬@¸@¹@º@»h¼h½K‘i€h™Kgð€h˜K¾K»N¼K‘i€h™Kgð€h™K¾K»N½HIJLMK  ^_¿N_¿gHhoggHhgOhgOhh ™ ™˜“˜“˜ŒFORM‚¦™Za˜•Œ\MVLIST\˜’Œ%MAKE-LONG-METHOD-COMBINATION-FUNCTION™ ‚—™‚–‚™\‚„™\˜’ŒLOAD-LONG-DEFCOMBIN™ q™B˜ŒGENERIC-FUNCTION%˜Œ ARGUMENTSz˜“™_™`˜–1o ¿g X‘Hgg c˜’Œ#*LONG-METHOD-COMBINATION-FUNCTIONS*™ ˜Œ*DEFVAR *LONG-METHOD-COMBINATION-FUNCTIONS*™˜“€)˜ŒMAKE-HASH-TABLE$™l˜ŒBOUNDP˜ŒPROCLAIM˜ŒEQ˜ŒTEST ™‚ɘ“˜ŒSPECIAL™‚Éœ™‚Ę–‚¶nXA¿g gg@ Th¹g hIh ºgghgIgognoHgg@hh »@UB ¿J²g J ¿g K ™d™‚É™‚Ä™˜“˜“˜ŒTYPE˜ŒDOC˜ŒFUNCTION ‚°™k‚ª™l‚Ÿ™m‚™™l‚‹˜ŒPUTHASH‚‚™ny™q7™o/™l™n™p ‚¥™/‚”™/p™k™rX™N™sH™tB™u=™$*™/™v™w ™.a˜–!ggAgHÉgB ˜Œlambda in LOAD-LONG-DEFCOMBIN™1˜“˜“˜ŒGENERIC-FUNCTION˜ŒTYPE˜ŒOPTIONS™n™‚‹ ™^™‚Œ™‚—S˜“™.™R™S]™U™‚±˜–5gghggihohhhno ˜Œ1 top-level form™˜“€/™ ™‚— ™.™‚˜™$'˜–A Q ¸@ABlH™‚ɘŒlambda in 1 top-level form™1˜“˜“˜ŒGENERIC-FUNCTION˜ŒCOMBIN˜ŒAPPLICABLE-METHODS˜•ŒGETHASH™‚¦˜“™.™‚»™‚¼#™Uœ™‚Ø–‚ŠE X¹HZ»J¼BKL ½D²DoM¾MN¿C—MC ½A²"gggAMhho½IgooggMhh$™‚Ù˜“˜“˜ŒTYPE˜ŒLL˜ŒMETHOD-GROUP-SPECIFIERS˜ŒARGUMENTS-OPTION˜ŒGF-VAR˜ŒBODY9˜’ŒDEAL-WITH-ARGUMENTS-OPTION™ ˜’Œ$WRAP-METHOD-GROUP-SPECIFIER-BINDINGS™ ™‚˜’ŒEXTRACT-DECLARATIONS™ w˜’Œ".LONG-METHOD-COMBINATION-FUNCTION.™ r˜ŒBLOCKc˜ŒLAMBDAL™‚üG™‚–B˜ŒAPPLYm˜“˜ŒPROGN˜’Œ.GENERIC-FUNCTION.™ ˜’Œ.METHOD-COMBINATION.™ ˜’Œ.APPLICABLE-METHODS.™ h˜“™‚ÿ™‚™‚Z˜“˜“˜’ŒMETHOD-COMBINATION-OPTIONS™ ™‚%˜“™‚ÿœ™‚ø˜–‚jh¸h¹hºh»h¼h½h¾h_¿h_¿h_¿@_¿h_¿O’O‚±Ð_ __¿O__¿O_ _"_$¿O"_&¿_(¿H•IO&¹…OhY¸J•KO(&»…O(h[ºgOggO(oggggogOhhhhgO(ohggOhh_*¿L•MO*&½…O*h]¼O&²XggOhggggogOhhhhh_*¿N˜OO*&_¿†O*h_¾O$ ‘h€i_*’O*O$O$ _$ð‘i€h°ÝO$gð²gOgOhh°:O$gð’h°.gO$ggOgOhhho_*¿O˜OO*&_¿ˆO*h__¿O_¿±þ-HJLNO$ X¹HZ»J\½L^_¿N_¿gIK AgogoogMhhOOB  ™‚ø™˜“˜“˜ŒMETHOD-GROUP-SPECIFIERS˜Œ DECLARATIONS˜Œ REAL-BODY ‚b™‚£‚\™‚£‚(™‚£‚™‚‚o™`‚\˜Œ CONSTANTP[˜ŒGENSYM4™‚Â/˜’ŒPARSE-METHOD-GROUP-SPECIFIER™ ‚G˜ŒCOND‚8˜ŒLET‚.˜ŒDOLIST‚!™‚‚¿™‚¤‚¸˜ŒSETQ‚³™‚‚¬˜ŒECASE‚¢™‚‚™‚¤‚‰™‚‚™‚‚,™\‚"™‚§‚™\‚™‚ú‚˜Œ RETURN-FROM‚ ˜ŒNULL‚˜ŒWHEN‚à˜’Œ.METHOD.™ ‚Û˜ŒPUSH‚È™‚‚³™\‚©™‚§‚¤™\‚Ÿ™‚ú‚š™‚‚Œ˜ŒEQUAL‚‡˜ŒIF˜ŒOR‚B˜“™‚þ˜’Œ .QUALIFIERS.™ ˜’Œ.SPECIALIZERS.™ ‚=˜“˜“™‚˜“™‚¥™‚˜“™‚˜“˜’ŒMETHOD-SPECIALIZERS™ ™‚‚3˜“™‚™‚‚И“˜“™‚‚'˜ŒNo ~S methods.‚Ϙ“™‚‚®˜ŒcMore than one method of type ~S ~ with the same specializers.‚“˜“™‚œ™‚˜–x@¸@b¿H¸h¹hºh»@‘h€i\‘L‡@o‘°%@¼@b¿L\I¹HL ½J”KM&»„Mh[º°ËJºHJ@gI @gg @g'$™‚™˜“˜“˜ŒMETHOD-GROUP-SPECIFIERh™[X™[S˜’Œ%MAKE-DEFAULT-METHOD-GROUP-DESCRIPTION™ 4˜’ŒPARSE-QUALIFIER-PATTERN™ n˜ŒREQUIREDc™‚^˜ŒORDERM˜Œ DESCRIPTION˜“™‚6™‚5™‚4œ™‚3˜–VA²NAgð‘iAd3@ð—AoA‘h€iX‘H…A‘i€h²ggAhoo@A o™‚3™˜“˜“˜ŒNAME˜ŒPATTERNJ™‚§2™\-˜’ŒQUALIFIER-CHECK-RUNTIME™ ˜Œ*P˜“™‚™‚C˜Œ[In the method group specifier ~S,~%~ ~S isn't a valid qualifier pattern.;˜“™‚˜“™‚œ™‚=˜–4@‘h„A‘h€i‘i@gð‘i@™A•@Að‚h€hš@b¿Ab¿h°Ï™‚=™˜“˜“˜ŒPATTERN˜Œ QUALIFIERS™‚>œ™‚2˜–,@²ho@ @  ho@ ™‚2™˜“˜“˜ŒPATTERNS&˜ŒFORMAT™‚L˜ŒLAST ˜ŒBUTLAST˜Œ methods matching the pattern: ~S˜Œ1methods matching one of the patterns: ~{~S, ~} ~Sœ™‚÷˜–‚Bh¸h¹Aºh»J‘J°1[`žH•IK&¹°KhY¸°¼H”IL&¹„LhY¸Jº°ÍH¸h¹h»Aºh¼H½h¾J ‘°JJ_¿JºO¼M ‘°6M_¿M½O¾L`³ LgNhh_¿I•KO&»…Oh[¹°±IY@ »@K¿gH[³-gHZ³#gHœHo ¸‹Ho ¸gg@hhgogogogHhgH•o€hohoh™‚÷™˜“˜“˜Œ WRAPPED-BODY˜ŒARGUMENTS-OPTION‚Ü™‚£‚Ï™‚£‚¢™‚£a˜ŒENDPM™‚V'™‚ ‚˜’Œ.IGNORE.™ ‚™\‚˜ŒLIST‚ü™‚X‚ò˜ŒLIST*‚瘒Œ INNER-RESULT.™ ‚♂‚Á˜Œ&KEY‚·˜Œ&ALLOW-OTHER-KEYS‚­™~™\u˜ŒLAMBDA-LIST-KEYWORDS™‚]‚5˜“˜“™\˜“˜’Œ.COMBINED-METHOD-ARGS.™ ‚(˜“™‚Z‚!˜“™\˜“˜ŒDECLARE˜“˜ŒIGNORE™‚W‚ ˜“™\™‚ü‚˜“™\™‚–‚÷˜“™\™‚ý‚ט“™™‚W‚ʘ“™‚\š‚nÿÿ