‘XCL Compiler output for source file {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>CLOS>CURRENT>NEW-CLOS-BROWSER.;2 Source file created Friday, 4 December 2020, 21:30:58. FASL file created Friday, 4 December 2020, 21:30:58. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜ŒPACKAGE˜“˜ŒLET˜“˜“˜Œ *PACKAGE*˜“˜Œ IN-PACKAGE˜Œ CLOS-BROWSER˜“˜Œ USE-PACKAGE˜ŒCLOS˜“˜Œ FIND-PACKAGE˜ŒUSER˜Œ READTABLE˜ŒXCL˜ŒBASE ˜Œ{Null}˜–Cggo ¿o¿io ¿o ¿o ˜Œ5 top-level forms™˜“€=˜•ŒPUTPROPS2™ '˜ŒFORMAT˜•ŒPUTPROP˜•ŒNEW-CLOS-BROWSERCOMS˜•Œ FILEDATES˜•ŒNEW-CLOS-BROWSER8˜“™%˜•ŒFILETYPE˜Œ COMPILE-FILE-˜“™%˜•ŒMAKEFILE-ENVIRONMENT˜“™ ˜“™ ˜“˜“™ ˜“™˜Œ CLOS-BROWSER˜“™˜ŒCLOS˜“™˜ŒUSER™˜ŒXCL™ "˜ŒM~&;CLOS-BROWSER Copyright (c) 1991 VENUE Corporation. All rights reserved.~%˜“4˜“˜•Œ*˜•Œ;;;˜Œ'***************************************˜“™7™8˜Œ˜“™7™8˜Œ)Print out a copyright notice when loading˜“™7˜•Œ;;˜Œ˜“˜•ŒP˜“™!˜ŒM~&;CLOS-BROWSER Copyright (c) 1991 VENUE Corporation. All rights reserved.~%˜“™7™8˜ŒLOAD DEPENDENT MODULES˜“™7™?˜Œ$Note: before compiling clos-browser:˜“™7™?˜Œ (load 'web-editor.dfasl)˜“™7™?˜Œ (load 'clos-browser.dfasl)˜“™7™?˜Œ (load 'clos-browser 'prop)˜“™7™?˜Œ˜“™7™8˜ŒPACKAGE STUFF ˜“˜•ŒPROPS˜“™%™)˜“™%™&˜“™7™?˜Œ/(IL:P IL:* USER::CLOS-BROWSER-PACKAGE-COMMANDS)˜“™7™?˜Œ˜“™7™8˜ŒSYSTEM PATCHES˜“™7™?˜Œ˜“™7™?˜Œ˜“™7™?˜Œ˜“™7™8˜Œ)CLOS-ICON CLASS & INSTANCE INITIALIZATION˜“˜’ŒCLASSES˜‘˜ŒCLOS˜’Œ CLOS-ICON˜‘˜Œ CLOS-BROWSER˜“˜•Œ VARIABLES™k˜“™7™?˜Œ˜“™7™8˜ŒCLOS-BROWSER CLASS˜“˜•Œ FUNCTIONS˜’Œ BROWSE-CLASS™j˜’ŒCOLLECT-FAMILY™j˜’Œ MAKE-NODES™j˜’ŒCLOS-BROWSER-CLOSE-FN™j˜’ŒBROWSER-CONTAINS-P™j˜“™h˜’Œ CLOS-BROWSER™j˜“˜’ŒMETHODS™g˜“˜’ŒADD-ROOT™j˜“™z˜“˜’Œ ADD-ROOTS™j˜“™z˜“˜’ŒBOX-NODE˜‘˜ŒWEB˜“™z˜“˜’ŒBROWSE™‚„˜“™z˜“˜’ŒCLEAR-METHOD-MENU-CACHES™j˜“™z˜“˜’Œ ICON-TITLE™‚„˜“™z˜“˜’ŒINITIALIZE-EDITOR™‚„˜“™z˜“˜’ŒNEW-ITEM™j˜“™z˜“˜’Œ RECOMPUTE™‚„˜“™z˜“˜’Œ REAL-ADD-ROOT™j˜“™z˜“˜’Œ SHAPE-TO-HOLD™‚„˜“™z˜“™7˜•Œ;˜Œ multi-method˜“˜’Œ SUBCLASSES-OF™j€˜“˜’Œ CONTAINS-P™j˜“™z˜“™7™?˜Œ˜“™7™8˜ŒCLOS-BROWSER-NODE CLASS˜“™h˜’ŒCLOS-BROWSER-NODE™j˜“™|˜“˜’Œ OBJECT-NAME™j˜“™‚­˜“˜’ŒOVERRIDE™j˜“™‚­˜“˜’ŒCACHE™j˜“™‚­˜“˜’ŒUNCACHE™j˜“™‚­˜“˜•ŒVARS˜“˜’Œ*METHOD-PROMPT-STRING*™j˜“˜Œ CONCATENATE˜“˜ŒQUOTE˜ŒSTRING˜ŒLeft button to edit the method.˜Œ ˜Œ,Middle button provides a menu of operations.˜“™s˜’ŒEDIT™j˜’ŒMAKE-METHOD-MENU-ITEMS™j˜’Œ MAKE-TOP-LEVEL-METHOD-MENU-ITEMS™j˜’ŒMAKE-MULTI-METHOD-SUB-MENU™j˜“™7™?˜Œ˜“™7™?˜Œ9OPERATORS (via CLOS-BROWSER-NODE) ON CLOS::STANDARD-CLASS˜“ ™|˜“˜’ŒADD-BROWSER-METHOD™j˜“™‚­˜“˜’Œ BROWSE-SUBS™j˜“™‚­˜“˜’Œ EDIT-CLASS™j˜“™‚­˜“˜’Œ INSPECT-CLASS™j˜“™‚­˜“˜’Œ MENU-METHODS™j˜“™‚­˜“˜’ŒMAKE-WHENSELECTEDFN™j˜“™‚­˜“˜’ŒDESCRIBE-CLASS™j˜“™‚­˜“˜’ŒDOCUMENTATION-CLASS™j˜“™‚­˜“˜’Œ PRINT-CLASS™j˜“™‚­˜“˜’ŒSPECIALIZE-CLASS™j˜“™‚­˜“™s˜’ŒCOMPLETE-ADD-METHOD™j˜’ŒCOMPLETE-SPECIALIZE™j˜’ŒLYRIC-COMPLETE-SPECIALIZE™j˜’ŒTHIS-CLASS-NODE-P™j˜’ŒCLASS-DIRECT-METHODS™g˜“™7™?˜Œ˜“™7™?˜Œ,OPERATORS ON CLOS::STANDARD-CLASS (directly)˜“™|˜“˜’ŒCOMPUTE-INHERITED-METHODS™g˜“˜’ŒSTANDARD-CLASS™g˜“˜’Œ SPECIALIZE™j˜“™‚û˜“™‚£˜“™‚û˜“™7™?˜Œ˜“™7™?˜Œ"OPERATORS ON CLOS::STANDARD-METHOD˜“ ™|˜“˜’Œ DELETE-METHOD™j˜“˜’ŒSTANDARD-METHOD™g˜“˜’ŒCOPY™j˜“™‚ ™‚û˜“˜’ŒMOVE™‚„˜“™‚ ™‚û˜“™7™‚ ˜Œweb:move is shadowed above˜“˜’ŒPRINT-DEFINITION™j˜“™‚ ˜“˜’ŒDESCRIBE-METHOD™j˜“˜’ŒMETHOD™g˜“˜’ŒRENAME™j˜“™‚ ˜“˜’ŒUPDATE-CACHED-MENUES™j˜“™‚ ˜“˜’ŒWHO-OWNS™j˜“™‚ ˜“™7™?˜ŒEupdate-cached-menues must appear before add-method :after in the coms˜“˜’Œ ADD-METHOD™g˜ŒAFTER˜“˜’ŒSTANDARD-GENERIC-FUNCTION™g™‚ ˜“™s˜’ŒREPLACE-SPECIALIZERS™j˜“™7™?˜Œ˜“™7™8˜ŒSETUP RELEASE INFO˜“™‚¼˜“˜’Œ RELEASE-ID™j˜Œ0.02˜“˜’Œ SYSTEM-DATE™j˜“˜ŒCAAR˜“˜•ŒGETPROP˜“™‚¿˜•Œ CLOS-BROWSER˜“™‚¿™$˜“™7™?˜Œ˜“™7™?˜Œ˜“™7™?˜ŒSETUP BACKGROUND MENU˜“™s˜’ŒIN-SELECT-PACKAGE™j˜’ŒCLASSES-IN-PACKAGE™j˜“™B˜“™7™?˜Œpushnew should eliminate this˜“˜ŒSETQ˜•ŒBackgroundMenuCommands˜“˜ŒREMOVE˜“™‚¿˜•Œ BrowseClass™‚K˜ŒKEY˜“˜ŒFUNCTION˜ŒCAR˜“˜ŒPUSH˜“™‚¿˜“™‚M˜“™t˜ŒBring up a class browser.˜“˜•ŒSUBITEMS˜“˜•Œall in a package˜“™t˜“™‚F˜“™‚E˜ŒDSelect a package and browse all the classes defined in that package.™‚K˜“™‚J˜•ŒBackgroundMenu€ ˜“˜”˜Œ 4-Dec-2020 21:30:58•ŒS{DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>CLOS>CURRENT>NEW-CLOS-BROWSER.;2˜–‚Îno¸ggogg ggghghghogg ggghghghogHggghghghohhh ˜ŒDEFCLASS CLOS-BROWSER:CLOS-ICON™˜“€‚Ș’Œ LOAD-DEFCLASS™g`˜ŒSYMBOL-FUNCTION&™‚n‚¬˜ŒINITARGS‚¦˜ŒWRITERS‚ ˜ŒREADERS‚›˜’ŒMENU-CACHE-SWITCH™j‚–˜ŒNAME‚˜Œ INITFUNCTION{™‚ou™‚po™‚qj˜’ŒDESTINATION-BROWSER™je™‚s[˜’ŒFALSE˜‘˜ŒXEROX-COMMON-LISPV™‚tA™‚o;™‚p5™‚q0˜’ŒCLASS-BROWSERS™j+™‚s!™‚x™‚t™‚û ™k‚²˜“˜Œ ALLOCATION˜ŒCLASS˜ŒINITFORM˜ŒLAZY‚˜“™‚z™‚{™‚|€G˜“™‚z™‚{™‚|€˜“˜’ŒSTANDARD-OBJECT™g˜–g˜Œ)lambda in DEFCLASS CLOS-BROWSER:CLOS-ICON˜ŒCLOSURE˜“€™‚}˜•ŒCOMPILED-CLOSURE˜–o ¿g ˜Œ-XCL:DEFGLOBALPARAMETER CLOS-BROWSER:CLOS-ICON™˜“€˜’Œ MAKE-INSTANCE™g˜ŒPROCLAIM™k ™k˜“˜’ŒGLOBAL™‚w™kœ™t˜–‚ôejð£ka¸h¸gµ g¹a¹gµ oºaºgµh»a»gµh¼a¼H²QH‘h€i]‘M…H‘i€h²4H½h¾h_¿h_¿M¢N°0M _¿N˜OO&_¿†Oh_¾M½°ÜH €h½hM ¾g _ ¿OgM ¿OgH ¿ONJKL ¿N§O ¿O™t ‚ÿÿÿÿ™˜“˜“˜Œ &OPTIONAL˜ŒCLASS-NAME-OR-LIST˜Œ&KEY™˜ŒWINDOW-OR-TITLE˜Œ GOOD-CLASSES˜ŒPOSITION ‚ë™}‚ᙂˆ‚Ô˜’ŒSET-SLOT-VALUE™g‚Æ™‚˜‚¸™‚‘‚±™‚‹‚¦™v‚¡™u‚—˜ŒCONS‚’˜’Œ FIND-CLASS™gr™‚š‚Θ’ŒTITLE™j‚À˜’Œ ROOT-CLASSES™j‚¬™z=™‚•/™‚”™‚“˜ŒSUB ™&˜Œ CLOS-browserœ™u˜–3A²/A¸A¹H@™@Ib¿b¿°ëH@bIH b¿b¿°Ò@™u™˜“˜“˜ŒFAMILY˜Œ CLASS-LIST$˜ŒAPPEND˜’ŒCLASS-DIRECT-SUBCLASSES™g˜–ggo ˜Œ"DEFUN CLOS-BROWSER::COLLECT-FAMILY™˜“€˜•ŒSET-DOCUMENTATION™‚P™u ˜Œ;gather all of the sub-classes of the class passed as familyœ™v˜–nnX¿Hý¿gnoH@ Yºh»J‘J°:[¼gnoHKg ]L ¿Jº°ÄI™v™˜“˜“˜Œ CLASS-LISTa˜’ŒSETF WEB NODE-LINKS™gZ˜•Œ%MAP-FOR-RESULT-SINGLEU™‚¥P˜’Œ SLOT-VALUE™g%™‚°˜ŒMAKE-HASH-TABLEK˜’ŒCLASS™j7˜ŒLIST™‚´@˜– @HÉ ˜Œlambda in MAKE-NODES™‚„˜“˜“˜ŒSUB˜ŒGETHASH˜–5g Yg@ ¿Iº@ [J ¿@HÉI ¿I˜Œlambda in MAKE-NODES™‚„˜“˜“˜ŒCLASS-˜ŒPUTHASH"˜’ŒSETF WEB NODE-NAME™g˜’Œ CLASS-NAME™g™‚˜™‚‹ ™‚³™‚­<™‚‡™‚‡˜•Œ \PTRHUNK2œ™w˜–X@g ¸`gH`g ¿H`g ð²`gh h™w™˜“˜“˜ŒWINDOWP™‚˜=™‚±,™‚˜'™‚L"™‚±˜•ŒGETWINDOWUSERPROP J™‚uE™k8™‚u3™k™‚y™k™‚y ™k˜’Œ WEB-EDITOR™‚„œ™x˜–P@Ag gg X²'@Ag gg ‘h‚i€h‘Hh™x™˜“˜“˜ŒCLASS˜ŒBROWSER@˜ŒMEMBER;™‚n,™‚±™‚Ï™‚n™‚±6™‚ó1˜ŒTEST'˜’ŒBAD-LIST™‚„™‚ó ™‚Ð˜’Œ STARTING-LIST™‚„˜–ggo ˜Œ&DEFUN CLOS-BROWSER::BROWSER-CONTAINS-P™˜“€™‚©™‚P™x ˜ŒFcreated because too slow to call contains-p method inside a tight loop˜–‚no¸no¹noºno»ggoogKggghghghogJggghghghogIggghghghogHggghghghohhh ˜Œ"DEFCLASS CLOS-BROWSER:CLOS-BROWSER™˜“€‚™‚m‚ô™‚o‚p‚虂q‚㙂›‚Þ™‚s‚Ø™‚t‚Ù‚o‚½™‚p‚·™‚q‚²˜’ŒMIDDLE-BUTTON-ITEMS™‚„‚­™‚s‚§™‚t‚’™‚o‚Œ™‚p‚†™‚q‚˜’ŒLEFT-BUTTON-ITEMS™‚„|™‚sv™‚ta™‚o[™‚pU™‚qP˜’Œ TITLE-ITEMS™‚„K™‚sE™‚t6™‚û1™z ‚ú˜“™‚|˜Œ CLOS Browser‚ɘ“™‚z˜ŒINSTANCE™‚|˜“™‚¿˜“˜“˜ŒEdit™‚טŒEdit the class.˜“™‚X˜“˜ŒEdit™‚טŒEdit the class.˜“˜ŒInspect™‚Ú˜Œ#Bring up an inspector on the class.˜“˜Œ Add method™‚јŒAdd a method to the class.˜“˜ŒBrowse™‚Ô˜Œ!Bring up a browser on this class.˜“˜ŒWHEN€˜“™‚X˜“˜Œ sub classes™‚Ô˜Œ!Bring up a browser on this class.˜“˜Œ super classes˜’Œ BROWSE-SUPERS™j˜ŒNot Implemented˜“˜ŒPrint™‚阌"Print the form defining the class.˜“™‚X˜“˜ŒPrint™‚阌"Print the form defining the class.˜“˜ŒDescribe™‚㘌!Print a description of the class.˜“˜Œ Documentation™‚昌(Display the documentation for the class.˜“˜Œ Specialize™‚옌%Create a new sub-class of this class.˜“˜Œ------™‚טŒ`Above this line operates on the class. Below this line operates on individual slots and methods.˜“˜Œslots™‚טŒEdit the defclass definition.˜“˜Œmethods˜“™‚ݘŒ,Build a menu of methods local to this class.˜“™‚X˜“˜Œlocal˜“™‚ݘŒ2Show a menu of methods specialized on this class..˜“™‚X˜“˜ŒUse cached menu˜“™‚ݘŒ$Do not recompute the menu of methods˜“˜ŒRecompute menu˜“™‚Ý€€€˜ŒRecompute the menu of methods˜“˜Œ inherited˜“™‚ݘŒ INHERITED˜Œ*Show only methods inherited by this class.˜“™‚X˜“˜ŒUse cached menu˜“™‚Ý™‚!˜Œ$Do not recompute the menu of methods˜“˜ŒRecompute menu˜“™‚Ý™‚!€€˜ŒRecompute the menu of methods˜“˜Œall˜“™‚ݘŒALL˜Œ*Show all methods understood by this class.˜“™‚X˜“˜ŒUse cached menu˜“™‚Ý™‚/˜Œ$Do not recompute the menu of methods˜“˜ŒRecompute menu˜“™‚Ý™‚/€€˜ŒRecompute the menu of methods‚˜˜“™‚z™‚{™‚|˜“™‚¿™‚…g˜“™‚z™‚ß™‚|˜“™‚¿˜“˜“˜Œ Recompute™‚—˜Œ'Recompute lattice from starting objects˜“™‚X˜“˜Œ Recompute™‚—˜Œ'Recompute lattice from starting objects˜“˜ŒRecompute labels˜’ŒRECOMPUTE-LABELS™‚„˜ŒRecomputes the labels˜“˜ŒRecompute in place˜’ŒRECOMPUTE-IN-PLACE™‚„˜Œ(Recompute keeping current view in window˜“˜Œ Clear caches™‚‹˜ŒClear cached menues of methods.˜“˜Œ Browser looks€˜Œ˜“™‚X˜“˜Œ Shape to hold™‚˜Œ4Make window large or small enough to just hold graph˜“˜ŒChange font size˜’ŒCHANGE-FONT-SIZE™‚„˜ŒChoose a new size Font˜“˜Œ Change format˜’Œ CHANGE-FORMAT™‚„˜Œ&Change format between lattice and tree˜“˜Œ Add root ™}˜Œ+Add named item to startingList for browser.˜“™‚X˜“˜Œall in a package™‚€˜Œ1Add all the classes in a package to this browser.@˜“™‚s™‚œ;˜“™‚É)˜–o˜Œ,lambda in DEFCLASS CLOS-BROWSER:CLOS-BROWSER™‚„˜“€™‚k˜–g˜Œ,lambda in DEFCLASS CLOS-BROWSER:CLOS-BROWSER™‚„˜“€™‚…˜–o˜Œ,lambda in DEFCLASS CLOS-BROWSER:CLOS-BROWSER™‚„˜“€™‚>˜–o˜Œ,lambda in DEFCLASS CLOS-BROWSER:CLOS-BROWSER™‚„˜“€™‚Ý%™‚‡™‚‡ ™‚‡™‚‡˜–1gghghoohhno ˜Œ>DEFMETHOD (CLOS-BROWSER::ADD-ROOT (CLOS-BROWSER:CLOS-BROWSER))™˜“€+˜’ŒLOAD-DEFMETHOD™g ™z™}™‚ #˜–Gejó”eló˜kl ¿ekÙjð¤la¸†@ ¸@H –@ @hoH ˜ŒHlambda in DEFMETHOD (CLOS-BROWSER::ADD-ROOT (CLOS-BROWSER:CLOS-BROWSER))‚ÿÿÿÿ™‚„˜“˜“˜ŒBROWSER™‚˜ŒNEW-ITEMA˜’Œ PROMPT-PRINT™‚„<™!.™‚—'™‚š™‚” ˜’ŒARGUMENT-ERROR˜‘˜ŒSYSTEM6˜Œ~A not added to browser.˜Œ5Add a named item to the starting list of the browser ˜“˜’ŒBROWSER™j™‚˜“™‚”˜“™‚”™‚Œ™‚‡˜–1gghghoohhno ˜Œ?DEFMETHOD (CLOS-BROWSER::ADD-ROOTS (CLOS-BROWSER:CLOS-BROWSER))™˜“€+™‚ ™z™‚€™‚ #˜–]ejó”eló˜kl ¿ekÙjð¤la¸Š ¸H¹hºI‘I°%º@J ³@hoJ ¿I¹°Ù@ ˜ŒIlambda in DEFMETHOD (CLOS-BROWSER::ADD-ROOTS (CLOS-BROWSER:CLOS-BROWSER))‚ÿÿÿÿ™‚„˜“˜“˜ŒBROWSER™‚˜Œ NEW-ITEMSW™‚—K™‚…F™!7™‚š#™‚F™‚E ™‚ˆ@˜Œ~A not added to browser.˜Œ@Add all classes in a package to the starting list of the browser˜“™‚Œ™‚˜“˜’Œ NEW-ITEMS™j˜“™‚F˜“™‚E™‚‡˜–3gghgihohhono ˜Œ4DEFMETHOD (WEB:BOX-NODE (CLOS-BROWSER:CLOS-BROWSER))™˜“€-™‚ ™z™‚…™‚ %—˜–Qn¸ekó¨lh ¿H@¿HA¿he#Hý¿QHý¿QHý¿noHHÉHÉHÉ ˜’Œ*NEXT-METHODS*™g˜Œ>lambda in DEFMETHOD (WEB:BOX-NODE (CLOS-BROWSER:CLOS-BROWSER))‚ÿÿÿÿ™‚„˜“˜“˜ŒBROWSER˜ŒOBJECT˜Œ&REST˜ŒAMPERSAND-ARGSK˜ŒAPPLY ™‚ˆ8˜–joH-¿`g@ ˜ŒHlambda in lambda in DEFMETHOD (WEB:BOX-NODE (CLOS-BROWSER:CLOS-BROWSER))™‚„˜“˜“˜ŒBROWSER˜ŒOBJECT™‚˜ŒKEEP-PREVIOUS-BOX™‚˜™‚u ™k4™‚‡˜•Œ \PTRHUNK5™‚²˜–:he#¹Hɲ&HÉI™HÉI HÉHÉHÉHÉ o ™‚£˜ŒCALL-NEXT-METHOD‚ÿÿÿÿ™‚„˜“˜“™‚§˜ŒCNM-ARGS4˜ŒERROR)™‚«™‚«/˜ŒNo next method.˜“˜ŒNEEDS-NEXT-METHODS-P˜“™‚Œ˜’ŒOBJECT™j™‚˜’ŒKEEP-PREVIOUS-BOX™j!™‚‡˜–1gghghohhono ˜Œ2DEFMETHOD (WEB:BROWSE (CLOS-BROWSER:CLOS-BROWSER))™˜“€+™‚ ™z™‚ˆ™‚ #—˜–Hn¸ejó§kh ¿H@¿he#Hý¿QHý¿QHý¿noHHÉHÉ ™‚£˜ŒOOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°[H@ ¹@_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿OɺþIj¶[žJK¶[gð‘h‚i€h‘KŒ@Ijg »h¼K‘Kh\W$h ¿K»°ì™‚㘒Œ MENU-CACHE™‚„˜ŒXlambda in DEFMETHOD (CLOS-BROWSER::CLEAR-METHOD-MENU-CACHES (CLOS-BROWSER:CLOS-BROWSER))™‚„˜“˜“˜ŒSELF‚¸™‚˜‚¥˜’ŒPV-ACCESS-TRAP™g‚,˜’ŒPRIMARY-PV-CACHE-MISS™g‚ ™‚Ò‚Ž˜’Œ..SLOT-UNBOUND..™g‚k™‚‡‚]™‚‡‚D™‚‡‚5˜’Œ STD-INSTANCE™g‚Š™‚‡|™‚‡b™‚‡S™‚ì@˜’Œ*EMPTY-VECTOR*™g8™‚í0™‚홂혓˜ŒISL˜“˜“™‚Ò˜ŒISL-CACHE-SYMBOL™‚㘓™‚Ú#™‚‡˜–5gghghohgono ˜Œ6DEFMETHOD (WEB:ICON-TITLE (CLOS-BROWSER:CLOS-BROWSER))™˜“€/™‚˜’Œ isl-cache€ ™z™‚Ž™‚ '˜–‚¶W"¸`¹hºW"k¶»Hl¶¼Hl¶½Hl¶¾j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_¿@_Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°[H@ ¹@_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿OɺþIj¶[žJK¶[gð‘h‚i€h‘KŒ@Ijg  ™‚ø˜Œ@lambda in DEFMETHOD (WEB:ICON-TITLE (CLOS-BROWSER:CLOS-BROWSER))™‚„˜“˜“˜ŒSELF‚°˜’Œ NODE-NAME™‚„‚ª˜ŒLAST‚¥™‚é‚,™‚ê‚ ™‚Ò‚Ž™‚ë‚k™‚‡‚]™‚‡‚D™‚‡‚5™‚ì‚Š™‚‡|™‚‡b™‚‡S™‚ì@™‚í8™‚í0™‚홂혓™‚˜“™‚Ò™‚ò™‚ø˜“™‚Ú#™‚‡˜–9gghghoogono ˜Œ=DEFMETHOD (WEB:INITIALIZE-EDITOR (CLOS-BROWSER:CLOS-BROWSER))™˜“€3™‚˜’Œ isl-cache€ ™z™‚‘™‚ +˜–‚$W*¸W*¹@ºW,»`¼h½W,k¶¾Kl¶_¿Kl¶_¿Kl¶_¿j_¿j_¿j_¿j_¿`_¿`_¿`_ ¿h_"¿h_$¿J_$Ñ°OOÿOO¶_O ð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¼Oj¶_"O$ÿ‘°[KJ ¼J_$Ñ°;O$_&¿O$ÛjO&Êð‘h‚i€h°)O$ÉÉ_ ¿O$Éɽ‹O$É_ ¿O$ɽþHšI@kH¿Šo ¿`¾J_¿`g _¿OO’O„OO_¿NgO ¿Lj¶^žMN¶^gð‘h‚i€h‘NŒJLjg ^ggi ¿J™‚£™‚£™‚˜ŒGlambda in DEFMETHOD (WEB:INITIALIZE-EDITOR (CLOS-BROWSER:CLOS-BROWSER))™‚„˜“˜“˜ŒBROWSER‚˜•Œ WINDOWADDPROP‚ ™‚é‚㙂˜‚™‚±‚¨™‚¹‚?™‚ê‚™w‚˜•ŒCLOSEFN‚˜’ŒWINDOW™‚„‚ô™‚ë‚Ü™‚y‚½™‚y‚¸™k‚®™k‚~™‚‡‚p™‚‡‚W™‚‡‚H™‚ì‚š™‚‡‚Œ™‚‡r™‚‡c™‚ìP™‚íH™‚í@™‚홂킣˜ŒNo next method."˜“™‚¼™‚˜“™‚™‚ò™‚˜Œinitialize and setup closefn˜“™‚Œ'™‚‡˜–-gghghohhhno ˜Œ>DEFMETHOD (CLOS-BROWSER::NEW-ITEM (CLOS-BROWSER:CLOS-BROWSER))™˜“€'™‚ ™z™‚”™‚ ˜–A‘h@o b˜ŒHlambda in DEFMETHOD (CLOS-BROWSER::NEW-ITEM (CLOS-BROWSER:CLOS-BROWSER))™‚„˜“˜“˜ŒSELF™‚˜ŒNEW-ITEM ˜’Œ PROMPT-READ™‚„˜ŒClass˜“™‚Ú™‚™‚”™‚‡˜–5gghghohgono ˜Œ5DEFMETHOD (WEB:RECOMPUTE (CLOS-BROWSER:CLOS-BROWSER))™˜“€/™‚˜’Œ isl-cache€ ™z™‚—™‚ '—˜–Hn¸ejó§kh ¿H@¿he#Hý¿QHý¿QHý¿noHHÉHÉ ™‚£˜Œ?lambda in DEFMETHOD (WEB:RECOMPUTE (CLOS-BROWSER:CLOS-BROWSER))‚ÿÿÿÿ™‚„˜“˜“˜ŒSELF™‚§˜ŒAMPERSAND-ARGSB™‚« ™‚ˆ2˜–‚jW$¹`ºh»W$k¶¼Il¶½Il¶¾Il¶_¿j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_ ¿@_ Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶ºOj¶_O ÿ‘°[I@ º@_ Ñ°;O _"¿O ÛjO"Êð‘h‚i€h°)O ÉÉ_¿O ÉÉ»‹O É_¿O É»þhJj¶\žKL¶\gð‘h‚i€h‘LŒ@Jjg ¼h½h¾h_¿h_ ¿L_’O°*_ ¡°O g _¿N•NO&¾…Oh^½L¼°ÐM _ ¿Jj¶_˜O KO·¿°@JjgO ¿joH-¿`g ².`g gh ¿`gh h™‚%˜ŒIlambda in lambda in DEFMETHOD (WEB:RECOMPUTE (CLOS-BROWSER:CLOS-BROWSER))™‚„˜“˜“˜ŒSELF™‚˜ŒDONT-RESHAPE-FLG ‚b™‚˜‚Q™‚˜‚F™‚±‚5™‚±‚™‚é‚ø™v‚ó™u‚×™‚±‚®˜ŒREVERSE‚©™‚é‚/™‚ê‚\™‚u‚W™k‚K˜’Œ BOXED-NODE™‚„‚A™‚u‚<™k‚0™‚u‚+™k‚™‚Ò‚Ò™‚³‚¤™‚Ò‚’™‚ë‚n™‚‡‚`™‚‡‚G™‚‡‚8™‚ì‚Œ™‚‡~™‚‡d™‚‡U™‚ìB™‚í:™‚í2™‚홂í.™‚‡™‚Ò™‚2‚#˜–7he#¹Hɲ#HÉI™HÉI HÉHÉHÉ o ™‚£˜ŒCALL-NEXT-METHOD‚ÿÿÿÿ™‚„˜“˜“™‚§˜ŒCNM-ARGS1™‚¹&™‚«™‚«,™‚º˜“™‚¼™‚˜“™‚Ò™‚ò™‚%˜“™‚Ú™‚˜’ŒDONT-RESHAPE-FLG™j#™‚‡˜–;gghgihoogono ˜ŒCDEFMETHOD (CLOS-BROWSER::REAL-ADD-ROOT (CLOS-BROWSER:CLOS-BROWSER))™˜“€5™‚˜’Œ isl-cache€ ™z™‚š™‚ -˜–‚zW"¸`¹hºW"k¶»Hl¶¼Hl¶½Hl¶¾j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_¿@_Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°\H@A ¹@_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿OɺþA¢±òA ‘A…A [h \¢±Ó@½L¾@g _¿NO’OƒNO_¿MgO ¿Ik¶]žJM¶]gð‘h‚i€h‘MŒ@Ikg ²-@½L_¿@g ¾ON‘NƒON¾MgN ¿LIj¶]žJM¶]gð‘h‚i€h‘MŒ@Ijg ½Ij¶^•MJN·¿@IjgM ¿@hh™‚A˜ŒMlambda in DEFMETHOD (CLOS-BROWSER::REAL-ADD-ROOT (CLOS-BROWSER:CLOS-BROWSER))™‚„˜“˜“˜ŒBROWSER˜ŒCLASS ‚n™‚é‚Q˜•ŒDREMOVE‚L™‚é‚#™‚˜‚ ™‚±‚÷™‚é‚Ï™‚˜‚°™‚±‚›™v‚“™‚š‚Š˜’Œ"TYPE-PREDICATE CLOS STANDARD-CLASS™g‚-™‚ê‚g™‚Ñ‚G™‚Ñ‚5™‚나’Œ GOOD-LIST™‚„‚™‚I‚ò™‚I‚à™‚ë‚È™‚Ò‚«™‚Ò‚l™‚‡‚^™‚‡‚E™‚‡‚6™‚ì‚Š™‚‡|™‚‡b™‚‡S™‚ì@™‚í8™‚í0™‚홂í$˜“™‚˜“™‚Ñ™‚I€™‚ò™‚A˜Œ/Add a class to the starting list of the browser˜“™‚Œ™‚³)™‚‡˜–9gghghoogono ˜Œ9DEFMETHOD (WEB:SHAPE-TO-HOLD (CLOS-BROWSER:CLOS-BROWSER))™˜“€3™‚˜’Œ isl-cache€ ™z™‚™‚ +˜–‚aW*¸W*¹@ºW,»`¼h½W,k¶¾Kl¶_¿Kl¶_¿Kl¶_¿j_¿j_¿j_¿j_¿`_¿`_¿`_ ¿h_"¿h_$¿J_$Ñ°OOÿOO¶_O ð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¼Oj¶_"O$ÿ‘°[KJ ¼J_$Ñ°;O$_&¿O$ÛjO&Êð‘h‚i€h°)O$ÉÉ_ ¿O$Éɽ‹O$É_ ¿O$ɽþLk¶^žMN¶^gð‘h‚i€h‘NŒJLkg ^g _²H˜I@kHo N É_¿hN _¿lLj¶_$²MO$¶_$gð‘h‚i€h’O$ŒJLjg hW. Ø_$¿lúO$ó’lúO$_$¿JOOO$O ™‚£™‚£™‚S˜•ŒWindowTitleDisplayStream˜ŒClambda in DEFMETHOD (WEB:SHAPE-TO-HOLD (CLOS-BROWSER:CLOS-BROWSER))™‚„˜“˜“˜ŒSELF ‚[˜’Œ SET-REGION™‚„‚V˜•Œ CREATEREGION‚3˜•Œ STRINGWIDTH‚.˜•ŒDSPFONT‚&™‚é‚õ˜•Œ FONTHEIGHT‚ð™‚\‚䘕Œ \INSUREWINDOW‚Ý™‚¹‚Ù‚È‚¸™‚é‚?™‚ê‚!˜’ŒTITLE™‚„‚™‚낾˜•ŒGRAPH‚³™‚‚¡™‚ë‚~™‚‡‚p™‚‡‚W™‚‡‚H™‚ì‚š™‚‡‚Œ™‚‡r™‚‡c™‚ìP™‚íH™‚í@™‚홂í‚Ø™‚"˜“™‚¼™‚˜“™‚_™‚™‚ò™‚S˜ŒAgive a larger width for empty browsers so add-node will have room˜“˜’ŒSELF™‚„'™‚‡˜–1gghihohgono ˜Œ+DEFMETHOD (CLOS-BROWSER::SUBCLASSES-OF NIL)™˜“€+™‚˜’Œ isl-cache€™‚£™‚ #˜–‚÷W"¸`¹hºW"k¶»Hl¶¼Hl¶½Hl¶¾j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_¿@_Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°[H@ ¹@_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿Oɺþ@hIj¶[žJK¶[gð‘h‚i€h‘KŒ@Ijg »h¼h½h¾K¢L°:K_g —O ƒOh¾M”MN¿N¼N‘i€h–N ½K»°Å ™‚k˜Œ5lambda in DEFMETHOD (CLOS-BROWSER::SUBCLASSES-OF NIL)™‚„˜“˜“˜ŒCLASS‚ñ™‚¤‚時þ‚Ê™‚£‚™‚±‚¨™‚é‚,™‚ꂽ˜’ŒDIRECT-SUBCLASSES™g‚£™‚p‚‘™‚ë‚k™‚‡‚]™‚‡‚D™‚‡‚5™‚ì‚Š™‚‡|™‚‡b™‚‡S™‚ì@™‚í8™‚í0™‚홂혓™‚˜“™‚p™‚ò™‚k˜“™‚³™‚‡˜–7gghighohgono ˜ŒBDEFMETHOD (CLOS-BROWSER::CONTAINS-P (T CLOS-BROWSER:CLOS-BROWSER))™˜“€1™‚˜’Œ isl-cache€ ™z™‚¥™‚ )˜–‚ W"¸`¹hºW"k¶»Hl¶¼Hl¶½Hl¶¾j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_¿A_Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°\H@A ¹A_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿Oɺþ@Ik¶[žJK¶[gð‘h‚i€h‘KŒAIkg gg [²C@Ij¶\žJL¶\gð‘h‚i€h‘LŒAIjg gg ‘h‚i€h‘Kh™‚y˜ŒLlambda in DEFMETHOD (CLOS-BROWSER::CONTAINS-P (T CLOS-BROWSER:CLOS-BROWSER))™‚„˜“˜“˜ŒCLASS˜ŒBROWSER‚û™‚Ï‚ö™‚n‚療é‚»™‚Ï‚¶™‚n‚§™‚é‚-™‚ê‚ñ™‚ó‚왂Ђ♂Ñ‚Й‚ë‚±™‚󂬙‚Ђ¢™‚Ò‚™‚ë‚l™‚‡‚^™‚‡‚E™‚‡‚6™‚ì‚Š™‚‡|™‚‡b™‚‡S™‚ì@™‚í8™‚í0™‚í™‚í ˜“™‚€˜“™‚Ñ™‚Ò™‚ò™‚y˜“™‚³™‚Œ%™‚‡˜–‚‘no¸no¹noºno»no¼ggoogg ggghghghogLggghghghogKggghghghogJggghghghogIggghghghogHggghghghohhh ˜Œ(DEFCLASS CLOS-BROWSER::CLOS-BROWSER-NODE™˜“€‚‹™‚m[™‚n'‚k™‚o‚e™‚p‚_™‚q‚Z˜’ŒALL-METHOD-OPERATIONS™j‚U™‚s‚O™‚t‚:™‚o‚4™‚p‚.™‚q‚)˜’ŒINHERITED-METHOD-OPERATIONS™j‚$™‚s‚™‚t‚ ™‚o‚™‚p‚ý™‚q‚ø˜’ŒLOCAL-METHOD-OPERATIONS™j‚ó™‚s‚홂t‚Ø™‚o‚Ò™‚p‚Ì™‚q‚ǘ’ŒLARGE-MENU-FONT™j‚™‚s‚¼™‚t‚§™‚o‚¡™‚p‚›™‚q‚–˜’ŒLARGE-MENU-SIZE™j‚‘™‚s‚‹™‚tv™‚op™‚pj™‚qe˜’Œ MENU-CACHE™j`™‚sV™‚xQ™‚tB™‚û=™‚­ ‚q˜“™‚z™‚ß™‚|˜“™‚¿˜“ ˜“˜ŒEdit˜“™‚¿™‚ȘŒ0Bring up the editor on this method's definition.˜“™‚X˜“˜ŒInspect˜“™‚¿˜ŒINSPECT˜ŒInspect this method˜“˜ŒPrint˜“™‚¿™‚˜Œ&Pretty Print this method's definition.˜“™‚X˜“˜ŒPrint˜“™‚¿˜ŒPRINT˜ŒPrint this method's definition.˜“˜ŒDescribe˜“™‚¿™‚˜ŒDescribe this method.˜“˜Œ Documentation˜“™‚¿˜Œ DOCUMENTATION˜Œ"Print this method's documentation.˜“˜ŒDelete˜“™‚¿˜ŒDELETE˜ŒRemove this method.˜“˜ŒCopy˜“™‚¿™‚ ˜Œ Copy this method to boxed class.˜“˜ŒMove˜“™‚¿™‚˜Œ Move this method to boxed class.˜“˜ŒRename˜“™‚¿™‚˜Œ6Change the name of this method to new name you specify˜“˜ŒOverride˜“™‚¿™‚²˜Œ%Create a local method with this name.˜“˜ŒBreak˜“™‚¿˜’Œ BREAK-METHOD™g˜Œ5Cause a break window whenever this method is invoked.˜“˜ŒTrace˜“™‚¿˜’Œ TRACE-METHOD™g˜ŒTrace this method.˜“˜ŒUnBreak˜“™‚¿˜’ŒUNBREAK-METHOD™g˜ŒUnbreak this method.˜“˜ŒWho owns˜“™‚¿™‚!˜Œ5Show the classes on which this method is specialized.‚@˜“™‚z™‚ß™‚|˜“™‚¿˜“˜“˜ŒEdit˜“™‚¿™‚ȘŒ0Bring up the editor on this method's definition.˜“™‚X˜“˜ŒInspect˜“™‚¿™‚‘˜ŒInspect this method˜“˜ŒPrint˜“™‚¿™‚˜Œ&Pretty Print this method's definition.˜“™‚X˜“˜ŒPrint˜“™‚¿™‚›˜ŒPrint this method's definition.˜“˜ŒDescribe˜“™‚¿™‚˜ŒDescribe this method.˜“˜Œ Documentation˜“™‚¿™‚¤˜Œ"Print this method's documentation.˜“˜ŒOverride˜“™‚¿™‚²˜Œ%Create a local method with this name.˜“˜ŒBreak˜“™‚¿™‚À˜Œ5Cause a break window whenever this method is invoked.˜“˜ŒTrace˜“™‚¿™‚ŘŒTrace this method.˜“˜ŒUnBreak˜“™‚¿™‚ʘŒUnbreak this method.˜“˜ŒWho owns˜“™‚¿™‚!˜Œ5Show the classes on which this method is specialized.‚˜“™‚z™‚ß™‚|˜“™‚¿˜“ ˜“˜ŒEdit˜“™‚¿™‚ȘŒ0Bring up the editor on this method's definition.˜“™‚X˜“˜ŒInspect˜“™‚¿™‚‘˜ŒInspect this method˜“˜ŒPrint˜“™‚¿™‚˜Œ&Pretty Print this method's definition.˜“™‚X˜“˜ŒPrint˜“™‚¿™‚›˜ŒPrint this method's definition.˜“˜ŒDescribe˜“™‚¿™‚˜ŒDescribe this method.˜“˜Œ Documentation˜“™‚¿™‚¤˜Œ"Print this method's documentation.˜“˜ŒDelete˜“™‚¿™‚˜ŒRemove this method.˜“˜ŒCopy˜“™‚¿™‚ ˜Œ Copy this method to boxed class.˜“˜ŒMove˜“™‚¿™‚˜Œ Move this method to boxed class.˜“˜ŒRename˜“™‚¿™‚˜Œ6Change the name of this method to new name you specify˜“˜ŒBreak˜“™‚¿™‚À˜Œ5Cause a break window whenever this method is invoked.˜“˜ŒTrace˜“™‚¿™‚ŘŒTrace this method.˜“˜ŒUnBreak˜“™‚¿™‚ʘŒUnbreak this method.˜“˜ŒWho owns˜“™‚¿™‚!˜Œ5Show the classes on which this method is specialized.‚Þ˜“™‚z™‚ß™‚|˜“˜•Œ FONTCREATE˜“˜•ŒBQUOTE˜“˜•Œ HELVETICA‚­˜“™‚z™‚{™‚||˜“™‚|€L˜“™‚s™‚³G˜“˜’ŒWEB-NODE™‚„5˜–l˜Œ2lambda in DEFCLASS CLOS-BROWSER::CLOS-BROWSER-NODE™‚„˜“€)˜– o ˜Œ2lambda in DEFCLASS CLOS-BROWSER::CLOS-BROWSER-NODE™‚„˜“€™‚C˜“™‚E˜–o˜Œ2lambda in DEFCLASS CLOS-BROWSER::CLOS-BROWSER-NODE™‚„˜“€™‚@˜–o˜Œ2lambda in DEFCLASS CLOS-BROWSER::CLOS-BROWSER-NODE™‚„˜“€™‚˜–o˜Œ2lambda in DEFCLASS CLOS-BROWSER::CLOS-BROWSER-NODE™‚„˜“€™‚Ò1™‚‡%™‚‡™‚‡ ™‚‡™‚‡˜–-gghghohhhno ˜ŒGDEFMETHOD (CLOS-BROWSER::OBJECT-NAME (CLOS-BROWSER::CLOS-BROWSER-NODE))™˜“€'™‚ ™‚­™‚¯™‚ ˜–@ ˜ŒQlambda in DEFMETHOD (CLOS-BROWSER::OBJECT-NAME (CLOS-BROWSER::CLOS-BROWSER-NODE))™‚„˜“˜“˜ŒSELF™‚ý˜“™‚Ú™‚‡˜–3gghgihoohhno ˜ŒDDEFMETHOD (CLOS-BROWSER::OVERRIDE (CLOS-BROWSER::CLOS-BROWSER-NODE))™˜“€-™‚ ™‚­™‚²™‚ %˜–@hA g ˜ŒNlambda in DEFMETHOD (CLOS-BROWSER::OVERRIDE (CLOS-BROWSER::CLOS-BROWSER-NODE))™‚„˜“˜“˜ŒNODE˜ŒMETHOD™‚&™‚±˜’ŒMETHOD-GENERIC-FUNCTION™g ˜’ŒNAME™g˜Œ)Create a method specialized on the class.˜“˜’ŒNODE™j˜’ŒMETHOD™j!™‚‡˜–7gghighohgono ˜ŒCDEFMETHOD (CLOS-BROWSER::CACHE (T CLOS-BROWSER::CLOS-BROWSER-NODE))™˜“€1™‚˜’Œ isl-cache€ ™‚­™‚µ™‚ )˜–‚^W"¸`¹hºW"k¶»Hl¶¼Hl¶½Hl¶¾j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_¿A_Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°\H@A ¹A_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿OɺþB‘h€i[‘K†Bgð–g°Bgð•gŽBgð•g€h[Ij¶\žJL¶\gð‘h‚i€h‘LŒAIjg ².KIj¶\žJL¶\gð‘h‚i€h‘LŒAIjg @K¼@½Ij¶^žJN¶^gð‘h‚i€h‘NŒAIjg ¾LMN¾Ij¶]”NJM·AIjgN ™‚z˜ŒMlambda in DEFMETHOD (CLOS-BROWSER::CACHE (T CLOS-BROWSER::CLOS-BROWSER-NODE))™‚„˜“˜“˜ŒMENU˜ŒNODE™‚˜ŒINHERITED-OR-ALL‚X™‚é‚6™‚é‚™‚é‚Ü™‚é‚-™‚ê‚Q™‚Œ‚1™‚Œ‚™‚ë‚™‚Œ‚ð™‚ë‚×™‚Œ‚Å™‚낲˜’ŒALL-METHODS-MENU™j‚«™‚/‚¤˜’ŒIHHERITED-METHODS-MENU™j‚™‚!‚•˜’ŒLOCAL-METHODS-MENU™j‚Ž˜ŒLOCAL‚l™‚‡‚^™‚‡‚E™‚‡‚6™‚ì‚Š™‚‡|™‚‡b™‚‡S™‚ì@™‚í8™‚í0™‚í™‚í ˜“™‚€˜“™‚Œ™‚ò™‚z˜“˜’ŒMENU™j™‚t™‚˜’ŒINHERITED-OR-ALL™j%™‚‡˜–5gghghohgono ˜ŒCDEFMETHOD (CLOS-BROWSER::UNCACHE (CLOS-BROWSER::CLOS-BROWSER-NODE))™˜“€/™‚˜’Œ isl-cache€ ™‚­™‚¸™‚ '˜–‚ãW"¸`¹hºW"k¶»Hl¶¼Hl¶½Hl¶¾j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_¿@_Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°[H@ ¹@_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿OɺþA‘h€i[‘K†Agð–g°Agð•gŽAgð•g€hIj¶[žJK¶[gð‘h‚i€h‘KŒ@Ijg h™‚˜ŒMlambda in DEFMETHOD (CLOS-BROWSER::UNCACHE (CLOS-BROWSER::CLOS-BROWSER-NODE))™‚„˜“˜“˜ŒNODE™‚˜ŒINHERITED-OR-ALL‚Ú™‚é‚,™‚ê‚Õ™‚Œ‚ق낱™‚‚ª™‚/‚£™‚‚‚œ™‚!‚”™‚ƒ‚™‚„‚k™‚‡‚]™‚‡‚D™‚‡‚5™‚ì‚Š™‚‡|™‚‡b™‚‡S™‚ì@™‚í8™‚í0™‚홂혓™‚˜“™‚Œ™‚ò™‚˜“™‚t™‚™‚Š#™‚‡˜– gooo ˜Œ1 top-level form™˜“€™‚¾™‚½™‚À˜Œ,Middle button provides a menu of operations. ˜Œ ˜ŒLeft button to edit the method.œ™‚Ș–%@ @ g ™ ™‚È™˜“˜“˜ŒMETHOD˜ŒED˜’ŒFULL-METHOD-NAME™g ˜ŒSYMBOL-PACKAGE˜’ŒGENERIC-FUNCTION-NAME™g™‚p˜ŒDONTWAITœ™‚ɘ–‚Ó@B ¸h¹hºj»h¼H½h¾M‘M°}^¼KkÔ_»J²N–JNð°J N ð€h²JJ²JNA h ¿°&JgJA NA hh ¿KI¹NºM½°I¼h»L‘L°)»g HgKkÕgK ¸L¼°ÕoH ™‚É™˜“˜“˜ŒMETHODS˜ŒCLASS™‚˜ŒINHERITED-OR-ALL ‚Í™‚¤‚¼˜Œ DELETE-IF‚§™‚n‚„˜•Œ\NCONC2y™‚Ëp™‚Ë^™‚°W™‚Ë=™‚p5™‚p™‚Ê‚µ˜ŒEND‚­˜ŒSTART‚¢˜’ŒTRUE™‚wg™‚X‚ǘ“˜“˜Œ Add method€˜ŒHBring up an editor containing a template for a new method on this class.˜–ggo ˜Œ*DEFUN CLOS-BROWSER::MAKE-METHOD-MENU-ITEMS™˜“€™‚©™‚P™‚É ˜Œ'gather method-list into menu items listœ™‚ʘ–q@¸h¹hºh»h¼h½H^‘N°>\h ½Agð‘hŠLg ‘°MLWh»J”JK&º„KhZ¹H¸°¾Ig gg ™‚½™‚Ê™˜“˜“˜ŒMETHODS™‚˜ŒINHERITED-OR-ALLk˜ŒSORTf™‚nW™‚n/˜’Œ*TYPEP™g™‚¥a™‚Q\™‚OR˜•Œ ALPHORDER*˜’ŒSTANDARD-ACCESSOR-METHOD™g ™‚/˜–ggo ˜Œ4DEFUN CLOS-BROWSER::MAKE-TOP-LEVEL-METHOD-MENU-ITEMS™˜“€™‚©™‚P™‚Ê ˜Œ)gather local-methods into menu items listœ™‚˘–Ah¸@g ¹hºI‘I°$ºgHH•o€hJ ¸I¹°ÚH@Sh™‚½™‚Ë™˜“˜“˜ŒMETHOD˜ŒCLASS.™‚¾)˜ŒPRIN1-TO-STRING ™‚±™‚À˜’Œ SPECIALIZERS™g!˜Œ ˜–ggo ˜Œ.DEFUN CLOS-BROWSER::MAKE-MULTI-METHOD-SUB-MENU™˜“€™‚©™‚P™‚Ë ˜Œ6make a menu item to distinguish methods on the same gf˜–9gghghoogono ˜ŒMDEFMETHOD (CLOS-BROWSER:ADD-BROWSER-METHOD (CLOS-BROWSER::CLOS-BROWSER-NODE))™˜“€3™‚˜’Œ isl-cache€ ™‚­™‚Ñ™‚ +˜–‚W$¸`¹hºW$k¶»Hl¶¼Hl¶½Hl¶¾j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_¿@_Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°[H@ ¹@_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿OɺþIj¶[žJK¶[gð‘h‚i€h‘KŒ@Ijg »hoK ¼K A³*gB‘BW&o KhW(hW*hb¿AgLgg hg ™ ™‚ؘ’Œ BASIC-GAP˜‘˜ŒSEDIT˜’ŒARGS-GAP™‚Ú˜’ŒBODY-GAP™‚Ú˜ŒWlambda in DEFMETHOD (CLOS-BROWSER:ADD-BROWSER-METHOD (CLOS-BROWSER::CLOS-BROWSER-NODE))™‚„˜“˜“˜ŒNODE™‚˜ŒFORM˜Œ METHOD-NAME‚˜’ŒSEDIT™‚Ú‚™‚n‚Ù˜ŒINTERN‚¾™‚¦‚·™!‚ª™‚Á‚¥™‚é‚,™‚ê‚ ™‚¨‚ý™‚ð‚ø˜Œ COMPLETION-FN‚ò™‚s‚ɘ’Œ DEFMETHOD™g‚ ™‚³‚Ž™‚ë‚k™‚‡‚]™‚‡‚D™‚‡‚5™‚ì‚Š™‚‡|™‚‡b™‚‡S™‚ì@™‚í8™‚í0™‚홂í‚Ô˜ŒSELF‚±˜ŒNew method on ~A"˜“™‚˜“™‚³™‚ò™‚ؘŒ:bring up sedit on a template to add a method to this class˜“™‚t™‚˜’ŒFORM™j˜’Œ METHOD-NAME™j'™‚‡˜–5gghghohgono ˜ŒGDEFMETHOD (CLOS-BROWSER::BROWSE-SUBS (CLOS-BROWSER::CLOS-BROWSER-NODE))™˜“€/™‚˜’Œ isl-cache€ ™‚­™‚Ô™‚ '˜–‚ºW"¸`¹hºW"k¶»Hl¶¼Hl¶½Hl¶¾j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_¿@_Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°[H@ ¹@_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿OɺþIj¶[žJK¶[gð‘h‚i€h‘KŒ@Ijg g ™‚õ˜ŒQlambda in DEFMETHOD (CLOS-BROWSER::BROWSE-SUBS (CLOS-BROWSER::CLOS-BROWSER-NODE))™‚„˜“˜“˜ŒNODE‚´™t‚¯™‚±‚¥™‚é‚,™‚ꂪ™‚q‚ ™‚³‚Ž™‚ë‚k™‚‡‚]™‚‡‚D™‚‡‚5™‚ì‚Š™‚‡|™‚‡b™‚‡S™‚ì@™‚í8™‚í0™‚홂혓™‚˜“™‚³™‚ò™‚õ˜“™‚t#™‚‡˜–5gghghohgono ˜ŒFDEFMETHOD (CLOS-BROWSER::EDIT-CLASS (CLOS-BROWSER::CLOS-BROWSER-NODE))™˜“€/™‚˜’Œ isl-cache€ ™‚­™‚×™‚ '˜–‚ÄW$¸`¹hºW$k¶»Hl¶¼Hl¶½Hl¶¾j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_¿@_Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°[H@ ¹@_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿OɺþIj¶[žJK¶[gð‘h‚i€h‘KŒ@Ijg [ Ko ™ ™‚˜ŒPlambda in DEFMETHOD (CLOS-BROWSER::EDIT-CLASS (CLOS-BROWSER::CLOS-BROWSER-NODE))™‚„˜“˜“˜ŒNODE‚¾™‚¤‚°™‚¦‚ª™‚Á‚¥™‚é‚,™‚ê‚ ™‚³‚Ž™‚ë‚k™‚‡‚]™‚‡‚D™‚‡‚5™‚ì‚Š™‚‡|™‚‡b™‚‡S™‚ì@™‚í8™‚í0™‚홂킹˜“˜’ŒCLASSES™j™‚¨˜“™‚˜“™‚³™‚ò™‚˜“™‚t#™‚‡˜–5gghghohgono ˜ŒIDEFMETHOD (CLOS-BROWSER::INSPECT-CLASS (CLOS-BROWSER::CLOS-BROWSER-NODE))™˜“€/™‚˜’Œ isl-cache€ ™‚­™‚Ú™‚ '˜–‚°W"¸`¹hºW"k¶»Hl¶¼Hl¶½Hl¶¾j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_¿@_Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°[H@ ¹@_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿OɺþIj¶[žJK¶[gð‘h‚i€h‘KŒ@Ijg ™‚˜ŒSlambda in DEFMETHOD (CLOS-BROWSER::INSPECT-CLASS (CLOS-BROWSER::CLOS-BROWSER-NODE))™‚„˜“˜“˜ŒOBJECT‚ª™‚‘‚¥™‚é‚,™‚ê‚ ™‚³‚Ž™‚ë‚k™‚‡‚]™‚‡‚D™‚‡‚5™‚ì‚Š™‚‡|™‚‡b™‚‡S™‚ì@™‚í8™‚í0™‚홂혓™‚˜“™‚³™‚ò™‚˜“˜’ŒOBJECT™g#™‚‡˜–9gghghoogono ˜ŒHDEFMETHOD (CLOS-BROWSER::MENU-METHODS (CLOS-BROWSER::CLOS-BROWSER-NODE))™˜“€3™‚˜’Œ isl-cache€ ™‚­™‚Ý™‚ +˜–‚¾W$¸`¹hºW$k¶»Hl¶¼Hl¶½Hl¶¾j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_¿@_Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°[H@ ¹@_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿OɺþIj¶[žJK¶[gð‘h‚i€h‘KŒ@Ijg [g D’h°`g gð‘h€i²eA‘h€i\‘L†Agð–g°Agð•gŽAgð•g€hIl¶\žJL¶\gð‘h‚i€h‘L@Ilg ¼L€h\‘h€i]‘M‰LÑh€i¢±TB³OA‘h€i]‘M†AgðKg °'Agð—K °Agð›Kg €hK b¿`½C–K „o¾M_¿MN¿O¾B Il¶]žJM¶]gð‘h‚i€h‘M@Ilg ó²*Ik¶]žJM¶]gð‘h‚i€h‘MŽ@Ikg €h½N_¿NM¿O]¾Mo"¿N½@AB ¾M_¿MN¿O¾BC‘h„o ½N_¿NM¿O]¾Mg ¿N]¾Mg¿N½jjnÿnÿh¾M_¿MN ¿O\@A ¿C›L L ™ ™‚˜ŒRlambda in DEFMETHOD (CLOS-BROWSER::MENU-METHODS (CLOS-BROWSER::CLOS-BROWSER-NODE))™‚„˜“˜“˜ŒNODE™‚˜ŒINHERITED-OR-ALL˜ŒITEMS˜ŒFIX-FLAG˜ŒRECOMPUTE-FLAG‚¸˜•ŒMENU‚±˜•ŒMOVEW‚¬˜•ŒADDMENU‚£™‚µ‚]™‚¤‚A™‚à‚™‚é‚ô™‚邢ŒLENGTH‚²™‚Á‚ ™‚É‚˜™‚ú‚ƒ™‚ú‚r™‚±‚6™‚é‚Ì™‚±‚µ™‚¦‚°™‚±‚¥™‚é‚,™‚ê'‚}˜•ŒDEFAULTMENUHELDFN‚q˜•Œ CLRPROMPT‚™‚Š‚™‚ë‚‹‚Ü™‚남˜•Œ MENUTYPE#‚“™‚/‚‹™‚/‚{™‚!‚m˜’ŒDIRECT-METHODS™g‚e™‚„‚K™‚(‚1™‚Œ‚™‚ë‚ ™‚‚™‚/‚ý™‚‚‚ö™‚!‚ƒ‚療„‚јŒNONE‚Ç™‚r‚™k‚«™‚q‚ ™‚³‚Ž™‚ë‚k™‚‡‚]™‚‡‚D™‚‡‚5™‚ì‚Š™‚‡|™‚‡b™‚‡S™‚ì@™‚í8™‚í0™‚홂í‚X˜“˜“˜ŒFix menu€˜ŒNPlace this menu on the screen. WARNING: cached menues are not kept up-to-date‚4˜“˜ŒESCAPE‚¸˜Œmethods"˜“™‚˜“™‚³™‚Š™‚‹™‚Œ™‚ò™‚˜ŒBpops up a menu of the methods for the class representing the node.˜“™‚t™‚™‚Š˜’ŒITEMS™j˜’ŒFIX-FLAG™j˜’ŒRECOMPUTE-FLAG™j'™‚‡˜–-gghghohhhno ˜ŒODEFMETHOD (CLOS-BROWSER::MAKE-WHENSELECTEDFN (CLOS-BROWSER::CLOS-BROWSER-NODE))™˜“€'™‚ ™‚­™‚à™‚ ˜–‚³gogogogogg@hohogg@hgAhgBhohoggggoggggggggggg@hgA‘h€iX‘H†Agð–g°Agð•gŽAgð•g€hhhhhhhhhggoogggogg@hohhooggg@hohohhhh˜ŒYlambda in DEFMETHOD (CLOS-BROWSER::MAKE-WHENSELECTEDFN (CLOS-BROWSER::CLOS-BROWSER-NODE))™‚„˜“˜“˜ŒNODE™‚˜ŒINHERITED-OR-ALL˜ŒITEMS*‚‚™‚¿‚}˜’Œ OPERATION™j‚x˜ŒFUNCALL‚U™‚¿‚P™‚±‚F™‚u‚A™‚J‚<™‚K‚-™‚J‚(˜ŒCASE‚™‚‡‚ú™‚/‚󙂈‚왂!‚䙂‰‚Ý™‚„‚Ι‚¿‚Å™‚¿‚À™‚±‚»˜•Œ_‚¶˜•ŒITEMS‚±™‚ð‚¬™‚M‚§˜•ŒTITLE‚¢™‚(‚˜•ŒCREATE‚˜™‚(‚“˜•ŒMIDDLE‚‰˜’Œ MOUSE-KEY™j‚„™‚L™‚Jz™ ]™‚¿T™‚¿K™‚¿F™‚Ý.™‚¿)™‚јŒCOND˜ŒIF ™ ˜ŒLAMBDA‚–˜“˜“˜Œ OTHERWISE˜“™‚K™‚J™‚u‚‹˜“™‚u‚s˜“™‚²‚n˜“˜“™‚«˜“™‚˜•Œ MOUSECONFIRM˜“™!€˜Œ.Are you sure you wish to delete the ~A method?˜“™‚¥™‚u˜“™‚K™‚J™‚u‚^˜“˜“™‚¿™‚³‚K˜“˜ŒPROGN˜“˜ŒUNLESS˜“™‚±™k˜“™‚¿™‚u˜“™‚¹˜Œ,Please box a destination class, then say OK.˜“™‚±˜“™‚±˜“™‚±™k˜“™‚¿™‚u˜“™‚¿™‚1˜“™‚¿™‚³‚7˜“™‚ ™‚‚2˜“˜“€€‚Ž˜“˜•ŒLEFT˜“™‚¿™‚Èr˜“˜“™‚Jf˜“A˜“˜ŒSTRING=™‚ð˜ŒFix menu7˜“€$˜“™‚~™‚𘌠Add method˜“˜ŒNULL™‚u˜“˜“™‚𘓘ŒFIRST˜’Œ MENU-ITEM™j˜“™‚u˜“˜ŒSECOND™‚‡˜“™‚‡˜ŒIGNORE™‚R˜“™‚t™‚™‚Š™‚=™‚‡˜–5gghghohgono ˜ŒJDEFMETHOD (CLOS-BROWSER::DESCRIBE-CLASS (CLOS-BROWSER::CLOS-BROWSER-NODE))™˜“€/™‚˜’Œ isl-cache€ ™‚­™‚㙂 '˜–‚²W"¸`¹hºW"k¶»Hl¶¼Hl¶½Hl¶¾j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_¿@_Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°[H@ ¹@_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿OɺþIj¶[žJK¶[gð‘h‚i€h‘KŒ@Ijg W$ ™‚•˜Œ*TRACE-OUTPUT*˜ŒTlambda in DEFMETHOD (CLOS-BROWSER::DESCRIBE-CLASS (CLOS-BROWSER::CLOS-BROWSER-NODE))™‚„˜“˜“˜ŒSELF‚¬˜’ŒDESCRIBE-OBJECT™g‚¥™‚é‚,™‚ê‚ ™‚³‚Ž™‚ë‚k™‚‡‚]™‚‡‚D™‚‡‚5™‚ì‚Š™‚‡|™‚‡b™‚‡S™‚ì@™‚í8™‚í0™‚홂혓™‚˜“™‚³™‚ò™‚•˜“™‚Ú#™‚‡˜–5gghghohgono ˜ŒODEFMETHOD (CLOS-BROWSER::DOCUMENTATION-CLASS (CLOS-BROWSER::CLOS-BROWSER-NODE))™˜“€/™‚˜’Œ isl-cache€ ™‚­™‚時 '˜–‚°W"¸`¹hºW"k¶»Hl¶¼Hl¶½Hl¶¾j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_¿@_Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°[H@ ¹@_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿OɺþIj¶[žJK¶[gð‘h‚i€h‘KŒ@Ijg ™‚¤˜ŒYlambda in DEFMETHOD (CLOS-BROWSER::DOCUMENTATION-CLASS (CLOS-BROWSER::CLOS-BROWSER-NODE))™‚„˜“˜“˜ŒSELF‚ª™‚¤‚¥™‚é‚,™‚ê‚ ™‚³‚Ž™‚ë‚k™‚‡‚]™‚‡‚D™‚‡‚5™‚ì‚Š™‚‡|™‚‡b™‚‡S™‚ì@™‚í8™‚í0™‚홂혓™‚˜“™‚³™‚ò™‚¤˜“™‚Ú#™‚‡˜–5gghghohgono ˜ŒGDEFMETHOD (CLOS-BROWSER::PRINT-CLASS (CLOS-BROWSER::CLOS-BROWSER-NODE))™˜“€/™‚˜’Œ isl-cache€ ™‚­™‚陂 '˜–‚ÄW"¸`¹hºW"k¶»Hl¶¼Hl¶½Hl¶¾j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_¿@_Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°[H@ ¹@_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿OɺþIj¶[žJK¶[gð‘h‚i€h‘KŒ@Ijg g g ™‚±˜ŒQlambda in DEFMETHOD (CLOS-BROWSER::PRINT-CLASS (CLOS-BROWSER::CLOS-BROWSER-NODE))™‚„˜“˜“˜ŒSELF‚¾˜ŒPPRINT‚¹˜•ŒGETDEF‚¯™‚±‚¥™‚é‚,™‚ê‚´™‚‚ª™‚q‚ ™‚³‚Ž™‚ë‚k™‚‡‚]™‚‡‚D™‚‡‚5™‚ì‚Š™‚‡|™‚‡b™‚‡S™‚ì@™‚í8™‚í0™‚홂혓™‚˜“™‚³™‚ò™‚±˜“™‚Ú#™‚‡˜–5gghghohgono ˜ŒLDEFMETHOD (CLOS-BROWSER::SPECIALIZE-CLASS (CLOS-BROWSER::CLOS-BROWSER-NODE))™˜“€/™‚˜’Œ isl-cache€ ™‚­™‚왂 '˜–‚²W"¸`¹hºW"k¶»Hl¶¼Hl¶½Hl¶¾j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_¿@_Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°[H@ ¹@_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿OɺþIj¶[žJK¶[gð‘h‚i€h‘KŒ@Ijg AB ™‚À˜ŒVlambda in DEFMETHOD (CLOS-BROWSER::SPECIALIZE-CLASS (CLOS-BROWSER::CLOS-BROWSER-NODE))™‚„˜“˜“˜ŒNODE™‚˜ŒFORM˜ŒNEW-CLASS-NAME‚¬™‚þ‚¥™‚é‚,™‚ê‚ ™‚³‚Ž™‚ë‚k™‚‡‚]™‚‡‚D™‚‡‚5™‚ì‚Š™‚‡|™‚‡b™‚‡S™‚ì@™‚í8™‚í0™‚홂혓™‚˜“™‚³™‚ò™‚À˜“™‚t™‚™‚ŒNEW-CLASS-NAME™j#™‚‡œ™‚ð˜–Aekó”eló™ll ¿elÙjð¤la¸i¸HgðY‘I„H‘h€i‘hA ™‚ð‚ÿÿÿÿ™˜“˜“˜ŒCONTEXT˜Œ STRUCTURE™‚˜ŒCHANGED?;˜ŒEVAL6˜Œ COPY-TREE™‚ˆ#˜ŒABORTœ™‚ñ˜–>nXA¿BgðY‘I„B‘h€i‘hHý¿noHkoH-™‚ñ™˜“˜“˜ŒIGNORE˜Œ STRUCTURE˜ŒCHANGED?˜•ŒCURSOR ™‚Õ6˜–}` ¿HÉ Yd3@ð–I ¹`g ºh»J‘J„hh°4»Ig ¼h½L‘L°]K ˜KI ¿„L¼°åJº°Çj@¿ ˜’Œ*UNWIND-PROTECT*™‚‡™‚„˜“˜“˜ŒG505 w˜Œ VALUES-LISTb™}Z™‚¥I™‚±0™‚± ™‚š™‚Ó™‚Ô˜•Œ SETCURSORD˜’ŒDIRECT-SUPERCLASSES™g+™‚y&™k˜•Œ WAITINGCURSOR+˜– HÉ ˜ŒClean-up forms™‚„˜“€™‚â'™‚‡™‚Ãœ™‚ò˜–+nXA¿Hý¿noHkoH-™‚ò™˜“˜“˜ŒIGNORE˜Œ STRUCTURE ™‚Ü#˜–}` ¿HÉ Yd3@ð–I ¹`g ºh»J‘J„hh°4»Ig ¼h½L‘L°]K ˜KI ¿„L¼°åJº°Çj@¿ ™‚Ý™‚„˜“˜“˜ŒG513 w™‚áb™}Z™‚¥I™‚±0™‚± ˜’Œ SYMBOL-CLASS™g™‚Ó™‚Ô™‚âD˜’Œ LOCAL-SUPERS™g+™‚y&™k™‚䘖 HÉ ™‚時„˜“€™‚♂‡™‚Ãœ™‚ó˜–@Ag ð™‚󙘓˜“˜ŒCLASS˜ŒNODE™‚±™‚³œ™‚ô˜– @g ™‚ô™˜“˜“˜ŒCLASS™‚±™‚/˜–9gghghoogono ˜ŒOOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°[H@ ¹@_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿Oɺþh»h¼Ij¶]žJM¶]gð‘h‚i€h‘MŒ@Ijg ½h¾Ik¶_²JO¶_gð‘h‚i€h’OŒ@Ikg _¿i _¿Agð³LOK»@K»O_¿h_¿h_¿h_¿O£O°*O _¿O˜OO&_¿ˆOh__¿O_¿°Ó¼M_¿h_¿O’O‚±×_K’±ÅO _¿h_¿O’O‚±­_ _L’±kOg ÿ–ON¾°sOg _¿h_¿O’O°X_g _ ¿h_"¿O ’O °4_"¿OO"ð‘hƒO"M²O_$¿N_&¿ON’O&„O$O&¾‡O _ ¿°ÈO_¿°¤OL¼O_¿±ÿPO_¿±ÿ&N™‚˜ŒFlambda in DEFMETHOD (CLOS::COMPUTE-INHERITED-METHODS (STANDARD-CLASS))™‚„˜“˜“˜ŒSELF™‚˜ŒALL-FLAG ‚½™‚±‚¡™‚±‚Œ™‚+‚‡™‚±‚r™‚p‚Y™‚ô‚™‚p‚♂š‚Ø™‚é‚©™‚é‚,™‚ꂸ™‚Ï‚œ™|‚‚™‚Ï‚뙂/‚Ó™‚/‚À™‚낤˜’ŒCLASS-PRECEDENCE-LIST™g‚’™‚ë‚k™‚‡‚]™‚‡‚D™‚‡‚5™‚ì‚Š™‚‡|™‚‡b™‚‡S™‚ì@™‚í8™‚í0™‚홂í"˜“™‚˜“™‚™‚/™‚ò™‚˜Œ~Compute and return all inherited methods of a class. If all-flag eq :all then methods on t and the passed class are included.˜“˜’ŒSELF™g™‚˜’ŒALL-FLAG™g'™‚‡˜–-gghghohhhno ˜Œ5DEFMETHOD (CLOS-BROWSER::SPECIALIZE (STANDARD-CLASS))™˜“€'™‚ ™‚û™‚þ™‚ ˜–_@ ¸hoH ¹H A³gB‘B€SHhThhb¿AgIgg hg ™ ™‚Û™‚ݘŒ?lambda in DEFMETHOD (CLOS-BROWSER::SPECIALIZE (STANDARD-CLASS))™‚„˜“˜“˜ŒCLASS™‚˜ŒFORM˜ŒNEW-CLASS-NAMEY™‚äJ™‚n™‚¦™!™‚ÁT™‚¨E™‚ñ@™‚æ:™‚s!˜’ŒDEFCLASS™g ˜ŒNew sub-class of ~A˜“™‚³™‚™‚Ë™‚‡˜–5gghghohgono ˜Œ8DEFMETHOD (CLOS-BROWSER::SUBCLASSES-OF (STANDARD-CLASS))™˜“€/™‚˜’Œ isl-cache€ ™‚û™‚£™‚ '˜–‚÷W"¸`¹hºW"k¶»Hl¶¼Hl¶½Hl¶¾j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_¿@_Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°[H@ ¹@_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿Oɺþ@hIj¶[žJK¶[gð‘h‚i€h‘KŒ@Ijg »h¼h½h¾K¢L°:K_g —O ƒOh¾M”MN¿N¼N‘i€h–N ½K»°Å ™‚!˜ŒBlambda in DEFMETHOD (CLOS-BROWSER::SUBCLASSES-OF (STANDARD-CLASS))™‚„˜“˜“˜ŒCLASS‚ñ™‚¤‚時þ‚Ê™‚£‚™‚±‚¨™‚é‚,™‚ꂽ™‚p‚£™‚p‚‘™‚ë‚k™‚‡‚]™‚‡‚D™‚‡‚5™‚ì‚Š™‚‡|™‚‡b™‚‡S™‚ì@™‚í8™‚í0™‚홂혓™‚˜“™‚p™‚ò™‚!˜“™‚³#™‚‡˜–5gghghohgono ˜Œ9DEFMETHOD (CLOS-BROWSER::DELETE-METHOD (STANDARD-METHOD))™˜“€/™‚˜’Œ isl-cache€ ™‚ ™‚™‚ '˜–‚±W"¸`¹hºW"k¶»Hl¶¼Hl¶½Hl¶¾j_¿j_¿j_¿j_¿`_¿`_¿`_¿h_¿h_¿@_Ñ°OOÿOO¶_Oð°ÚjOÿ‘°"l_¿°×OkÔ_¿OO¶¹Oj¶_Oÿ‘°[H@ ¹@_Ñ°;O_ ¿OÛjO Êð‘h‚i€h°)OÉÉ_¿OÉɺ‹OÉ_¿OɺþIj¶[žJK¶[gð‘h‚i€h‘KŒ@Ijg @ ™‚.˜ŒClambda in DEFMETHOD (CLOS-BROWSER::DELETE-METHOD (STANDARD-METHOD))™‚„˜“˜“˜ŒMETHOD‚«˜’Œ REMOVE-METHOD™g‚¥™‚é‚,™‚ê‚ ˜’ŒGENERIC-FUNCTION™g‚Ž™‚ë‚k™‚‡‚]™‚‡‚D™‚‡‚5™‚ì‚Š™‚‡|™‚‡b™‚‡S™‚ì@™‚í8™‚í0™‚홂혓™‚˜“™‚4™‚ò™‚.˜“™‚u#™‚‡˜–3gghgghohhhno ˜Œ?DEFMETHOD (CLOS-BROWSER::COPY (STANDARD-METHOD STANDARD-CLASS))™˜“€-™‚™‚û ™‚ ™‚ ™‚ %˜–‚CABð‘hoºh»J¹n~¼JW@ g »g‚h¹^gð“K°NÑhˆNJ º@ »h¾h_¿h_¿K¢N°'K_ið‘hO_¿N˜OO&_¿†Oh_¾K»°Ø»J³io@h ¿hB²!BK³fo@h B ¿°LK ^jð²io@h ¿°,Nkð–Kb¿°!ho@h b¿JB A ¿J ˜•Œ*CONDITION-HANDLER-BINDINGS*˜’Œ*CATCH-RETURN-PC*™‚‡˜’Œ*CATCH-RETURN-TO*™‚‡ ™‚=˜ŒIlambda in DEFMETHOD (CLOS-BROWSER::COPY (STANDARD-METHOD STANDARD-CLASS)) ™‚„˜“˜“˜ŒMETHOD˜ŒTO-CLASS™‚˜Œ FROM-CLASS‚=™‚›‚8™‚Ó‚1™‚,‚,™‚Á‚&™‚Á‚™‚ñ‚˜•Œ PROMPTFORWORD‚™!‚ ™‚¥‚ò™!‚홂¥‚Û™‚+‚Ò™‚¹‚Í™‚Á‚Ç™‚¥‚°™!‚«™‚¥e˜’ŒMETHOD-SPECIALIZERS™g^™‚ÔY˜’ŒCONDITION-CASE-ERROR™‚‡.˜•Œ\MVLIST)™‚·™‚¥M™‚¹A˜ŒNORMAL4™‚J$˜’ŒMETHODS™j‚˜Œ+Which class in ~A do you wish to move from?‚昌*Unspecialized methods cannot be copied. ~A‚À˜Œ0The ~A method is not specialized on the ~A class‚¤˜Œ#The definition for ~A is not loaded˜›˜“˜’ŒCREATE-CONDITION-CASE-LITERALS™‚‡˜“™‚¿™‚¹˜“™‚u˜’ŒTO-CLASS™j™‚˜’Œ FROM-CLASS™j!™‚‡˜–3gghgghohhhno ˜Œ5DEFMETHOD (WEB:MOVE (STANDARD-METHOD STANDARD-CLASS))™˜“€-™‚™‚û ™‚ ™‚™‚ %˜–‚½ABð‘h@AB –@ iooºh»J¹nŠ¼JW@ »g‚h¹^gð“K°NÑhˆNJ oºh»J¹n×¼JWA »g‚h¹^gð“K°NÑhˆNJ ™‚=™‚=™‚>™‚?™‚=˜Œ?lambda in DEFMETHOD (WEB:MOVE (STANDARD-METHOD STANDARD-CLASS))™‚„˜“˜“˜ŒMETHOD˜ŒTO-CLASS™‚˜Œ FROM-CLASS ‚·™!‚²™‚H‚‡™‚I‚‚™‚Áe™‚H:™‚I5™‚¥™‚ ™‚ ‚¦™‚¹‚š™‚J‚™‚JY™‚¹M™‚J@™‚Jj˜›˜“™‚P˜“™‚¿™‚¹˜›˜“™‚P˜“™‚¿™‚¹˜Œcopy of ~A to ~A failed˜“™‚u™‚U™‚™‚V!™‚‡˜–-gghghohhhno ˜Œ™‚? ™‚=˜Œlambda in DEFMETHOD (CLOS-BROWSER::WHO-OWNS (STANDARD-METHOD))™‚„˜“˜“˜ŒMETHOD™‚›™‚¥˜“™‚u™‚‡˜–;ggogghoohhno ˜ŒIDEFMETHOD (ADD-METHOD :AFTER (STANDARD-GENERIC-FUNCTION STANDARD-METHOD))™˜“€5™‚™‚ ™‚(™‚&™‚ -˜–@h¸A²0`g ²`g Xgð‘h„i‚h€h—AH ¿@˜ŒSlambda in DEFMETHOD (ADD-METHOD :AFTER (STANDARD-GENERIC-FUNCTION STANDARD-METHOD))™‚„˜“˜“˜ŒGENERIC-FUNCTION˜ŒMETHOD8™‚!™‚±™‚±'™‚0™‚r™k ™‚y™k"˜ŒUpdate cached menues.˜“˜’ŒGENERIC-FUNCTION™j™‚u ˜“™‚')™‚‡œ™‚,˜–;eló¨lh ¿gµh¸a¸BAH²@ ¹I€@ ™‚,‚ÿÿÿÿ™˜“˜“˜ŒMETHOD-DEFINITION˜ŒFROM-CLASS-NAME˜Œ TO-CLASS-NAME™‚’˜ŒIN-LAMDA-LIST-ONLY-FLAG5˜ŒNSUBST)™‚I$˜’ŒPARSE-DEFMETHOD™g ™‚ˆ™‚ǘ–#o¿gg ˜Œ2 top-level forms™˜“€™‚7™‚5™$ ™‚8™‚2˜Œ0.02œ™‚E˜–‚Þ`X¹Ho¿I¸¹hºh»h¼h½h¾I_’O°Q] ¾M _’O€No gNhoNo h¼K”KL&»„Lh[ºI¹°©Jno ¾H½HN¿M^¸Ni ¿H^¸Ng ¿H^¸Ng¿H¾jjnÿnÿh¸N½NH ¿M X–H h™‚E™˜“€‚Ö™‚Ι‚(‚‰˜•ŒSORTb˜•ŒCONCATI™‚Ó7˜ŒPACKAGE-NICKNAMES0˜Œ PACKAGE-NAME˜ŒLIST-ALL-PACKAGES‚®™‚,‚¢™‚-N™‚¿™‚.‚‚˜– @A ˜Œlambda in IN-SELECT-PACKAGE™‚„˜“˜“™‚˜ŒX˜ŒY˜Œ INTERLISP™‚Ã]˜Œ:W˜ŒSet the current package to D˜Œ: ˜ŒSelect package~™‚‡˜–ggo ˜Œ%DEFUN CLOS-BROWSER::IN-SELECT-PACKAGE™˜“€™‚©™‚P™‚E ˜Œpops up a menu of packagesœ™‚F˜–‚`nX@¿hHý¿HÉìHÉ Hý¿A¢±HɹHÉɺIÉ»h¼h½h¾h_¿h_¿h_¿h_¿h_¿HÉÉ’±™HÉÉÉ_¿HÉÉÉ_¿j½O_¿O_¿O¾O_¿O_¿O_¿N _¿MO:–O‘°Í°9OM¶kñ²)NM¶ \ HÉð—Li €h™LHÉHý¿MkÔ_½°¿HÉÉÉ_¿HÉÉÉ_¿j½O_¿O_¿O¾O_¿O_¿O_¿N _¿MO:–O‘°Í°9OM¶kñ²)NM¶ \ HÉð—Li €h™LHÉHý¿MkÔ_½°¿K¤h¼±ÀK_É_¿OÉ_¿j½O_¿O_¿O¾O_¿O_¿O_¿N _¿MO:™O‘°ÍK»°§OM¶kñ²ENM¶ ¼J‘h€i_’OL I Lð²!L HÉð—Li €h™LHÉHý¿MkÔ_½° noHW ¿HÉ ˜’Œ *FIND-CLASS*™g™‚F ™˜“˜“˜ŒPACKAGE™‚˜ŒMAP-ON-PACKAGE‚V˜ŒMAPHASH‚,™‚ñ‚ ™‚¦‚˜Œ FIND-SYMBOL‚˜Œ SYMBOL-NAME‚þ˜•Œ\INDEXATOMPNAME‚ܘŒARRAY-TOTAL-SIZE‚~™‚ñ‚r™‚¦‚l™‚ï‚M™‚ð‚虂ñ‚Ü™‚¦‚Ö™‚ï‚·™‚𙂯˜ŒPACKAGE-HASHTABLE‚£™‚ñ‚ ™‚ñ‚˜ŒPACKAGE‚ ™‚ñ‚™‚ò‚Š™‚ñ‚ƒ™‚òv™‚ño™‚òa™‚ò;™‚ò2™‚ò™‚ò‚J˜–@ HÉð›@HÉdHý¿h˜Œlambda in CLASSES-IN-PACKAGE™‚„˜“˜“˜ŒKEY˜ŒVAL™‚¦‚F™‚‡™‚Ø–ggo ˜Œ&DEFUN CLOS-BROWSER::CLASSES-IN-PACKAGE™˜“€™‚©™‚P™‚F ˜ŒiRetrieves a list of all the classes for a given package. When map-on-package is t this can be very slow.˜–7gPgg c¿oPc¿hc¿o ™‚K™‚c˜Œ4 top-level forms™˜“€1™ ™‚L™‚n ™‚Q™‚O™‚M,˜“™%˜•Œ COPYRIGHT˜“˜ŒVenue‚ǂ䘓™‚M˜“™t˜ŒBring up a class browser.˜“™‚X˜“™‚Y˜“™t˜“™‚F˜“™‚E˜ŒDSelect a package and browse all the classes defined in that package.š‚ÿÿ