dribbling to file "ole\\samples\\tech_corner\\msxdefs.cl"
 
nil
cl-user(10): (pprint (macroexpand
 '(ole:def-ole-linkage #:msx :application "InternetExplorer")))
Warning: ;; Reusing prior version of package msx

(progn (defpackage #:msx (:use)
                   (:export msx:decode-OLECMDF msx:Count
                    msx:NotifySearchSettingsChanged
                    msx:OLECMDID_DONTDOWNLOADCSS
                    msx:-ClientToHostWindow
                    msx:OLECMDID_SHOWPAGEACTIONMENU
                    msx:OLECMDID_ONUNLOAD msx:StatusBar msx:StatusText
                    msx:-NewWindow msx:ToolBar msx:Refresh2
                    msx:FindComputer msx:OLECMDID_SHOWFIND msx:Root
                    msx:AddNextMenuItem msx:-PropertyChange
                    msx:SWFO_INCLUDEPENDING msx:Import msx:-OnQuit
                    msx:-WindowActivate msx:advanceError msx:Navigate
                    msx:ShellSearchAssistantOC msx:ShowFindPrinter
                    msx:-WindowSetWidth msx:NavigateToDefaultSearch
                    msx:OLECMDID_PREREFRESH msx:SWC_CALLBACK
                    msx:ShowBrowserUI msx:-WindowSetResizable
                    msx:Searches msx:secureLockIconUnsecure
                    msx:-OnVisible msx:NETDetectNextNavigate
                    msx:READYSTATE_UNINITIALIZED msx:SelectedItems
                    msx:-FrameBeforeNavigate msx:SetRoot
                    msx:retreatError msx:OLECMDF_DEFHIDEONCTXTMENU
                    msx:decode-SecureLockIconConstants msx:HWND
                    msx:TopLevelContainer msx:OLECMDID_PASTESPECIAL
                    msx:IsSubscribed msx:ShellBrowserWindow
                    msx:OLECMDEXECOPT_SHOWHELP msx:OLECMDID_OPEN
                    msx:getErrorCode msx:SetDefaultSearchUrl
                    msx:-WindowSetLeft msx:OLECMDID_SETPRINTTEMPLATE
                    msx:QueryStatusWB msx:OLECMDID_FIND
                    msx:OLECMDID_PRINTPREVIEW2 msx:PutProperty msx:Type
                    msx:-FrameNewWindow msx:CSC_UPDATECOMMANDS
                    msx:ShellShellNameSpace msx:SWC_3RDPARTY msx:Item
                    msx:READYSTATE_LOADED msx:OLECMDID_UPDATEPAGESTATUS
                    msx:-OnNextMenuSelect msx:SWC_EXPLORER
                    msx:-DocumentComplete msx:READYSTATE_COMPLETE
                    msx:-ProgressChange msx:-FavoritesSelectionChange
                    msx:Version msx:MoveSelectionUp msx:SetViewType
                    msx:-PrivacyImpactedStateChange msx:getErrorLine
                    msx:SearchCompanionAvailable msx:ResetSort
                    msx:CSC_NAVIGATEBACK msx:ShowBrowserBar
                    msx:OLECMDEXECOPT_DONTPROMPTUSER msx:SWC_BROWSER
                    msx:decode-OLECMDID msx:-WindowResize
                    msx:ProcessAttachDetach msx:READYSTATE_INTERACTIVE
                    msx:GoBack msx:OLECMDID_SHOWPAGESETUP
                    msx:decode-OLECMDEXECOPT
                    msx:OLECMDID_PAGEACTIONBLOCKED msx:OLECMDID_CUT
                    msx:-WindowClosing msx:AutoCompleteAttach
                    msx:-NewWindow2 msx:Height msx:OLECMDID_REDO
                    msx:-WindowRevoked msx:-WindowSetHeight
                    msx:-OnStatusBar msx:AutoCompleteSaveForm
                    msx:EncodeString msx:ClientToWindow
                    msx:-NavigateComplete msx:AddFavorite msx:GoSearch
                    msx:FindOnWeb msx:OLECMDID_SETTITLE msx:Document
                    msx:OLECMDID_PROPERTIES msx:-DownloadComplete
                    msx:MenuBar msx:CreateSubscriptionForSelection
                    msx:OLECMDID_SELECTALL msx:ShellUIHelper
                    msx:OLECMDID_SETDOWNLOADSTATE msx:OLECMDID_STOP
                    msx:Stop msx:Revoke msx:Visible
                    msx:decode-ShellWindowFindWindowOptions msx:Columns
                    msx:OnNavigate msx:WebBrowser
                    msx:GetSearchAssistantURL msx:ASSetting
                    msx:-SetSecureLockIcon msx:RefreshOfflineDesktop
                    msx:AddDesktopComponent msx:OLECMDID_SAVE
                    msx:RegisterAsBrowser msx:AutoScan
                    msx:OLECMDF_LATCHED msx:Container
                    msx:secureLockIconMixed msx:OnActivated
                    msx:OLECMDID_ALLOWUILESSSAVEAS msx:RegisterPending
                    msx:secureLockIconSecure128Bit
                    msx:secureLockIconSecureUnknownBits msx:UnselectAll
                    msx:OnCreated msx:-Quit msx:OLECMDID_SHOWPRINT
                    msx:setDetailsPaneOpen msx:ShellFeaturesEnabled
                    msx:SearchAssistantOC msx:OLECMDID_SETPROGRESSMAX
                    msx:ASProvider msx:getDetailsPaneOpen
                    msx:OLECMDF_NINCHED msx:OLECMDID_HIDETOOLBARS
                    msx:OLECMDID_HTTPEQUIV msx:OLECMDID_SHOWMESSAGE
                    msx:getErrorMsg msx:-FileDownload
                    msx:RegisterAsDropTarget msx:CScriptErrorList
                    msx:OLECMDID_ENABLE_INTERACTION msx:Depth msx:Busy
                    msx:OLECMDID_STOPDOWNLOAD msx:_NewEnum msx:Parent
                    msx:Navigate2 msx:-WindowMove msx:Width
                    msx:ResetNextMenu msx:TVFlags
                    msx:SubscriptionsEnabled msx:OLECMDID_UNDO
                    msx:FindWindowSW msx:IsRestricted msx:ReadyState
                    msx:WebBrowser_V1 msx:GetProperty
                    msx:canRetreatError msx:FullName msx:Resizable
                    msx:-OnMenuBar msx:OLECMDID_SAVEAS msx:InWebFolder
                    msx:OLECMDID_FOCUSVIEWCONTROLSQUERY msx:FindPeople
                    msx:OLECMDID_ZOOM msx:FullScreen msx:Flags
                    msx:NewFolder msx:EventHandled
                    msx:OLECMDID_PAGEACTIONUIQUERY
                    msx:InvokeContextMenuCommand msx:-OnFullScreen
                    msx:NavigateAndFind msx:decode-tagREADYSTATE
                    msx:Name msx:OLECMDID_SETPROGRESSTEXT
                    msx:OLECMDID_GETZOOMRANGE msx:setPerErrorDisplay
                    msx:OLECMDF_INVISIBLE
                    msx:OLECMDID_ONTOOLBARACTIVATED
                    msx:getPerErrorDisplay msx:-StatusTextChange
                    msx:OLECMDID_CLEARSELECTION msx:Expand
                    msx:OLECMDID_REFRESH msx:Mode
                    msx:-FrameNavigateComplete msx:Synchronize
                    msx:secureLockIconSecureFortezza msx:Path
                    msx:-WindowSetTop msx:LocationName
                    msx:OLECMDID_PRINT2 msx:-OnTheaterMode
                    msx:UseSearchCompanion msx:GoForward
                    msx:OLECMDID_PAGESETUP msx:-Initialized msx:Export
                    msx:getErrorUrl msx:SWFO_NEEDDISPATCH
                    msx:OLECMDEXECOPT_PROMPTUSER msx:-SelectionChange
                    msx:OLECMDID_NEW msx:-NavigateError
                    msx:CSC_NAVIGATEFORWARD msx:OLECMDID_COPY
                    msx:OLECMDID_HTTPEQUIV_DONE msx:OLECMDID_DELETE
                    msx:MoveSelectionTo msx:OLECMDID_PRINTPREVIEW
                    msx:getErrorChar msx:SearchAssistantDefault
                    msx:READYSTATE_LOADING msx:Silent
                    msx:OLECMDID_PRINT msx:canAdvanceError
                    msx:OLECMDID_PASTE msx:OLECMDF_ENABLED
                    msx:-BeforeNavigate2 msx:-WindowRegistered
                    msx:ShellNameSpace msx:CountViewTypes
                    msx:TheaterMode msx:AddChannel
                    msx:OLECMDID_GETPRINTTEMPLATE msx:-DoubleClick
                    msx:FindPrinter msx:OLECMDID_FOCUSVIEWCONTROLS
                    msx:LocationURL msx:Register
                    msx:-PrintTemplateTeardown msx:-TitleChange
                    msx:getAlwaysShowLockState msx:SWFO_COOKIEPASSED
                    msx:-OnToolBar msx:InternetExplorer
                    msx:OLECMDID_SAVECOPYAS msx:-OnNewSearch
                    msx:OLECMDID_SPELL
                    msx:decode-CommandStateChangeConstants
                    msx:-UpdatePageStatus msx:ResetFirstBootMode
                    msx:OLECMDID_UPDATECOMMANDS msx:SelectedItem
                    msx:-NavigateComplete2 msx:Quit msx:Application
                    msx:FindFilesOrFolders msx:OLECMDID_SHOWSCRIPTERROR
                    msx:-DownloadBegin msx:-CommandStateChange
                    msx:OLECMDID_CLOSE msx:Refresh
                    msx:OLECMDF_SUPPORTED msx:ShellWindows
                    msx:secureLockIconSecure56Bit
                    msx:OLECMDEXECOPT_DODEFAULT msx:GoHome
                    msx:secureLockIconSecure40Bit msx:ExecWB
                    msx:MoveSelectionDown msx:PutFindText
                    msx:ResetSafeMode msx:AddressBar
                    msx:ImportExportFavorites msx:-BeforeNavigate
                    msx:OLECMDID_SETPROGRESSPOS msx:EnumOptions
                    msx:decode-ShellWindowTypeConstants msx:Left
                    msx:DeleteSubscriptionForSelection msx:Offline
                    msx:OLECMDID_PROPERTYBAG2 msx:-NewWindow3 msx:Top
                    msx:-PrintTemplateInstantiation))
       (eval-when (compile load eval)
         (ole:require-modules :ocx-container :control-client))
       (ole:require-client-interfaces ole:IDispatch
         ole:IConnectionPoint ole:IConnectionPointContainer)
       (ole:require-server-interfaces ole:IDispatch)
       (ole:def-ole-interface ole.control:_SearchAssistantEvents
         (:base ole:IDispatch)
         (:iid "{1611fdda-445b-11d2-85de-00c04fa35c89}"))
       (ole:def-ole-interface ole.control:ISearchAssistantOC
         (:base ole:IDispatch)
         (:iid "{72423e8f-8011-11d2-be79-00a0c9a83da1}"))
       (ole:def-ole-interface ole.control:ISearchAssistantOC2
         (:base ole.control:ISearchAssistantOC)
         (:iid "{72423e8f-8011-11d2-be79-00a0c9a83da2}"))
       (ole:def-ole-interface ole.control:ISearchAssistantOC3
         (:base ole.control:ISearchAssistantOC2)
         (:iid "{72423e8f-8011-11d2-be79-00a0c9a83da3}"))
       (ole:def-ole-interface ole.control:ISearches
         (:base ole:IDispatch)
         (:iid "{47c922a2-3dd5-11d2-bf8b-00c04fb93661}"))
       (ole:def-ole-interface ole.control:ISearch (:base ole:IDispatch)
         (:iid "{ba9239a4-3dd5-11d2-bf8b-00c04fb93661}"))
       (ole:def-ole-interface ole.control:IScriptErrorList
         (:base ole:IDispatch)
         (:iid "{f3470f24-15fd-11d2-bb2e-00805ff7efca}"))
       (ole:def-ole-interface ole.control:IShellFavoritesNameSpace
         (:base ole:IDispatch)
         (:iid "{55136804-b2de-11d1-b9f2-00a0c98bc547}"))
       (ole:def-ole-interface ole.control:IShellNameSpace
         (:base ole.control:IShellFavoritesNameSpace)
         (:iid "{e572d3c9-37be-4ae2-825d-d521763e3108}"))
       (ole:def-ole-interface ole.control:DShellNameSpaceEvents
         (:base ole:IDispatch)
         (:iid "{55136806-b2de-11d1-b9f2-00a0c98bc547}"))
       (ole:def-ole-interface ole.control:IShellUIHelper
         (:base ole:IDispatch)
         (:iid "{729fe2f8-1ea8-11d1-8f85-00c04fc2fbe1}"))
       (ole:def-ole-interface ole.control:IShellWindows
         (:base ole:IDispatch)
         (:iid "{85cb6900-4d95-11cf-960c-0080c7f4ee85}"))
       (ole:def-ole-interface ole.control:DShellWindowsEvents
         (:base ole:IDispatch)
         (:iid "{fe4106e0-399a-11d0-a48c-00a0c90a8f39}"))
       (ole:def-ole-interface ole.control:DWebBrowserEvents2
         (:base ole:IDispatch)
         (:iid "{34a715a0-6587-11d0-924a-0020afc7ac4d}"))
       (ole:def-ole-interface ole.control:IWebBrowser
         (:base ole:IDispatch)
         (:iid "{eab22ac1-30c1-11cf-a7eb-0000c05bae0b}"))
       (ole:def-ole-interface ole.control:IWebBrowserApp
         (:base ole.control:IWebBrowser)
         (:iid "{0002df05-0000-0000-c000-000000000046}"))
       (ole:def-ole-interface ole.control:IWebBrowser2
         (:base ole.control:IWebBrowserApp)
         (:iid "{d30c1661-cdaf-11d0-8a3e-00c04fc9e26e}"))
       (ole:def-ole-interface ole.control:DWebBrowserEvents
         (:base ole:IDispatch)
         (:iid "{eab22ac2-30c1-11cf-a7eb-0000c05bae0b}"))
       (defun msx:decode-CommandStateChangeConstants (ole::v)
         (case ole::v
           (2 'msx:CSC_NAVIGATEBACK)
           (1 'msx:CSC_NAVIGATEFORWARD)
           (-1 'msx:CSC_UPDATECOMMANDS)
           (t ole::v)))
       (defconstant msx:CSC_NAVIGATEBACK 2)
       (defconstant msx:CSC_NAVIGATEFORWARD 1)
       (defconstant msx:CSC_UPDATECOMMANDS -1)
       (defun msx:decode-OLECMDID (ole::v)
         (case ole::v
           (59 'msx:OLECMDID_SHOWPAGEACTIONMENU)
           (58 'msx:OLECMDID_FOCUSVIEWCONTROLSQUERY)
           (57 'msx:OLECMDID_FOCUSVIEWCONTROLS)
           (56 'msx:OLECMDID_PAGEACTIONUIQUERY)
           (55 'msx:OLECMDID_PAGEACTIONBLOCKED)
           (52 'msx:OLECMDID_GETPRINTTEMPLATE)
           (51 'msx:OLECMDID_SETPRINTTEMPLATE)
           (50 'msx:OLECMDID_PRINTPREVIEW2)
           (49 'msx:OLECMDID_PRINT2)
           (48 'msx:OLECMDID_UPDATEPAGESTATUS)
           (47 'msx:OLECMDID_DONTDOWNLOADCSS)
           (46 'msx:OLECMDID_ALLOWUILESSSAVEAS)
           (45 'msx:OLECMDID_CLOSE)
           (44 'msx:OLECMDID_SHOWPRINT)
           (43 'msx:OLECMDID_SHOWPAGESETUP)
           (42 'msx:OLECMDID_SHOWFIND)
           (41 'msx:OLECMDID_SHOWMESSAGE)
           (40 'msx:OLECMDID_SHOWSCRIPTERROR)
           (39 'msx:OLECMDID_PREREFRESH)
           (38 'msx:OLECMDID_PROPERTYBAG2)
           (37 'msx:OLECMDID_ONUNLOAD)
           (36 'msx:OLECMDID_ENABLE_INTERACTION)
           (35 'msx:OLECMDID_HTTPEQUIV_DONE)
           (34 'msx:OLECMDID_HTTPEQUIV)
           (33 'msx:OLECMDID_DELETE)
           (32 'msx:OLECMDID_FIND)
           (31 'msx:OLECMDID_ONTOOLBARACTIVATED)
           (30 'msx:OLECMDID_STOPDOWNLOAD)
           (29 'msx:OLECMDID_SETDOWNLOADSTATE)
           (28 'msx:OLECMDID_SETTITLE)
           (27 'msx:OLECMDID_SETPROGRESSTEXT)
           (26 'msx:OLECMDID_SETPROGRESSPOS)
           (25 'msx:OLECMDID_SETPROGRESSMAX)
           (24 'msx:OLECMDID_HIDETOOLBARS)
           (23 'msx:OLECMDID_STOP)
           (22 'msx:OLECMDID_REFRESH)
           (21 'msx:OLECMDID_UPDATECOMMANDS)
           (20 'msx:OLECMDID_GETZOOMRANGE)
           (19 'msx:OLECMDID_ZOOM)
           (18 'msx:OLECMDID_CLEARSELECTION)
           (17 'msx:OLECMDID_SELECTALL)
           (16 'msx:OLECMDID_REDO)
           (15 'msx:OLECMDID_UNDO)
           (14 'msx:OLECMDID_PASTESPECIAL)
           (13 'msx:OLECMDID_PASTE)
           (12 'msx:OLECMDID_COPY)
           (11 'msx:OLECMDID_CUT)
           (10 'msx:OLECMDID_PROPERTIES)
           (9 'msx:OLECMDID_SPELL)
           (8 'msx:OLECMDID_PAGESETUP)
           (7 'msx:OLECMDID_PRINTPREVIEW)
           (6 'msx:OLECMDID_PRINT)
           (5 'msx:OLECMDID_SAVECOPYAS)
           (4 'msx:OLECMDID_SAVEAS)
           (3 'msx:OLECMDID_SAVE)
           (2 'msx:OLECMDID_NEW)
           (1 'msx:OLECMDID_OPEN)
           (t ole::v)))
       (defconstant msx:OLECMDID_SHOWPAGEACTIONMENU 59)
       (defconstant msx:OLECMDID_FOCUSVIEWCONTROLSQUERY 58)
       (defconstant msx:OLECMDID_FOCUSVIEWCONTROLS 57)
       (defconstant msx:OLECMDID_PAGEACTIONUIQUERY 56)
       (defconstant msx:OLECMDID_PAGEACTIONBLOCKED 55)
       (defconstant msx:OLECMDID_GETPRINTTEMPLATE 52)
       (defconstant msx:OLECMDID_SETPRINTTEMPLATE 51)
       (defconstant msx:OLECMDID_PRINTPREVIEW2 50)
       (defconstant msx:OLECMDID_PRINT2 49)
       (defconstant msx:OLECMDID_UPDATEPAGESTATUS 48)
       (defconstant msx:OLECMDID_DONTDOWNLOADCSS 47)
       (defconstant msx:OLECMDID_ALLOWUILESSSAVEAS 46)
       (defconstant msx:OLECMDID_CLOSE 45)
       (defconstant msx:OLECMDID_SHOWPRINT 44)
       (defconstant msx:OLECMDID_SHOWPAGESETUP 43)
       (defconstant msx:OLECMDID_SHOWFIND 42)
       (defconstant msx:OLECMDID_SHOWMESSAGE 41)
       (defconstant msx:OLECMDID_SHOWSCRIPTERROR 40)
       (defconstant msx:OLECMDID_PREREFRESH 39)
       (defconstant msx:OLECMDID_PROPERTYBAG2 38)
       (defconstant msx:OLECMDID_ONUNLOAD 37)
       (defconstant msx:OLECMDID_ENABLE_INTERACTION 36)
       (defconstant msx:OLECMDID_HTTPEQUIV_DONE 35)
       (defconstant msx:OLECMDID_HTTPEQUIV 34)
       (defconstant msx:OLECMDID_DELETE 33)
       (defconstant msx:OLECMDID_FIND 32)
       (defconstant msx:OLECMDID_ONTOOLBARACTIVATED 31)
       (defconstant msx:OLECMDID_STOPDOWNLOAD 30)
       (defconstant msx:OLECMDID_SETDOWNLOADSTATE 29)
       (defconstant msx:OLECMDID_SETTITLE 28)
       (defconstant msx:OLECMDID_SETPROGRESSTEXT 27)
       (defconstant msx:OLECMDID_SETPROGRESSPOS 26)
       (defconstant msx:OLECMDID_SETPROGRESSMAX 25)
       (defconstant msx:OLECMDID_HIDETOOLBARS 24)
       (defconstant msx:OLECMDID_STOP 23)
       (defconstant msx:OLECMDID_REFRESH 22)
       (defconstant msx:OLECMDID_UPDATECOMMANDS 21)
       (defconstant msx:OLECMDID_GETZOOMRANGE 20)
       (defconstant msx:OLECMDID_ZOOM 19)
       (defconstant msx:OLECMDID_CLEARSELECTION 18)
       (defconstant msx:OLECMDID_SELECTALL 17)
       (defconstant msx:OLECMDID_REDO 16)
       (defconstant msx:OLECMDID_UNDO 15)
       (defconstant msx:OLECMDID_PASTESPECIAL 14)
       (defconstant msx:OLECMDID_PASTE 13)
       (defconstant msx:OLECMDID_COPY 12)
       (defconstant msx:OLECMDID_CUT 11)
       (defconstant msx:OLECMDID_PROPERTIES 10)
       (defconstant msx:OLECMDID_SPELL 9)
       (defconstant msx:OLECMDID_PAGESETUP 8)
       (defconstant msx:OLECMDID_PRINTPREVIEW 7)
       (defconstant msx:OLECMDID_PRINT 6)
       (defconstant msx:OLECMDID_SAVECOPYAS 5)
       (defconstant msx:OLECMDID_SAVEAS 4)
       (defconstant msx:OLECMDID_SAVE 3)
       (defconstant msx:OLECMDID_NEW 2)
       (defconstant msx:OLECMDID_OPEN 1)
       (defun msx:decode-OLECMDF (ole::v)
         (case ole::v
           (32 'msx:OLECMDF_DEFHIDEONCTXTMENU)
           (16 'msx:OLECMDF_INVISIBLE)
           (8 'msx:OLECMDF_NINCHED)
           (4 'msx:OLECMDF_LATCHED)
           (2 'msx:OLECMDF_ENABLED)
           (1 'msx:OLECMDF_SUPPORTED)
           (t ole::v)))
       (defconstant msx:OLECMDF_DEFHIDEONCTXTMENU 32)
       (defconstant msx:OLECMDF_INVISIBLE 16)
       (defconstant msx:OLECMDF_NINCHED 8)
       (defconstant msx:OLECMDF_LATCHED 4)
       (defconstant msx:OLECMDF_ENABLED 2)
       (defconstant msx:OLECMDF_SUPPORTED 1)
       (defun msx:decode-OLECMDEXECOPT (ole::v)
         (case ole::v
           (3 'msx:OLECMDEXECOPT_SHOWHELP)
           (2 'msx:OLECMDEXECOPT_DONTPROMPTUSER)
           (1 'msx:OLECMDEXECOPT_PROMPTUSER)
           (0 'msx:OLECMDEXECOPT_DODEFAULT)
           (t ole::v)))
       (defconstant msx:OLECMDEXECOPT_SHOWHELP 3)
       (defconstant msx:OLECMDEXECOPT_DONTPROMPTUSER 2)
       (defconstant msx:OLECMDEXECOPT_PROMPTUSER 1)
       (defconstant msx:OLECMDEXECOPT_DODEFAULT 0)
       (defun msx:decode-tagREADYSTATE (ole::v)
         (case ole::v
           (4 'msx:READYSTATE_COMPLETE)
           (3 'msx:READYSTATE_INTERACTIVE)
           (2 'msx:READYSTATE_LOADED)
           (1 'msx:READYSTATE_LOADING)
           (0 'msx:READYSTATE_UNINITIALIZED)
           (t ole::v)))
       (defconstant msx:READYSTATE_COMPLETE 4)
       (defconstant msx:READYSTATE_INTERACTIVE 3)
       (defconstant msx:READYSTATE_LOADED 2)
       (defconstant msx:READYSTATE_LOADING 1)
       (defconstant msx:READYSTATE_UNINITIALIZED 0)
       (defun msx:decode-SecureLockIconConstants (ole::v)
         (case ole::v
           (6 'msx:secureLockIconSecure128Bit)
           (5 'msx:secureLockIconSecureFortezza)
           (4 'msx:secureLockIconSecure56Bit)
           (3 'msx:secureLockIconSecure40Bit)
           (2 'msx:secureLockIconSecureUnknownBits)
           (1 'msx:secureLockIconMixed)
           (0 'msx:secureLockIconUnsecure)
           (t ole::v)))
       (defconstant msx:secureLockIconSecure128Bit 6)
       (defconstant msx:secureLockIconSecureFortezza 5)
       (defconstant msx:secureLockIconSecure56Bit 4)
       (defconstant msx:secureLockIconSecure40Bit 3)
       (defconstant msx:secureLockIconSecureUnknownBits 2)
       (defconstant msx:secureLockIconMixed 1)
       (defconstant msx:secureLockIconUnsecure 0)
       (defun msx:decode-ShellWindowTypeConstants (ole::v)
         (case ole::v
           (4 'msx:SWC_CALLBACK)
           (2 'msx:SWC_3RDPARTY)
           (1 'msx:SWC_BROWSER)
           (0 'msx:SWC_EXPLORER)
           (t ole::v)))
       (defconstant msx:SWC_CALLBACK 4)
       (defconstant msx:SWC_3RDPARTY 2) (defconstant msx:SWC_BROWSER 1)
       (defconstant msx:SWC_EXPLORER 0)
       (defun msx:decode-ShellWindowFindWindowOptions (ole::v)
         (case ole::v
           (4 'msx:SWFO_COOKIEPASSED)
           (2 'msx:SWFO_INCLUDEPENDING)
           (1 'msx:SWFO_NEEDDISPATCH)
           (t ole::v)))
       (defconstant msx:SWFO_COOKIEPASSED 4)
       (defconstant msx:SWFO_INCLUDEPENDING 2)
       (defconstant msx:SWFO_NEEDDISPATCH 1)
       (without-redefinition-warnings
         (ole:def-server-interface ole.control:_SearchAssistantEvents)
         (ole:def-ocx-class ole.control::channel-_SearchAssistantEvents
                            (ole::control-event-channel :interfaces
                             ole.control:_SearchAssistantEvents)
                            ((ole::uuid :allocation :class :initform
                              (ole:unique-guid "{1611fdda-445b-11d2-85de-00c04fa35c89}"))))
         (progn (defun ole.control::event._SearchAssistantEvents.OnNextMenuSelect
                    (ole::this.control ole::this.channel
                     ole.control::idItem)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event._SearchAssistantEvents.OnNextMenuSelect on ~s~%"
                            ole::this.control))
                  (msx:-OnNextMenuSelect ole::this.control
                    ole::this.channel ole.control::idItem))
                (defmethod msx:-OnNextMenuSelect ((ole::this.control t)
                                                  (ole::this.channel
                                                   ole.control::channel-_SearchAssistantEvents)
                                                  ole.control::idItem)
                  (declare (ignore ole.control::idItem)) nil))
         (progn (defun ole.control::event._SearchAssistantEvents.OnNewSearch
                    (ole::this.control ole::this.channel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event._SearchAssistantEvents.OnNewSearch on ~s~%"
                            ole::this.control))
                  (msx:-OnNewSearch ole::this.control
                                    ole::this.channel))
                (defmethod msx:-OnNewSearch ((ole::this.control t)
                                             (ole::this.channel
                                              ole.control::channel-_SearchAssistantEvents))
                  (declare (ignore)) nil))
         (defmethod ole::dispatch-invocation ((ole::this.channel
                                               ole.control::channel-_SearchAssistantEvents)
                                              ole::memid
                                              ole::mode
                                              ole::parms)
           (declare (ignore-if-unused ole::mode ole::parms))
           (let ((ole::this.control
                  (slot-value ole::this.channel 'ole::host)))
             (case ole::memid
               (1
                (let ((ole.control::idItem
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event._SearchAssistantEvents.OnNextMenuSelect
                           ole::this.control ole::this.channel
                           ole.control::idItem)
                         nil)))
               (2
                (let ()
                  (prog1 (ole.control::event._SearchAssistantEvents.OnNewSearch
                           ole::this.control ole::this.channel)
                         nil)))
               (t (signal 'ole::member-not-found))))))
       (declaim (ftype function msx:-OnNewSearch
                 ole.control::event._SearchAssistantEvents.OnNewSearch
                 msx:-OnNextMenuSelect
                 ole.control::event._SearchAssistantEvents.OnNextMenuSelect))
       (progn (without-redefinition-warnings
                (ole:def-client-interface
                  ole.control:ISearchAssistantOC))
              (without-redefinition-warnings
                (defclass ole.control::object-with-ISearchAssistantOC-client
                          (ole::object-with-interfaces)
                          ((ole.control::i.ISearchAssistantOC :initform
                            nil :initarg
                            ole.control::object-with-ISearchAssistantOC-client))))
              (without-redefinition-warnings
                (defmethod ole.control:ISearchAssistantOC ((ole::object
                                                            ole.control::object-with-ISearchAssistantOC-client))
                  (or (slot-value ole::object
                                  'ole.control::i.ISearchAssistantOC)
                      (setf (slot-value ole::object
                                        'ole.control::i.ISearchAssistantOC)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_ISearchAssistantOC)))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.EncodeString ((ole::this.object
                                                                          ole.control::object-with-ISearchAssistantOC-client)
                                                                         ole.control::bstrValue
                                                                         ole.control::bstrCharSet
                                                                         ole.control::bUseUTF8)
                  (ole::control.invoke.3 (ole.control:ISearchAssistantOC
                                          ole::this.object)
                                         25
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::bstrValue
                                         ole.control::bstrCharSet
                                         ole.control::bUseUTF8)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.Version ((ole::this.object
                                                                     ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC
                                          ole::this.object)
                                         24
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.PutFindText ((ole::this.object
                                                                         ole.control::object-with-ISearchAssistantOC-client)
                                                                        ole.control::FindText)
                  (ole::control.invoke.1-
                    (ole.control:ISearchAssistantOC ole::this.object)
                    23
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::FindText)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.NETDetectNextNavigate ((ole::this.object
                                                                                   ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC ole::this.object)
                    22
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.ASSetting ((ole::this.object
                                                                       ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC
                                          ole::this.object)
                                         21
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::ISearchAssistantOC.ASSetting) (ole::set.value
                                                                             (ole::this.object
                                                                              ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.setf.1
                    (ole.control:ISearchAssistantOC ole::this.object)
                    21 ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.ASProvider ((ole::this.object
                                                                        ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC
                                          ole::this.object)
                                         20
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::ISearchAssistantOC.ASProvider) (ole::set.value
                                                                              (ole::this.object
                                                                               ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.setf.1
                    (ole.control:ISearchAssistantOC ole::this.object)
                    20 ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.NotifySearchSettingsChanged ((ole::this.object
                                                                                         ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC ole::this.object)
                    19
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.GetSearchAssistantURL ((ole::this.object
                                                                                   ole.control::object-with-ISearchAssistantOC-client)
                                                                                  ole.control::bSubstitute
                                                                                  ole.control::bCustomize)
                  (ole::control.invoke.2 (ole.control:ISearchAssistantOC
                                          ole::this.object)
                                         18
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::bSubstitute
                                         ole.control::bCustomize)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.FindPeople ((ole::this.object
                                                                        ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC ole::this.object)
                    17
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.FindPrinter ((ole::this.object
                                                                         ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC ole::this.object)
                    16
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.FindComputer ((ole::this.object
                                                                          ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC ole::this.object)
                    15
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.FindFilesOrFolders ((ole::this.object
                                                                                ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC ole::this.object)
                    14
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.FindOnWeb ((ole::this.object
                                                                       ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC ole::this.object)
                    13
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.ResetNextMenu ((ole::this.object
                                                                           ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC ole::this.object)
                    12
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod (setf ole.control::ISearchAssistantOC.EventHandled) (ole::set.value
                                                                                (ole::this.object
                                                                                 ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.setf.1
                    (ole.control:ISearchAssistantOC ole::this.object)
                    11 ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.GetProperty ((ole::this.object
                                                                         ole.control::object-with-ISearchAssistantOC-client)
                                                                        ole.control::bPerLocale
                                                                        ole.control::bstrName)
                  (ole::control.invoke.2 (ole.control:ISearchAssistantOC
                                          ole::this.object)
                                         10
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::bPerLocale
                                         ole.control::bstrName)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.PutProperty ((ole::this.object
                                                                         ole.control::object-with-ISearchAssistantOC-client)
                                                                        ole.control::bPerLocale
                                                                        ole.control::bstrName
                                                                        ole.control::bstrValue)
                  (ole::control.invoke.3-
                    (ole.control:ISearchAssistantOC ole::this.object) 9
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::bPerLocale ole.control::bstrName
                    ole.control::bstrValue)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.InWebFolder ((ole::this.object
                                                                         ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC
                                          ole::this.object)
                                         8
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.Searches ((ole::this.object
                                                                      ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC
                                          ole::this.object)
                                         7
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.SearchAssistantDefault ((ole::this.object
                                                                                    ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC
                                          ole::this.object)
                                         6
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.ShellFeaturesEnabled ((ole::this.object
                                                                                  ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC
                                          ole::this.object)
                                         5
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.IsRestricted ((ole::this.object
                                                                          ole.control::object-with-ISearchAssistantOC-client)
                                                                         ole.control::bstrGuid)
                  (ole::control.invoke.1 (ole.control:ISearchAssistantOC
                                          ole::this.object)
                                         4
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::bstrGuid)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.NavigateToDefaultSearch ((ole::this.object
                                                                                     ole.control::object-with-ISearchAssistantOC-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC ole::this.object) 3
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.SetDefaultSearchUrl ((ole::this.object
                                                                                 ole.control::object-with-ISearchAssistantOC-client)
                                                                                ole.control::bstrUrl)
                  (ole::control.invoke.1-
                    (ole.control:ISearchAssistantOC ole::this.object) 2
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::bstrUrl)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC.AddNextMenuItem ((ole::this.object
                                                                             ole.control::object-with-ISearchAssistantOC-client)
                                                                            ole.control::bstrText
                                                                            ole.control::idItem)
                  (ole::control.invoke.2-
                    (ole.control:ISearchAssistantOC ole::this.object) 1
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::bstrText ole.control::idItem))))
       (declaim (ftype function ole.control:ISearchAssistantOC))
       (declaim (ftype function
                 ole.control::ISearchAssistantOC.AddNextMenuItem
                 ole.control::ISearchAssistantOC.SetDefaultSearchUrl
                 ole.control::ISearchAssistantOC.NavigateToDefaultSearch
                 ole.control::ISearchAssistantOC.IsRestricted
                 ole.control::ISearchAssistantOC.ShellFeaturesEnabled
                 ole.control::ISearchAssistantOC.SearchAssistantDefault
                 ole.control::ISearchAssistantOC.Searches
                 ole.control::ISearchAssistantOC.InWebFolder
                 ole.control::ISearchAssistantOC.PutProperty
                 ole.control::ISearchAssistantOC.GetProperty
                 (setf ole.control::ISearchAssistantOC.EventHandled)
                 ole.control::ISearchAssistantOC.ResetNextMenu
                 ole.control::ISearchAssistantOC.FindOnWeb
                 ole.control::ISearchAssistantOC.FindFilesOrFolders
                 ole.control::ISearchAssistantOC.FindComputer
                 ole.control::ISearchAssistantOC.FindPrinter
                 ole.control::ISearchAssistantOC.FindPeople
                 ole.control::ISearchAssistantOC.GetSearchAssistantURL
                 ole.control::ISearchAssistantOC.NotifySearchSettingsChanged
                 (setf ole.control::ISearchAssistantOC.ASProvider)
                 ole.control::ISearchAssistantOC.ASProvider
                 (setf ole.control::ISearchAssistantOC.ASSetting)
                 ole.control::ISearchAssistantOC.ASSetting
                 ole.control::ISearchAssistantOC.NETDetectNextNavigate
                 ole.control::ISearchAssistantOC.PutFindText
                 ole.control::ISearchAssistantOC.Version
                 ole.control::ISearchAssistantOC.EncodeString))
       (progn (without-redefinition-warnings
                (ole:def-client-interface
                  ole.control:ISearchAssistantOC2))
              (without-redefinition-warnings
                (defclass ole.control::object-with-ISearchAssistantOC2-client
                          (ole.control::object-with-ISearchAssistantOC-client)
                          ((ole.control::i.ISearchAssistantOC2
                            :initform nil :initarg
                            ole.control::object-with-ISearchAssistantOC2-client))))
              (without-redefinition-warnings
                (defmethod ole.control:ISearchAssistantOC2 ((ole::object
                                                             ole.control::object-with-ISearchAssistantOC2-client))
                  (or (slot-value ole::object
                                  'ole.control::i.ISearchAssistantOC2)
                      (setf (slot-value ole::object
                                        'ole.control::i.ISearchAssistantOC2)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_ISearchAssistantOC2)))))
              (without-redefinition-warnings
                (defmethod ole.control:ISearchAssistantOC ((ole::object
                                                            ole.control::object-with-ISearchAssistantOC2-client))
                  (or (slot-value ole::object
                                  'ole.control::i.ISearchAssistantOC2)
                      (setf (slot-value ole::object
                                        'ole.control::i.ISearchAssistantOC2)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_ISearchAssistantOC2)))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.ShowFindPrinter ((ole::this.object
                                                                              ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC2
                                          ole::this.object)
                                         26
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.EncodeString ((ole::this.object
                                                                           ole.control::object-with-ISearchAssistantOC2-client)
                                                                          ole.control::bstrValue
                                                                          ole.control::bstrCharSet
                                                                          ole.control::bUseUTF8)
                  (ole::control.invoke.3 (ole.control:ISearchAssistantOC2
                                          ole::this.object)
                                         25
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::bstrValue
                                         ole.control::bstrCharSet
                                         ole.control::bUseUTF8)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.Version ((ole::this.object
                                                                      ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC2
                                          ole::this.object)
                                         24
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.PutFindText ((ole::this.object
                                                                          ole.control::object-with-ISearchAssistantOC2-client)
                                                                         ole.control::FindText)
                  (ole::control.invoke.1-
                    (ole.control:ISearchAssistantOC2 ole::this.object)
                    23
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::FindText)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.NETDetectNextNavigate ((ole::this.object
                                                                                    ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC2 ole::this.object)
                    22
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.ASSetting ((ole::this.object
                                                                        ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC2
                                          ole::this.object)
                                         21
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::ISearchAssistantOC2.ASSetting) (ole::set.value
                                                                              (ole::this.object
                                                                               ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:ISearchAssistantOC2 ole::this.object)
                    21 ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.ASProvider ((ole::this.object
                                                                         ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC2
                                          ole::this.object)
                                         20
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::ISearchAssistantOC2.ASProvider) (ole::set.value
                                                                               (ole::this.object
                                                                                ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:ISearchAssistantOC2 ole::this.object)
                    20 ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.NotifySearchSettingsChanged ((ole::this.object
                                                                                          ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC2 ole::this.object)
                    19
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.GetSearchAssistantURL ((ole::this.object
                                                                                    ole.control::object-with-ISearchAssistantOC2-client)
                                                                                   ole.control::bSubstitute
                                                                                   ole.control::bCustomize)
                  (ole::control.invoke.2 (ole.control:ISearchAssistantOC2
                                          ole::this.object)
                                         18
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::bSubstitute
                                         ole.control::bCustomize)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.FindPeople ((ole::this.object
                                                                         ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC2 ole::this.object)
                    17
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.FindPrinter ((ole::this.object
                                                                          ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC2 ole::this.object)
                    16
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.FindComputer ((ole::this.object
                                                                           ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC2 ole::this.object)
                    15
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.FindFilesOrFolders ((ole::this.object
                                                                                 ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC2 ole::this.object)
                    14
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.FindOnWeb ((ole::this.object
                                                                        ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC2 ole::this.object)
                    13
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.ResetNextMenu ((ole::this.object
                                                                            ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC2 ole::this.object)
                    12
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod (setf ole.control::ISearchAssistantOC2.EventHandled) (ole::set.value
                                                                                 (ole::this.object
                                                                                  ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:ISearchAssistantOC2 ole::this.object)
                    11 ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.GetProperty ((ole::this.object
                                                                          ole.control::object-with-ISearchAssistantOC2-client)
                                                                         ole.control::bPerLocale
                                                                         ole.control::bstrName)
                  (ole::control.invoke.2 (ole.control:ISearchAssistantOC2
                                          ole::this.object)
                                         10
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::bPerLocale
                                         ole.control::bstrName)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.PutProperty ((ole::this.object
                                                                          ole.control::object-with-ISearchAssistantOC2-client)
                                                                         ole.control::bPerLocale
                                                                         ole.control::bstrName
                                                                         ole.control::bstrValue)
                  (ole::control.invoke.3-
                    (ole.control:ISearchAssistantOC2 ole::this.object)
                    9
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::bPerLocale ole.control::bstrName
                    ole.control::bstrValue)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.InWebFolder ((ole::this.object
                                                                          ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC2
                                          ole::this.object)
                                         8
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.Searches ((ole::this.object
                                                                       ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC2
                                          ole::this.object)
                                         7
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.SearchAssistantDefault ((ole::this.object
                                                                                     ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC2
                                          ole::this.object)
                                         6
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.ShellFeaturesEnabled ((ole::this.object
                                                                                   ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC2
                                          ole::this.object)
                                         5
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.IsRestricted ((ole::this.object
                                                                           ole.control::object-with-ISearchAssistantOC2-client)
                                                                          ole.control::bstrGuid)
                  (ole::control.invoke.1 (ole.control:ISearchAssistantOC2
                                          ole::this.object)
                                         4
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::bstrGuid)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.NavigateToDefaultSearch ((ole::this.object
                                                                                      ole.control::object-with-ISearchAssistantOC2-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC2 ole::this.object)
                    3
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.SetDefaultSearchUrl ((ole::this.object
                                                                                  ole.control::object-with-ISearchAssistantOC2-client)
                                                                                 ole.control::bstrUrl)
                  (ole::control.invoke.1-
                    (ole.control:ISearchAssistantOC2 ole::this.object)
                    2
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::bstrUrl)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC2.AddNextMenuItem ((ole::this.object
                                                                              ole.control::object-with-ISearchAssistantOC2-client)
                                                                             ole.control::bstrText
                                                                             ole.control::idItem)
                  (ole::control.invoke.2-
                    (ole.control:ISearchAssistantOC2 ole::this.object)
                    1
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::bstrText ole.control::idItem))))
       (declaim (ftype function ole.control:ISearchAssistantOC
                 ole.control:ISearchAssistantOC2))
       (declaim (ftype function
                 ole.control::ISearchAssistantOC2.AddNextMenuItem
                 ole.control::ISearchAssistantOC2.SetDefaultSearchUrl
                 ole.control::ISearchAssistantOC2.NavigateToDefaultSearch
                 ole.control::ISearchAssistantOC2.IsRestricted
                 ole.control::ISearchAssistantOC2.ShellFeaturesEnabled
                 ole.control::ISearchAssistantOC2.SearchAssistantDefault
                 ole.control::ISearchAssistantOC2.Searches
                 ole.control::ISearchAssistantOC2.InWebFolder
                 ole.control::ISearchAssistantOC2.PutProperty
                 ole.control::ISearchAssistantOC2.GetProperty
                 (setf ole.control::ISearchAssistantOC2.EventHandled)
                 ole.control::ISearchAssistantOC2.ResetNextMenu
                 ole.control::ISearchAssistantOC2.FindOnWeb
                 ole.control::ISearchAssistantOC2.FindFilesOrFolders
                 ole.control::ISearchAssistantOC2.FindComputer
                 ole.control::ISearchAssistantOC2.FindPrinter
                 ole.control::ISearchAssistantOC2.FindPeople
                 ole.control::ISearchAssistantOC2.GetSearchAssistantURL
                 ole.control::ISearchAssistantOC2.NotifySearchSettingsChanged
                 (setf ole.control::ISearchAssistantOC2.ASProvider)
                 ole.control::ISearchAssistantOC2.ASProvider
                 (setf ole.control::ISearchAssistantOC2.ASSetting)
                 ole.control::ISearchAssistantOC2.ASSetting
                 ole.control::ISearchAssistantOC2.NETDetectNextNavigate
                 ole.control::ISearchAssistantOC2.PutFindText
                 ole.control::ISearchAssistantOC2.Version
                 ole.control::ISearchAssistantOC2.EncodeString
                 ole.control::ISearchAssistantOC2.ShowFindPrinter))
       (progn (without-redefinition-warnings
                (ole:def-client-interface
                  ole.control:ISearchAssistantOC3))
              (without-redefinition-warnings
                (defclass ole.control::object-with-ISearchAssistantOC3-client
                          (ole.control::object-with-ISearchAssistantOC2-client)
                          ((ole.control::i.ISearchAssistantOC3
                            :initform nil :initarg
                            ole.control::object-with-ISearchAssistantOC3-client))))
              (without-redefinition-warnings
                (defmethod ole.control:ISearchAssistantOC3 ((ole::object
                                                             ole.control::object-with-ISearchAssistantOC3-client))
                  (or (slot-value ole::object
                                  'ole.control::i.ISearchAssistantOC3)
                      (setf (slot-value ole::object
                                        'ole.control::i.ISearchAssistantOC3)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_ISearchAssistantOC3)))))
              (without-redefinition-warnings
                (defmethod ole.control:ISearchAssistantOC2 ((ole::object
                                                             ole.control::object-with-ISearchAssistantOC3-client))
                  (or (slot-value ole::object
                                  'ole.control::i.ISearchAssistantOC3)
                      (setf (slot-value ole::object
                                        'ole.control::i.ISearchAssistantOC3)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_ISearchAssistantOC3)))))
              (without-redefinition-warnings
                (defmethod ole.control:ISearchAssistantOC ((ole::object
                                                            ole.control::object-with-ISearchAssistantOC3-client))
                  (or (slot-value ole::object
                                  'ole.control::i.ISearchAssistantOC3)
                      (setf (slot-value ole::object
                                        'ole.control::i.ISearchAssistantOC3)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_ISearchAssistantOC3)))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.UseSearchCompanion ((ole::this.object
                                                                                 ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC3
                                          ole::this.object)
                                         28
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::ISearchAssistantOC3.UseSearchCompanion) (ole::set.value
                                                                                       (ole::this.object
                                                                                        ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.setf.1
                    (ole.control:ISearchAssistantOC3 ole::this.object)
                    28 ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.SearchCompanionAvailable ((ole::this.object
                                                                                       ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC3
                                          ole::this.object)
                                         27
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.ShowFindPrinter ((ole::this.object
                                                                              ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC3
                                          ole::this.object)
                                         26
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.EncodeString ((ole::this.object
                                                                           ole.control::object-with-ISearchAssistantOC3-client)
                                                                          ole.control::bstrValue
                                                                          ole.control::bstrCharSet
                                                                          ole.control::bUseUTF8)
                  (ole::control.invoke.3 (ole.control:ISearchAssistantOC3
                                          ole::this.object)
                                         25
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::bstrValue
                                         ole.control::bstrCharSet
                                         ole.control::bUseUTF8)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.Version ((ole::this.object
                                                                      ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC3
                                          ole::this.object)
                                         24
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.PutFindText ((ole::this.object
                                                                          ole.control::object-with-ISearchAssistantOC3-client)
                                                                         ole.control::FindText)
                  (ole::control.invoke.1-
                    (ole.control:ISearchAssistantOC3 ole::this.object)
                    23
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::FindText)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.NETDetectNextNavigate ((ole::this.object
                                                                                    ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC3 ole::this.object)
                    22
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.ASSetting ((ole::this.object
                                                                        ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC3
                                          ole::this.object)
                                         21
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::ISearchAssistantOC3.ASSetting) (ole::set.value
                                                                              (ole::this.object
                                                                               ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.setf.1
                    (ole.control:ISearchAssistantOC3 ole::this.object)
                    21 ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.ASProvider ((ole::this.object
                                                                         ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC3
                                          ole::this.object)
                                         20
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::ISearchAssistantOC3.ASProvider) (ole::set.value
                                                                               (ole::this.object
                                                                                ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.setf.1
                    (ole.control:ISearchAssistantOC3 ole::this.object)
                    20 ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.NotifySearchSettingsChanged ((ole::this.object
                                                                                          ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC3 ole::this.object)
                    19
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.GetSearchAssistantURL ((ole::this.object
                                                                                    ole.control::object-with-ISearchAssistantOC3-client)
                                                                                   ole.control::bSubstitute
                                                                                   ole.control::bCustomize)
                  (ole::control.invoke.2 (ole.control:ISearchAssistantOC3
                                          ole::this.object)
                                         18
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::bSubstitute
                                         ole.control::bCustomize)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.FindPeople ((ole::this.object
                                                                         ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC3 ole::this.object)
                    17
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.FindPrinter ((ole::this.object
                                                                          ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC3 ole::this.object)
                    16
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.FindComputer ((ole::this.object
                                                                           ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC3 ole::this.object)
                    15
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.FindFilesOrFolders ((ole::this.object
                                                                                 ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC3 ole::this.object)
                    14
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.FindOnWeb ((ole::this.object
                                                                        ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC3 ole::this.object)
                    13
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.ResetNextMenu ((ole::this.object
                                                                            ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC3 ole::this.object)
                    12
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod (setf ole.control::ISearchAssistantOC3.EventHandled) (ole::set.value
                                                                                 (ole::this.object
                                                                                  ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.setf.1
                    (ole.control:ISearchAssistantOC3 ole::this.object)
                    11 ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.GetProperty ((ole::this.object
                                                                          ole.control::object-with-ISearchAssistantOC3-client)
                                                                         ole.control::bPerLocale
                                                                         ole.control::bstrName)
                  (ole::control.invoke.2 (ole.control:ISearchAssistantOC3
                                          ole::this.object)
                                         10
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::bPerLocale
                                         ole.control::bstrName)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.PutProperty ((ole::this.object
                                                                          ole.control::object-with-ISearchAssistantOC3-client)
                                                                         ole.control::bPerLocale
                                                                         ole.control::bstrName
                                                                         ole.control::bstrValue)
                  (ole::control.invoke.3-
                    (ole.control:ISearchAssistantOC3 ole::this.object)
                    9
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::bPerLocale ole.control::bstrName
                    ole.control::bstrValue)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.InWebFolder ((ole::this.object
                                                                          ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC3
                                          ole::this.object)
                                         8
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.Searches ((ole::this.object
                                                                       ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC3
                                          ole::this.object)
                                         7
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.SearchAssistantDefault ((ole::this.object
                                                                                     ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC3
                                          ole::this.object)
                                         6
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.ShellFeaturesEnabled ((ole::this.object
                                                                                   ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0 (ole.control:ISearchAssistantOC3
                                          ole::this.object)
                                         5
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.IsRestricted ((ole::this.object
                                                                           ole.control::object-with-ISearchAssistantOC3-client)
                                                                          ole.control::bstrGuid)
                  (ole::control.invoke.1 (ole.control:ISearchAssistantOC3
                                          ole::this.object)
                                         4
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::bstrGuid)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.NavigateToDefaultSearch ((ole::this.object
                                                                                      ole.control::object-with-ISearchAssistantOC3-client))
                  (ole::control.invoke.0-
                    (ole.control:ISearchAssistantOC3 ole::this.object)
                    3
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.SetDefaultSearchUrl ((ole::this.object
                                                                                  ole.control::object-with-ISearchAssistantOC3-client)
                                                                                 ole.control::bstrUrl)
                  (ole::control.invoke.1-
                    (ole.control:ISearchAssistantOC3 ole::this.object)
                    2
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::bstrUrl)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearchAssistantOC3.AddNextMenuItem ((ole::this.object
                                                                              ole.control::object-with-ISearchAssistantOC3-client)
                                                                             ole.control::bstrText
                                                                             ole.control::idItem)
                  (ole::control.invoke.2-
                    (ole.control:ISearchAssistantOC3 ole::this.object)
                    1
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::bstrText ole.control::idItem))))
       (declaim (ftype function ole.control:ISearchAssistantOC
                 ole.control:ISearchAssistantOC2
                 ole.control:ISearchAssistantOC3))
       (declaim (ftype function
                 ole.control::ISearchAssistantOC3.AddNextMenuItem
                 ole.control::ISearchAssistantOC3.SetDefaultSearchUrl
                 ole.control::ISearchAssistantOC3.NavigateToDefaultSearch
                 ole.control::ISearchAssistantOC3.IsRestricted
                 ole.control::ISearchAssistantOC3.ShellFeaturesEnabled
                 ole.control::ISearchAssistantOC3.SearchAssistantDefault
                 ole.control::ISearchAssistantOC3.Searches
                 ole.control::ISearchAssistantOC3.InWebFolder
                 ole.control::ISearchAssistantOC3.PutProperty
                 ole.control::ISearchAssistantOC3.GetProperty
                 (setf ole.control::ISearchAssistantOC3.EventHandled)
                 ole.control::ISearchAssistantOC3.ResetNextMenu
                 ole.control::ISearchAssistantOC3.FindOnWeb
                 ole.control::ISearchAssistantOC3.FindFilesOrFolders
                 ole.control::ISearchAssistantOC3.FindComputer
                 ole.control::ISearchAssistantOC3.FindPrinter
                 ole.control::ISearchAssistantOC3.FindPeople
                 ole.control::ISearchAssistantOC3.GetSearchAssistantURL
                 ole.control::ISearchAssistantOC3.NotifySearchSettingsChanged
                 (setf ole.control::ISearchAssistantOC3.ASProvider)
                 ole.control::ISearchAssistantOC3.ASProvider
                 (setf ole.control::ISearchAssistantOC3.ASSetting)
                 ole.control::ISearchAssistantOC3.ASSetting
                 ole.control::ISearchAssistantOC3.NETDetectNextNavigate
                 ole.control::ISearchAssistantOC3.PutFindText
                 ole.control::ISearchAssistantOC3.Version
                 ole.control::ISearchAssistantOC3.EncodeString
                 ole.control::ISearchAssistantOC3.ShowFindPrinter
                 ole.control::ISearchAssistantOC3.SearchCompanionAvailable
                 (setf ole.control::ISearchAssistantOC3.UseSearchCompanion)
                 ole.control::ISearchAssistantOC3.UseSearchCompanion))
       (progn (without-redefinition-warnings
                (ole:def-client-interface ole.control:ISearches))
              (without-redefinition-warnings
                (defclass ole.control::object-with-ISearches-client
                          (ole::object-with-interfaces)
                          ((ole.control::i.ISearches :initform nil
                            :initarg
                            ole.control::object-with-ISearches-client))))
              (without-redefinition-warnings
                (defmethod ole.control:ISearches ((ole::object
                                                   ole.control::object-with-ISearches-client))
                  (or (slot-value ole::object
                                  'ole.control::i.ISearches)
                      (setf (slot-value ole::object
                                        'ole.control::i.ISearches)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_ISearches)))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearches._NewEnum ((ole::this.object
                                                             ole.control::object-with-ISearches-client))
                  (ole::control.invoke.0 (ole.control:ISearches
                                          ole::this.object)
                                         4294967292
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearches.Item ((ole::this.object
                                                         ole.control::object-with-ISearches-client)
                                                        &key
                                                        (ole.control::index
                                                         :missing))
                  (ole::control.invoke.1 (ole.control:ISearches
                                          ole::this.object)
                                         1610743810
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::index)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearches.Default ((ole::this.object
                                                            ole.control::object-with-ISearches-client))
                  (ole::control.invoke.0 (ole.control:ISearches
                                          ole::this.object)
                                         1610743809
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearches.Count ((ole::this.object
                                                          ole.control::object-with-ISearches-client))
                  (ole::control.invoke.0 (ole.control:ISearches
                                          ole::this.object)
                                         1610743808
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil))))
       (declaim (ftype function ole.control:ISearches))
       (declaim (ftype function ole.control::ISearches.Count
                 ole.control::ISearches.Default
                 ole.control::ISearches.Item
                 ole.control::ISearches._NewEnum))
       (progn (without-redefinition-warnings
                (ole:def-client-interface ole.control:ISearch))
              (without-redefinition-warnings
                (defclass ole.control::object-with-ISearch-client
                          (ole::object-with-interfaces)
                          ((ole.control::i.ISearch :initform nil
                            :initarg
                            ole.control::object-with-ISearch-client))))
              (without-redefinition-warnings
                (defmethod ole.control:ISearch ((ole::object
                                                 ole.control::object-with-ISearch-client))
                  (or (slot-value ole::object 'ole.control::i.ISearch)
                      (setf (slot-value ole::object
                                        'ole.control::i.ISearch)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_ISearch)))))
              (without-redefinition-warnings
                (defmethod ole.control::ISearch.URL ((ole::this.object
                                                      ole.control::object-with-ISearch-client))
                  (ole::control.invoke.0 (ole.control:ISearch
                                          ole::this.object)
                                         1610743810
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearch.Id ((ole::this.object
                                                     ole.control::object-with-ISearch-client))
                  (ole::control.invoke.0 (ole.control:ISearch
                                          ole::this.object)
                                         1610743809
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::ISearch.Title ((ole::this.object
                                                        ole.control::object-with-ISearch-client))
                  (ole::control.invoke.0 (ole.control:ISearch
                                          ole::this.object)
                                         1610743808
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil))))
       (declaim (ftype function ole.control:ISearch))
       (declaim (ftype function ole.control::ISearch.Title
                 ole.control::ISearch.Id ole.control::ISearch.URL))
       (progn (without-redefinition-warnings
                (ole:def-client-interface
                  ole.control:IScriptErrorList))
              (without-redefinition-warnings
                (defclass ole.control::object-with-IScriptErrorList-client
                          (ole::object-with-interfaces)
                          ((ole.control::i.IScriptErrorList :initform
                            nil :initarg
                            ole.control::object-with-IScriptErrorList-client))))
              (without-redefinition-warnings
                (defmethod ole.control:IScriptErrorList ((ole::object
                                                          ole.control::object-with-IScriptErrorList-client))
                  (or (slot-value ole::object
                                  'ole.control::i.IScriptErrorList)
                      (setf (slot-value ole::object
                                        'ole.control::i.IScriptErrorList)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_IScriptErrorList)))))
              (without-redefinition-warnings
                (defmethod ole.control::IScriptErrorList.setPerErrorDisplay ((ole::this.object
                                                                              ole.control::object-with-IScriptErrorList-client)
                                                                             ole.control::fPerErrorDisplay)
                  (ole::control.invoke.1-
                    (ole.control:IScriptErrorList ole::this.object) 22
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::fPerErrorDisplay)))
              (without-redefinition-warnings
                (defmethod ole.control::IScriptErrorList.getPerErrorDisplay ((ole::this.object
                                                                              ole.control::object-with-IScriptErrorList-client))
                  (ole::control.invoke.0 (ole.control:IScriptErrorList
                                          ole::this.object)
                                         21
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IScriptErrorList.setDetailsPaneOpen ((ole::this.object
                                                                              ole.control::object-with-IScriptErrorList-client)
                                                                             ole.control::fDetailsPaneOpen)
                  (ole::control.invoke.1-
                    (ole.control:IScriptErrorList ole::this.object) 20
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::fDetailsPaneOpen)))
              (without-redefinition-warnings
                (defmethod ole.control::IScriptErrorList.getDetailsPaneOpen ((ole::this.object
                                                                              ole.control::object-with-IScriptErrorList-client))
                  (ole::control.invoke.0 (ole.control:IScriptErrorList
                                          ole::this.object)
                                         19
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IScriptErrorList.getAlwaysShowLockState ((ole::this.object
                                                                                  ole.control::object-with-IScriptErrorList-client))
                  (ole::control.invoke.0 (ole.control:IScriptErrorList
                                          ole::this.object)
                                         23
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IScriptErrorList.getErrorUrl ((ole::this.object
                                                                       ole.control::object-with-IScriptErrorList-client))
                  (ole::control.invoke.0 (ole.control:IScriptErrorList
                                          ole::this.object)
                                         18
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IScriptErrorList.getErrorMsg ((ole::this.object
                                                                       ole.control::object-with-IScriptErrorList-client))
                  (ole::control.invoke.0 (ole.control:IScriptErrorList
                                          ole::this.object)
                                         17
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IScriptErrorList.getErrorCode ((ole::this.object
                                                                        ole.control::object-with-IScriptErrorList-client))
                  (ole::control.invoke.0 (ole.control:IScriptErrorList
                                          ole::this.object)
                                         16
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IScriptErrorList.getErrorChar ((ole::this.object
                                                                        ole.control::object-with-IScriptErrorList-client))
                  (ole::control.invoke.0 (ole.control:IScriptErrorList
                                          ole::this.object)
                                         15
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IScriptErrorList.getErrorLine ((ole::this.object
                                                                        ole.control::object-with-IScriptErrorList-client))
                  (ole::control.invoke.0 (ole.control:IScriptErrorList
                                          ole::this.object)
                                         14
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IScriptErrorList.canRetreatError ((ole::this.object
                                                                           ole.control::object-with-IScriptErrorList-client))
                  (ole::control.invoke.0 (ole.control:IScriptErrorList
                                          ole::this.object)
                                         13
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IScriptErrorList.canAdvanceError ((ole::this.object
                                                                           ole.control::object-with-IScriptErrorList-client))
                  (ole::control.invoke.0 (ole.control:IScriptErrorList
                                          ole::this.object)
                                         12
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IScriptErrorList.retreatError ((ole::this.object
                                                                        ole.control::object-with-IScriptErrorList-client))
                  (ole::control.invoke.0-
                    (ole.control:IScriptErrorList ole::this.object) 11
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IScriptErrorList.advanceError ((ole::this.object
                                                                        ole.control::object-with-IScriptErrorList-client))
                  (ole::control.invoke.0-
                    (ole.control:IScriptErrorList ole::this.object) 10
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)))))
       (declaim (ftype function ole.control:IScriptErrorList))
       (declaim (ftype function
                 ole.control::IScriptErrorList.advanceError
                 ole.control::IScriptErrorList.retreatError
                 ole.control::IScriptErrorList.canAdvanceError
                 ole.control::IScriptErrorList.canRetreatError
                 ole.control::IScriptErrorList.getErrorLine
                 ole.control::IScriptErrorList.getErrorChar
                 ole.control::IScriptErrorList.getErrorCode
                 ole.control::IScriptErrorList.getErrorMsg
                 ole.control::IScriptErrorList.getErrorUrl
                 ole.control::IScriptErrorList.getAlwaysShowLockState
                 ole.control::IScriptErrorList.getDetailsPaneOpen
                 ole.control::IScriptErrorList.setDetailsPaneOpen
                 ole.control::IScriptErrorList.getPerErrorDisplay
                 ole.control::IScriptErrorList.setPerErrorDisplay))
       (progn (without-redefinition-warnings
                (ole:def-client-interface
                  ole.control:IShellFavoritesNameSpace))
              (without-redefinition-warnings
                (defclass ole.control::object-with-IShellFavoritesNameSpace-client
                          (ole::object-with-interfaces)
                          ((ole.control::i.IShellFavoritesNameSpace
                            :initform nil :initarg
                            ole.control::object-with-IShellFavoritesNameSpace-client))))
              (without-redefinition-warnings
                (defmethod ole.control:IShellFavoritesNameSpace ((ole::object
                                                                  ole.control::object-with-IShellFavoritesNameSpace-client))
                  (or (slot-value ole::object
                                  'ole.control::i.IShellFavoritesNameSpace)
                      (setf (slot-value ole::object
                                        'ole.control::i.IShellFavoritesNameSpace)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_IShellFavoritesNameSpace)))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellFavoritesNameSpace.SetRoot ((ole::this.object
                                                                           ole.control::object-with-IShellFavoritesNameSpace-client)
                                                                          ole.control::bstrFullPath)
                  (ole::control.invoke.1-
                    (ole.control:IShellFavoritesNameSpace
                      ole::this.object)
                    13
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::bstrFullPath)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellFavoritesNameSpace.DeleteSubscriptionForSelection ((ole::this.object
                                                                                                  ole.control::object-with-IShellFavoritesNameSpace-client))
                  (ole::control.invoke.0 (ole.control:IShellFavoritesNameSpace
                                          ole::this.object)
                                         12
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellFavoritesNameSpace.CreateSubscriptionForSelection ((ole::this.object
                                                                                                  ole.control::object-with-IShellFavoritesNameSpace-client))
                  (ole::control.invoke.0 (ole.control:IShellFavoritesNameSpace
                                          ole::this.object)
                                         11
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellFavoritesNameSpace.SubscriptionsEnabled ((ole::this.object
                                                                                        ole.control::object-with-IShellFavoritesNameSpace-client))
                  (ole::control.invoke.0 (ole.control:IShellFavoritesNameSpace
                                          ole::this.object)
                                         10
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellFavoritesNameSpace.MoveSelectionTo ((ole::this.object
                                                                                   ole.control::object-with-IShellFavoritesNameSpace-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellFavoritesNameSpace
                      ole::this.object)
                    9
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellFavoritesNameSpace.InvokeContextMenuCommand ((ole::this.object
                                                                                            ole.control::object-with-IShellFavoritesNameSpace-client)
                                                                                           ole.control::strCommand)
                  (ole::control.invoke.1-
                    (ole.control:IShellFavoritesNameSpace
                      ole::this.object)
                    8
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::strCommand)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellFavoritesNameSpace.Export ((ole::this.object
                                                                          ole.control::object-with-IShellFavoritesNameSpace-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellFavoritesNameSpace
                      ole::this.object)
                    7
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellFavoritesNameSpace.Import ((ole::this.object
                                                                          ole.control::object-with-IShellFavoritesNameSpace-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellFavoritesNameSpace
                      ole::this.object)
                    6
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellFavoritesNameSpace.Synchronize ((ole::this.object
                                                                               ole.control::object-with-IShellFavoritesNameSpace-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellFavoritesNameSpace
                      ole::this.object)
                    5
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellFavoritesNameSpace.NewFolder ((ole::this.object
                                                                             ole.control::object-with-IShellFavoritesNameSpace-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellFavoritesNameSpace
                      ole::this.object)
                    4
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellFavoritesNameSpace.ResetSort ((ole::this.object
                                                                             ole.control::object-with-IShellFavoritesNameSpace-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellFavoritesNameSpace
                      ole::this.object)
                    3
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellFavoritesNameSpace.MoveSelectionDown ((ole::this.object
                                                                                     ole.control::object-with-IShellFavoritesNameSpace-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellFavoritesNameSpace
                      ole::this.object)
                    2
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellFavoritesNameSpace.MoveSelectionUp ((ole::this.object
                                                                                   ole.control::object-with-IShellFavoritesNameSpace-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellFavoritesNameSpace
                      ole::this.object)
                    1
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)))))
       (declaim (ftype function ole.control:IShellFavoritesNameSpace))
       (declaim (ftype function
                 ole.control::IShellFavoritesNameSpace.MoveSelectionUp
                 ole.control::IShellFavoritesNameSpace.MoveSelectionDown
                 ole.control::IShellFavoritesNameSpace.ResetSort
                 ole.control::IShellFavoritesNameSpace.NewFolder
                 ole.control::IShellFavoritesNameSpace.Synchronize
                 ole.control::IShellFavoritesNameSpace.Import
                 ole.control::IShellFavoritesNameSpace.Export
                 ole.control::IShellFavoritesNameSpace.InvokeContextMenuCommand
                 ole.control::IShellFavoritesNameSpace.MoveSelectionTo
                 ole.control::IShellFavoritesNameSpace.SubscriptionsEnabled
                 ole.control::IShellFavoritesNameSpace.CreateSubscriptionForSelection
                 ole.control::IShellFavoritesNameSpace.DeleteSubscriptionForSelection
                 ole.control::IShellFavoritesNameSpace.SetRoot))
       (progn (without-redefinition-warnings
                (ole:def-client-interface ole.control:IShellNameSpace))
              (without-redefinition-warnings
                (defclass ole.control::object-with-IShellNameSpace-client
                          (ole.control::object-with-IShellFavoritesNameSpace-client)
                          ((ole.control::i.IShellNameSpace :initform
                            nil :initarg
                            ole.control::object-with-IShellNameSpace-client))))
              (without-redefinition-warnings
                (defmethod ole.control:IShellNameSpace ((ole::object
                                                         ole.control::object-with-IShellNameSpace-client))
                  (or (slot-value ole::object
                                  'ole.control::i.IShellNameSpace)
                      (setf (slot-value ole::object
                                        'ole.control::i.IShellNameSpace)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_IShellNameSpace)))))
              (without-redefinition-warnings
                (defmethod ole.control:IShellFavoritesNameSpace ((ole::object
                                                                  ole.control::object-with-IShellNameSpace-client))
                  (or (slot-value ole::object
                                  'ole.control::i.IShellNameSpace)
                      (setf (slot-value ole::object
                                        'ole.control::i.IShellNameSpace)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_IShellNameSpace)))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.UnselectAll ((ole::this.object
                                                                      ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellNameSpace ole::this.object) 26
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.Expand ((ole::this.object
                                                                 ole.control::object-with-IShellNameSpace-client)
                                                                ole.control::var
                                                                ole.control::iDepth)
                  (ole::control.invoke.2-
                    (ole.control:IShellNameSpace ole::this.object) 25
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::var ole.control::iDepth)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.SelectedItems ((ole::this.object
                                                                        ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0 (ole.control:IShellNameSpace
                                          ole::this.object)
                                         24
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.SetViewType ((ole::this.object
                                                                      ole.control::object-with-IShellNameSpace-client)
                                                                     ole.control::iType)
                  (ole::control.invoke.1-
                    (ole.control:IShellNameSpace ole::this.object) 23
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::iType)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.CountViewTypes ((ole::this.object
                                                                         ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0 (ole.control:IShellNameSpace
                                          ole::this.object)
                                         22
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.Columns ((ole::this.object
                                                                  ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0 (ole.control:IShellNameSpace
                                          ole::this.object)
                                         21
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IShellNameSpace.Columns) (ole::set.value
                                                                        (ole::this.object
                                                                         ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IShellNameSpace ole::this.object) 21
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.TVFlags ((ole::this.object
                                                                  ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0 (ole.control:IShellNameSpace
                                          ole::this.object)
                                         20
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IShellNameSpace.TVFlags) (ole::set.value
                                                                        (ole::this.object
                                                                         ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IShellNameSpace ole::this.object) 20
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.Flags ((ole::this.object
                                                                ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0 (ole.control:IShellNameSpace
                                          ole::this.object)
                                         19
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IShellNameSpace.Flags) (ole::set.value
                                                                      (ole::this.object
                                                                       ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IShellNameSpace ole::this.object) 19
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.Mode ((ole::this.object
                                                               ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0 (ole.control:IShellNameSpace
                                          ole::this.object)
                                         18
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IShellNameSpace.Mode) (ole::set.value
                                                                     (ole::this.object
                                                                      ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IShellNameSpace ole::this.object) 18
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.Depth ((ole::this.object
                                                                ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0 (ole.control:IShellNameSpace
                                          ole::this.object)
                                         17
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IShellNameSpace.Depth) (ole::set.value
                                                                      (ole::this.object
                                                                       ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IShellNameSpace ole::this.object) 17
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.Root ((ole::this.object
                                                               ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0 (ole.control:IShellNameSpace
                                          ole::this.object)
                                         16
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IShellNameSpace.Root) (ole::set.value
                                                                     (ole::this.object
                                                                      ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IShellNameSpace ole::this.object) 16
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.SelectedItem ((ole::this.object
                                                                       ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0 (ole.control:IShellNameSpace
                                          ole::this.object)
                                         15
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IShellNameSpace.SelectedItem) (ole::set.value
                                                                             (ole::this.object
                                                                              ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IShellNameSpace ole::this.object) 15
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.EnumOptions ((ole::this.object
                                                                      ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0 (ole.control:IShellNameSpace
                                          ole::this.object)
                                         14
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IShellNameSpace.EnumOptions) (ole::set.value
                                                                            (ole::this.object
                                                                             ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IShellNameSpace ole::this.object) 14
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.SetRoot ((ole::this.object
                                                                  ole.control::object-with-IShellNameSpace-client)
                                                                 ole.control::bstrFullPath)
                  (ole::control.invoke.1-
                    (ole.control:IShellNameSpace ole::this.object) 13
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::bstrFullPath)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.DeleteSubscriptionForSelection ((ole::this.object
                                                                                         ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0 (ole.control:IShellNameSpace
                                          ole::this.object)
                                         12
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.CreateSubscriptionForSelection ((ole::this.object
                                                                                         ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0 (ole.control:IShellNameSpace
                                          ole::this.object)
                                         11
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.SubscriptionsEnabled ((ole::this.object
                                                                               ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0 (ole.control:IShellNameSpace
                                          ole::this.object)
                                         10
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.MoveSelectionTo ((ole::this.object
                                                                          ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellNameSpace ole::this.object) 9
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.InvokeContextMenuCommand ((ole::this.object
                                                                                   ole.control::object-with-IShellNameSpace-client)
                                                                                  ole.control::strCommand)
                  (ole::control.invoke.1-
                    (ole.control:IShellNameSpace ole::this.object) 8
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::strCommand)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.Export ((ole::this.object
                                                                 ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellNameSpace ole::this.object) 7
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.Import ((ole::this.object
                                                                 ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellNameSpace ole::this.object) 6
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.Synchronize ((ole::this.object
                                                                      ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellNameSpace ole::this.object) 5
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.NewFolder ((ole::this.object
                                                                    ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellNameSpace ole::this.object) 4
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.ResetSort ((ole::this.object
                                                                    ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellNameSpace ole::this.object) 3
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.MoveSelectionDown ((ole::this.object
                                                                            ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellNameSpace ole::this.object) 2
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellNameSpace.MoveSelectionUp ((ole::this.object
                                                                          ole.control::object-with-IShellNameSpace-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellNameSpace ole::this.object) 1
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)))))
       (declaim (ftype function ole.control:IShellFavoritesNameSpace
                 ole.control:IShellNameSpace))
       (declaim (ftype function
                 ole.control::IShellNameSpace.MoveSelectionUp
                 ole.control::IShellNameSpace.MoveSelectionDown
                 ole.control::IShellNameSpace.ResetSort
                 ole.control::IShellNameSpace.NewFolder
                 ole.control::IShellNameSpace.Synchronize
                 ole.control::IShellNameSpace.Import
                 ole.control::IShellNameSpace.Export
                 ole.control::IShellNameSpace.InvokeContextMenuCommand
                 ole.control::IShellNameSpace.MoveSelectionTo
                 ole.control::IShellNameSpace.SubscriptionsEnabled
                 ole.control::IShellNameSpace.CreateSubscriptionForSelection
                 ole.control::IShellNameSpace.DeleteSubscriptionForSelection
                 ole.control::IShellNameSpace.SetRoot
                 (setf ole.control::IShellNameSpace.EnumOptions)
                 ole.control::IShellNameSpace.EnumOptions
                 (setf ole.control::IShellNameSpace.SelectedItem)
                 ole.control::IShellNameSpace.SelectedItem
                 (setf ole.control::IShellNameSpace.Root)
                 ole.control::IShellNameSpace.Root
                 (setf ole.control::IShellNameSpace.Depth)
                 ole.control::IShellNameSpace.Depth
                 (setf ole.control::IShellNameSpace.Mode)
                 ole.control::IShellNameSpace.Mode
                 (setf ole.control::IShellNameSpace.Flags)
                 ole.control::IShellNameSpace.Flags
                 (setf ole.control::IShellNameSpace.TVFlags)
                 ole.control::IShellNameSpace.TVFlags
                 (setf ole.control::IShellNameSpace.Columns)
                 ole.control::IShellNameSpace.Columns
                 ole.control::IShellNameSpace.CountViewTypes
                 ole.control::IShellNameSpace.SetViewType
                 ole.control::IShellNameSpace.SelectedItems
                 ole.control::IShellNameSpace.Expand
                 ole.control::IShellNameSpace.UnselectAll))
       (without-redefinition-warnings
         (ole:def-server-interface ole.control:DShellNameSpaceEvents)
         (ole:def-ocx-class ole.control::channel-DShellNameSpaceEvents
                            (ole::control-event-channel :interfaces
                             ole.control:DShellNameSpaceEvents)
                            ((ole::uuid :allocation :class :initform
                              (ole:unique-guid "{55136806-b2de-11d1-b9f2-00a0c98bc547}"))))
         (progn (defun ole.control::event.DShellNameSpaceEvents.FavoritesSelectionChange
                    (ole::this.control ole::this.channel
                     ole.control::cItems ole.control::hItem
                     ole.control::strName ole.control::strUrl
                     ole.control::cVisits ole.control::strDate
                     ole.control::fAvailableOffline)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DShellNameSpaceEvents.FavoritesSelectionChange on ~s~%"
                            ole::this.control))
                  (msx:-FavoritesSelectionChange ole::this.control
                    ole::this.channel ole.control::cItems
                    ole.control::hItem ole.control::strName
                    ole.control::strUrl ole.control::cVisits
                    ole.control::strDate
                    ole.control::fAvailableOffline))
                (defmethod msx:-FavoritesSelectionChange ((ole::this.control
                                                           t)
                                                          (ole::this.channel
                                                           ole.control::channel-DShellNameSpaceEvents)
                                                          ole.control::cItems
                                                          ole.control::hItem
                                                          ole.control::strName
                                                          ole.control::strUrl
                                                          ole.control::cVisits
                                                          ole.control::strDate
                                                          ole.control::fAvailableOffline)
                  (declare
                   (ignore ole.control::cItems ole.control::hItem
                    ole.control::strName ole.control::strUrl
                    ole.control::cVisits ole.control::strDate
                    ole.control::fAvailableOffline))
                  nil))
         (progn (defun ole.control::event.DShellNameSpaceEvents.SelectionChange
                    (ole::this.control ole::this.channel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DShellNameSpaceEvents.SelectionChange on ~s~%"
                            ole::this.control))
                  (msx:-SelectionChange ole::this.control
                                        ole::this.channel))
                (defmethod msx:-SelectionChange ((ole::this.control t)
                                                 (ole::this.channel
                                                  ole.control::channel-DShellNameSpaceEvents))
                  (declare (ignore)) nil))
         (progn (defun ole.control::event.DShellNameSpaceEvents.DoubleClick
                    (ole::this.control ole::this.channel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DShellNameSpaceEvents.DoubleClick on ~s~%"
                            ole::this.control))
                  (msx:-DoubleClick ole::this.control
                                    ole::this.channel))
                (defmethod msx:-DoubleClick ((ole::this.control t)
                                             (ole::this.channel
                                              ole.control::channel-DShellNameSpaceEvents))
                  (declare (ignore)) nil))
         (progn (defun ole.control::event.DShellNameSpaceEvents.Initialized
                    (ole::this.control ole::this.channel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DShellNameSpaceEvents.Initialized on ~s~%"
                            ole::this.control))
                  (msx:-Initialized ole::this.control
                                    ole::this.channel))
                (defmethod msx:-Initialized ((ole::this.control t)
                                             (ole::this.channel
                                              ole.control::channel-DShellNameSpaceEvents))
                  (declare (ignore)) nil))
         (defmethod ole::dispatch-invocation ((ole::this.channel
                                               ole.control::channel-DShellNameSpaceEvents)
                                              ole::memid
                                              ole::mode
                                              ole::parms)
           (declare (ignore-if-unused ole::mode ole::parms))
           (let ((ole::this.control
                  (slot-value ole::this.channel 'ole::host)))
             (case ole::memid
               (1
                (let ((ole.control::fAvailableOffline
                       (ole::get-nth-arg ole::parms 6))
                      (ole.control::strDate
                       (ole::get-nth-arg ole::parms 5))
                      (ole.control::cVisits
                       (ole::get-nth-arg ole::parms 4))
                      (ole.control::strUrl
                       (ole::get-nth-arg ole::parms 3))
                      (ole.control::strName
                       (ole::get-nth-arg ole::parms 2))
                      (ole.control::hItem
                       (ole::get-nth-arg ole::parms 1))
                      (ole.control::cItems
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DShellNameSpaceEvents.FavoritesSelectionChange
                           ole::this.control ole::this.channel
                           ole.control::cItems ole.control::hItem
                           ole.control::strName ole.control::strUrl
                           ole.control::cVisits ole.control::strDate
                           ole.control::fAvailableOffline)
                         nil)))
               (2
                (let ()
                  (prog1 (ole.control::event.DShellNameSpaceEvents.SelectionChange
                           ole::this.control ole::this.channel)
                         nil)))
               (3
                (let ()
                  (prog1 (ole.control::event.DShellNameSpaceEvents.DoubleClick
                           ole::this.control ole::this.channel)
                         nil)))
               (4
                (let ()
                  (prog1 (ole.control::event.DShellNameSpaceEvents.Initialized
                           ole::this.control ole::this.channel)
                         nil)))
               (t (signal 'ole::member-not-found))))))
       (declaim (ftype function msx:-Initialized
                 ole.control::event.DShellNameSpaceEvents.Initialized
                 msx:-DoubleClick
                 ole.control::event.DShellNameSpaceEvents.DoubleClick
                 msx:-SelectionChange
                 ole.control::event.DShellNameSpaceEvents.SelectionChange
                 msx:-FavoritesSelectionChange
                 ole.control::event.DShellNameSpaceEvents.FavoritesSelectionChange))
       (progn (without-redefinition-warnings
                (ole:def-client-interface ole.control:IShellUIHelper))
              (without-redefinition-warnings
                (defclass ole.control::object-with-IShellUIHelper-client
                          (ole::object-with-interfaces)
                          ((ole.control::i.IShellUIHelper :initform nil
                            :initarg
                            ole.control::object-with-IShellUIHelper-client))))
              (without-redefinition-warnings
                (defmethod ole.control:IShellUIHelper ((ole::object
                                                        ole.control::object-with-IShellUIHelper-client))
                  (or (slot-value ole::object
                                  'ole.control::i.IShellUIHelper)
                      (setf (slot-value ole::object
                                        'ole.control::i.IShellUIHelper)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_IShellUIHelper)))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellUIHelper.ShowBrowserUI ((ole::this.object
                                                                       ole.control::object-with-IShellUIHelper-client)
                                                                      ole.control::bstrName
                                                                      ole.control::pvarIn)
                  (ole::control.invoke.2 (ole.control:IShellUIHelper
                                          ole::this.object)
                                         13
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::bstrName
                                         ole.control::pvarIn)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellUIHelper.AutoCompleteAttach ((ole::this.object
                                                                            ole.control::object-with-IShellUIHelper-client)
                                                                           &key
                                                                           (ole.control::Reserved
                                                                            :missing))
                  (ole::control.invoke.1-
                    (ole.control:IShellUIHelper ole::this.object) 12
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::Reserved)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellUIHelper.AutoScan ((ole::this.object
                                                                  ole.control::object-with-IShellUIHelper-client)
                                                                 ole.control::strSearch
                                                                 ole.control::strFailureUrl
                                                                 &key
                                                                 (ole.control::pvarTargetFrame
                                                                  :missing))
                  (ole::control.invoke.3-
                    (ole.control:IShellUIHelper ole::this.object) 11
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::strSearch ole.control::strFailureUrl
                    ole.control::pvarTargetFrame)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellUIHelper.AutoCompleteSaveForm ((ole::this.object
                                                                              ole.control::object-with-IShellUIHelper-client)
                                                                             &key
                                                                             (ole.control::Form
                                                                              :missing))
                  (ole::control.invoke.1-
                    (ole.control:IShellUIHelper ole::this.object) 10
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::Form)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellUIHelper.ImportExportFavorites ((ole::this.object
                                                                               ole.control::object-with-IShellUIHelper-client)
                                                                              ole.control::fImport
                                                                              ole.control::strImpExpPath)
                  (ole::control.invoke.2-
                    (ole.control:IShellUIHelper ole::this.object) 9
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::fImport ole.control::strImpExpPath)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellUIHelper.NavigateAndFind ((ole::this.object
                                                                         ole.control::object-with-IShellUIHelper-client)
                                                                        ole.control::URL
                                                                        ole.control::strQuery
                                                                        ole.control::varTargetFrame)
                  (ole::control.invoke.3-
                    (ole.control:IShellUIHelper ole::this.object) 8
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::URL ole.control::strQuery
                    ole.control::varTargetFrame)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellUIHelper.IsSubscribed ((ole::this.object
                                                                      ole.control::object-with-IShellUIHelper-client)
                                                                     ole.control::URL)
                  (ole::control.invoke.1 (ole.control:IShellUIHelper
                                          ole::this.object)
                                         7
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::URL)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellUIHelper.AddDesktopComponent ((ole::this.object
                                                                             ole.control::object-with-IShellUIHelper-client)
                                                                            ole.control::URL
                                                                            ole.control::Type
                                                                            &key
                                                                            (ole.control::Left
                                                                             :missing)
                                                                            (ole.control::Top
                                                                             :missing)
                                                                            (ole.control::Width
                                                                             :missing)
                                                                            (ole.control::Height
                                                                             :missing))
                  (ole::control.invoke.6-
                    (ole.control:IShellUIHelper ole::this.object) 6
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::URL ole.control::Type
                    ole.control::Left ole.control::Top
                    ole.control::Width ole.control::Height)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellUIHelper.AddChannel ((ole::this.object
                                                                    ole.control::object-with-IShellUIHelper-client)
                                                                   ole.control::URL)
                  (ole::control.invoke.1-
                    (ole.control:IShellUIHelper ole::this.object) 5
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::URL)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellUIHelper.AddFavorite ((ole::this.object
                                                                     ole.control::object-with-IShellUIHelper-client)
                                                                    ole.control::URL
                                                                    &key
                                                                    (ole.control::Title
                                                                     :missing))
                  (ole::control.invoke.2-
                    (ole.control:IShellUIHelper ole::this.object) 4
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::URL ole.control::Title)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellUIHelper.RefreshOfflineDesktop ((ole::this.object
                                                                               ole.control::object-with-IShellUIHelper-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellUIHelper ole::this.object) 3
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellUIHelper.ResetSafeMode ((ole::this.object
                                                                       ole.control::object-with-IShellUIHelper-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellUIHelper ole::this.object) 2
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellUIHelper.ResetFirstBootMode ((ole::this.object
                                                                            ole.control::object-with-IShellUIHelper-client))
                  (ole::control.invoke.0-
                    (ole.control:IShellUIHelper ole::this.object) 1
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)))))
       (declaim (ftype function ole.control:IShellUIHelper))
       (declaim (ftype function
                 ole.control::IShellUIHelper.ResetFirstBootMode
                 ole.control::IShellUIHelper.ResetSafeMode
                 ole.control::IShellUIHelper.RefreshOfflineDesktop
                 ole.control::IShellUIHelper.AddFavorite
                 ole.control::IShellUIHelper.AddChannel
                 ole.control::IShellUIHelper.AddDesktopComponent
                 ole.control::IShellUIHelper.IsSubscribed
                 ole.control::IShellUIHelper.NavigateAndFind
                 ole.control::IShellUIHelper.ImportExportFavorites
                 ole.control::IShellUIHelper.AutoCompleteSaveForm
                 ole.control::IShellUIHelper.AutoScan
                 ole.control::IShellUIHelper.AutoCompleteAttach
                 ole.control::IShellUIHelper.ShowBrowserUI))
       (progn (without-redefinition-warnings
                (ole:def-client-interface ole.control:IShellWindows))
              (without-redefinition-warnings
                (defclass ole.control::object-with-IShellWindows-client
                          (ole::object-with-interfaces)
                          ((ole.control::i.IShellWindows :initform nil
                            :initarg
                            ole.control::object-with-IShellWindows-client))))
              (without-redefinition-warnings
                (defmethod ole.control:IShellWindows ((ole::object
                                                       ole.control::object-with-IShellWindows-client))
                  (or (slot-value ole::object
                                  'ole.control::i.IShellWindows)
                      (setf (slot-value ole::object
                                        'ole.control::i.IShellWindows)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_IShellWindows)))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellWindows.ProcessAttachDetach ((ole::this.object
                                                                            ole.control::object-with-IShellWindows-client)
                                                                           ole.control::fAttach)
                  (ole::control.invoke.1-
                    (ole.control:IShellWindows ole::this.object)
                    1610743818
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::fAttach)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellWindows.OnCreated ((ole::this.object
                                                                  ole.control::object-with-IShellWindows-client)
                                                                 ole.control::lCookie
                                                                 ole.control::punk)
                  (ole::control.invoke.2-
                    (ole.control:IShellWindows ole::this.object)
                    1610743817
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::lCookie ole.control::punk)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellWindows.FindWindowSW ((ole::this.object
                                                                     ole.control::object-with-IShellWindows-client)
                                                                    ole.control::pvarloc
                                                                    ole.control::pvarlocRoot
                                                                    ole.control::swClass
                                                                    ole.control::swfwOptions)
                  (ole::with-retareas ((ole::m.parms ole::dispparams)
                                       (ole::m.vret ole:variant)
                                       (ole::m.arg-variant-array
                                        (:array ole:variant 5))
                                       (ole.control::slotfor.pHWND
                                        :long)
                                       (ole::m.argerr :int)
                                       (ole::m.excep ole:excepinfo))
                    (ole:VariantInit (ole:xeno-address
                                      '(:array ole:variant)
                                      ole::m.arg-variant-array
                                      0))
                    (ole::init-variant-reference
                      (ole:xeno-address '(:array ole:variant)
                                        ole::m.arg-variant-array 1)
                      ':long ole.control::slotfor.pHWND)
                    (ole:VariantInit (ole:xeno-address
                                      '(:array ole:variant)
                                      ole::m.arg-variant-array
                                      2))
                    (ole:VariantInit (ole:xeno-address
                                      '(:array ole:variant)
                                      ole::m.arg-variant-array
                                      3))
                    (ole:VariantInit (ole:xeno-address
                                      '(:array ole:variant)
                                      ole::m.arg-variant-array
                                      4))
                    (setf (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::cArgs)
                          5
                          (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::cNamedArgs)
                          0
                          (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::rgvarg)
                          ole::m.arg-variant-array
                          (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::rgdispidNamedArgs)
                          0)
                    (ole::variant-astore ole::m.arg-variant-array 0
                                         ole.control::swfwOptions)
                    (ole::variant-astore ole::m.arg-variant-array 2
                                         ole.control::swClass)
                    (ole::variant-astore ole::m.arg-variant-array 3
                                         ole.control::pvarlocRoot)
                    (ole::variant-astore ole::m.arg-variant-array 4
                                         ole.control::pvarloc)
                    (unwind-protect
                        (progn nil
                               (ole:check-return
                                (ole::IDispatch.Invoke
                                 (ole:h
                                  (ole.control:IShellWindows
                                   ole::this.object))
                                 1610743816
                                 (ole:guid-binary ole:IID_NULL)
                                 ole:*ole-locale*
                                 (logior
                                  ole:DISPATCH_METHOD
                                  ole:DISPATCH_PROPERTYGET)
                                 ole::m.parms
                                 ole::m.vret
                                 ole::m.excep
                                 ole::m.argerr))
                               nil
                               (values
                                (ole:variant-value ole::m.vret)
                                (ole:variant-value
                                 (ole:xeno-address
                                  '(:array ole:variant)
                                  ole::m.arg-variant-array
                                  1))))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         0))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         1))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         2))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         3))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         4))))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellWindows.OnActivated ((ole::this.object
                                                                    ole.control::object-with-IShellWindows-client)
                                                                   ole.control::lCookie
                                                                   ole.control::fActive)
                  (ole::control.invoke.2-
                    (ole.control:IShellWindows ole::this.object)
                    1610743815
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::lCookie ole.control::fActive)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellWindows.OnNavigate ((ole::this.object
                                                                   ole.control::object-with-IShellWindows-client)
                                                                  ole.control::lCookie
                                                                  ole.control::pvarloc)
                  (ole::control.invoke.2-
                    (ole.control:IShellWindows ole::this.object)
                    1610743814
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::lCookie ole.control::pvarloc)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellWindows.Revoke ((ole::this.object
                                                               ole.control::object-with-IShellWindows-client)
                                                              ole.control::lCookie)
                  (ole::control.invoke.1-
                    (ole.control:IShellWindows ole::this.object)
                    1610743813
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::lCookie)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellWindows.RegisterPending ((ole::this.object
                                                                        ole.control::object-with-IShellWindows-client)
                                                                       ole.control::lThreadId
                                                                       ole.control::pvarloc
                                                                       ole.control::pvarlocRoot
                                                                       ole.control::swClass)
                  (ole::with-retareas ((ole::m.parms ole::dispparams)
                                       (ole::m.arg-variant-array
                                        (:array ole:variant 5))
                                       (ole.control::slotfor.plCookie
                                        :long)
                                       (ole::m.argerr :int)
                                       (ole::m.excep ole:excepinfo))
                    (ole::init-variant-reference
                      (ole:xeno-address '(:array ole:variant)
                                        ole::m.arg-variant-array 0)
                      ':long ole.control::slotfor.plCookie)
                    (ole:VariantInit (ole:xeno-address
                                      '(:array ole:variant)
                                      ole::m.arg-variant-array
                                      1))
                    (ole:VariantInit (ole:xeno-address
                                      '(:array ole:variant)
                                      ole::m.arg-variant-array
                                      2))
                    (ole:VariantInit (ole:xeno-address
                                      '(:array ole:variant)
                                      ole::m.arg-variant-array
                                      3))
                    (ole:VariantInit (ole:xeno-address
                                      '(:array ole:variant)
                                      ole::m.arg-variant-array
                                      4))
                    (setf (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::cArgs)
                          5
                          (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::cNamedArgs)
                          0
                          (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::rgvarg)
                          ole::m.arg-variant-array
                          (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::rgdispidNamedArgs)
                          0)
                    (ole::variant-astore ole::m.arg-variant-array 1
                                         ole.control::swClass)
                    (ole::variant-astore ole::m.arg-variant-array 2
                                         ole.control::pvarlocRoot)
                    (ole::variant-astore ole::m.arg-variant-array 3
                                         ole.control::pvarloc)
                    (ole::variant-astore ole::m.arg-variant-array 4
                                         ole.control::lThreadId)
                    (unwind-protect
                        (progn nil
                               (ole:check-return
                                (ole::IDispatch.Invoke
                                 (ole:h
                                  (ole.control:IShellWindows
                                   ole::this.object))
                                 1610743812
                                 (ole:guid-binary ole:IID_NULL)
                                 ole:*ole-locale*
                                 (logior
                                  ole:DISPATCH_METHOD
                                  ole:DISPATCH_PROPERTYGET)
                                 ole::m.parms
                                 0
                                 ole::m.excep
                                 ole::m.argerr))
                               nil
                               (values
                                nil
                                (ole:variant-value
                                 (ole:xeno-address
                                  '(:array ole:variant)
                                  ole::m.arg-variant-array
                                  0))))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         0))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         1))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         2))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         3))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         4))))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellWindows.Register ((ole::this.object
                                                                 ole.control::object-with-IShellWindows-client)
                                                                ole.control::pid
                                                                ole.control::HWND
                                                                ole.control::swClass)
                  (ole::with-retareas ((ole::m.parms ole::dispparams)
                                       (ole::m.arg-variant-array
                                        (:array ole:variant 4))
                                       (ole.control::slotfor.plCookie
                                        :long)
                                       (ole::m.argerr :int)
                                       (ole::m.excep ole:excepinfo))
                    (ole::init-variant-reference
                      (ole:xeno-address '(:array ole:variant)
                                        ole::m.arg-variant-array 0)
                      ':long ole.control::slotfor.plCookie)
                    (ole:VariantInit (ole:xeno-address
                                      '(:array ole:variant)
                                      ole::m.arg-variant-array
                                      1))
                    (ole:VariantInit (ole:xeno-address
                                      '(:array ole:variant)
                                      ole::m.arg-variant-array
                                      2))
                    (ole:VariantInit (ole:xeno-address
                                      '(:array ole:variant)
                                      ole::m.arg-variant-array
                                      3))
                    (setf (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::cArgs)
                          4
                          (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::cNamedArgs)
                          0
                          (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::rgvarg)
                          ole::m.arg-variant-array
                          (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::rgdispidNamedArgs)
                          0)
                    (ole::variant-astore ole::m.arg-variant-array 1
                                         ole.control::swClass)
                    (ole::variant-astore ole::m.arg-variant-array 2
                                         ole.control::HWND)
                    (ole::variant-astore ole::m.arg-variant-array 3
                                         ole.control::pid)
                    (unwind-protect
                        (progn nil
                               (ole:check-return
                                (ole::IDispatch.Invoke
                                 (ole:h
                                  (ole.control:IShellWindows
                                   ole::this.object))
                                 1610743811
                                 (ole:guid-binary ole:IID_NULL)
                                 ole:*ole-locale*
                                 (logior
                                  ole:DISPATCH_METHOD
                                  ole:DISPATCH_PROPERTYGET)
                                 ole::m.parms
                                 0
                                 ole::m.excep
                                 ole::m.argerr))
                               nil
                               (values
                                nil
                                (ole:variant-value
                                 (ole:xeno-address
                                  '(:array ole:variant)
                                  ole::m.arg-variant-array
                                  0))))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         0))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         1))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         2))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         3))))))
              (without-redefinition-warnings
                (defmethod ole.control::IShellWindows._NewEnum ((ole::this.object
                                                                 ole.control::object-with-IShellWindows-client))
                  (ole::control.invoke.0 (ole.control:IShellWindows
                                          ole::this.object)
                                         4294967292
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellWindows.Item ((ole::this.object
                                                             ole.control::object-with-IShellWindows-client)
                                                            &key
                                                            (ole.control::index
                                                             :missing))
                  (ole::control.invoke.1 (ole.control:IShellWindows
                                          ole::this.object)
                                         0
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::index)))
              (without-redefinition-warnings
                (defmethod ole.control::IShellWindows.Count ((ole::this.object
                                                              ole.control::object-with-IShellWindows-client))
                  (ole::control.invoke.0 (ole.control:IShellWindows
                                          ole::this.object)
                                         1610743808
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil))))
       (declaim (ftype function ole.control:IShellWindows))
       (declaim (ftype function ole.control::IShellWindows.Count
                 ole.control::IShellWindows.Item
                 ole.control::IShellWindows._NewEnum
                 ole.control::IShellWindows.Register
                 ole.control::IShellWindows.RegisterPending
                 ole.control::IShellWindows.Revoke
                 ole.control::IShellWindows.OnNavigate
                 ole.control::IShellWindows.OnActivated
                 ole.control::IShellWindows.FindWindowSW
                 ole.control::IShellWindows.OnCreated
                 ole.control::IShellWindows.ProcessAttachDetach))
       (without-redefinition-warnings
         (ole:def-server-interface ole.control:DShellWindowsEvents)
         (ole:def-ocx-class ole.control::channel-DShellWindowsEvents
                            (ole::control-event-channel :interfaces
                             ole.control:DShellWindowsEvents)
                            ((ole::uuid :allocation :class :initform
                              (ole:unique-guid "{fe4106e0-399a-11d0-a48c-00a0c90a8f39}"))))
         (progn (defun ole.control::event.DShellWindowsEvents.WindowRegistered
                    (ole::this.control ole::this.channel
                     ole.control::lCookie)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DShellWindowsEvents.WindowRegistered on ~s~%"
                            ole::this.control))
                  (msx:-WindowRegistered ole::this.control
                    ole::this.channel ole.control::lCookie))
                (defmethod msx:-WindowRegistered ((ole::this.control t)
                                                  (ole::this.channel
                                                   ole.control::channel-DShellWindowsEvents)
                                                  ole.control::lCookie)
                  (declare (ignore ole.control::lCookie)) nil))
         (progn (defun ole.control::event.DShellWindowsEvents.WindowRevoked
                    (ole::this.control ole::this.channel
                     ole.control::lCookie)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DShellWindowsEvents.WindowRevoked on ~s~%"
                            ole::this.control))
                  (msx:-WindowRevoked ole::this.control
                                      ole::this.channel
                                      ole.control::lCookie))
                (defmethod msx:-WindowRevoked ((ole::this.control t)
                                               (ole::this.channel
                                                ole.control::channel-DShellWindowsEvents)
                                               ole.control::lCookie)
                  (declare (ignore ole.control::lCookie)) nil))
         (defmethod ole::dispatch-invocation ((ole::this.channel
                                               ole.control::channel-DShellWindowsEvents)
                                              ole::memid
                                              ole::mode
                                              ole::parms)
           (declare (ignore-if-unused ole::mode ole::parms))
           (let ((ole::this.control
                  (slot-value ole::this.channel 'ole::host)))
             (case ole::memid
               (200
                (let ((ole.control::lCookie
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DShellWindowsEvents.WindowRegistered
                           ole::this.control ole::this.channel
                           ole.control::lCookie)
                         nil)))
               (201
                (let ((ole.control::lCookie
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DShellWindowsEvents.WindowRevoked
                           ole::this.control ole::this.channel
                           ole.control::lCookie)
                         nil)))
               (t (signal 'ole::member-not-found))))))
       (declaim (ftype function msx:-WindowRevoked
                 ole.control::event.DShellWindowsEvents.WindowRevoked
                 msx:-WindowRegistered
                 ole.control::event.DShellWindowsEvents.WindowRegistered))
       (without-redefinition-warnings
         (ole:def-server-interface ole.control:DWebBrowserEvents2)
         (ole:def-ocx-class ole.control::channel-DWebBrowserEvents2
                            (ole::control-event-channel :interfaces
                             ole.control:DWebBrowserEvents2)
                            ((ole::uuid :allocation :class :initform
                              (ole:unique-guid "{34a715a0-6587-11d0-924a-0020afc7ac4d}"))))
         (progn (defun ole.control::event.DWebBrowserEvents2.StatusTextChange
                    (ole::this.control ole::this.channel
                     ole.control::Text)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.StatusTextChange on ~s~%"
                            ole::this.control))
                  (msx:-StatusTextChange ole::this.control
                    ole::this.channel ole.control::Text))
                (defmethod msx:-StatusTextChange ((ole::this.control t)
                                                  (ole::this.channel
                                                   ole.control::channel-DWebBrowserEvents2)
                                                  ole.control::Text)
                  (declare (ignore ole.control::Text)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.ProgressChange
                    (ole::this.control ole::this.channel
                     ole.control::Progress ole.control::ProgressMax)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.ProgressChange on ~s~%"
                            ole::this.control))
                  (msx:-ProgressChange ole::this.control
                                       ole::this.channel
                                       ole.control::Progress
                                       ole.control::ProgressMax))
                (defmethod msx:-ProgressChange ((ole::this.control t)
                                                (ole::this.channel
                                                 ole.control::channel-DWebBrowserEvents2)
                                                ole.control::Progress
                                                ole.control::ProgressMax)
                  (declare
                   (ignore ole.control::Progress
                    ole.control::ProgressMax))
                  nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.CommandStateChange
                    (ole::this.control ole::this.channel
                     ole.control::Command ole.control::Enable)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.CommandStateChange on ~s~%"
                            ole::this.control))
                  (msx:-CommandStateChange ole::this.control
                    ole::this.channel ole.control::Command
                    ole.control::Enable))
                (defmethod msx:-CommandStateChange ((ole::this.control
                                                     t)
                                                    (ole::this.channel
                                                     ole.control::channel-DWebBrowserEvents2)
                                                    ole.control::Command
                                                    ole.control::Enable)
                  (declare
                   (ignore ole.control::Command ole.control::Enable))
                  nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.DownloadBegin
                    (ole::this.control ole::this.channel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.DownloadBegin on ~s~%"
                            ole::this.control))
                  (msx:-DownloadBegin ole::this.control
                                      ole::this.channel))
                (defmethod msx:-DownloadBegin ((ole::this.control t)
                                               (ole::this.channel
                                                ole.control::channel-DWebBrowserEvents2))
                  (declare (ignore)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.DownloadComplete
                    (ole::this.control ole::this.channel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.DownloadComplete on ~s~%"
                            ole::this.control))
                  (msx:-DownloadComplete ole::this.control
                    ole::this.channel))
                (defmethod msx:-DownloadComplete ((ole::this.control t)
                                                  (ole::this.channel
                                                   ole.control::channel-DWebBrowserEvents2))
                  (declare (ignore)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.TitleChange
                    (ole::this.control ole::this.channel
                     ole.control::Text)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.TitleChange on ~s~%"
                            ole::this.control))
                  (msx:-TitleChange ole::this.control ole::this.channel
                                    ole.control::Text))
                (defmethod msx:-TitleChange ((ole::this.control t)
                                             (ole::this.channel
                                              ole.control::channel-DWebBrowserEvents2)
                                             ole.control::Text)
                  (declare (ignore ole.control::Text)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.PropertyChange
                    (ole::this.control ole::this.channel
                     ole.control::szProperty)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.PropertyChange on ~s~%"
                            ole::this.control))
                  (msx:-PropertyChange ole::this.control
                                       ole::this.channel
                                       ole.control::szProperty))
                (defmethod msx:-PropertyChange ((ole::this.control t)
                                                (ole::this.channel
                                                 ole.control::channel-DWebBrowserEvents2)
                                                ole.control::szProperty)
                  (declare (ignore ole.control::szProperty)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.BeforeNavigate2
                    (ole::this.control ole::this.channel
                     ole.control::pDisp ole.control::URL
                     ole.control::Flags ole.control::TargetFrameName
                     ole.control::PostData ole.control::Headers
                     ole.control::Cancel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.BeforeNavigate2 on ~s~%"
                            ole::this.control))
                  (msx:-BeforeNavigate2 ole::this.control
                                        ole::this.channel
                                        ole.control::pDisp
                                        ole.control::URL
                                        ole.control::Flags
                                        ole.control::TargetFrameName
                                        ole.control::PostData
                                        ole.control::Headers
                                        ole.control::Cancel))
                (defmethod msx:-BeforeNavigate2 ((ole::this.control t)
                                                 (ole::this.channel
                                                  ole.control::channel-DWebBrowserEvents2)
                                                 ole.control::pDisp
                                                 ole.control::URL
                                                 ole.control::Flags
                                                 ole.control::TargetFrameName
                                                 ole.control::PostData
                                                 ole.control::Headers
                                                 ole.control::Cancel)
                  (declare
                   (ignore ole.control::pDisp ole.control::URL
                    ole.control::Flags ole.control::TargetFrameName
                    ole.control::PostData ole.control::Headers
                    ole.control::Cancel))
                  nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.NewWindow2
                    (ole::this.control ole::this.channel
                     ole.control::ppDisp ole.control::Cancel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.NewWindow2 on ~s~%"
                            ole::this.control))
                  (msx:-NewWindow2 ole::this.control ole::this.channel
                                   ole.control::ppDisp
                                   ole.control::Cancel))
                (defmethod msx:-NewWindow2 ((ole::this.control t)
                                            (ole::this.channel
                                             ole.control::channel-DWebBrowserEvents2)
                                            ole.control::ppDisp
                                            ole.control::Cancel)
                  (declare
                   (ignore ole.control::ppDisp ole.control::Cancel))
                  nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.NavigateComplete2
                    (ole::this.control ole::this.channel
                     ole.control::pDisp ole.control::URL)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.NavigateComplete2 on ~s~%"
                            ole::this.control))
                  (msx:-NavigateComplete2 ole::this.control
                    ole::this.channel ole.control::pDisp
                    ole.control::URL))
                (defmethod msx:-NavigateComplete2 ((ole::this.control
                                                    t)
                                                   (ole::this.channel
                                                    ole.control::channel-DWebBrowserEvents2)
                                                   ole.control::pDisp
                                                   ole.control::URL)
                  (declare
                   (ignore ole.control::pDisp ole.control::URL))
                  nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.DocumentComplete
                    (ole::this.control ole::this.channel
                     ole.control::pDisp ole.control::URL)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.DocumentComplete on ~s~%"
                            ole::this.control))
                  (msx:-DocumentComplete ole::this.control
                    ole::this.channel ole.control::pDisp
                    ole.control::URL))
                (defmethod msx:-DocumentComplete ((ole::this.control t)
                                                  (ole::this.channel
                                                   ole.control::channel-DWebBrowserEvents2)
                                                  ole.control::pDisp
                                                  ole.control::URL)
                  (declare
                   (ignore ole.control::pDisp ole.control::URL))
                  nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.OnQuit
                    (ole::this.control ole::this.channel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.OnQuit on ~s~%"
                            ole::this.control))
                  (msx:-OnQuit ole::this.control ole::this.channel))
                (defmethod msx:-OnQuit ((ole::this.control t)
                                        (ole::this.channel
                                         ole.control::channel-DWebBrowserEvents2))
                  (declare (ignore)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.OnVisible
                    (ole::this.control ole::this.channel
                     ole.control::Visible)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.OnVisible on ~s~%"
                            ole::this.control))
                  (msx:-OnVisible ole::this.control ole::this.channel
                                  ole.control::Visible))
                (defmethod msx:-OnVisible ((ole::this.control t)
                                           (ole::this.channel
                                            ole.control::channel-DWebBrowserEvents2)
                                           ole.control::Visible)
                  (declare (ignore ole.control::Visible)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.OnToolBar
                    (ole::this.control ole::this.channel
                     ole.control::ToolBar)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.OnToolBar on ~s~%"
                            ole::this.control))
                  (msx:-OnToolBar ole::this.control ole::this.channel
                                  ole.control::ToolBar))
                (defmethod msx:-OnToolBar ((ole::this.control t)
                                           (ole::this.channel
                                            ole.control::channel-DWebBrowserEvents2)
                                           ole.control::ToolBar)
                  (declare (ignore ole.control::ToolBar)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.OnMenuBar
                    (ole::this.control ole::this.channel
                     ole.control::MenuBar)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.OnMenuBar on ~s~%"
                            ole::this.control))
                  (msx:-OnMenuBar ole::this.control ole::this.channel
                                  ole.control::MenuBar))
                (defmethod msx:-OnMenuBar ((ole::this.control t)
                                           (ole::this.channel
                                            ole.control::channel-DWebBrowserEvents2)
                                           ole.control::MenuBar)
                  (declare (ignore ole.control::MenuBar)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.OnStatusBar
                    (ole::this.control ole::this.channel
                     ole.control::StatusBar)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.OnStatusBar on ~s~%"
                            ole::this.control))
                  (msx:-OnStatusBar ole::this.control ole::this.channel
                                    ole.control::StatusBar))
                (defmethod msx:-OnStatusBar ((ole::this.control t)
                                             (ole::this.channel
                                              ole.control::channel-DWebBrowserEvents2)
                                             ole.control::StatusBar)
                  (declare (ignore ole.control::StatusBar)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.OnFullScreen
                    (ole::this.control ole::this.channel
                     ole.control::FullScreen)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.OnFullScreen on ~s~%"
                            ole::this.control))
                  (msx:-OnFullScreen ole::this.control
                                     ole::this.channel
                                     ole.control::FullScreen))
                (defmethod msx:-OnFullScreen ((ole::this.control t)
                                              (ole::this.channel
                                               ole.control::channel-DWebBrowserEvents2)
                                              ole.control::FullScreen)
                  (declare (ignore ole.control::FullScreen)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.OnTheaterMode
                    (ole::this.control ole::this.channel
                     ole.control::TheaterMode)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.OnTheaterMode on ~s~%"
                            ole::this.control))
                  (msx:-OnTheaterMode ole::this.control
                                      ole::this.channel
                                      ole.control::TheaterMode))
                (defmethod msx:-OnTheaterMode ((ole::this.control t)
                                               (ole::this.channel
                                                ole.control::channel-DWebBrowserEvents2)
                                               ole.control::TheaterMode)
                  (declare (ignore ole.control::TheaterMode)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.WindowSetResizable
                    (ole::this.control ole::this.channel
                     ole.control::Resizable)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.WindowSetResizable on ~s~%"
                            ole::this.control))
                  (msx:-WindowSetResizable ole::this.control
                    ole::this.channel ole.control::Resizable))
                (defmethod msx:-WindowSetResizable ((ole::this.control
                                                     t)
                                                    (ole::this.channel
                                                     ole.control::channel-DWebBrowserEvents2)
                                                    ole.control::Resizable)
                  (declare (ignore ole.control::Resizable)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.WindowSetLeft
                    (ole::this.control ole::this.channel
                     ole.control::Left)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.WindowSetLeft on ~s~%"
                            ole::this.control))
                  (msx:-WindowSetLeft ole::this.control
                                      ole::this.channel
                                      ole.control::Left))
                (defmethod msx:-WindowSetLeft ((ole::this.control t)
                                               (ole::this.channel
                                                ole.control::channel-DWebBrowserEvents2)
                                               ole.control::Left)
                  (declare (ignore ole.control::Left)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.WindowSetTop
                    (ole::this.control ole::this.channel
                     ole.control::Top)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.WindowSetTop on ~s~%"
                            ole::this.control))
                  (msx:-WindowSetTop ole::this.control
                                     ole::this.channel
                                     ole.control::Top))
                (defmethod msx:-WindowSetTop ((ole::this.control t)
                                              (ole::this.channel
                                               ole.control::channel-DWebBrowserEvents2)
                                              ole.control::Top)
                  (declare (ignore ole.control::Top)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.WindowSetWidth
                    (ole::this.control ole::this.channel
                     ole.control::Width)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.WindowSetWidth on ~s~%"
                            ole::this.control))
                  (msx:-WindowSetWidth ole::this.control
                                       ole::this.channel
                                       ole.control::Width))
                (defmethod msx:-WindowSetWidth ((ole::this.control t)
                                                (ole::this.channel
                                                 ole.control::channel-DWebBrowserEvents2)
                                                ole.control::Width)
                  (declare (ignore ole.control::Width)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.WindowSetHeight
                    (ole::this.control ole::this.channel
                     ole.control::Height)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.WindowSetHeight on ~s~%"
                            ole::this.control))
                  (msx:-WindowSetHeight ole::this.control
                                        ole::this.channel
                                        ole.control::Height))
                (defmethod msx:-WindowSetHeight ((ole::this.control t)
                                                 (ole::this.channel
                                                  ole.control::channel-DWebBrowserEvents2)
                                                 ole.control::Height)
                  (declare (ignore ole.control::Height)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.WindowClosing
                    (ole::this.control ole::this.channel
                     ole.control::IsChildWindow ole.control::Cancel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.WindowClosing on ~s~%"
                            ole::this.control))
                  (msx:-WindowClosing ole::this.control
                                      ole::this.channel
                                      ole.control::IsChildWindow
                                      ole.control::Cancel))
                (defmethod msx:-WindowClosing ((ole::this.control t)
                                               (ole::this.channel
                                                ole.control::channel-DWebBrowserEvents2)
                                               ole.control::IsChildWindow
                                               ole.control::Cancel)
                  (declare
                   (ignore ole.control::IsChildWindow
                    ole.control::Cancel))
                  nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.ClientToHostWindow
                    (ole::this.control ole::this.channel
                     ole.control::CX ole.control::CY)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.ClientToHostWindow on ~s~%"
                            ole::this.control))
                  (msx:-ClientToHostWindow ole::this.control
                    ole::this.channel ole.control::CX ole.control::CY))
                (defmethod msx:-ClientToHostWindow ((ole::this.control
                                                     t)
                                                    (ole::this.channel
                                                     ole.control::channel-DWebBrowserEvents2)
                                                    ole.control::CX
                                                    ole.control::CY)
                  (declare (ignore ole.control::CX ole.control::CY))
                  nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.SetSecureLockIcon
                    (ole::this.control ole::this.channel
                     ole.control::SecureLockIcon)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.SetSecureLockIcon on ~s~%"
                            ole::this.control))
                  (msx:-SetSecureLockIcon ole::this.control
                    ole::this.channel ole.control::SecureLockIcon))
                (defmethod msx:-SetSecureLockIcon ((ole::this.control
                                                    t)
                                                   (ole::this.channel
                                                    ole.control::channel-DWebBrowserEvents2)
                                                   ole.control::SecureLockIcon)
                  (declare (ignore ole.control::SecureLockIcon)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.FileDownload
                    (ole::this.control ole::this.channel
                     ole.control::Cancel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.FileDownload on ~s~%"
                            ole::this.control))
                  (msx:-FileDownload ole::this.control
                                     ole::this.channel
                                     ole.control::Cancel))
                (defmethod msx:-FileDownload ((ole::this.control t)
                                              (ole::this.channel
                                               ole.control::channel-DWebBrowserEvents2)
                                              ole.control::Cancel)
                  (declare (ignore ole.control::Cancel)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.NavigateError
                    (ole::this.control ole::this.channel
                     ole.control::pDisp ole.control::URL
                     ole.control::Frame ole.control::StatusCode
                     ole.control::Cancel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.NavigateError on ~s~%"
                            ole::this.control))
                  (msx:-NavigateError ole::this.control
                                      ole::this.channel
                                      ole.control::pDisp
                                      ole.control::URL
                                      ole.control::Frame
                                      ole.control::StatusCode
                                      ole.control::Cancel))
                (defmethod msx:-NavigateError ((ole::this.control t)
                                               (ole::this.channel
                                                ole.control::channel-DWebBrowserEvents2)
                                               ole.control::pDisp
                                               ole.control::URL
                                               ole.control::Frame
                                               ole.control::StatusCode
                                               ole.control::Cancel)
                  (declare
                   (ignore ole.control::pDisp ole.control::URL
                    ole.control::Frame ole.control::StatusCode
                    ole.control::Cancel))
                  nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.PrintTemplateInstantiation
                    (ole::this.control ole::this.channel
                     ole.control::pDisp)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.PrintTemplateInstantiation on ~s~%"
                            ole::this.control))
                  (msx:-PrintTemplateInstantiation ole::this.control
                    ole::this.channel ole.control::pDisp))
                (defmethod msx:-PrintTemplateInstantiation ((ole::this.control
                                                             t)
                                                            (ole::this.channel
                                                             ole.control::channel-DWebBrowserEvents2)
                                                            ole.control::pDisp)
                  (declare (ignore ole.control::pDisp)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.PrintTemplateTeardown
                    (ole::this.control ole::this.channel
                     ole.control::pDisp)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.PrintTemplateTeardown on ~s~%"
                            ole::this.control))
                  (msx:-PrintTemplateTeardown ole::this.control
                    ole::this.channel ole.control::pDisp))
                (defmethod msx:-PrintTemplateTeardown ((ole::this.control
                                                        t)
                                                       (ole::this.channel
                                                        ole.control::channel-DWebBrowserEvents2)
                                                       ole.control::pDisp)
                  (declare (ignore ole.control::pDisp)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.UpdatePageStatus
                    (ole::this.control ole::this.channel
                     ole.control::pDisp ole.control::nPage
                     ole.control::fDone)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.UpdatePageStatus on ~s~%"
                            ole::this.control))
                  (msx:-UpdatePageStatus ole::this.control
                    ole::this.channel ole.control::pDisp
                    ole.control::nPage ole.control::fDone))
                (defmethod msx:-UpdatePageStatus ((ole::this.control t)
                                                  (ole::this.channel
                                                   ole.control::channel-DWebBrowserEvents2)
                                                  ole.control::pDisp
                                                  ole.control::nPage
                                                  ole.control::fDone)
                  (declare
                   (ignore ole.control::pDisp ole.control::nPage
                    ole.control::fDone))
                  nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.PrivacyImpactedStateChange
                    (ole::this.control ole::this.channel
                     ole.control::bImpacted)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.PrivacyImpactedStateChange on ~s~%"
                            ole::this.control))
                  (msx:-PrivacyImpactedStateChange ole::this.control
                    ole::this.channel ole.control::bImpacted))
                (defmethod msx:-PrivacyImpactedStateChange ((ole::this.control
                                                             t)
                                                            (ole::this.channel
                                                             ole.control::channel-DWebBrowserEvents2)
                                                            ole.control::bImpacted)
                  (declare (ignore ole.control::bImpacted)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents2.NewWindow3
                    (ole::this.control ole::this.channel
                     ole.control::ppDisp ole.control::Cancel
                     ole.control::dwFlags ole.control::bstrUrlContext
                     ole.control::bstrUrl)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents2.NewWindow3 on ~s~%"
                            ole::this.control))
                  (msx:-NewWindow3 ole::this.control ole::this.channel
                                   ole.control::ppDisp
                                   ole.control::Cancel
                                   ole.control::dwFlags
                                   ole.control::bstrUrlContext
                                   ole.control::bstrUrl))
                (defmethod msx:-NewWindow3 ((ole::this.control t)
                                            (ole::this.channel
                                             ole.control::channel-DWebBrowserEvents2)
                                            ole.control::ppDisp
                                            ole.control::Cancel
                                            ole.control::dwFlags
                                            ole.control::bstrUrlContext
                                            ole.control::bstrUrl)
                  (declare
                   (ignore ole.control::ppDisp ole.control::Cancel
                    ole.control::dwFlags ole.control::bstrUrlContext
                    ole.control::bstrUrl))
                  nil))
         (defmethod ole::dispatch-invocation ((ole::this.channel
                                               ole.control::channel-DWebBrowserEvents2)
                                              ole::memid
                                              ole::mode
                                              ole::parms)
           (declare (ignore-if-unused ole::mode ole::parms))
           (let ((ole::this.control
                  (slot-value ole::this.channel 'ole::host)))
             (case ole::memid
               (102
                (let ((ole.control::Text
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.StatusTextChange
                           ole::this.control ole::this.channel
                           ole.control::Text)
                         nil)))
               (108
                (let ((ole.control::ProgressMax
                       (ole::get-nth-arg ole::parms 1))
                      (ole.control::Progress
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.ProgressChange
                           ole::this.control ole::this.channel
                           ole.control::Progress
                           ole.control::ProgressMax)
                         nil)))
               (105
                (let ((ole.control::Enable
                       (ole::get-nth-arg ole::parms 1))
                      (ole.control::Command
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.CommandStateChange
                           ole::this.control ole::this.channel
                           ole.control::Command ole.control::Enable)
                         nil)))
               (106
                (let ()
                  (prog1 (ole.control::event.DWebBrowserEvents2.DownloadBegin
                           ole::this.control ole::this.channel)
                         nil)))
               (104
                (let ()
                  (prog1 (ole.control::event.DWebBrowserEvents2.DownloadComplete
                           ole::this.control ole::this.channel)
                         nil)))
               (113
                (let ((ole.control::Text
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.TitleChange
                           ole::this.control ole::this.channel
                           ole.control::Text)
                         nil)))
               (112
                (let ((ole.control::szProperty
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.PropertyChange
                           ole::this.control ole::this.channel
                           ole.control::szProperty)
                         nil)))
               (250
                (let ((ole::event-outval-values
                       (make-array 1 :initial-element :unchanged))
                      (ole::event-outval-slots #(0))
                      (ole::event-outval-names #(:Cancel))
                      (ole.control::Cancel
                       (ole::get-nth-arg ole::parms 6))
                      (ole.control::Headers
                       (ole::get-nth-arg ole::parms 5))
                      (ole.control::PostData
                       (ole::get-nth-arg ole::parms 4))
                      (ole.control::TargetFrameName
                       (ole::get-nth-arg ole::parms 3))
                      (ole.control::Flags
                       (ole::get-nth-arg ole::parms 2))
                      (ole.control::URL
                       (ole::get-nth-arg ole::parms 1))
                      (ole.control::pDisp
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.BeforeNavigate2
                           ole::this.control ole::this.channel
                           ole.control::pDisp ole.control::URL
                           ole.control::Flags
                           ole.control::TargetFrameName
                           ole.control::PostData ole.control::Headers
                           ole.control::Cancel)
                         (ole::propagate-event-retvals ole::parms
                           ole::event-outval-slots
                           ole::event-outval-values))))
               (251
                (let ((ole::event-outval-values
                       (make-array 2 :initial-element :unchanged))
                      (ole::event-outval-slots #(0 1))
                      (ole::event-outval-names #(:Cancel :ppDisp))
                      (ole.control::Cancel
                       (ole::get-nth-arg ole::parms 1))
                      (ole.control::ppDisp
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.NewWindow2
                           ole::this.control ole::this.channel
                           ole.control::ppDisp ole.control::Cancel)
                         (ole::propagate-event-retvals ole::parms
                           ole::event-outval-slots
                           ole::event-outval-values))))
               (252
                (let ((ole.control::URL
                       (ole::get-nth-arg ole::parms 1))
                      (ole.control::pDisp
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.NavigateComplete2
                           ole::this.control ole::this.channel
                           ole.control::pDisp ole.control::URL)
                         nil)))
               (259
                (let ((ole.control::URL
                       (ole::get-nth-arg ole::parms 1))
                      (ole.control::pDisp
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.DocumentComplete
                           ole::this.control ole::this.channel
                           ole.control::pDisp ole.control::URL)
                         nil)))
               (253
                (let ()
                  (prog1 (ole.control::event.DWebBrowserEvents2.OnQuit
                           ole::this.control ole::this.channel)
                         nil)))
               (254
                (let ((ole.control::Visible
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.OnVisible
                           ole::this.control ole::this.channel
                           ole.control::Visible)
                         nil)))
               (255
                (let ((ole.control::ToolBar
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.OnToolBar
                           ole::this.control ole::this.channel
                           ole.control::ToolBar)
                         nil)))
               (256
                (let ((ole.control::MenuBar
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.OnMenuBar
                           ole::this.control ole::this.channel
                           ole.control::MenuBar)
                         nil)))
               (257
                (let ((ole.control::StatusBar
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.OnStatusBar
                           ole::this.control ole::this.channel
                           ole.control::StatusBar)
                         nil)))
               (258
                (let ((ole.control::FullScreen
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.OnFullScreen
                           ole::this.control ole::this.channel
                           ole.control::FullScreen)
                         nil)))
               (260
                (let ((ole.control::TheaterMode
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.OnTheaterMode
                           ole::this.control ole::this.channel
                           ole.control::TheaterMode)
                         nil)))
               (262
                (let ((ole.control::Resizable
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.WindowSetResizable
                           ole::this.control ole::this.channel
                           ole.control::Resizable)
                         nil)))
               (264
                (let ((ole.control::Left
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.WindowSetLeft
                           ole::this.control ole::this.channel
                           ole.control::Left)
                         nil)))
               (265
                (let ((ole.control::Top
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.WindowSetTop
                           ole::this.control ole::this.channel
                           ole.control::Top)
                         nil)))
               (266
                (let ((ole.control::Width
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.WindowSetWidth
                           ole::this.control ole::this.channel
                           ole.control::Width)
                         nil)))
               (267
                (let ((ole.control::Height
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.WindowSetHeight
                           ole::this.control ole::this.channel
                           ole.control::Height)
                         nil)))
               (263
                (let ((ole::event-outval-values
                       (make-array 1 :initial-element :unchanged))
                      (ole::event-outval-slots #(0))
                      (ole::event-outval-names #(:Cancel))
                      (ole.control::Cancel
                       (ole::get-nth-arg ole::parms 1))
                      (ole.control::IsChildWindow
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.WindowClosing
                           ole::this.control ole::this.channel
                           ole.control::IsChildWindow
                           ole.control::Cancel)
                         (ole::propagate-event-retvals ole::parms
                           ole::event-outval-slots
                           ole::event-outval-values))))
               (268
                (let ((ole::event-outval-values
                       (make-array 2 :initial-element :unchanged))
                      (ole::event-outval-slots #(0 1))
                      (ole::event-outval-names #(:CY :CX))
                      (ole.control::CY (ole::get-nth-arg ole::parms 1))
                      (ole.control::CX
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.ClientToHostWindow
                           ole::this.control ole::this.channel
                           ole.control::CX ole.control::CY)
                         (ole::propagate-event-retvals ole::parms
                           ole::event-outval-slots
                           ole::event-outval-values))))
               (269
                (let ((ole.control::SecureLockIcon
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.SetSecureLockIcon
                           ole::this.control ole::this.channel
                           ole.control::SecureLockIcon)
                         nil)))
               (270
                (let ((ole::event-outval-values
                       (make-array 1 :initial-element :unchanged))
                      (ole::event-outval-slots #(0))
                      (ole::event-outval-names #(:Cancel))
                      (ole.control::Cancel
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.FileDownload
                           ole::this.control ole::this.channel
                           ole.control::Cancel)
                         (ole::propagate-event-retvals ole::parms
                           ole::event-outval-slots
                           ole::event-outval-values))))
               (271
                (let ((ole::event-outval-values
                       (make-array 1 :initial-element :unchanged))
                      (ole::event-outval-slots #(0))
                      (ole::event-outval-names #(:Cancel))
                      (ole.control::Cancel
                       (ole::get-nth-arg ole::parms 4))
                      (ole.control::StatusCode
                       (ole::get-nth-arg ole::parms 3))
                      (ole.control::Frame
                       (ole::get-nth-arg ole::parms 2))
                      (ole.control::URL
                       (ole::get-nth-arg ole::parms 1))
                      (ole.control::pDisp
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.NavigateError
                           ole::this.control ole::this.channel
                           ole.control::pDisp ole.control::URL
                           ole.control::Frame ole.control::StatusCode
                           ole.control::Cancel)
                         (ole::propagate-event-retvals ole::parms
                           ole::event-outval-slots
                           ole::event-outval-values))))
               (225
                (let ((ole.control::pDisp
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.PrintTemplateInstantiation
                           ole::this.control ole::this.channel
                           ole.control::pDisp)
                         nil)))
               (226
                (let ((ole.control::pDisp
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.PrintTemplateTeardown
                           ole::this.control ole::this.channel
                           ole.control::pDisp)
                         nil)))
               (227
                (let ((ole.control::fDone
                       (ole::get-nth-arg ole::parms 2))
                      (ole.control::nPage
                       (ole::get-nth-arg ole::parms 1))
                      (ole.control::pDisp
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.UpdatePageStatus
                           ole::this.control ole::this.channel
                           ole.control::pDisp ole.control::nPage
                           ole.control::fDone)
                         nil)))
               (272
                (let ((ole.control::bImpacted
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.PrivacyImpactedStateChange
                           ole::this.control ole::this.channel
                           ole.control::bImpacted)
                         nil)))
               (273
                (let ((ole::event-outval-values
                       (make-array 2 :initial-element :unchanged))
                      (ole::event-outval-slots #(3 4))
                      (ole::event-outval-names #(:Cancel :ppDisp))
                      (ole.control::bstrUrl
                       (ole::get-nth-arg ole::parms 4))
                      (ole.control::bstrUrlContext
                       (ole::get-nth-arg ole::parms 3))
                      (ole.control::dwFlags
                       (ole::get-nth-arg ole::parms 2))
                      (ole.control::Cancel
                       (ole::get-nth-arg ole::parms 1))
                      (ole.control::ppDisp
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents2.NewWindow3
                           ole::this.control ole::this.channel
                           ole.control::ppDisp ole.control::Cancel
                           ole.control::dwFlags
                           ole.control::bstrUrlContext
                           ole.control::bstrUrl)
                         (ole::propagate-event-retvals ole::parms
                           ole::event-outval-slots
                           ole::event-outval-values))))
               (t (signal 'ole::member-not-found))))))
       (declaim (ftype function msx:-NewWindow3
                 ole.control::event.DWebBrowserEvents2.NewWindow3
                 msx:-PrivacyImpactedStateChange
                 ole.control::event.DWebBrowserEvents2.PrivacyImpactedStateChange
                 msx:-UpdatePageStatus
                 ole.control::event.DWebBrowserEvents2.UpdatePageStatus
                 msx:-PrintTemplateTeardown
                 ole.control::event.DWebBrowserEvents2.PrintTemplateTeardown
                 msx:-PrintTemplateInstantiation
                 ole.control::event.DWebBrowserEvents2.PrintTemplateInstantiation
                 msx:-NavigateError
                 ole.control::event.DWebBrowserEvents2.NavigateError
                 msx:-FileDownload
                 ole.control::event.DWebBrowserEvents2.FileDownload
                 msx:-SetSecureLockIcon
                 ole.control::event.DWebBrowserEvents2.SetSecureLockIcon
                 msx:-ClientToHostWindow
                 ole.control::event.DWebBrowserEvents2.ClientToHostWindow
                 msx:-WindowClosing
                 ole.control::event.DWebBrowserEvents2.WindowClosing
                 msx:-WindowSetHeight
                 ole.control::event.DWebBrowserEvents2.WindowSetHeight
                 msx:-WindowSetWidth
                 ole.control::event.DWebBrowserEvents2.WindowSetWidth
                 msx:-WindowSetTop
                 ole.control::event.DWebBrowserEvents2.WindowSetTop
                 msx:-WindowSetLeft
                 ole.control::event.DWebBrowserEvents2.WindowSetLeft
                 msx:-WindowSetResizable
                 ole.control::event.DWebBrowserEvents2.WindowSetResizable
                 msx:-OnTheaterMode
                 ole.control::event.DWebBrowserEvents2.OnTheaterMode
                 msx:-OnFullScreen
                 ole.control::event.DWebBrowserEvents2.OnFullScreen
                 msx:-OnStatusBar
                 ole.control::event.DWebBrowserEvents2.OnStatusBar
                 msx:-OnMenuBar
                 ole.control::event.DWebBrowserEvents2.OnMenuBar
                 msx:-OnToolBar
                 ole.control::event.DWebBrowserEvents2.OnToolBar
                 msx:-OnVisible
                 ole.control::event.DWebBrowserEvents2.OnVisible
                 msx:-OnQuit
                 ole.control::event.DWebBrowserEvents2.OnQuit
                 msx:-DocumentComplete
                 ole.control::event.DWebBrowserEvents2.DocumentComplete
                 msx:-NavigateComplete2
                 ole.control::event.DWebBrowserEvents2.NavigateComplete2
                 msx:-NewWindow2
                 ole.control::event.DWebBrowserEvents2.NewWindow2
                 msx:-BeforeNavigate2
                 ole.control::event.DWebBrowserEvents2.BeforeNavigate2
                 msx:-PropertyChange
                 ole.control::event.DWebBrowserEvents2.PropertyChange
                 msx:-TitleChange
                 ole.control::event.DWebBrowserEvents2.TitleChange
                 msx:-DownloadComplete
                 ole.control::event.DWebBrowserEvents2.DownloadComplete
                 msx:-DownloadBegin
                 ole.control::event.DWebBrowserEvents2.DownloadBegin
                 msx:-CommandStateChange
                 ole.control::event.DWebBrowserEvents2.CommandStateChange
                 msx:-ProgressChange
                 ole.control::event.DWebBrowserEvents2.ProgressChange
                 msx:-StatusTextChange
                 ole.control::event.DWebBrowserEvents2.StatusTextChange))
       (progn (without-redefinition-warnings
                (ole:def-client-interface ole.control:IWebBrowser))
              (without-redefinition-warnings
                (defclass ole.control::object-with-IWebBrowser-client
                          (ole::object-with-interfaces)
                          ((ole.control::i.IWebBrowser :initform nil
                            :initarg
                            ole.control::object-with-IWebBrowser-client))))
              (without-redefinition-warnings
                (defmethod ole.control:IWebBrowser ((ole::object
                                                     ole.control::object-with-IWebBrowser-client))
                  (or (slot-value ole::object
                                  'ole.control::i.IWebBrowser)
                      (setf (slot-value ole::object
                                        'ole.control::i.IWebBrowser)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_IWebBrowser)))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.Busy ((ole::this.object
                                                           ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser
                                          ole::this.object)
                                         212
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.LocationURL ((ole::this.object
                                                                  ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser
                                          ole::this.object)
                                         211
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.LocationName ((ole::this.object
                                                                   ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser
                                          ole::this.object)
                                         210
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.Height ((ole::this.object
                                                             ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser
                                          ole::this.object)
                                         209
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser.Height) (ole::set.value
                                                                   (ole::this.object
                                                                    ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser ole::this.object) 209
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.Width ((ole::this.object
                                                            ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser
                                          ole::this.object)
                                         208
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser.Width) (ole::set.value
                                                                  (ole::this.object
                                                                   ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser ole::this.object) 208
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.Top ((ole::this.object
                                                          ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser
                                          ole::this.object)
                                         207
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser.Top) (ole::set.value
                                                                (ole::this.object
                                                                 ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser ole::this.object) 207
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.Left ((ole::this.object
                                                           ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser
                                          ole::this.object)
                                         206
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser.Left) (ole::set.value
                                                                 (ole::this.object
                                                                  ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser ole::this.object) 206
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.Type ((ole::this.object
                                                           ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser
                                          ole::this.object)
                                         205
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.TopLevelContainer ((ole::this.object
                                                                        ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser
                                          ole::this.object)
                                         204
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.Document ((ole::this.object
                                                               ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser
                                          ole::this.object)
                                         203
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.Container ((ole::this.object
                                                                ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser
                                          ole::this.object)
                                         202
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.Parent ((ole::this.object
                                                             ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser
                                          ole::this.object)
                                         201
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.Application ((ole::this.object
                                                                  ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser
                                          ole::this.object)
                                         200
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.Stop ((ole::this.object
                                                           ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowser ole::this.object) 106
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.Refresh2 ((ole::this.object
                                                               ole.control::object-with-IWebBrowser-client)
                                                              &key
                                                              (ole.control::Level
                                                               :missing))
                  (ole::control.invoke.1-
                    (ole.control:IWebBrowser ole::this.object) 105
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::Level)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.Refresh ((ole::this.object
                                                              ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowser ole::this.object)
                    4294966746
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.Navigate ((ole::this.object
                                                               ole.control::object-with-IWebBrowser-client)
                                                              ole.control::URL
                                                              &key
                                                              (ole.control::Flags
                                                               :missing)
                                                              (ole.control::TargetFrameName
                                                               :missing)
                                                              (ole.control::PostData
                                                               :missing)
                                                              (ole.control::Headers
                                                               :missing))
                  (ole::control.invoke.5-
                    (ole.control:IWebBrowser ole::this.object) 104
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::URL ole.control::Flags
                    ole.control::TargetFrameName ole.control::PostData
                    ole.control::Headers)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.GoSearch ((ole::this.object
                                                               ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowser ole::this.object) 103
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.GoHome ((ole::this.object
                                                             ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowser ole::this.object) 102
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.GoForward ((ole::this.object
                                                                ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowser ole::this.object) 101
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser.GoBack ((ole::this.object
                                                             ole.control::object-with-IWebBrowser-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowser ole::this.object) 100
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)))))
       (declaim (ftype function ole.control:IWebBrowser))
       (declaim (ftype function ole.control::IWebBrowser.GoBack
                 ole.control::IWebBrowser.GoForward
                 ole.control::IWebBrowser.GoHome
                 ole.control::IWebBrowser.GoSearch
                 ole.control::IWebBrowser.Navigate
                 ole.control::IWebBrowser.Refresh
                 ole.control::IWebBrowser.Refresh2
                 ole.control::IWebBrowser.Stop
                 ole.control::IWebBrowser.Application
                 ole.control::IWebBrowser.Parent
                 ole.control::IWebBrowser.Container
                 ole.control::IWebBrowser.Document
                 ole.control::IWebBrowser.TopLevelContainer
                 ole.control::IWebBrowser.Type
                 (setf ole.control::IWebBrowser.Left)
                 ole.control::IWebBrowser.Left
                 (setf ole.control::IWebBrowser.Top)
                 ole.control::IWebBrowser.Top
                 (setf ole.control::IWebBrowser.Width)
                 ole.control::IWebBrowser.Width
                 (setf ole.control::IWebBrowser.Height)
                 ole.control::IWebBrowser.Height
                 ole.control::IWebBrowser.LocationName
                 ole.control::IWebBrowser.LocationURL
                 ole.control::IWebBrowser.Busy))
       (progn (without-redefinition-warnings
                (ole:def-client-interface ole.control:IWebBrowserApp))
              (without-redefinition-warnings
                (defclass ole.control::object-with-IWebBrowserApp-client
                          (ole.control::object-with-IWebBrowser-client)
                          ((ole.control::i.IWebBrowserApp :initform nil
                            :initarg
                            ole.control::object-with-IWebBrowserApp-client))))
              (without-redefinition-warnings
                (defmethod ole.control:IWebBrowserApp ((ole::object
                                                        ole.control::object-with-IWebBrowserApp-client))
                  (or (slot-value ole::object
                                  'ole.control::i.IWebBrowserApp)
                      (setf (slot-value ole::object
                                        'ole.control::i.IWebBrowserApp)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_IWebBrowserApp)))))
              (without-redefinition-warnings
                (defmethod ole.control:IWebBrowser ((ole::object
                                                     ole.control::object-with-IWebBrowserApp-client))
                  (or (slot-value ole::object
                                  'ole.control::i.IWebBrowserApp)
                      (setf (slot-value ole::object
                                        'ole.control::i.IWebBrowserApp)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_IWebBrowserApp)))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.FullScreen ((ole::this.object
                                                                    ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         407
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowserApp.FullScreen) (ole::set.value
                                                                          (ole::this.object
                                                                           ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowserApp ole::this.object) 407
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.MenuBar ((ole::this.object
                                                                 ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         406
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowserApp.MenuBar) (ole::set.value
                                                                       (ole::this.object
                                                                        ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowserApp ole::this.object) 406
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.ToolBar ((ole::this.object
                                                                 ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         405
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowserApp.ToolBar) (ole::set.value
                                                                       (ole::this.object
                                                                        ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowserApp ole::this.object) 405
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.StatusText ((ole::this.object
                                                                    ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         404
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowserApp.StatusText) (ole::set.value
                                                                          (ole::this.object
                                                                           ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowserApp ole::this.object) 404
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.StatusBar ((ole::this.object
                                                                   ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         403
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowserApp.StatusBar) (ole::set.value
                                                                         (ole::this.object
                                                                          ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowserApp ole::this.object) 403
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.Visible ((ole::this.object
                                                                 ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         402
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowserApp.Visible) (ole::set.value
                                                                       (ole::this.object
                                                                        ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowserApp ole::this.object) 402
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.Path ((ole::this.object
                                                              ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         401
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.FullName ((ole::this.object
                                                                  ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         400
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.HWND ((ole::this.object
                                                              ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         4294966781
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.Name ((ole::this.object
                                                              ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         0
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.GetProperty ((ole::this.object
                                                                     ole.control::object-with-IWebBrowserApp-client)
                                                                    ole.control::Property)
                  (ole::control.invoke.1 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         303
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::Property)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.PutProperty ((ole::this.object
                                                                     ole.control::object-with-IWebBrowserApp-client)
                                                                    ole.control::Property
                                                                    ole.control::vtValue)
                  (ole::control.invoke.2-
                    (ole.control:IWebBrowserApp ole::this.object) 302
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::Property ole.control::vtValue)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.ClientToWindow ((ole::this.object
                                                                        ole.control::object-with-IWebBrowserApp-client)
                                                                       ole.control::pcx
                                                                       ole.control::pcy)
                  (ole::with-retareas ((ole::m.parms ole::dispparams)
                                       (ole::m.arg-variant-array
                                        (:array ole:variant 2))
                                       (ole.control::slotfor.pcy :int)
                                       (ole.control::slotfor.pcx :int)
                                       (ole::m.argerr :int)
                                       (ole::m.excep ole:excepinfo))
                    (ole::init-variant-reference
                      (ole:xeno-address '(:array ole:variant)
                                        ole::m.arg-variant-array 0)
                      ':int ole.control::slotfor.pcy)
                    (ole::init-variant-reference
                      (ole:xeno-address '(:array ole:variant)
                                        ole::m.arg-variant-array 1)
                      ':int ole.control::slotfor.pcx)
                    (setf (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::cArgs)
                          2
                          (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::cNamedArgs)
                          0
                          (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::rgvarg)
                          ole::m.arg-variant-array
                          (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::rgdispidNamedArgs)
                          0)
                    (ole::variant-astore ole::m.arg-variant-array 0
                                         ole.control::pcy)
                    (ole::variant-astore ole::m.arg-variant-array 1
                                         ole.control::pcx)
                    (unwind-protect
                        (progn nil
                               (ole:check-return
                                (ole::IDispatch.Invoke
                                 (ole:h
                                  (ole.control:IWebBrowserApp
                                   ole::this.object))
                                 301
                                 (ole:guid-binary ole:IID_NULL)
                                 ole:*ole-locale*
                                 (logior
                                  ole:DISPATCH_METHOD
                                  ole:DISPATCH_PROPERTYGET)
                                 ole::m.parms
                                 0
                                 ole::m.excep
                                 ole::m.argerr))
                               nil
                               (values
                                nil
                                (ole:variant-value
                                 (ole:xeno-address
                                  '(:array ole:variant)
                                  ole::m.arg-variant-array
                                  1))
                                (ole:variant-value
                                 (ole:xeno-address
                                  '(:array ole:variant)
                                  ole::m.arg-variant-array
                                  0))))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         0))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         1))))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.Quit ((ole::this.object
                                                              ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowserApp ole::this.object) 300
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.Busy ((ole::this.object
                                                              ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         212
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.LocationURL ((ole::this.object
                                                                     ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         211
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.LocationName ((ole::this.object
                                                                      ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         210
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.Height ((ole::this.object
                                                                ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         209
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowserApp.Height) (ole::set.value
                                                                      (ole::this.object
                                                                       ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowserApp ole::this.object) 209
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.Width ((ole::this.object
                                                               ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         208
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowserApp.Width) (ole::set.value
                                                                     (ole::this.object
                                                                      ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowserApp ole::this.object) 208
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.Top ((ole::this.object
                                                             ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         207
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowserApp.Top) (ole::set.value
                                                                   (ole::this.object
                                                                    ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowserApp ole::this.object) 207
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.Left ((ole::this.object
                                                              ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         206
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowserApp.Left) (ole::set.value
                                                                    (ole::this.object
                                                                     ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowserApp ole::this.object) 206
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.Type ((ole::this.object
                                                              ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         205
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.TopLevelContainer ((ole::this.object
                                                                           ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         204
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.Document ((ole::this.object
                                                                  ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         203
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.Container ((ole::this.object
                                                                   ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         202
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.Parent ((ole::this.object
                                                                ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         201
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.Application ((ole::this.object
                                                                     ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowserApp
                                          ole::this.object)
                                         200
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.Stop ((ole::this.object
                                                              ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowserApp ole::this.object) 106
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.Refresh2 ((ole::this.object
                                                                  ole.control::object-with-IWebBrowserApp-client)
                                                                 &key
                                                                 (ole.control::Level
                                                                  :missing))
                  (ole::control.invoke.1-
                    (ole.control:IWebBrowserApp ole::this.object) 105
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::Level)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.Refresh ((ole::this.object
                                                                 ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowserApp ole::this.object)
                    4294966746
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.Navigate ((ole::this.object
                                                                  ole.control::object-with-IWebBrowserApp-client)
                                                                 ole.control::URL
                                                                 &key
                                                                 (ole.control::Flags
                                                                  :missing)
                                                                 (ole.control::TargetFrameName
                                                                  :missing)
                                                                 (ole.control::PostData
                                                                  :missing)
                                                                 (ole.control::Headers
                                                                  :missing))
                  (ole::control.invoke.5-
                    (ole.control:IWebBrowserApp ole::this.object) 104
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::URL ole.control::Flags
                    ole.control::TargetFrameName ole.control::PostData
                    ole.control::Headers)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.GoSearch ((ole::this.object
                                                                  ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowserApp ole::this.object) 103
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.GoHome ((ole::this.object
                                                                ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowserApp ole::this.object) 102
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.GoForward ((ole::this.object
                                                                   ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowserApp ole::this.object) 101
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowserApp.GoBack ((ole::this.object
                                                                ole.control::object-with-IWebBrowserApp-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowserApp ole::this.object) 100
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)))))
       (declaim (ftype function ole.control:IWebBrowser
                 ole.control:IWebBrowserApp))
       (declaim (ftype function ole.control::IWebBrowserApp.GoBack
                 ole.control::IWebBrowserApp.GoForward
                 ole.control::IWebBrowserApp.GoHome
                 ole.control::IWebBrowserApp.GoSearch
                 ole.control::IWebBrowserApp.Navigate
                 ole.control::IWebBrowserApp.Refresh
                 ole.control::IWebBrowserApp.Refresh2
                 ole.control::IWebBrowserApp.Stop
                 ole.control::IWebBrowserApp.Application
                 ole.control::IWebBrowserApp.Parent
                 ole.control::IWebBrowserApp.Container
                 ole.control::IWebBrowserApp.Document
                 ole.control::IWebBrowserApp.TopLevelContainer
                 ole.control::IWebBrowserApp.Type
                 (setf ole.control::IWebBrowserApp.Left)
                 ole.control::IWebBrowserApp.Left
                 (setf ole.control::IWebBrowserApp.Top)
                 ole.control::IWebBrowserApp.Top
                 (setf ole.control::IWebBrowserApp.Width)
                 ole.control::IWebBrowserApp.Width
                 (setf ole.control::IWebBrowserApp.Height)
                 ole.control::IWebBrowserApp.Height
                 ole.control::IWebBrowserApp.LocationName
                 ole.control::IWebBrowserApp.LocationURL
                 ole.control::IWebBrowserApp.Busy
                 ole.control::IWebBrowserApp.Quit
                 ole.control::IWebBrowserApp.ClientToWindow
                 ole.control::IWebBrowserApp.PutProperty
                 ole.control::IWebBrowserApp.GetProperty
                 ole.control::IWebBrowserApp.Name
                 ole.control::IWebBrowserApp.HWND
                 ole.control::IWebBrowserApp.FullName
                 ole.control::IWebBrowserApp.Path
                 (setf ole.control::IWebBrowserApp.Visible)
                 ole.control::IWebBrowserApp.Visible
                 (setf ole.control::IWebBrowserApp.StatusBar)
                 ole.control::IWebBrowserApp.StatusBar
                 (setf ole.control::IWebBrowserApp.StatusText)
                 ole.control::IWebBrowserApp.StatusText
                 (setf ole.control::IWebBrowserApp.ToolBar)
                 ole.control::IWebBrowserApp.ToolBar
                 (setf ole.control::IWebBrowserApp.MenuBar)
                 ole.control::IWebBrowserApp.MenuBar
                 (setf ole.control::IWebBrowserApp.FullScreen)
                 ole.control::IWebBrowserApp.FullScreen))
       (progn (without-redefinition-warnings
                (ole:def-client-interface ole.control:IWebBrowser2))
              (without-redefinition-warnings
                (defclass ole.control::object-with-IWebBrowser2-client
                          (ole.control::object-with-IWebBrowserApp-client)
                          ((ole.control::i.IWebBrowser2 :initform nil
                            :initarg
                            ole.control::object-with-IWebBrowser2-client))))
              (without-redefinition-warnings
                (defmethod ole.control:IWebBrowser2 ((ole::object
                                                      ole.control::object-with-IWebBrowser2-client))
                  (or (slot-value ole::object
                                  'ole.control::i.IWebBrowser2)
                      (setf (slot-value ole::object
                                        'ole.control::i.IWebBrowser2)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_IWebBrowser2)))))
              (without-redefinition-warnings
                (defmethod ole.control:IWebBrowserApp ((ole::object
                                                        ole.control::object-with-IWebBrowser2-client))
                  (or (slot-value ole::object
                                  'ole.control::i.IWebBrowser2)
                      (setf (slot-value ole::object
                                        'ole.control::i.IWebBrowser2)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_IWebBrowser2)))))
              (without-redefinition-warnings
                (defmethod ole.control:IWebBrowser ((ole::object
                                                     ole.control::object-with-IWebBrowser2-client))
                  (or (slot-value ole::object
                                  'ole.control::i.IWebBrowser2)
                      (setf (slot-value ole::object
                                        'ole.control::i.IWebBrowser2)
                            (ole:query-interface (ole::client-interface
                                                  ole::object)
                                                 ole.control::IID_IWebBrowser2)))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Resizable ((ole::this.object
                                                                 ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         556
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser2.Resizable) (ole::set.value
                                                                       (ole::this.object
                                                                        ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser2 ole::this.object) 556
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.AddressBar ((ole::this.object
                                                                  ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         555
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser2.AddressBar) (ole::set.value
                                                                        (ole::this.object
                                                                         ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser2 ole::this.object) 555
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.TheaterMode ((ole::this.object
                                                                   ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         554
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser2.TheaterMode) (ole::set.value
                                                                         (ole::this.object
                                                                          ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser2 ole::this.object) 554
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.RegisterAsDropTarget ((ole::this.object
                                                                            ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         553
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser2.RegisterAsDropTarget) (ole::set.value
                                                                                  (ole::this.object
                                                                                   ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser2 ole::this.object) 553
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.RegisterAsBrowser ((ole::this.object
                                                                         ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         552
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser2.RegisterAsBrowser) (ole::set.value
                                                                               (ole::this.object
                                                                                ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser2 ole::this.object) 552
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Silent ((ole::this.object
                                                              ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         551
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser2.Silent) (ole::set.value
                                                                    (ole::this.object
                                                                     ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser2 ole::this.object) 551
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Offline ((ole::this.object
                                                               ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         550
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser2.Offline) (ole::set.value
                                                                     (ole::this.object
                                                                      ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser2 ole::this.object) 550
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.ReadyState ((ole::this.object
                                                                  ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         4294966771
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.ShowBrowserBar ((ole::this.object
                                                                      ole.control::object-with-IWebBrowser2-client)
                                                                     ole.control::pvaClsid
                                                                     &key
                                                                     (ole.control::pvarShow
                                                                      :missing)
                                                                     (ole.control::pvarSize
                                                                      :missing))
                  (ole::control.invoke.3-
                    (ole.control:IWebBrowser2 ole::this.object) 503
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::pvaClsid ole.control::pvarShow
                    ole.control::pvarSize)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.ExecWB ((ole::this.object
                                                              ole.control::object-with-IWebBrowser2-client)
                                                             ole.control::cmdID
                                                             ole.control::cmdexecopt
                                                             &key
                                                             (ole.control::pvaIn
                                                              :missing)
                                                             (ole.control::pvaOut
                                                              :missing))
                  (ole::with-retareas ((ole::m.parms ole::dispparams)
                                       (ole::m.arg-variant-array
                                        (:array ole:variant 4))
                                       (ole.control::slotfor.pvaOut
                                        ole:variant)
                                       (ole::m.argerr :int)
                                       (ole::m.excep ole:excepinfo))
                    (ole::init-variant-reference
                      (ole:xeno-address '(:array ole:variant)
                                        ole::m.arg-variant-array 0)
                      'ole:variant ole.control::slotfor.pvaOut)
                    (ole:VariantInit (ole:xeno-address
                                      '(:array ole:variant)
                                      ole::m.arg-variant-array
                                      1))
                    (ole:VariantInit (ole:xeno-address
                                      '(:array ole:variant)
                                      ole::m.arg-variant-array
                                      2))
                    (ole:VariantInit (ole:xeno-address
                                      '(:array ole:variant)
                                      ole::m.arg-variant-array
                                      3))
                    (ole:VariantInit ole.control::slotfor.pvaOut)
                    (setf (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::cArgs)
                          4
                          (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::cNamedArgs)
                          0
                          (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::rgvarg)
                          ole::m.arg-variant-array
                          (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::rgdispidNamedArgs)
                          0)
                    (ole::variant-astore ole::m.arg-variant-array 0
                                         ole.control::pvaOut)
                    (ole::variant-astore ole::m.arg-variant-array 1
                                         ole.control::pvaIn)
                    (ole::variant-astore ole::m.arg-variant-array 2
                                         ole.control::cmdexecopt)
                    (ole::variant-astore ole::m.arg-variant-array 3
                                         ole.control::cmdID)
                    (unwind-protect
                        (progn nil
                               (ole:check-return
                                (ole::IDispatch.Invoke
                                 (ole:h
                                  (ole.control:IWebBrowser2
                                   ole::this.object))
                                 502
                                 (ole:guid-binary ole:IID_NULL)
                                 ole:*ole-locale*
                                 (logior
                                  ole:DISPATCH_METHOD
                                  ole:DISPATCH_PROPERTYGET)
                                 ole::m.parms
                                 0
                                 ole::m.excep
                                 ole::m.argerr))
                               nil
                               (values
                                nil
                                (ole:variant-value
                                 (ole:xeno-address
                                  '(:array ole:variant)
                                  ole::m.arg-variant-array
                                  0))))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         0))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         1))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         2))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         3))))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.QueryStatusWB ((ole::this.object
                                                                     ole.control::object-with-IWebBrowser2-client)
                                                                    ole.control::cmdID)
                  (ole::control.invoke.1 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         501
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::cmdID)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Navigate2 ((ole::this.object
                                                                 ole.control::object-with-IWebBrowser2-client)
                                                                ole.control::URL
                                                                &key
                                                                (ole.control::Flags
                                                                 :missing)
                                                                (ole.control::TargetFrameName
                                                                 :missing)
                                                                (ole.control::PostData
                                                                 :missing)
                                                                (ole.control::Headers
                                                                 :missing))
                  (ole::control.invoke.5-
                    (ole.control:IWebBrowser2 ole::this.object) 500
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::URL ole.control::Flags
                    ole.control::TargetFrameName ole.control::PostData
                    ole.control::Headers)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.FullScreen ((ole::this.object
                                                                  ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         407
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser2.FullScreen) (ole::set.value
                                                                        (ole::this.object
                                                                         ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser2 ole::this.object) 407
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.MenuBar ((ole::this.object
                                                               ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         406
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser2.MenuBar) (ole::set.value
                                                                     (ole::this.object
                                                                      ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser2 ole::this.object) 406
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.ToolBar ((ole::this.object
                                                               ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         405
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser2.ToolBar) (ole::set.value
                                                                     (ole::this.object
                                                                      ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser2 ole::this.object) 405
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.StatusText ((ole::this.object
                                                                  ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         404
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser2.StatusText) (ole::set.value
                                                                        (ole::this.object
                                                                         ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser2 ole::this.object) 404
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.StatusBar ((ole::this.object
                                                                 ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         403
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser2.StatusBar) (ole::set.value
                                                                       (ole::this.object
                                                                        ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser2 ole::this.object) 403
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Visible ((ole::this.object
                                                               ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         402
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser2.Visible) (ole::set.value
                                                                     (ole::this.object
                                                                      ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser2 ole::this.object) 402
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Path ((ole::this.object
                                                            ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         401
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.FullName ((ole::this.object
                                                                ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         400
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.HWND ((ole::this.object
                                                            ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         4294966781
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Name ((ole::this.object
                                                            ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         0
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.GetProperty ((ole::this.object
                                                                   ole.control::object-with-IWebBrowser2-client)
                                                                  ole.control::Property)
                  (ole::control.invoke.1 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         303
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil ole.control::Property)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.PutProperty ((ole::this.object
                                                                   ole.control::object-with-IWebBrowser2-client)
                                                                  ole.control::Property
                                                                  ole.control::vtValue)
                  (ole::control.invoke.2-
                    (ole.control:IWebBrowser2 ole::this.object) 302
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::Property ole.control::vtValue)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.ClientToWindow ((ole::this.object
                                                                      ole.control::object-with-IWebBrowser2-client)
                                                                     ole.control::pcx
                                                                     ole.control::pcy)
                  (ole::with-retareas ((ole::m.parms ole::dispparams)
                                       (ole::m.arg-variant-array
                                        (:array ole:variant 2))
                                       (ole.control::slotfor.pcy :int)
                                       (ole.control::slotfor.pcx :int)
                                       (ole::m.argerr :int)
                                       (ole::m.excep ole:excepinfo))
                    (ole::init-variant-reference
                      (ole:xeno-address '(:array ole:variant)
                                        ole::m.arg-variant-array 0)
                      ':int ole.control::slotfor.pcy)
                    (ole::init-variant-reference
                      (ole:xeno-address '(:array ole:variant)
                                        ole::m.arg-variant-array 1)
                      ':int ole.control::slotfor.pcx)
                    (setf (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::cArgs)
                          2
                          (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::cNamedArgs)
                          0
                          (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::rgvarg)
                          ole::m.arg-variant-array
                          (ole:xeno-slot 'ole::dispparams ole::m.parms
                                         'ole::rgdispidNamedArgs)
                          0)
                    (ole::variant-astore ole::m.arg-variant-array 0
                                         ole.control::pcy)
                    (ole::variant-astore ole::m.arg-variant-array 1
                                         ole.control::pcx)
                    (unwind-protect
                        (progn nil
                               (ole:check-return
                                (ole::IDispatch.Invoke
                                 (ole:h
                                  (ole.control:IWebBrowser2
                                   ole::this.object))
                                 301
                                 (ole:guid-binary ole:IID_NULL)
                                 ole:*ole-locale*
                                 (logior
                                  ole:DISPATCH_METHOD
                                  ole:DISPATCH_PROPERTYGET)
                                 ole::m.parms
                                 0
                                 ole::m.excep
                                 ole::m.argerr))
                               nil
                               (values
                                nil
                                (ole:variant-value
                                 (ole:xeno-address
                                  '(:array ole:variant)
                                  ole::m.arg-variant-array
                                  1))
                                (ole:variant-value
                                 (ole:xeno-address
                                  '(:array ole:variant)
                                  ole::m.arg-variant-array
                                  0))))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         0))
                      (ole:VariantClear (ole:xeno-address
                                         '(:array ole:variant)
                                         ole::m.arg-variant-array
                                         1))))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Quit ((ole::this.object
                                                            ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowser2 ole::this.object) 300
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Busy ((ole::this.object
                                                            ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         212
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.LocationURL ((ole::this.object
                                                                   ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         211
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.LocationName ((ole::this.object
                                                                    ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         210
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Height ((ole::this.object
                                                              ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         209
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser2.Height) (ole::set.value
                                                                    (ole::this.object
                                                                     ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser2 ole::this.object) 209
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Width ((ole::this.object
                                                             ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         208
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser2.Width) (ole::set.value
                                                                   (ole::this.object
                                                                    ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser2 ole::this.object) 208
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Top ((ole::this.object
                                                           ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         207
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser2.Top) (ole::set.value
                                                                 (ole::this.object
                                                                  ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser2 ole::this.object) 207
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Left ((ole::this.object
                                                            ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         206
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod (setf ole.control::IWebBrowser2.Left) (ole::set.value
                                                                  (ole::this.object
                                                                   ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.setf.1
                    (ole.control:IWebBrowser2 ole::this.object) 206
                    ole::set.value)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Type ((ole::this.object
                                                            ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         205
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.TopLevelContainer ((ole::this.object
                                                                         ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         204
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Document ((ole::this.object
                                                                ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         203
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Container ((ole::this.object
                                                                 ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         202
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Parent ((ole::this.object
                                                              ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         201
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Application ((ole::this.object
                                                                   ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0 (ole.control:IWebBrowser2
                                          ole::this.object)
                                         200
                                         (logior
                                          ole:DISPATCH_METHOD
                                          ole:DISPATCH_PROPERTYGET)
                                         nil)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Stop ((ole::this.object
                                                            ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowser2 ole::this.object) 106
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Refresh2 ((ole::this.object
                                                                ole.control::object-with-IWebBrowser2-client)
                                                               &key
                                                               (ole.control::Level
                                                                :missing))
                  (ole::control.invoke.1-
                    (ole.control:IWebBrowser2 ole::this.object) 105
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::Level)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Refresh ((ole::this.object
                                                               ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowser2 ole::this.object)
                    4294966746
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.Navigate ((ole::this.object
                                                                ole.control::object-with-IWebBrowser2-client)
                                                               ole.control::URL
                                                               &key
                                                               (ole.control::Flags
                                                                :missing)
                                                               (ole.control::TargetFrameName
                                                                :missing)
                                                               (ole.control::PostData
                                                                :missing)
                                                               (ole.control::Headers
                                                                :missing))
                  (ole::control.invoke.5-
                    (ole.control:IWebBrowser2 ole::this.object) 104
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)
                    ole.control::URL ole.control::Flags
                    ole.control::TargetFrameName ole.control::PostData
                    ole.control::Headers)))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.GoSearch ((ole::this.object
                                                                ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowser2 ole::this.object) 103
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.GoHome ((ole::this.object
                                                              ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowser2 ole::this.object) 102
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.GoForward ((ole::this.object
                                                                 ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowser2 ole::this.object) 101
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET))))
              (without-redefinition-warnings
                (defmethod ole.control::IWebBrowser2.GoBack ((ole::this.object
                                                              ole.control::object-with-IWebBrowser2-client))
                  (ole::control.invoke.0-
                    (ole.control:IWebBrowser2 ole::this.object) 100
                    (logior ole:DISPATCH_METHOD
                            ole:DISPATCH_PROPERTYGET)))))
       (declaim (ftype function ole.control:IWebBrowser
                 ole.control:IWebBrowserApp ole.control:IWebBrowser2))
       (declaim (ftype function ole.control::IWebBrowser2.GoBack
                 ole.control::IWebBrowser2.GoForward
                 ole.control::IWebBrowser2.GoHome
                 ole.control::IWebBrowser2.GoSearch
                 ole.control::IWebBrowser2.Navigate
                 ole.control::IWebBrowser2.Refresh
                 ole.control::IWebBrowser2.Refresh2
                 ole.control::IWebBrowser2.Stop
                 ole.control::IWebBrowser2.Application
                 ole.control::IWebBrowser2.Parent
                 ole.control::IWebBrowser2.Container
                 ole.control::IWebBrowser2.Document
                 ole.control::IWebBrowser2.TopLevelContainer
                 ole.control::IWebBrowser2.Type
                 (setf ole.control::IWebBrowser2.Left)
                 ole.control::IWebBrowser2.Left
                 (setf ole.control::IWebBrowser2.Top)
                 ole.control::IWebBrowser2.Top
                 (setf ole.control::IWebBrowser2.Width)
                 ole.control::IWebBrowser2.Width
                 (setf ole.control::IWebBrowser2.Height)
                 ole.control::IWebBrowser2.Height
                 ole.control::IWebBrowser2.LocationName
                 ole.control::IWebBrowser2.LocationURL
                 ole.control::IWebBrowser2.Busy
                 ole.control::IWebBrowser2.Quit
                 ole.control::IWebBrowser2.ClientToWindow
                 ole.control::IWebBrowser2.PutProperty
                 ole.control::IWebBrowser2.GetProperty
                 ole.control::IWebBrowser2.Name
                 ole.control::IWebBrowser2.HWND
                 ole.control::IWebBrowser2.FullName
                 ole.control::IWebBrowser2.Path
                 (setf ole.control::IWebBrowser2.Visible)
                 ole.control::IWebBrowser2.Visible
                 (setf ole.control::IWebBrowser2.StatusBar)
                 ole.control::IWebBrowser2.StatusBar
                 (setf ole.control::IWebBrowser2.StatusText)
                 ole.control::IWebBrowser2.StatusText
                 (setf ole.control::IWebBrowser2.ToolBar)
                 ole.control::IWebBrowser2.ToolBar
                 (setf ole.control::IWebBrowser2.MenuBar)
                 ole.control::IWebBrowser2.MenuBar
                 (setf ole.control::IWebBrowser2.FullScreen)
                 ole.control::IWebBrowser2.FullScreen
                 ole.control::IWebBrowser2.Navigate2
                 ole.control::IWebBrowser2.QueryStatusWB
                 ole.control::IWebBrowser2.ExecWB
                 ole.control::IWebBrowser2.ShowBrowserBar
                 ole.control::IWebBrowser2.ReadyState
                 (setf ole.control::IWebBrowser2.Offline)
                 ole.control::IWebBrowser2.Offline
                 (setf ole.control::IWebBrowser2.Silent)
                 ole.control::IWebBrowser2.Silent
                 (setf ole.control::IWebBrowser2.RegisterAsBrowser)
                 ole.control::IWebBrowser2.RegisterAsBrowser
                 (setf ole.control::IWebBrowser2.RegisterAsDropTarget)
                 ole.control::IWebBrowser2.RegisterAsDropTarget
                 (setf ole.control::IWebBrowser2.TheaterMode)
                 ole.control::IWebBrowser2.TheaterMode
                 (setf ole.control::IWebBrowser2.AddressBar)
                 ole.control::IWebBrowser2.AddressBar
                 (setf ole.control::IWebBrowser2.Resizable)
                 ole.control::IWebBrowser2.Resizable))
       (without-redefinition-warnings
         (ole:def-server-interface ole.control:DWebBrowserEvents)
         (ole:def-ocx-class ole.control::channel-DWebBrowserEvents
                            (ole::control-event-channel :interfaces
                             ole.control:DWebBrowserEvents)
                            ((ole::uuid :allocation :class :initform
                              (ole:unique-guid "{eab22ac2-30c1-11cf-a7eb-0000c05bae0b}"))))
         (progn (defun ole.control::event.DWebBrowserEvents.BeforeNavigate
                    (ole::this.control ole::this.channel
                     ole.control::URL ole.control::Flags
                     ole.control::TargetFrameName ole.control::PostData
                     ole.control::Headers ole.control::Cancel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents.BeforeNavigate on ~s~%"
                            ole::this.control))
                  (msx:-BeforeNavigate ole::this.control
                                       ole::this.channel
                                       ole.control::URL
                                       ole.control::Flags
                                       ole.control::TargetFrameName
                                       ole.control::PostData
                                       ole.control::Headers
                                       ole.control::Cancel))
                (defmethod msx:-BeforeNavigate ((ole::this.control t)
                                                (ole::this.channel
                                                 ole.control::channel-DWebBrowserEvents)
                                                ole.control::URL
                                                ole.control::Flags
                                                ole.control::TargetFrameName
                                                ole.control::PostData
                                                ole.control::Headers
                                                ole.control::Cancel)
                  (declare
                   (ignore ole.control::URL ole.control::Flags
                    ole.control::TargetFrameName ole.control::PostData
                    ole.control::Headers ole.control::Cancel))
                  nil))
         (progn (defun ole.control::event.DWebBrowserEvents.NavigateComplete
                    (ole::this.control ole::this.channel
                     ole.control::URL)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents.NavigateComplete on ~s~%"
                            ole::this.control))
                  (msx:-NavigateComplete ole::this.control
                    ole::this.channel ole.control::URL))
                (defmethod msx:-NavigateComplete ((ole::this.control t)
                                                  (ole::this.channel
                                                   ole.control::channel-DWebBrowserEvents)
                                                  ole.control::URL)
                  (declare (ignore ole.control::URL)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents.StatusTextChange
                    (ole::this.control ole::this.channel
                     ole.control::Text)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents.StatusTextChange on ~s~%"
                            ole::this.control))
                  (msx:-StatusTextChange ole::this.control
                    ole::this.channel ole.control::Text))
                (defmethod msx:-StatusTextChange ((ole::this.control t)
                                                  (ole::this.channel
                                                   ole.control::channel-DWebBrowserEvents)
                                                  ole.control::Text)
                  (declare (ignore ole.control::Text)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents.ProgressChange
                    (ole::this.control ole::this.channel
                     ole.control::Progress ole.control::ProgressMax)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents.ProgressChange on ~s~%"
                            ole::this.control))
                  (msx:-ProgressChange ole::this.control
                                       ole::this.channel
                                       ole.control::Progress
                                       ole.control::ProgressMax))
                (defmethod msx:-ProgressChange ((ole::this.control t)
                                                (ole::this.channel
                                                 ole.control::channel-DWebBrowserEvents)
                                                ole.control::Progress
                                                ole.control::ProgressMax)
                  (declare
                   (ignore ole.control::Progress
                    ole.control::ProgressMax))
                  nil))
         (progn (defun ole.control::event.DWebBrowserEvents.DownloadComplete
                    (ole::this.control ole::this.channel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents.DownloadComplete on ~s~%"
                            ole::this.control))
                  (msx:-DownloadComplete ole::this.control
                    ole::this.channel))
                (defmethod msx:-DownloadComplete ((ole::this.control t)
                                                  (ole::this.channel
                                                   ole.control::channel-DWebBrowserEvents))
                  (declare (ignore)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents.CommandStateChange
                    (ole::this.control ole::this.channel
                     ole.control::Command ole.control::Enable)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents.CommandStateChange on ~s~%"
                            ole::this.control))
                  (msx:-CommandStateChange ole::this.control
                    ole::this.channel ole.control::Command
                    ole.control::Enable))
                (defmethod msx:-CommandStateChange ((ole::this.control
                                                     t)
                                                    (ole::this.channel
                                                     ole.control::channel-DWebBrowserEvents)
                                                    ole.control::Command
                                                    ole.control::Enable)
                  (declare
                   (ignore ole.control::Command ole.control::Enable))
                  nil))
         (progn (defun ole.control::event.DWebBrowserEvents.DownloadBegin
                    (ole::this.control ole::this.channel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents.DownloadBegin on ~s~%"
                            ole::this.control))
                  (msx:-DownloadBegin ole::this.control
                                      ole::this.channel))
                (defmethod msx:-DownloadBegin ((ole::this.control t)
                                               (ole::this.channel
                                                ole.control::channel-DWebBrowserEvents))
                  (declare (ignore)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents.NewWindow
                    (ole::this.control ole::this.channel
                     ole.control::URL ole.control::Flags
                     ole.control::TargetFrameName ole.control::PostData
                     ole.control::Headers ole.control::Processed)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents.NewWindow on ~s~%"
                            ole::this.control))
                  (msx:-NewWindow ole::this.control ole::this.channel
                                  ole.control::URL ole.control::Flags
                                  ole.control::TargetFrameName
                                  ole.control::PostData
                                  ole.control::Headers
                                  ole.control::Processed))
                (defmethod msx:-NewWindow ((ole::this.control t)
                                           (ole::this.channel
                                            ole.control::channel-DWebBrowserEvents)
                                           ole.control::URL
                                           ole.control::Flags
                                           ole.control::TargetFrameName
                                           ole.control::PostData
                                           ole.control::Headers
                                           ole.control::Processed)
                  (declare
                   (ignore ole.control::URL ole.control::Flags
                    ole.control::TargetFrameName ole.control::PostData
                    ole.control::Headers ole.control::Processed))
                  nil))
         (progn (defun ole.control::event.DWebBrowserEvents.TitleChange
                    (ole::this.control ole::this.channel
                     ole.control::Text)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents.TitleChange on ~s~%"
                            ole::this.control))
                  (msx:-TitleChange ole::this.control ole::this.channel
                                    ole.control::Text))
                (defmethod msx:-TitleChange ((ole::this.control t)
                                             (ole::this.channel
                                              ole.control::channel-DWebBrowserEvents)
                                             ole.control::Text)
                  (declare (ignore ole.control::Text)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents.FrameBeforeNavigate
                    (ole::this.control ole::this.channel
                     ole.control::URL ole.control::Flags
                     ole.control::TargetFrameName ole.control::PostData
                     ole.control::Headers ole.control::Cancel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents.FrameBeforeNavigate on ~s~%"
                            ole::this.control))
                  (msx:-FrameBeforeNavigate ole::this.control
                    ole::this.channel ole.control::URL
                    ole.control::Flags ole.control::TargetFrameName
                    ole.control::PostData ole.control::Headers
                    ole.control::Cancel))
                (defmethod msx:-FrameBeforeNavigate ((ole::this.control
                                                      t)
                                                     (ole::this.channel
                                                      ole.control::channel-DWebBrowserEvents)
                                                     ole.control::URL
                                                     ole.control::Flags
                                                     ole.control::TargetFrameName
                                                     ole.control::PostData
                                                     ole.control::Headers
                                                     ole.control::Cancel)
                  (declare
                   (ignore ole.control::URL ole.control::Flags
                    ole.control::TargetFrameName ole.control::PostData
                    ole.control::Headers ole.control::Cancel))
                  nil))
         (progn (defun ole.control::event.DWebBrowserEvents.FrameNavigateComplete
                    (ole::this.control ole::this.channel
                     ole.control::URL)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents.FrameNavigateComplete on ~s~%"
                            ole::this.control))
                  (msx:-FrameNavigateComplete ole::this.control
                    ole::this.channel ole.control::URL))
                (defmethod msx:-FrameNavigateComplete ((ole::this.control
                                                        t)
                                                       (ole::this.channel
                                                        ole.control::channel-DWebBrowserEvents)
                                                       ole.control::URL)
                  (declare (ignore ole.control::URL)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents.FrameNewWindow
                    (ole::this.control ole::this.channel
                     ole.control::URL ole.control::Flags
                     ole.control::TargetFrameName ole.control::PostData
                     ole.control::Headers ole.control::Processed)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents.FrameNewWindow on ~s~%"
                            ole::this.control))
                  (msx:-FrameNewWindow ole::this.control
                                       ole::this.channel
                                       ole.control::URL
                                       ole.control::Flags
                                       ole.control::TargetFrameName
                                       ole.control::PostData
                                       ole.control::Headers
                                       ole.control::Processed))
                (defmethod msx:-FrameNewWindow ((ole::this.control t)
                                                (ole::this.channel
                                                 ole.control::channel-DWebBrowserEvents)
                                                ole.control::URL
                                                ole.control::Flags
                                                ole.control::TargetFrameName
                                                ole.control::PostData
                                                ole.control::Headers
                                                ole.control::Processed)
                  (declare
                   (ignore ole.control::URL ole.control::Flags
                    ole.control::TargetFrameName ole.control::PostData
                    ole.control::Headers ole.control::Processed))
                  nil))
         (progn (defun ole.control::event.DWebBrowserEvents.Quit
                    (ole::this.control ole::this.channel
                     ole.control::Cancel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents.Quit on ~s~%"
                            ole::this.control))
                  (msx:-Quit ole::this.control ole::this.channel
                             ole.control::Cancel))
                (defmethod msx:-Quit ((ole::this.control t)
                                      (ole::this.channel
                                       ole.control::channel-DWebBrowserEvents)
                                      ole.control::Cancel)
                  (declare (ignore ole.control::Cancel)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents.WindowMove
                    (ole::this.control ole::this.channel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents.WindowMove on ~s~%"
                            ole::this.control))
                  (msx:-WindowMove ole::this.control
                                   ole::this.channel))
                (defmethod msx:-WindowMove ((ole::this.control t)
                                            (ole::this.channel
                                             ole.control::channel-DWebBrowserEvents))
                  (declare (ignore)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents.WindowResize
                    (ole::this.control ole::this.channel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents.WindowResize on ~s~%"
                            ole::this.control))
                  (msx:-WindowResize ole::this.control
                                     ole::this.channel))
                (defmethod msx:-WindowResize ((ole::this.control t)
                                              (ole::this.channel
                                               ole.control::channel-DWebBrowserEvents))
                  (declare (ignore)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents.WindowActivate
                    (ole::this.control ole::this.channel)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents.WindowActivate on ~s~%"
                            ole::this.control))
                  (msx:-WindowActivate ole::this.control
                                       ole::this.channel))
                (defmethod msx:-WindowActivate ((ole::this.control t)
                                                (ole::this.channel
                                                 ole.control::channel-DWebBrowserEvents))
                  (declare (ignore)) nil))
         (progn (defun ole.control::event.DWebBrowserEvents.PropertyChange
                    (ole::this.control ole::this.channel
                     ole.control::Property)
                  (when (slot-value ole::this.channel 'ole::tracing)
                    (format *trace-output*
                            ";; event event.DWebBrowserEvents.PropertyChange on ~s~%"
                            ole::this.control))
                  (msx:-PropertyChange ole::this.control
                                       ole::this.channel
                                       ole.control::Property))
                (defmethod msx:-PropertyChange ((ole::this.control t)
                                                (ole::this.channel
                                                 ole.control::channel-DWebBrowserEvents)
                                                ole.control::Property)
                  (declare (ignore ole.control::Property)) nil))
         (defmethod ole::dispatch-invocation ((ole::this.channel
                                               ole.control::channel-DWebBrowserEvents)
                                              ole::memid
                                              ole::mode
                                              ole::parms)
           (declare (ignore-if-unused ole::mode ole::parms))
           (let ((ole::this.control
                  (slot-value ole::this.channel 'ole::host)))
             (case ole::memid
               (100
                (let ((ole::event-outval-values
                       (make-array 1 :initial-element :unchanged))
                      (ole::event-outval-slots #(0))
                      (ole::event-outval-names #(:Cancel))
                      (ole.control::Cancel
                       (ole::get-nth-arg ole::parms 5))
                      (ole.control::Headers
                       (ole::get-nth-arg ole::parms 4))
                      (ole.control::PostData
                       (ole::get-nth-arg ole::parms 3))
                      (ole.control::TargetFrameName
                       (ole::get-nth-arg ole::parms 2))
                      (ole.control::Flags
                       (ole::get-nth-arg ole::parms 1))
                      (ole.control::URL
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents.BeforeNavigate
                           ole::this.control ole::this.channel
                           ole.control::URL ole.control::Flags
                           ole.control::TargetFrameName
                           ole.control::PostData ole.control::Headers
                           ole.control::Cancel)
                         (ole::propagate-event-retvals ole::parms
                           ole::event-outval-slots
                           ole::event-outval-values))))
               (101
                (let ((ole.control::URL
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents.NavigateComplete
                           ole::this.control ole::this.channel
                           ole.control::URL)
                         nil)))
               (102
                (let ((ole.control::Text
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents.StatusTextChange
                           ole::this.control ole::this.channel
                           ole.control::Text)
                         nil)))
               (108
                (let ((ole.control::ProgressMax
                       (ole::get-nth-arg ole::parms 1))
                      (ole.control::Progress
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents.ProgressChange
                           ole::this.control ole::this.channel
                           ole.control::Progress
                           ole.control::ProgressMax)
                         nil)))
               (104
                (let ()
                  (prog1 (ole.control::event.DWebBrowserEvents.DownloadComplete
                           ole::this.control ole::this.channel)
                         nil)))
               (105
                (let ((ole.control::Enable
                       (ole::get-nth-arg ole::parms 1))
                      (ole.control::Command
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents.CommandStateChange
                           ole::this.control ole::this.channel
                           ole.control::Command ole.control::Enable)
                         nil)))
               (106
                (let ()
                  (prog1 (ole.control::event.DWebBrowserEvents.DownloadBegin
                           ole::this.control ole::this.channel)
                         nil)))
               (107
                (let ((ole::event-outval-values
                       (make-array 1 :initial-element :unchanged))
                      (ole::event-outval-slots #(0))
                      (ole::event-outval-names #(:Processed))
                      (ole.control::Processed
                       (ole::get-nth-arg ole::parms 5))
                      (ole.control::Headers
                       (ole::get-nth-arg ole::parms 4))
                      (ole.control::PostData
                       (ole::get-nth-arg ole::parms 3))
                      (ole.control::TargetFrameName
                       (ole::get-nth-arg ole::parms 2))
                      (ole.control::Flags
                       (ole::get-nth-arg ole::parms 1))
                      (ole.control::URL
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents.NewWindow
                           ole::this.control ole::this.channel
                           ole.control::URL ole.control::Flags
                           ole.control::TargetFrameName
                           ole.control::PostData ole.control::Headers
                           ole.control::Processed)
                         (ole::propagate-event-retvals ole::parms
                           ole::event-outval-slots
                           ole::event-outval-values))))
               (113
                (let ((ole.control::Text
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents.TitleChange
                           ole::this.control ole::this.channel
                           ole.control::Text)
                         nil)))
               (200
                (let ((ole::event-outval-values
                       (make-array 1 :initial-element :unchanged))
                      (ole::event-outval-slots #(0))
                      (ole::event-outval-names #(:Cancel))
                      (ole.control::Cancel
                       (ole::get-nth-arg ole::parms 5))
                      (ole.control::Headers
                       (ole::get-nth-arg ole::parms 4))
                      (ole.control::PostData
                       (ole::get-nth-arg ole::parms 3))
                      (ole.control::TargetFrameName
                       (ole::get-nth-arg ole::parms 2))
                      (ole.control::Flags
                       (ole::get-nth-arg ole::parms 1))
                      (ole.control::URL
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents.FrameBeforeNavigate
                           ole::this.control ole::this.channel
                           ole.control::URL ole.control::Flags
                           ole.control::TargetFrameName
                           ole.control::PostData ole.control::Headers
                           ole.control::Cancel)
                         (ole::propagate-event-retvals ole::parms
                           ole::event-outval-slots
                           ole::event-outval-values))))
               (201
                (let ((ole.control::URL
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents.FrameNavigateComplete
                           ole::this.control ole::this.channel
                           ole.control::URL)
                         nil)))
               (204
                (let ((ole::event-outval-values
                       (make-array 1 :initial-element :unchanged))
                      (ole::event-outval-slots #(0))
                      (ole::event-outval-names #(:Processed))
                      (ole.control::Processed
                       (ole::get-nth-arg ole::parms 5))
                      (ole.control::Headers
                       (ole::get-nth-arg ole::parms 4))
                      (ole.control::PostData
                       (ole::get-nth-arg ole::parms 3))
                      (ole.control::TargetFrameName
                       (ole::get-nth-arg ole::parms 2))
                      (ole.control::Flags
                       (ole::get-nth-arg ole::parms 1))
                      (ole.control::URL
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents.FrameNewWindow
                           ole::this.control ole::this.channel
                           ole.control::URL ole.control::Flags
                           ole.control::TargetFrameName
                           ole.control::PostData ole.control::Headers
                           ole.control::Processed)
                         (ole::propagate-event-retvals ole::parms
                           ole::event-outval-slots
                           ole::event-outval-values))))
               (103
                (let ((ole::event-outval-values
                       (make-array 1 :initial-element :unchanged))
                      (ole::event-outval-slots #(0))
                      (ole::event-outval-names #(:Cancel))
                      (ole.control::Cancel
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents.Quit
                           ole::this.control ole::this.channel
                           ole.control::Cancel)
                         (ole::propagate-event-retvals ole::parms
                           ole::event-outval-slots
                           ole::event-outval-values))))
               (109
                (let ()
                  (prog1 (ole.control::event.DWebBrowserEvents.WindowMove
                           ole::this.control ole::this.channel)
                         nil)))
               (110
                (let ()
                  (prog1 (ole.control::event.DWebBrowserEvents.WindowResize
                           ole::this.control ole::this.channel)
                         nil)))
               (111
                (let ()
                  (prog1 (ole.control::event.DWebBrowserEvents.WindowActivate
                           ole::this.control ole::this.channel)
                         nil)))
               (112
                (let ((ole.control::Property
                       (ole::get-nth-arg ole::parms 0)))
                  (prog1 (ole.control::event.DWebBrowserEvents.PropertyChange
                           ole::this.control ole::this.channel
                           ole.control::Property)
                         nil)))
               (t (signal 'ole::member-not-found))))))
       (declaim (ftype function msx:-PropertyChange
                 ole.control::event.DWebBrowserEvents.PropertyChange
                 msx:-WindowActivate
                 ole.control::event.DWebBrowserEvents.WindowActivate
                 msx:-WindowResize
                 ole.control::event.DWebBrowserEvents.WindowResize
                 msx:-WindowMove
                 ole.control::event.DWebBrowserEvents.WindowMove
                 msx:-Quit ole.control::event.DWebBrowserEvents.Quit
                 msx:-FrameNewWindow
                 ole.control::event.DWebBrowserEvents.FrameNewWindow
                 msx:-FrameNavigateComplete
                 ole.control::event.DWebBrowserEvents.FrameNavigateComplete
                 msx:-FrameBeforeNavigate
                 ole.control::event.DWebBrowserEvents.FrameBeforeNavigate
                 msx:-TitleChange
                 ole.control::event.DWebBrowserEvents.TitleChange
                 msx:-NewWindow
                 ole.control::event.DWebBrowserEvents.NewWindow
                 msx:-DownloadBegin
                 ole.control::event.DWebBrowserEvents.DownloadBegin
                 msx:-CommandStateChange
                 ole.control::event.DWebBrowserEvents.CommandStateChange
                 msx:-DownloadComplete
                 ole.control::event.DWebBrowserEvents.DownloadComplete
                 msx:-ProgressChange
                 ole.control::event.DWebBrowserEvents.ProgressChange
                 msx:-StatusTextChange
                 ole.control::event.DWebBrowserEvents.StatusTextChange
                 msx:-NavigateComplete
                 ole.control::event.DWebBrowserEvents.NavigateComplete
                 msx:-BeforeNavigate
                 ole.control::event.DWebBrowserEvents.BeforeNavigate))
       (ole::def-control-class msx:ShellSearchAssistantOC :uuid
         "{2e71fd0f-aab1-42c0-9146-6d2c4edcf07d}" :default-interface
         ole.control:ISearchAssistantOC3 :interfaces
         ((ole.control:ISearchAssistantOC3
            "{72423e8f-8011-11d2-be79-00a0c9a83da3}"
            ole.control::i.ISearchAssistantOC3))
         :default-event-interface ole.control:_SearchAssistantEvents
         :event-interfaces
         ((ole.control:_SearchAssistantEvents
           ole.control::channel-_SearchAssistantEvents)))
       (defmethod msx:SearchCompanionAvailable ((ole::this.object
                                                 msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC3.SearchCompanionAvailable
           ole::this.object))
       (defmethod (setf msx:UseSearchCompanion) (ole::set.value
                                                 (ole::this.object
                                                  msx:ShellSearchAssistantOC))
         (setf (ole.control::ISearchAssistantOC3.UseSearchCompanion
                 ole::this.object)
               ole::set.value))
       (defmethod msx:UseSearchCompanion ((ole::this.object
                                           msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC3.UseSearchCompanion
           ole::this.object))
       (defmethod msx:ShowFindPrinter ((ole::this.object
                                        msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC2.ShowFindPrinter
           ole::this.object))
       (defmethod msx:AddNextMenuItem ((ole::this.object
                                        msx:ShellSearchAssistantOC)
                                       ole.control::bstrText
                                       ole.control::idItem)
         (ole.control::ISearchAssistantOC.AddNextMenuItem
           ole::this.object ole.control::bstrText ole.control::idItem))
       (defmethod msx:SetDefaultSearchUrl ((ole::this.object
                                            msx:ShellSearchAssistantOC)
                                           ole.control::bstrUrl)
         (ole.control::ISearchAssistantOC.SetDefaultSearchUrl
           ole::this.object ole.control::bstrUrl))
       (defmethod msx:NavigateToDefaultSearch ((ole::this.object
                                                msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC.NavigateToDefaultSearch
           ole::this.object))
       (defmethod msx:IsRestricted ((ole::this.object
                                     msx:ShellSearchAssistantOC)
                                    ole.control::bstrGuid)
         (ole.control::ISearchAssistantOC.IsRestricted ole::this.object
           ole.control::bstrGuid))
       (defmethod msx:ShellFeaturesEnabled ((ole::this.object
                                             msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC.ShellFeaturesEnabled
           ole::this.object))
       (defmethod msx:SearchAssistantDefault ((ole::this.object
                                               msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC.SearchAssistantDefault
           ole::this.object))
       (defmethod msx:Searches ((ole::this.object
                                 msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC.Searches ole::this.object))
       (defmethod msx:InWebFolder ((ole::this.object
                                    msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC.InWebFolder
           ole::this.object))
       (defmethod msx:PutProperty ((ole::this.object
                                    msx:ShellSearchAssistantOC)
                                   &rest
                                   ole::other.args)
         (apply 'ole.control::ISearchAssistantOC.PutProperty
                ole::this.object ole::other.args))
       (defmethod msx:GetProperty ((ole::this.object
                                    msx:ShellSearchAssistantOC)
                                   &rest
                                   ole::other.args)
         (apply 'ole.control::ISearchAssistantOC.GetProperty
                ole::this.object ole::other.args))
       (defmethod (setf msx:EventHandled) (ole::set.value
                                           (ole::this.object
                                            msx:ShellSearchAssistantOC))
         (setf (ole.control::ISearchAssistantOC.EventHandled
                ole::this.object)
               ole::set.value))
       (defmethod msx:ResetNextMenu ((ole::this.object
                                      msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC.ResetNextMenu
           ole::this.object))
       (defmethod msx:FindOnWeb ((ole::this.object
                                  msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC.FindOnWeb ole::this.object))
       (defmethod msx:FindFilesOrFolders ((ole::this.object
                                           msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC.FindFilesOrFolders
           ole::this.object))
       (defmethod msx:FindComputer ((ole::this.object
                                     msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC.FindComputer
           ole::this.object))
       (defmethod msx:FindPrinter ((ole::this.object
                                    msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC.FindPrinter
           ole::this.object))
       (defmethod msx:FindPeople ((ole::this.object
                                   msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC.FindPeople ole::this.object))
       (defmethod msx:GetSearchAssistantURL ((ole::this.object
                                              msx:ShellSearchAssistantOC)
                                             ole.control::bSubstitute
                                             ole.control::bCustomize)
         (ole.control::ISearchAssistantOC.GetSearchAssistantURL
           ole::this.object ole.control::bSubstitute
           ole.control::bCustomize))
       (defmethod msx:NotifySearchSettingsChanged ((ole::this.object
                                                    msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC.NotifySearchSettingsChanged
           ole::this.object))
       (defmethod (setf msx:ASProvider) (ole::set.value
                                         (ole::this.object
                                          msx:ShellSearchAssistantOC))
         (setf (ole.control::ISearchAssistantOC.ASProvider
                 ole::this.object)
               ole::set.value))
       (defmethod msx:ASProvider ((ole::this.object
                                   msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC.ASProvider ole::this.object))
       (defmethod (setf msx:ASSetting) (ole::set.value
                                        (ole::this.object
                                         msx:ShellSearchAssistantOC))
         (setf (ole.control::ISearchAssistantOC.ASSetting
                 ole::this.object)
               ole::set.value))
       (defmethod msx:ASSetting ((ole::this.object
                                  msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC.ASSetting ole::this.object))
       (defmethod msx:NETDetectNextNavigate ((ole::this.object
                                              msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC.NETDetectNextNavigate
           ole::this.object))
       (defmethod msx:PutFindText ((ole::this.object
                                    msx:ShellSearchAssistantOC)
                                   ole.control::FindText)
         (ole.control::ISearchAssistantOC.PutFindText ole::this.object
           ole.control::FindText))
       (defmethod msx:Version ((ole::this.object
                                msx:ShellSearchAssistantOC))
         (ole.control::ISearchAssistantOC.Version ole::this.object))
       (defmethod msx:EncodeString ((ole::this.object
                                     msx:ShellSearchAssistantOC)
                                    ole.control::bstrValue
                                    ole.control::bstrCharSet
                                    ole.control::bUseUTF8)
         (ole.control::ISearchAssistantOC.EncodeString ole::this.object
           ole.control::bstrValue ole.control::bstrCharSet
           ole.control::bUseUTF8))
       (ole::def-control-class msx:SearchAssistantOC :uuid
         "{b45ff030-4447-11d2-85de-00c04fa35c89}" :default-interface
         ole.control:ISearchAssistantOC3 :interfaces
         ((ole.control:ISearchAssistantOC3
            "{72423e8f-8011-11d2-be79-00a0c9a83da3}"
            ole.control::i.ISearchAssistantOC3))
         :default-event-interface ole.control:_SearchAssistantEvents
         :event-interfaces
         ((ole.control:_SearchAssistantEvents
           ole.control::channel-_SearchAssistantEvents)))
       (defmethod msx:SearchCompanionAvailable ((ole::this.object
                                                 msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC3.SearchCompanionAvailable
           ole::this.object))
       (defmethod (setf msx:UseSearchCompanion) (ole::set.value
                                                 (ole::this.object
                                                  msx:SearchAssistantOC))
         (setf (ole.control::ISearchAssistantOC3.UseSearchCompanion
                 ole::this.object)
               ole::set.value))
       (defmethod msx:UseSearchCompanion ((ole::this.object
                                           msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC3.UseSearchCompanion
           ole::this.object))
       (defmethod msx:ShowFindPrinter ((ole::this.object
                                        msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC2.ShowFindPrinter
           ole::this.object))
       (defmethod msx:AddNextMenuItem ((ole::this.object
                                        msx:SearchAssistantOC)
                                       ole.control::bstrText
                                       ole.control::idItem)
         (ole.control::ISearchAssistantOC.AddNextMenuItem
           ole::this.object ole.control::bstrText ole.control::idItem))
       (defmethod msx:SetDefaultSearchUrl ((ole::this.object
                                            msx:SearchAssistantOC)
                                           ole.control::bstrUrl)
         (ole.control::ISearchAssistantOC.SetDefaultSearchUrl
           ole::this.object ole.control::bstrUrl))
       (defmethod msx:NavigateToDefaultSearch ((ole::this.object
                                                msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC.NavigateToDefaultSearch
           ole::this.object))
       (defmethod msx:IsRestricted ((ole::this.object
                                     msx:SearchAssistantOC)
                                    ole.control::bstrGuid)
         (ole.control::ISearchAssistantOC.IsRestricted ole::this.object
           ole.control::bstrGuid))
       (defmethod msx:ShellFeaturesEnabled ((ole::this.object
                                             msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC.ShellFeaturesEnabled
           ole::this.object))
       (defmethod msx:SearchAssistantDefault ((ole::this.object
                                               msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC.SearchAssistantDefault
           ole::this.object))
       (defmethod msx:Searches ((ole::this.object
                                 msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC.Searches ole::this.object))
       (defmethod msx:InWebFolder ((ole::this.object
                                    msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC.InWebFolder
           ole::this.object))
       (defmethod msx:PutProperty ((ole::this.object
                                    msx:SearchAssistantOC)
                                   &rest
                                   ole::other.args)
         (apply 'ole.control::ISearchAssistantOC.PutProperty
                ole::this.object ole::other.args))
       (defmethod msx:GetProperty ((ole::this.object
                                    msx:SearchAssistantOC)
                                   &rest
                                   ole::other.args)
         (apply 'ole.control::ISearchAssistantOC.GetProperty
                ole::this.object ole::other.args))
       (defmethod (setf msx:EventHandled) (ole::set.value
                                           (ole::this.object
                                            msx:SearchAssistantOC))
         (setf (ole.control::ISearchAssistantOC.EventHandled
                ole::this.object)
               ole::set.value))
       (defmethod msx:ResetNextMenu ((ole::this.object
                                      msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC.ResetNextMenu
           ole::this.object))
       (defmethod msx:FindOnWeb ((ole::this.object
                                  msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC.FindOnWeb ole::this.object))
       (defmethod msx:FindFilesOrFolders ((ole::this.object
                                           msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC.FindFilesOrFolders
           ole::this.object))
       (defmethod msx:FindComputer ((ole::this.object
                                     msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC.FindComputer
           ole::this.object))
       (defmethod msx:FindPrinter ((ole::this.object
                                    msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC.FindPrinter
           ole::this.object))
       (defmethod msx:FindPeople ((ole::this.object
                                   msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC.FindPeople ole::this.object))
       (defmethod msx:GetSearchAssistantURL ((ole::this.object
                                              msx:SearchAssistantOC)
                                             ole.control::bSubstitute
                                             ole.control::bCustomize)
         (ole.control::ISearchAssistantOC.GetSearchAssistantURL
           ole::this.object ole.control::bSubstitute
           ole.control::bCustomize))
       (defmethod msx:NotifySearchSettingsChanged ((ole::this.object
                                                    msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC.NotifySearchSettingsChanged
           ole::this.object))
       (defmethod (setf msx:ASProvider) (ole::set.value
                                         (ole::this.object
                                          msx:SearchAssistantOC))
         (setf (ole.control::ISearchAssistantOC.ASProvider
                 ole::this.object)
               ole::set.value))
       (defmethod msx:ASProvider ((ole::this.object
                                   msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC.ASProvider ole::this.object))
       (defmethod (setf msx:ASSetting) (ole::set.value
                                        (ole::this.object
                                         msx:SearchAssistantOC))
         (setf (ole.control::ISearchAssistantOC.ASSetting
                 ole::this.object)
               ole::set.value))
       (defmethod msx:ASSetting ((ole::this.object
                                  msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC.ASSetting ole::this.object))
       (defmethod msx:NETDetectNextNavigate ((ole::this.object
                                              msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC.NETDetectNextNavigate
           ole::this.object))
       (defmethod msx:PutFindText ((ole::this.object
                                    msx:SearchAssistantOC)
                                   ole.control::FindText)
         (ole.control::ISearchAssistantOC.PutFindText ole::this.object
           ole.control::FindText))
       (defmethod msx:Version ((ole::this.object
                                msx:SearchAssistantOC))
         (ole.control::ISearchAssistantOC.Version ole::this.object))
       (defmethod msx:EncodeString ((ole::this.object
                                     msx:SearchAssistantOC)
                                    ole.control::bstrValue
                                    ole.control::bstrCharSet
                                    ole.control::bUseUTF8)
         (ole.control::ISearchAssistantOC.EncodeString ole::this.object
           ole.control::bstrValue ole.control::bstrCharSet
           ole.control::bUseUTF8))
       (ole::def-control-class msx:CScriptErrorList :uuid
         "{efd01300-160f-11d2-bb2e-00805ff7efca}" :default-interface
         ole.control:IScriptErrorList :interfaces
         ((ole.control:IScriptErrorList
            "{f3470f24-15fd-11d2-bb2e-00805ff7efca}"
            ole.control::i.IScriptErrorList))
         :default-event-interface nil :event-interfaces nil)
       (defmethod msx:advanceError ((ole::this.object
                                     msx:CScriptErrorList))
         (ole.control::IScriptErrorList.advanceError ole::this.object))
       (defmethod msx:retreatError ((ole::this.object
                                     msx:CScriptErrorList))
         (ole.control::IScriptErrorList.retreatError ole::this.object))
       (defmethod msx:canAdvanceError ((ole::this.object
                                        msx:CScriptErrorList))
         (ole.control::IScriptErrorList.canAdvanceError
           ole::this.object))
       (defmethod msx:canRetreatError ((ole::this.object
                                        msx:CScriptErrorList))
         (ole.control::IScriptErrorList.canRetreatError
           ole::this.object))
       (defmethod msx:getErrorLine ((ole::this.object
                                     msx:CScriptErrorList))
         (ole.control::IScriptErrorList.getErrorLine ole::this.object))
       (defmethod msx:getErrorChar ((ole::this.object
                                     msx:CScriptErrorList))
         (ole.control::IScriptErrorList.getErrorChar ole::this.object))
       (defmethod msx:getErrorCode ((ole::this.object
                                     msx:CScriptErrorList))
         (ole.control::IScriptErrorList.getErrorCode ole::this.object))
       (defmethod msx:getErrorMsg ((ole::this.object
                                    msx:CScriptErrorList))
         (ole.control::IScriptErrorList.getErrorMsg ole::this.object))
       (defmethod msx:getErrorUrl ((ole::this.object
                                    msx:CScriptErrorList))
         (ole.control::IScriptErrorList.getErrorUrl ole::this.object))
       (defmethod msx:getAlwaysShowLockState ((ole::this.object
                                               msx:CScriptErrorList))
         (ole.control::IScriptErrorList.getAlwaysShowLockState
           ole::this.object))
       (defmethod msx:getDetailsPaneOpen ((ole::this.object
                                           msx:CScriptErrorList))
         (ole.control::IScriptErrorList.getDetailsPaneOpen
           ole::this.object))
       (defmethod msx:setDetailsPaneOpen ((ole::this.object
                                           msx:CScriptErrorList)
                                          ole.control::fDetailsPaneOpen)
         (ole.control::IScriptErrorList.setDetailsPaneOpen
           ole::this.object ole.control::fDetailsPaneOpen))
       (defmethod msx:getPerErrorDisplay ((ole::this.object
                                           msx:CScriptErrorList))
         (ole.control::IScriptErrorList.getPerErrorDisplay
           ole::this.object))
       (defmethod msx:setPerErrorDisplay ((ole::this.object
                                           msx:CScriptErrorList)
                                          ole.control::fPerErrorDisplay)
         (ole.control::IScriptErrorList.setPerErrorDisplay
           ole::this.object ole.control::fPerErrorDisplay))
       (ole::def-control-class msx:ShellShellNameSpace :uuid
         "{2f2f1f96-2bc1-4b1c-be28-ea3774f4676a}" :default-interface
         ole.control:IShellNameSpace :interfaces
         ((ole.control:IShellNameSpace
            "{e572d3c9-37be-4ae2-825d-d521763e3108}"
            ole.control::i.IShellNameSpace))
         :default-event-interface ole.control:DShellNameSpaceEvents
         :event-interfaces
         ((ole.control:DShellNameSpaceEvents
           ole.control::channel-DShellNameSpaceEvents)))
       (defmethod (setf msx:EnumOptions) (ole::set.value
                                          (ole::this.object
                                           msx:ShellShellNameSpace))
         (setf (ole.control::IShellNameSpace.EnumOptions
                 ole::this.object)
               ole::set.value))
       (defmethod msx:EnumOptions ((ole::this.object
                                    msx:ShellShellNameSpace))
         (ole.control::IShellNameSpace.EnumOptions ole::this.object))
       (defmethod (setf msx:SelectedItem) (ole::set.value
                                           (ole::this.object
                                            msx:ShellShellNameSpace))
         (setf (ole.control::IShellNameSpace.SelectedItem
                 ole::this.object)
               ole::set.value))
       (defmethod msx:SelectedItem ((ole::this.object
                                     msx:ShellShellNameSpace))
         (ole.control::IShellNameSpace.SelectedItem ole::this.object))
       (defmethod (setf msx:Root) (ole::set.value
                                   (ole::this.object
                                    msx:ShellShellNameSpace))
         (setf (ole.control::IShellNameSpace.Root ole::this.object)
               ole::set.value))
       (defmethod msx:Root ((ole::this.object msx:ShellShellNameSpace))
         (ole.control::IShellNameSpace.Root ole::this.object))
       (defmethod (setf msx:Depth) (ole::set.value
                                    (ole::this.object
                                     msx:ShellShellNameSpace))
         (setf (ole.control::IShellNameSpace.Depth ole::this.object)
               ole::set.value))
       (defmethod msx:Depth ((ole::this.object
                              msx:ShellShellNameSpace))
         (ole.control::IShellNameSpace.Depth ole::this.object))
       (defmethod (setf msx:Mode) (ole::set.value
                                   (ole::this.object
                                    msx:ShellShellNameSpace))
         (setf (ole.control::IShellNameSpace.Mode ole::this.object)
               ole::set.value))
       (defmethod msx:Mode ((ole::this.object msx:ShellShellNameSpace))
         (ole.control::IShellNameSpace.Mode ole::this.object))
       (defmethod (setf msx:Flags) (ole::set.value
                                    (ole::this.object
                                     msx:ShellShellNameSpace))
         (setf (ole.control::IShellNameSpace.Flags ole::this.object)
               ole::set.value))
       (defmethod msx:Flags ((ole::this.object
                              msx:ShellShellNameSpace))
         (ole.control::IShellNameSpace.Flags ole::this.object))
       (defmethod (setf msx:TVFlags) (ole::set.value
                                      (ole::this.object
                                       msx:ShellShellNameSpace))
         (setf (ole.control::IShellNameSpace.TVFlags ole::this.object)
               ole::set.value))
       (defmethod msx:TVFlags ((ole::this.object
                                msx:ShellShellNameSpace))
         (ole.control::IShellNameSpace.TVFlags ole::this.object))
       (defmethod (setf msx:Columns) (ole::set.value
                                      (ole::this.object
                                       msx:ShellShellNameSpace))
         (setf (ole.control::IShellNameSpace.Columns ole::this.object)
               ole::set.value))
       (defmethod msx:Columns ((ole::this.object
                                msx:ShellShellNameSpace))
         (ole.control::IShellNameSpace.Columns ole::this.object))
       (defmethod msx:CountViewTypes ((ole::this.object
                                       msx:ShellShellNameSpace))
         (ole.control::IShellNameSpace.CountViewTypes
           ole::this.object))
       (defmethod msx:SetViewType ((ole::this.object
                                    msx:ShellShellNameSpace)
                                   ole.control::iType)
         (ole.control::IShellNameSpace.SetViewType ole::this.object
           ole.control::iType))
       (defmethod msx:SelectedItems ((ole::this.object
                                      msx:ShellShellNameSpace))
         (ole.control::IShellNameSpace.SelectedItems ole::this.object))
       (defmethod msx:Expand ((ole::this.object
                               msx:ShellShellNameSpace)
                              ole.control::var ole.control::iDepth)
         (ole.control::IShellNameSpace.Expand ole::this.object
           ole.control::var ole.control::iDepth))
       (defmethod msx:UnselectAll ((ole::this.object
                                    msx:ShellShellNameSpace))
         (ole.control::IShellNameSpace.UnselectAll ole::this.object))
       (defmethod msx:MoveSelectionUp ((ole::this.object
                                        msx:ShellShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.MoveSelectionUp
           ole::this.object))
       (defmethod msx:MoveSelectionDown ((ole::this.object
                                          msx:ShellShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.MoveSelectionDown
           ole::this.object))
       (defmethod msx:ResetSort ((ole::this.object
                                  msx:ShellShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.ResetSort
           ole::this.object))
       (defmethod msx:NewFolder ((ole::this.object
                                  msx:ShellShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.NewFolder
           ole::this.object))
       (defmethod msx:Synchronize ((ole::this.object
                                    msx:ShellShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.Synchronize
           ole::this.object))
       (defmethod msx:Import ((ole::this.object
                               msx:ShellShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.Import
           ole::this.object))
       (defmethod msx:Export ((ole::this.object
                               msx:ShellShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.Export
           ole::this.object))
       (defmethod msx:InvokeContextMenuCommand ((ole::this.object
                                                 msx:ShellShellNameSpace)
                                                ole.control::strCommand)
         (ole.control::IShellFavoritesNameSpace.InvokeContextMenuCommand
           ole::this.object ole.control::strCommand))
       (defmethod msx:MoveSelectionTo ((ole::this.object
                                        msx:ShellShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.MoveSelectionTo
           ole::this.object))
       (defmethod msx:SubscriptionsEnabled ((ole::this.object
                                             msx:ShellShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.SubscriptionsEnabled
           ole::this.object))
       (defmethod msx:CreateSubscriptionForSelection ((ole::this.object
                                                       msx:ShellShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.CreateSubscriptionForSelection
           ole::this.object))
       (defmethod msx:DeleteSubscriptionForSelection ((ole::this.object
                                                       msx:ShellShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.DeleteSubscriptionForSelection
           ole::this.object))
       (defmethod msx:SetRoot ((ole::this.object
                                msx:ShellShellNameSpace)
                               ole.control::bstrFullPath)
         (ole.control::IShellFavoritesNameSpace.SetRoot
           ole::this.object ole.control::bstrFullPath))
       (ole::def-control-class msx:ShellNameSpace :uuid
         "{55136805-b2de-11d1-b9f2-00a0c98bc547}" :default-interface
         ole.control:IShellNameSpace :interfaces
         ((ole.control:IShellNameSpace
            "{e572d3c9-37be-4ae2-825d-d521763e3108}"
            ole.control::i.IShellNameSpace))
         :default-event-interface ole.control:DShellNameSpaceEvents
         :event-interfaces
         ((ole.control:DShellNameSpaceEvents
           ole.control::channel-DShellNameSpaceEvents)))
       (defmethod (setf msx:EnumOptions) (ole::set.value
                                          (ole::this.object
                                           msx:ShellNameSpace))
         (setf (ole.control::IShellNameSpace.EnumOptions
                 ole::this.object)
               ole::set.value))
       (defmethod msx:EnumOptions ((ole::this.object
                                    msx:ShellNameSpace))
         (ole.control::IShellNameSpace.EnumOptions ole::this.object))
       (defmethod (setf msx:SelectedItem) (ole::set.value
                                           (ole::this.object
                                            msx:ShellNameSpace))
         (setf (ole.control::IShellNameSpace.SelectedItem
                 ole::this.object)
               ole::set.value))
       (defmethod msx:SelectedItem ((ole::this.object
                                     msx:ShellNameSpace))
         (ole.control::IShellNameSpace.SelectedItem ole::this.object))
       (defmethod (setf msx:Root) (ole::set.value
                                   (ole::this.object
                                    msx:ShellNameSpace))
         (setf (ole.control::IShellNameSpace.Root ole::this.object)
               ole::set.value))
       (defmethod msx:Root ((ole::this.object msx:ShellNameSpace))
         (ole.control::IShellNameSpace.Root ole::this.object))
       (defmethod (setf msx:Depth) (ole::set.value
                                    (ole::this.object
                                     msx:ShellNameSpace))
         (setf (ole.control::IShellNameSpace.Depth ole::this.object)
               ole::set.value))
       (defmethod msx:Depth ((ole::this.object msx:ShellNameSpace))
         (ole.control::IShellNameSpace.Depth ole::this.object))
       (defmethod (setf msx:Mode) (ole::set.value
                                   (ole::this.object
                                    msx:ShellNameSpace))
         (setf (ole.control::IShellNameSpace.Mode ole::this.object)
               ole::set.value))
       (defmethod msx:Mode ((ole::this.object msx:ShellNameSpace))
         (ole.control::IShellNameSpace.Mode ole::this.object))
       (defmethod (setf msx:Flags) (ole::set.value
                                    (ole::this.object
                                     msx:ShellNameSpace))
         (setf (ole.control::IShellNameSpace.Flags ole::this.object)
               ole::set.value))
       (defmethod msx:Flags ((ole::this.object msx:ShellNameSpace))
         (ole.control::IShellNameSpace.Flags ole::this.object))
       (defmethod (setf msx:TVFlags) (ole::set.value
                                      (ole::this.object
                                       msx:ShellNameSpace))
         (setf (ole.control::IShellNameSpace.TVFlags ole::this.object)
               ole::set.value))
       (defmethod msx:TVFlags ((ole::this.object msx:ShellNameSpace))
         (ole.control::IShellNameSpace.TVFlags ole::this.object))
       (defmethod (setf msx:Columns) (ole::set.value
                                      (ole::this.object
                                       msx:ShellNameSpace))
         (setf (ole.control::IShellNameSpace.Columns ole::this.object)
               ole::set.value))
       (defmethod msx:Columns ((ole::this.object msx:ShellNameSpace))
         (ole.control::IShellNameSpace.Columns ole::this.object))
       (defmethod msx:CountViewTypes ((ole::this.object
                                       msx:ShellNameSpace))
         (ole.control::IShellNameSpace.CountViewTypes
           ole::this.object))
       (defmethod msx:SetViewType ((ole::this.object
                                    msx:ShellNameSpace)
                                   ole.control::iType)
         (ole.control::IShellNameSpace.SetViewType ole::this.object
           ole.control::iType))
       (defmethod msx:SelectedItems ((ole::this.object
                                      msx:ShellNameSpace))
         (ole.control::IShellNameSpace.SelectedItems ole::this.object))
       (defmethod msx:Expand ((ole::this.object msx:ShellNameSpace)
                              ole.control::var ole.control::iDepth)
         (ole.control::IShellNameSpace.Expand ole::this.object
           ole.control::var ole.control::iDepth))
       (defmethod msx:UnselectAll ((ole::this.object
                                    msx:ShellNameSpace))
         (ole.control::IShellNameSpace.UnselectAll ole::this.object))
       (defmethod msx:MoveSelectionUp ((ole::this.object
                                        msx:ShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.MoveSelectionUp
           ole::this.object))
       (defmethod msx:MoveSelectionDown ((ole::this.object
                                          msx:ShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.MoveSelectionDown
           ole::this.object))
       (defmethod msx:ResetSort ((ole::this.object msx:ShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.ResetSort
           ole::this.object))
       (defmethod msx:NewFolder ((ole::this.object msx:ShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.NewFolder
           ole::this.object))
       (defmethod msx:Synchronize ((ole::this.object
                                    msx:ShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.Synchronize
           ole::this.object))
       (defmethod msx:Import ((ole::this.object msx:ShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.Import
           ole::this.object))
       (defmethod msx:Export ((ole::this.object msx:ShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.Export
           ole::this.object))
       (defmethod msx:InvokeContextMenuCommand ((ole::this.object
                                                 msx:ShellNameSpace)
                                                ole.control::strCommand)
         (ole.control::IShellFavoritesNameSpace.InvokeContextMenuCommand
           ole::this.object ole.control::strCommand))
       (defmethod msx:MoveSelectionTo ((ole::this.object
                                        msx:ShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.MoveSelectionTo
           ole::this.object))
       (defmethod msx:SubscriptionsEnabled ((ole::this.object
                                             msx:ShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.SubscriptionsEnabled
           ole::this.object))
       (defmethod msx:CreateSubscriptionForSelection ((ole::this.object
                                                       msx:ShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.CreateSubscriptionForSelection
           ole::this.object))
       (defmethod msx:DeleteSubscriptionForSelection ((ole::this.object
                                                       msx:ShellNameSpace))
         (ole.control::IShellFavoritesNameSpace.DeleteSubscriptionForSelection
           ole::this.object))
       (defmethod msx:SetRoot ((ole::this.object msx:ShellNameSpace)
                               ole.control::bstrFullPath)
         (ole.control::IShellFavoritesNameSpace.SetRoot
           ole::this.object ole.control::bstrFullPath))
       (ole::def-control-class msx:ShellUIHelper :uuid
         "{64ab4bb7-111e-11d1-8f79-00c04fc2fbe1}" :default-interface
         ole.control:IShellUIHelper :interfaces
         ((ole.control:IShellUIHelper
            "{729fe2f8-1ea8-11d1-8f85-00c04fc2fbe1}"
            ole.control::i.IShellUIHelper))
         :default-event-interface nil :event-interfaces nil)
       (defmethod msx:ResetFirstBootMode ((ole::this.object
                                           msx:ShellUIHelper))
         (ole.control::IShellUIHelper.ResetFirstBootMode
           ole::this.object))
       (defmethod msx:ResetSafeMode ((ole::this.object
                                      msx:ShellUIHelper))
         (ole.control::IShellUIHelper.ResetSafeMode ole::this.object))
       (defmethod msx:RefreshOfflineDesktop ((ole::this.object
                                              msx:ShellUIHelper))
         (ole.control::IShellUIHelper.RefreshOfflineDesktop
           ole::this.object))
       (defmethod msx:AddFavorite ((ole::this.object msx:ShellUIHelper)
                                   ole.control::URL
                                   &key
                                   (ole.control::Title :missing))
         (ole.control::IShellUIHelper.AddFavorite ole::this.object
                                                  ole.control::URL
           :Title ole.control::Title))
       (defmethod msx:AddChannel ((ole::this.object msx:ShellUIHelper)
                                  ole.control::URL)
         (ole.control::IShellUIHelper.AddChannel ole::this.object
           ole.control::URL))
       (defmethod msx:AddDesktopComponent ((ole::this.object
                                            msx:ShellUIHelper)
                                           ole.control::URL
                                           ole.control::Type
                                           &key
                                           (ole.control::Left :missing)
                                           (ole.control::Top :missing)
                                           (ole.control::Width
                                            :missing)
                                           (ole.control::Height
                                            :missing))
         (ole.control::IShellUIHelper.AddDesktopComponent
            ole::this.object ole.control::URL ole.control::Type
           :Left ole.control::Left
           :Top ole.control::Top
           :Width ole.control::Width
           :Height ole.control::Height))
       (defmethod msx:IsSubscribed ((ole::this.object
                                     msx:ShellUIHelper)
                                    ole.control::URL)
         (ole.control::IShellUIHelper.IsSubscribed ole::this.object
           ole.control::URL))
       (defmethod msx:NavigateAndFind ((ole::this.object
                                        msx:ShellUIHelper)
                                       ole.control::URL
                                       ole.control::strQuery
                                       ole.control::varTargetFrame)
         (ole.control::IShellUIHelper.NavigateAndFind ole::this.object
           ole.control::URL ole.control::strQuery
           ole.control::varTargetFrame))
       (defmethod msx:ImportExportFavorites ((ole::this.object
                                              msx:ShellUIHelper)
                                             ole.control::fImport
                                             ole.control::strImpExpPath)
         (ole.control::IShellUIHelper.ImportExportFavorites
           ole::this.object ole.control::fImport
           ole.control::strImpExpPath))
       (defmethod msx:AutoCompleteSaveForm ((ole::this.object
                                             msx:ShellUIHelper)
                                            &key
                                            (ole.control::Form
                                             :missing))
         (ole.control::IShellUIHelper.AutoCompleteSaveForm
            ole::this.object
           :Form ole.control::Form))
       (defmethod msx:AutoScan ((ole::this.object msx:ShellUIHelper)
                                ole.control::strSearch
                                ole.control::strFailureUrl
                                &key
                                (ole.control::pvarTargetFrame
                                 :missing))
         (ole.control::IShellUIHelper.AutoScan ole::this.object
                                               ole.control::strSearch
                                               ole.control::strFailureUrl
           :pvarTargetFrame ole.control::pvarTargetFrame))
       (defmethod msx:AutoCompleteAttach ((ole::this.object
                                           msx:ShellUIHelper)
                                          &key
                                          (ole.control::Reserved
                                           :missing))
         (ole.control::IShellUIHelper.AutoCompleteAttach
            ole::this.object
           :Reserved ole.control::Reserved))
       (defmethod msx:ShowBrowserUI ((ole::this.object
                                      msx:ShellUIHelper)
                                     ole.control::bstrName
                                     ole.control::pvarIn)
         (ole.control::IShellUIHelper.ShowBrowserUI ole::this.object
           ole.control::bstrName ole.control::pvarIn))
       (ole::def-control-class msx:ShellWindows :uuid
         "{9ba05972-f6a8-11cf-a442-00a0c90a8f39}" :default-interface
         ole.control:IShellWindows :interfaces
         ((ole.control:IShellWindows
            "{85cb6900-4d95-11cf-960c-0080c7f4ee85}"
            ole.control::i.IShellWindows))
         :default-event-interface ole.control:DShellWindowsEvents
         :event-interfaces
         ((ole.control:DShellWindowsEvents
           ole.control::channel-DShellWindowsEvents)))
       (defmethod msx:Count ((ole::this.object msx:ShellWindows))
         (ole.control::IShellWindows.Count ole::this.object))
       (defmethod msx:Item ((ole::this.object msx:ShellWindows) &key
                            (ole.control::index :missing))
         (ole.control::IShellWindows.Item ole::this.object
           :index ole.control::index))
       (defmethod msx:_NewEnum ((ole::this.object msx:ShellWindows))
         (ole.control::IShellWindows._NewEnum ole::this.object))
       (defmethod msx:Register ((ole::this.object msx:ShellWindows)
                                ole.control::pid
                                ole.control::HWND
                                ole.control::swClass)
         (ole.control::IShellWindows.Register ole::this.object
           ole.control::pid ole.control::HWND ole.control::swClass))
       (defmethod msx:RegisterPending ((ole::this.object
                                        msx:ShellWindows)
                                       ole.control::lThreadId
                                       ole.control::pvarloc
                                       ole.control::pvarlocRoot
                                       ole.control::swClass)
         (ole.control::IShellWindows.RegisterPending ole::this.object
           ole.control::lThreadId ole.control::pvarloc
           ole.control::pvarlocRoot ole.control::swClass))
       (defmethod msx:Revoke ((ole::this.object msx:ShellWindows)
                              ole.control::lCookie)
         (ole.control::IShellWindows.Revoke ole::this.object
           ole.control::lCookie))
       (defmethod msx:OnNavigate ((ole::this.object msx:ShellWindows)
                                  ole.control::lCookie
                                  ole.control::pvarloc)
         (ole.control::IShellWindows.OnNavigate ole::this.object
           ole.control::lCookie ole.control::pvarloc))
       (defmethod msx:OnActivated ((ole::this.object msx:ShellWindows)
                                   ole.control::lCookie
                                   ole.control::fActive)
         (ole.control::IShellWindows.OnActivated ole::this.object
           ole.control::lCookie ole.control::fActive))
       (defmethod msx:FindWindowSW ((ole::this.object msx:ShellWindows)
                                    ole.control::pvarloc
                                    ole.control::pvarlocRoot
                                    ole.control::swClass
                                    ole.control::swfwOptions)
         (ole.control::IShellWindows.FindWindowSW ole::this.object
           ole.control::pvarloc ole.control::pvarlocRoot
           ole.control::swClass ole.control::swfwOptions))
       (defmethod msx:OnCreated ((ole::this.object msx:ShellWindows)
                                 ole.control::lCookie
                                 ole.control::punk)
         (ole.control::IShellWindows.OnCreated ole::this.object
           ole.control::lCookie ole.control::punk))
       (defmethod msx:ProcessAttachDetach ((ole::this.object
                                            msx:ShellWindows)
                                           ole.control::fAttach)
         (ole.control::IShellWindows.ProcessAttachDetach
           ole::this.object ole.control::fAttach))
       (ole::def-control-class msx:ShellBrowserWindow :uuid
         "{c08afd90-f2a1-11d1-8455-00a0c91f3880}" :default-interface
         ole.control:IWebBrowser2 :interfaces
         ((ole.control:IWebBrowser2
            "{d30c1661-cdaf-11d0-8a3e-00c04fc9e26e}"
            ole.control::i.IWebBrowser2)
          (ole.control:IWebBrowserApp
            "{0002df05-0000-0000-c000-000000000046}"
            ole.control::i.IWebBrowserApp))
         :default-event-interface ole.control:DWebBrowserEvents2
         :event-interfaces
         ((ole.control:DWebBrowserEvents
           ole.control::channel-DWebBrowserEvents)
          (ole.control:DWebBrowserEvents2
           ole.control::channel-DWebBrowserEvents2)))
       (defmethod msx:Navigate2 ((ole::this.object
                                  msx:ShellBrowserWindow)
                                 ole.control::URL
                                 &key
                                 (ole.control::Flags :missing)
                                 (ole.control::TargetFrameName
                                  :missing)
                                 (ole.control::PostData :missing)
                                 (ole.control::Headers :missing))
         (ole.control::IWebBrowser2.Navigate2 ole::this.object
                                              ole.control::URL
           :Flags ole.control::Flags
           :TargetFrameName ole.control::TargetFrameName
           :PostData ole.control::PostData
           :Headers ole.control::Headers))
       (defmethod msx:QueryStatusWB ((ole::this.object
                                      msx:ShellBrowserWindow)
                                     ole.control::cmdID)
         (ole.control::IWebBrowser2.QueryStatusWB ole::this.object
           ole.control::cmdID))
       (defmethod msx:ExecWB ((ole::this.object msx:ShellBrowserWindow)
                              ole.control::cmdID
                              ole.control::cmdexecopt &key
                              (ole.control::pvaIn :missing)
                              (ole.control::pvaOut :missing))
         (ole.control::IWebBrowser2.ExecWB ole::this.object
                                           ole.control::cmdID
                                           ole.control::cmdexecopt
           :pvaIn ole.control::pvaIn
           :pvaOut ole.control::pvaOut))
       (defmethod msx:ShowBrowserBar ((ole::this.object
                                       msx:ShellBrowserWindow)
                                      ole.control::pvaClsid
                                      &key
                                      (ole.control::pvarShow :missing)
                                      (ole.control::pvarSize :missing))
         (ole.control::IWebBrowser2.ShowBrowserBar ole::this.object
                                                   ole.control::pvaClsid
           :pvarShow ole.control::pvarShow
           :pvarSize ole.control::pvarSize))
       (defmethod msx:ReadyState ((ole::this.object
                                   msx:ShellBrowserWindow))
         (ole.control::IWebBrowser2.ReadyState ole::this.object))
       (defmethod (setf msx:Offline) (ole::set.value
                                      (ole::this.object
                                       msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowser2.Offline ole::this.object)
               ole::set.value))
       (defmethod msx:Offline ((ole::this.object
                                msx:ShellBrowserWindow))
         (ole.control::IWebBrowser2.Offline ole::this.object))
       (defmethod (setf msx:Silent) (ole::set.value
                                     (ole::this.object
                                      msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowser2.Silent ole::this.object)
               ole::set.value))
       (defmethod msx:Silent ((ole::this.object
                               msx:ShellBrowserWindow))
         (ole.control::IWebBrowser2.Silent ole::this.object))
       (defmethod (setf msx:RegisterAsBrowser) (ole::set.value
                                                (ole::this.object
                                                 msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowser2.RegisterAsBrowser
                 ole::this.object)
               ole::set.value))
       (defmethod msx:RegisterAsBrowser ((ole::this.object
                                          msx:ShellBrowserWindow))
         (ole.control::IWebBrowser2.RegisterAsBrowser
           ole::this.object))
       (defmethod (setf msx:RegisterAsDropTarget) (ole::set.value
                                                   (ole::this.object
                                                    msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowser2.RegisterAsDropTarget
                 ole::this.object)
               ole::set.value))
       (defmethod msx:RegisterAsDropTarget ((ole::this.object
                                             msx:ShellBrowserWindow))
         (ole.control::IWebBrowser2.RegisterAsDropTarget
           ole::this.object))
       (defmethod (setf msx:TheaterMode) (ole::set.value
                                          (ole::this.object
                                           msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowser2.TheaterMode ole::this.object)
               ole::set.value))
       (defmethod msx:TheaterMode ((ole::this.object
                                    msx:ShellBrowserWindow))
         (ole.control::IWebBrowser2.TheaterMode ole::this.object))
       (defmethod (setf msx:AddressBar) (ole::set.value
                                         (ole::this.object
                                          msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowser2.AddressBar ole::this.object)
               ole::set.value))
       (defmethod msx:AddressBar ((ole::this.object
                                   msx:ShellBrowserWindow))
         (ole.control::IWebBrowser2.AddressBar ole::this.object))
       (defmethod (setf msx:Resizable) (ole::set.value
                                        (ole::this.object
                                         msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowser2.Resizable ole::this.object)
               ole::set.value))
       (defmethod msx:Resizable ((ole::this.object
                                  msx:ShellBrowserWindow))
         (ole.control::IWebBrowser2.Resizable ole::this.object))
       (defmethod msx:Quit ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.Quit ole::this.object))
       (defmethod msx:ClientToWindow ((ole::this.object
                                       msx:ShellBrowserWindow)
                                      ole.control::pcx
                                      ole.control::pcy)
         (ole.control::IWebBrowserApp.ClientToWindow ole::this.object
           ole.control::pcx ole.control::pcy))
       (defmethod msx:PutProperty ((ole::this.object
                                    msx:ShellBrowserWindow)
                                   &rest
                                   ole::other.args)
         (apply 'ole.control::IWebBrowserApp.PutProperty
                ole::this.object ole::other.args))
       (defmethod msx:GetProperty ((ole::this.object
                                    msx:ShellBrowserWindow)
                                   &rest
                                   ole::other.args)
         (apply 'ole.control::IWebBrowserApp.GetProperty
                ole::this.object ole::other.args))
       (defmethod msx:Name ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.Name ole::this.object))
       (defmethod msx:HWND ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.HWND ole::this.object))
       (defmethod msx:FullName ((ole::this.object
                                 msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.FullName ole::this.object))
       (defmethod msx:Path ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.Path ole::this.object))
       (defmethod (setf msx:Visible) (ole::set.value
                                      (ole::this.object
                                       msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowserApp.Visible ole::this.object)
               ole::set.value))
       (defmethod msx:Visible ((ole::this.object
                                msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.Visible ole::this.object))
       (defmethod (setf msx:StatusBar) (ole::set.value
                                        (ole::this.object
                                         msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowserApp.StatusBar ole::this.object)
               ole::set.value))
       (defmethod msx:StatusBar ((ole::this.object
                                  msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.StatusBar ole::this.object))
       (defmethod (setf msx:StatusText) (ole::set.value
                                         (ole::this.object
                                          msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowserApp.StatusText
                 ole::this.object)
               ole::set.value))
       (defmethod msx:StatusText ((ole::this.object
                                   msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.StatusText ole::this.object))
       (defmethod (setf msx:ToolBar) (ole::set.value
                                      (ole::this.object
                                       msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowserApp.ToolBar ole::this.object)
               ole::set.value))
       (defmethod msx:ToolBar ((ole::this.object
                                msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.ToolBar ole::this.object))
       (defmethod (setf msx:MenuBar) (ole::set.value
                                      (ole::this.object
                                       msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowserApp.MenuBar ole::this.object)
               ole::set.value))
       (defmethod msx:MenuBar ((ole::this.object
                                msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.MenuBar ole::this.object))
       (defmethod (setf msx:FullScreen) (ole::set.value
                                         (ole::this.object
                                          msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowserApp.FullScreen
                 ole::this.object)
               ole::set.value))
       (defmethod msx:FullScreen ((ole::this.object
                                   msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.FullScreen ole::this.object))
       (defmethod msx:GoBack ((ole::this.object
                               msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.GoBack ole::this.object))
       (defmethod msx:GoForward ((ole::this.object
                                  msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.GoForward ole::this.object))
       (defmethod msx:GoHome ((ole::this.object
                               msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.GoHome ole::this.object))
       (defmethod msx:GoSearch ((ole::this.object
                                 msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.GoSearch ole::this.object))
       (defmethod msx:Navigate ((ole::this.object
                                 msx:ShellBrowserWindow)
                                ole.control::URL
                                &key
                                (ole.control::Flags :missing)
                                (ole.control::TargetFrameName :missing)
                                (ole.control::PostData :missing)
                                (ole.control::Headers :missing))
         (ole.control::IWebBrowser.Navigate ole::this.object
                                            ole.control::URL
           :Flags ole.control::Flags
           :TargetFrameName ole.control::TargetFrameName
           :PostData ole.control::PostData
           :Headers ole.control::Headers))
       (defmethod msx:Refresh ((ole::this.object
                                msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Refresh ole::this.object))
       (defmethod msx:Refresh2 ((ole::this.object
                                 msx:ShellBrowserWindow)
                                &key
                                (ole.control::Level :missing))
         (ole.control::IWebBrowser.Refresh2 ole::this.object
           :Level ole.control::Level))
       (defmethod msx:Stop ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Stop ole::this.object))
       (defmethod msx:Application ((ole::this.object
                                    msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Application ole::this.object))
       (defmethod msx:Parent ((ole::this.object
                               msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Parent ole::this.object))
       (defmethod msx:Container ((ole::this.object
                                  msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Container ole::this.object))
       (defmethod msx:Document ((ole::this.object
                                 msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Document ole::this.object))
       (defmethod msx:TopLevelContainer ((ole::this.object
                                          msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.TopLevelContainer ole::this.object))
       (defmethod msx:Type ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Type ole::this.object))
       (defmethod (setf msx:Left) (ole::set.value
                                   (ole::this.object
                                    msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowser.Left ole::this.object)
               ole::set.value))
       (defmethod msx:Left ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Left ole::this.object))
       (defmethod (setf msx:Top) (ole::set.value
                                  (ole::this.object
                                   msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowser.Top ole::this.object)
               ole::set.value))
       (defmethod msx:Top ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Top ole::this.object))
       (defmethod (setf msx:Width) (ole::set.value
                                    (ole::this.object
                                     msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowser.Width ole::this.object)
               ole::set.value))
       (defmethod msx:Width ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Width ole::this.object))
       (defmethod (setf msx:Height) (ole::set.value
                                     (ole::this.object
                                      msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowser.Height ole::this.object)
               ole::set.value))
       (defmethod msx:Height ((ole::this.object
                               msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Height ole::this.object))
       (defmethod msx:LocationName ((ole::this.object
                                     msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.LocationName ole::this.object))
       (defmethod msx:LocationURL ((ole::this.object
                                    msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.LocationURL ole::this.object))
       (defmethod msx:Busy ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Busy ole::this.object))
       (defmethod msx:Quit ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.Quit ole::this.object))
       (defmethod msx:ClientToWindow ((ole::this.object
                                       msx:ShellBrowserWindow)
                                      ole.control::pcx
                                      ole.control::pcy)
         (ole.control::IWebBrowserApp.ClientToWindow ole::this.object
           ole.control::pcx ole.control::pcy))
       (defmethod msx:PutProperty ((ole::this.object
                                    msx:ShellBrowserWindow)
                                   &rest
                                   ole::other.args)
         (apply 'ole.control::IWebBrowserApp.PutProperty
                ole::this.object ole::other.args))
       (defmethod msx:GetProperty ((ole::this.object
                                    msx:ShellBrowserWindow)
                                   &rest
                                   ole::other.args)
         (apply 'ole.control::IWebBrowserApp.GetProperty
                ole::this.object ole::other.args))
       (defmethod msx:Name ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.Name ole::this.object))
       (defmethod msx:HWND ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.HWND ole::this.object))
       (defmethod msx:FullName ((ole::this.object
                                 msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.FullName ole::this.object))
       (defmethod msx:Path ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.Path ole::this.object))
       (defmethod (setf msx:Visible) (ole::set.value
                                      (ole::this.object
                                       msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowserApp.Visible ole::this.object)
               ole::set.value))
       (defmethod msx:Visible ((ole::this.object
                                msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.Visible ole::this.object))
       (defmethod (setf msx:StatusBar) (ole::set.value
                                        (ole::this.object
                                         msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowserApp.StatusBar ole::this.object)
               ole::set.value))
       (defmethod msx:StatusBar ((ole::this.object
                                  msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.StatusBar ole::this.object))
       (defmethod (setf msx:StatusText) (ole::set.value
                                         (ole::this.object
                                          msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowserApp.StatusText
                 ole::this.object)
               ole::set.value))
       (defmethod msx:StatusText ((ole::this.object
                                   msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.StatusText ole::this.object))
       (defmethod (setf msx:ToolBar) (ole::set.value
                                      (ole::this.object
                                       msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowserApp.ToolBar ole::this.object)
               ole::set.value))
       (defmethod msx:ToolBar ((ole::this.object
                                msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.ToolBar ole::this.object))
       (defmethod (setf msx:MenuBar) (ole::set.value
                                      (ole::this.object
                                       msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowserApp.MenuBar ole::this.object)
               ole::set.value))
       (defmethod msx:MenuBar ((ole::this.object
                                msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.MenuBar ole::this.object))
       (defmethod (setf msx:FullScreen) (ole::set.value
                                         (ole::this.object
                                          msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowserApp.FullScreen
                 ole::this.object)
               ole::set.value))
       (defmethod msx:FullScreen ((ole::this.object
                                   msx:ShellBrowserWindow))
         (ole.control::IWebBrowserApp.FullScreen ole::this.object))
       (defmethod msx:GoBack ((ole::this.object
                               msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.GoBack ole::this.object))
       (defmethod msx:GoForward ((ole::this.object
                                  msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.GoForward ole::this.object))
       (defmethod msx:GoHome ((ole::this.object
                               msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.GoHome ole::this.object))
       (defmethod msx:GoSearch ((ole::this.object
                                 msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.GoSearch ole::this.object))
       (defmethod msx:Navigate ((ole::this.object
                                 msx:ShellBrowserWindow)
                                ole.control::URL
                                &key
                                (ole.control::Flags :missing)
                                (ole.control::TargetFrameName :missing)
                                (ole.control::PostData :missing)
                                (ole.control::Headers :missing))
         (ole.control::IWebBrowser.Navigate ole::this.object
                                            ole.control::URL
           :Flags ole.control::Flags
           :TargetFrameName ole.control::TargetFrameName
           :PostData ole.control::PostData
           :Headers ole.control::Headers))
       (defmethod msx:Refresh ((ole::this.object
                                msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Refresh ole::this.object))
       (defmethod msx:Refresh2 ((ole::this.object
                                 msx:ShellBrowserWindow)
                                &key
                                (ole.control::Level :missing))
         (ole.control::IWebBrowser.Refresh2 ole::this.object
           :Level ole.control::Level))
       (defmethod msx:Stop ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Stop ole::this.object))
       (defmethod msx:Application ((ole::this.object
                                    msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Application ole::this.object))
       (defmethod msx:Parent ((ole::this.object
                               msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Parent ole::this.object))
       (defmethod msx:Container ((ole::this.object
                                  msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Container ole::this.object))
       (defmethod msx:Document ((ole::this.object
                                 msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Document ole::this.object))
       (defmethod msx:TopLevelContainer ((ole::this.object
                                          msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.TopLevelContainer ole::this.object))
       (defmethod msx:Type ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Type ole::this.object))
       (defmethod (setf msx:Left) (ole::set.value
                                   (ole::this.object
                                    msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowser.Left ole::this.object)
               ole::set.value))
       (defmethod msx:Left ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Left ole::this.object))
       (defmethod (setf msx:Top) (ole::set.value
                                  (ole::this.object
                                   msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowser.Top ole::this.object)
               ole::set.value))
       (defmethod msx:Top ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Top ole::this.object))
       (defmethod (setf msx:Width) (ole::set.value
                                    (ole::this.object
                                     msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowser.Width ole::this.object)
               ole::set.value))
       (defmethod msx:Width ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Width ole::this.object))
       (defmethod (setf msx:Height) (ole::set.value
                                     (ole::this.object
                                      msx:ShellBrowserWindow))
         (setf (ole.control::IWebBrowser.Height ole::this.object)
               ole::set.value))
       (defmethod msx:Height ((ole::this.object
                               msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Height ole::this.object))
       (defmethod msx:LocationName ((ole::this.object
                                     msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.LocationName ole::this.object))
       (defmethod msx:LocationURL ((ole::this.object
                                    msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.LocationURL ole::this.object))
       (defmethod msx:Busy ((ole::this.object msx:ShellBrowserWindow))
         (ole.control::IWebBrowser.Busy ole::this.object))
       (ole::def-control-class msx:InternetExplorer :uuid
         "{0002df01-0000-0000-c000-000000000046}" :default-interface
         ole.control:IWebBrowser2 :interfaces
         ((ole.control:IWebBrowser2
            "{d30c1661-cdaf-11d0-8a3e-00c04fc9e26e}"
            ole.control::i.IWebBrowser2)
          (ole.control:IWebBrowserApp
            "{0002df05-0000-0000-c000-000000000046}"
            ole.control::i.IWebBrowserApp))
         :default-event-interface ole.control:DWebBrowserEvents2
         :event-interfaces
         ((ole.control:DWebBrowserEvents
           ole.control::channel-DWebBrowserEvents)
          (ole.control:DWebBrowserEvents2
           ole.control::channel-DWebBrowserEvents2)))
       (defmethod msx:Navigate2 ((ole::this.object
                                  msx:InternetExplorer)
                                 ole.control::URL
                                 &key
                                 (ole.control::Flags :missing)
                                 (ole.control::TargetFrameName
                                  :missing)
                                 (ole.control::PostData :missing)
                                 (ole.control::Headers :missing))
         (ole.control::IWebBrowser2.Navigate2 ole::this.object
                                              ole.control::URL
           :Flags ole.control::Flags
           :TargetFrameName ole.control::TargetFrameName
           :PostData ole.control::PostData
           :Headers ole.control::Headers))
       (defmethod msx:QueryStatusWB ((ole::this.object
                                      msx:InternetExplorer)
                                     ole.control::cmdID)
         (ole.control::IWebBrowser2.QueryStatusWB ole::this.object
           ole.control::cmdID))
       (defmethod msx:ExecWB ((ole::this.object msx:InternetExplorer)
                              ole.control::cmdID
                              ole.control::cmdexecopt &key
                              (ole.control::pvaIn :missing)
                              (ole.control::pvaOut :missing))
         (ole.control::IWebBrowser2.ExecWB ole::this.object
                                           ole.control::cmdID
                                           ole.control::cmdexecopt
           :pvaIn ole.control::pvaIn
           :pvaOut ole.control::pvaOut))
       (defmethod msx:ShowBrowserBar ((ole::this.object
                                       msx:InternetExplorer)
                                      ole.control::pvaClsid
                                      &key
                                      (ole.control::pvarShow :missing)
                                      (ole.control::pvarSize :missing))
         (ole.control::IWebBrowser2.ShowBrowserBar ole::this.object
                                                   ole.control::pvaClsid
           :pvarShow ole.control::pvarShow
           :pvarSize ole.control::pvarSize))
       (defmethod msx:ReadyState ((ole::this.object
                                   msx:InternetExplorer))
         (ole.control::IWebBrowser2.ReadyState ole::this.object))
       (defmethod (setf msx:Offline) (ole::set.value
                                      (ole::this.object
                                       msx:InternetExplorer))
         (setf (ole.control::IWebBrowser2.Offline ole::this.object)
               ole::set.value))
       (defmethod msx:Offline ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser2.Offline ole::this.object))
       (defmethod (setf msx:Silent) (ole::set.value
                                     (ole::this.object
                                      msx:InternetExplorer))
         (setf (ole.control::IWebBrowser2.Silent ole::this.object)
               ole::set.value))
       (defmethod msx:Silent ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser2.Silent ole::this.object))
       (defmethod (setf msx:RegisterAsBrowser) (ole::set.value
                                                (ole::this.object
                                                 msx:InternetExplorer))
         (setf (ole.control::IWebBrowser2.RegisterAsBrowser
                 ole::this.object)
               ole::set.value))
       (defmethod msx:RegisterAsBrowser ((ole::this.object
                                          msx:InternetExplorer))
         (ole.control::IWebBrowser2.RegisterAsBrowser
           ole::this.object))
       (defmethod (setf msx:RegisterAsDropTarget) (ole::set.value
                                                   (ole::this.object
                                                    msx:InternetExplorer))
         (setf (ole.control::IWebBrowser2.RegisterAsDropTarget
                 ole::this.object)
               ole::set.value))
       (defmethod msx:RegisterAsDropTarget ((ole::this.object
                                             msx:InternetExplorer))
         (ole.control::IWebBrowser2.RegisterAsDropTarget
           ole::this.object))
       (defmethod (setf msx:TheaterMode) (ole::set.value
                                          (ole::this.object
                                           msx:InternetExplorer))
         (setf (ole.control::IWebBrowser2.TheaterMode ole::this.object)
               ole::set.value))
       (defmethod msx:TheaterMode ((ole::this.object
                                    msx:InternetExplorer))
         (ole.control::IWebBrowser2.TheaterMode ole::this.object))
       (defmethod (setf msx:AddressBar) (ole::set.value
                                         (ole::this.object
                                          msx:InternetExplorer))
         (setf (ole.control::IWebBrowser2.AddressBar ole::this.object)
               ole::set.value))
       (defmethod msx:AddressBar ((ole::this.object
                                   msx:InternetExplorer))
         (ole.control::IWebBrowser2.AddressBar ole::this.object))
       (defmethod (setf msx:Resizable) (ole::set.value
                                        (ole::this.object
                                         msx:InternetExplorer))
         (setf (ole.control::IWebBrowser2.Resizable ole::this.object)
               ole::set.value))
       (defmethod msx:Resizable ((ole::this.object
                                  msx:InternetExplorer))
         (ole.control::IWebBrowser2.Resizable ole::this.object))
       (defmethod msx:Quit ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowserApp.Quit ole::this.object))
       (defmethod msx:ClientToWindow ((ole::this.object
                                       msx:InternetExplorer)
                                      ole.control::pcx
                                      ole.control::pcy)
         (ole.control::IWebBrowserApp.ClientToWindow ole::this.object
           ole.control::pcx ole.control::pcy))
       (defmethod msx:PutProperty ((ole::this.object
                                    msx:InternetExplorer)
                                   &rest
                                   ole::other.args)
         (apply 'ole.control::IWebBrowserApp.PutProperty
                ole::this.object ole::other.args))
       (defmethod msx:GetProperty ((ole::this.object
                                    msx:InternetExplorer)
                                   &rest
                                   ole::other.args)
         (apply 'ole.control::IWebBrowserApp.GetProperty
                ole::this.object ole::other.args))
       (defmethod msx:Name ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowserApp.Name ole::this.object))
       (defmethod msx:HWND ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowserApp.HWND ole::this.object))
       (defmethod msx:FullName ((ole::this.object
                                 msx:InternetExplorer))
         (ole.control::IWebBrowserApp.FullName ole::this.object))
       (defmethod msx:Path ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowserApp.Path ole::this.object))
       (defmethod (setf msx:Visible) (ole::set.value
                                      (ole::this.object
                                       msx:InternetExplorer))
         (setf (ole.control::IWebBrowserApp.Visible ole::this.object)
               ole::set.value))
       (defmethod msx:Visible ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowserApp.Visible ole::this.object))
       (defmethod (setf msx:StatusBar) (ole::set.value
                                        (ole::this.object
                                         msx:InternetExplorer))
         (setf (ole.control::IWebBrowserApp.StatusBar ole::this.object)
               ole::set.value))
       (defmethod msx:StatusBar ((ole::this.object
                                  msx:InternetExplorer))
         (ole.control::IWebBrowserApp.StatusBar ole::this.object))
       (defmethod (setf msx:StatusText) (ole::set.value
                                         (ole::this.object
                                          msx:InternetExplorer))
         (setf (ole.control::IWebBrowserApp.StatusText
                 ole::this.object)
               ole::set.value))
       (defmethod msx:StatusText ((ole::this.object
                                   msx:InternetExplorer))
         (ole.control::IWebBrowserApp.StatusText ole::this.object))
       (defmethod (setf msx:ToolBar) (ole::set.value
                                      (ole::this.object
                                       msx:InternetExplorer))
         (setf (ole.control::IWebBrowserApp.ToolBar ole::this.object)
               ole::set.value))
       (defmethod msx:ToolBar ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowserApp.ToolBar ole::this.object))
       (defmethod (setf msx:MenuBar) (ole::set.value
                                      (ole::this.object
                                       msx:InternetExplorer))
         (setf (ole.control::IWebBrowserApp.MenuBar ole::this.object)
               ole::set.value))
       (defmethod msx:MenuBar ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowserApp.MenuBar ole::this.object))
       (defmethod (setf msx:FullScreen) (ole::set.value
                                         (ole::this.object
                                          msx:InternetExplorer))
         (setf (ole.control::IWebBrowserApp.FullScreen
                 ole::this.object)
               ole::set.value))
       (defmethod msx:FullScreen ((ole::this.object
                                   msx:InternetExplorer))
         (ole.control::IWebBrowserApp.FullScreen ole::this.object))
       (defmethod msx:GoBack ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.GoBack ole::this.object))
       (defmethod msx:GoForward ((ole::this.object
                                  msx:InternetExplorer))
         (ole.control::IWebBrowser.GoForward ole::this.object))
       (defmethod msx:GoHome ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.GoHome ole::this.object))
       (defmethod msx:GoSearch ((ole::this.object
                                 msx:InternetExplorer))
         (ole.control::IWebBrowser.GoSearch ole::this.object))
       (defmethod msx:Navigate ((ole::this.object msx:InternetExplorer)
                                ole.control::URL
                                &key
                                (ole.control::Flags :missing)
                                (ole.control::TargetFrameName :missing)
                                (ole.control::PostData :missing)
                                (ole.control::Headers :missing))
         (ole.control::IWebBrowser.Navigate ole::this.object
                                            ole.control::URL
           :Flags ole.control::Flags
           :TargetFrameName ole.control::TargetFrameName
           :PostData ole.control::PostData
           :Headers ole.control::Headers))
       (defmethod msx:Refresh ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.Refresh ole::this.object))
       (defmethod msx:Refresh2 ((ole::this.object msx:InternetExplorer)
                                &key
                                (ole.control::Level :missing))
         (ole.control::IWebBrowser.Refresh2 ole::this.object
           :Level ole.control::Level))
       (defmethod msx:Stop ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.Stop ole::this.object))
       (defmethod msx:Application ((ole::this.object
                                    msx:InternetExplorer))
         (ole.control::IWebBrowser.Application ole::this.object))
       (defmethod msx:Parent ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.Parent ole::this.object))
       (defmethod msx:Container ((ole::this.object
                                  msx:InternetExplorer))
         (ole.control::IWebBrowser.Container ole::this.object))
       (defmethod msx:Document ((ole::this.object
                                 msx:InternetExplorer))
         (ole.control::IWebBrowser.Document ole::this.object))
       (defmethod msx:TopLevelContainer ((ole::this.object
                                          msx:InternetExplorer))
         (ole.control::IWebBrowser.TopLevelContainer ole::this.object))
       (defmethod msx:Type ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.Type ole::this.object))
       (defmethod (setf msx:Left) (ole::set.value
                                   (ole::this.object
                                    msx:InternetExplorer))
         (setf (ole.control::IWebBrowser.Left ole::this.object)
               ole::set.value))
       (defmethod msx:Left ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.Left ole::this.object))
       (defmethod (setf msx:Top) (ole::set.value
                                  (ole::this.object
                                   msx:InternetExplorer))
         (setf (ole.control::IWebBrowser.Top ole::this.object)
               ole::set.value))
       (defmethod msx:Top ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.Top ole::this.object))
       (defmethod (setf msx:Width) (ole::set.value
                                    (ole::this.object
                                     msx:InternetExplorer))
         (setf (ole.control::IWebBrowser.Width ole::this.object)
               ole::set.value))
       (defmethod msx:Width ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.Width ole::this.object))
       (defmethod (setf msx:Height) (ole::set.value
                                     (ole::this.object
                                      msx:InternetExplorer))
         (setf (ole.control::IWebBrowser.Height ole::this.object)
               ole::set.value))
       (defmethod msx:Height ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.Height ole::this.object))
       (defmethod msx:LocationName ((ole::this.object
                                     msx:InternetExplorer))
         (ole.control::IWebBrowser.LocationName ole::this.object))
       (defmethod msx:LocationURL ((ole::this.object
                                    msx:InternetExplorer))
         (ole.control::IWebBrowser.LocationURL ole::this.object))
       (defmethod msx:Busy ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.Busy ole::this.object))
       (defmethod msx:Quit ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowserApp.Quit ole::this.object))
       (defmethod msx:ClientToWindow ((ole::this.object
                                       msx:InternetExplorer)
                                      ole.control::pcx
                                      ole.control::pcy)
         (ole.control::IWebBrowserApp.ClientToWindow ole::this.object
           ole.control::pcx ole.control::pcy))
       (defmethod msx:PutProperty ((ole::this.object
                                    msx:InternetExplorer)
                                   &rest
                                   ole::other.args)
         (apply 'ole.control::IWebBrowserApp.PutProperty
                ole::this.object ole::other.args))
       (defmethod msx:GetProperty ((ole::this.object
                                    msx:InternetExplorer)
                                   &rest
                                   ole::other.args)
         (apply 'ole.control::IWebBrowserApp.GetProperty
                ole::this.object ole::other.args))
       (defmethod msx:Name ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowserApp.Name ole::this.object))
       (defmethod msx:HWND ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowserApp.HWND ole::this.object))
       (defmethod msx:FullName ((ole::this.object
                                 msx:InternetExplorer))
         (ole.control::IWebBrowserApp.FullName ole::this.object))
       (defmethod msx:Path ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowserApp.Path ole::this.object))
       (defmethod (setf msx:Visible) (ole::set.value
                                      (ole::this.object
                                       msx:InternetExplorer))
         (setf (ole.control::IWebBrowserApp.Visible ole::this.object)
               ole::set.value))
       (defmethod msx:Visible ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowserApp.Visible ole::this.object))
       (defmethod (setf msx:StatusBar) (ole::set.value
                                        (ole::this.object
                                         msx:InternetExplorer))
         (setf (ole.control::IWebBrowserApp.StatusBar ole::this.object)
               ole::set.value))
       (defmethod msx:StatusBar ((ole::this.object
                                  msx:InternetExplorer))
         (ole.control::IWebBrowserApp.StatusBar ole::this.object))
       (defmethod (setf msx:StatusText) (ole::set.value
                                         (ole::this.object
                                          msx:InternetExplorer))
         (setf (ole.control::IWebBrowserApp.StatusText
                 ole::this.object)
               ole::set.value))
       (defmethod msx:StatusText ((ole::this.object
                                   msx:InternetExplorer))
         (ole.control::IWebBrowserApp.StatusText ole::this.object))
       (defmethod (setf msx:ToolBar) (ole::set.value
                                      (ole::this.object
                                       msx:InternetExplorer))
         (setf (ole.control::IWebBrowserApp.ToolBar ole::this.object)
               ole::set.value))
       (defmethod msx:ToolBar ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowserApp.ToolBar ole::this.object))
       (defmethod (setf msx:MenuBar) (ole::set.value
                                      (ole::this.object
                                       msx:InternetExplorer))
         (setf (ole.control::IWebBrowserApp.MenuBar ole::this.object)
               ole::set.value))
       (defmethod msx:MenuBar ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowserApp.MenuBar ole::this.object))
       (defmethod (setf msx:FullScreen) (ole::set.value
                                         (ole::this.object
                                          msx:InternetExplorer))
         (setf (ole.control::IWebBrowserApp.FullScreen
                 ole::this.object)
               ole::set.value))
       (defmethod msx:FullScreen ((ole::this.object
                                   msx:InternetExplorer))
         (ole.control::IWebBrowserApp.FullScreen ole::this.object))
       (defmethod msx:GoBack ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.GoBack ole::this.object))
       (defmethod msx:GoForward ((ole::this.object
                                  msx:InternetExplorer))
         (ole.control::IWebBrowser.GoForward ole::this.object))
       (defmethod msx:GoHome ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.GoHome ole::this.object))
       (defmethod msx:GoSearch ((ole::this.object
                                 msx:InternetExplorer))
         (ole.control::IWebBrowser.GoSearch ole::this.object))
       (defmethod msx:Navigate ((ole::this.object msx:InternetExplorer)
                                ole.control::URL
                                &key
                                (ole.control::Flags :missing)
                                (ole.control::TargetFrameName :missing)
                                (ole.control::PostData :missing)
                                (ole.control::Headers :missing))
         (ole.control::IWebBrowser.Navigate ole::this.object
                                            ole.control::URL
           :Flags ole.control::Flags
           :TargetFrameName ole.control::TargetFrameName
           :PostData ole.control::PostData
           :Headers ole.control::Headers))
       (defmethod msx:Refresh ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.Refresh ole::this.object))
       (defmethod msx:Refresh2 ((ole::this.object msx:InternetExplorer)
                                &key
                                (ole.control::Level :missing))
         (ole.control::IWebBrowser.Refresh2 ole::this.object
           :Level ole.control::Level))
       (defmethod msx:Stop ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.Stop ole::this.object))
       (defmethod msx:Application ((ole::this.object
                                    msx:InternetExplorer))
         (ole.control::IWebBrowser.Application ole::this.object))
       (defmethod msx:Parent ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.Parent ole::this.object))
       (defmethod msx:Container ((ole::this.object
                                  msx:InternetExplorer))
         (ole.control::IWebBrowser.Container ole::this.object))
       (defmethod msx:Document ((ole::this.object
                                 msx:InternetExplorer))
         (ole.control::IWebBrowser.Document ole::this.object))
       (defmethod msx:TopLevelContainer ((ole::this.object
                                          msx:InternetExplorer))
         (ole.control::IWebBrowser.TopLevelContainer ole::this.object))
       (defmethod msx:Type ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.Type ole::this.object))
       (defmethod (setf msx:Left) (ole::set.value
                                   (ole::this.object
                                    msx:InternetExplorer))
         (setf (ole.control::IWebBrowser.Left ole::this.object)
               ole::set.value))
       (defmethod msx:Left ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.Left ole::this.object))
       (defmethod (setf msx:Top) (ole::set.value
                                  (ole::this.object
                                   msx:InternetExplorer))
         (setf (ole.control::IWebBrowser.Top ole::this.object)
               ole::set.value))
       (defmethod msx:Top ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.Top ole::this.object))
       (defmethod (setf msx:Width) (ole::set.value
                                    (ole::this.object
                                     msx:InternetExplorer))
         (setf (ole.control::IWebBrowser.Width ole::this.object)
               ole::set.value))
       (defmethod msx:Width ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.Width ole::this.object))
       (defmethod (setf msx:Height) (ole::set.value
                                     (ole::this.object
                                      msx:InternetExplorer))
         (setf (ole.control::IWebBrowser.Height ole::this.object)
               ole::set.value))
       (defmethod msx:Height ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.Height ole::this.object))
       (defmethod msx:LocationName ((ole::this.object
                                     msx:InternetExplorer))
         (ole.control::IWebBrowser.LocationName ole::this.object))
       (defmethod msx:LocationURL ((ole::this.object
                                    msx:InternetExplorer))
         (ole.control::IWebBrowser.LocationURL ole::this.object))
       (defmethod msx:Busy ((ole::this.object msx:InternetExplorer))
         (ole.control::IWebBrowser.Busy ole::this.object))
       (ole::def-control-class msx:WebBrowser :uuid
         "{8856f961-340a-11d0-a96b-00c04fd705a2}" :default-interface
         ole.control:IWebBrowser2 :interfaces
         ((ole.control:IWebBrowser2
            "{d30c1661-cdaf-11d0-8a3e-00c04fc9e26e}"
            ole.control::i.IWebBrowser2)
          (ole.control:IWebBrowser
            "{eab22ac1-30c1-11cf-a7eb-0000c05bae0b}"
            ole.control::i.IWebBrowser))
         :default-event-interface ole.control:DWebBrowserEvents2
         :event-interfaces
         ((ole.control:DWebBrowserEvents
           ole.control::channel-DWebBrowserEvents)
          (ole.control:DWebBrowserEvents2
           ole.control::channel-DWebBrowserEvents2)))
       (defmethod msx:Navigate2 ((ole::this.object msx:WebBrowser)
                                 ole.control::URL
                                 &key
                                 (ole.control::Flags :missing)
                                 (ole.control::TargetFrameName
                                  :missing)
                                 (ole.control::PostData :missing)
                                 (ole.control::Headers :missing))
         (ole.control::IWebBrowser2.Navigate2 ole::this.object
                                              ole.control::URL
           :Flags ole.control::Flags
           :TargetFrameName ole.control::TargetFrameName
           :PostData ole.control::PostData
           :Headers ole.control::Headers))
       (defmethod msx:QueryStatusWB ((ole::this.object msx:WebBrowser)
                                     ole.control::cmdID)
         (ole.control::IWebBrowser2.QueryStatusWB ole::this.object
           ole.control::cmdID))
       (defmethod msx:ExecWB ((ole::this.object msx:WebBrowser)
                              ole.control::cmdID
                              ole.control::cmdexecopt &key
                              (ole.control::pvaIn :missing)
                              (ole.control::pvaOut :missing))
         (ole.control::IWebBrowser2.ExecWB ole::this.object
                                           ole.control::cmdID
                                           ole.control::cmdexecopt
           :pvaIn ole.control::pvaIn
           :pvaOut ole.control::pvaOut))
       (defmethod msx:ShowBrowserBar ((ole::this.object msx:WebBrowser)
                                      ole.control::pvaClsid
                                      &key
                                      (ole.control::pvarShow :missing)
                                      (ole.control::pvarSize :missing))
         (ole.control::IWebBrowser2.ShowBrowserBar ole::this.object
                                                   ole.control::pvaClsid
           :pvarShow ole.control::pvarShow
           :pvarSize ole.control::pvarSize))
       (defmethod msx:ReadyState ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser2.ReadyState ole::this.object))
       (defmethod (setf msx:Offline) (ole::set.value
                                      (ole::this.object
                                       msx:WebBrowser))
         (setf (ole.control::IWebBrowser2.Offline ole::this.object)
               ole::set.value))
       (defmethod msx:Offline ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser2.Offline ole::this.object))
       (defmethod (setf msx:Silent) (ole::set.value
                                     (ole::this.object msx:WebBrowser))
         (setf (ole.control::IWebBrowser2.Silent ole::this.object)
               ole::set.value))
       (defmethod msx:Silent ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser2.Silent ole::this.object))
       (defmethod (setf msx:RegisterAsBrowser) (ole::set.value
                                                (ole::this.object
                                                 msx:WebBrowser))
         (setf (ole.control::IWebBrowser2.RegisterAsBrowser
                 ole::this.object)
               ole::set.value))
       (defmethod msx:RegisterAsBrowser ((ole::this.object
                                          msx:WebBrowser))
         (ole.control::IWebBrowser2.RegisterAsBrowser
           ole::this.object))
       (defmethod (setf msx:RegisterAsDropTarget) (ole::set.value
                                                   (ole::this.object
                                                    msx:WebBrowser))
         (setf (ole.control::IWebBrowser2.RegisterAsDropTarget
                 ole::this.object)
               ole::set.value))
       (defmethod msx:RegisterAsDropTarget ((ole::this.object
                                             msx:WebBrowser))
         (ole.control::IWebBrowser2.RegisterAsDropTarget
           ole::this.object))
       (defmethod (setf msx:TheaterMode) (ole::set.value
                                          (ole::this.object
                                           msx:WebBrowser))
         (setf (ole.control::IWebBrowser2.TheaterMode ole::this.object)
               ole::set.value))
       (defmethod msx:TheaterMode ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser2.TheaterMode ole::this.object))
       (defmethod (setf msx:AddressBar) (ole::set.value
                                         (ole::this.object
                                          msx:WebBrowser))
         (setf (ole.control::IWebBrowser2.AddressBar ole::this.object)
               ole::set.value))
       (defmethod msx:AddressBar ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser2.AddressBar ole::this.object))
       (defmethod (setf msx:Resizable) (ole::set.value
                                        (ole::this.object
                                         msx:WebBrowser))
         (setf (ole.control::IWebBrowser2.Resizable ole::this.object)
               ole::set.value))
       (defmethod msx:Resizable ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser2.Resizable ole::this.object))
       (defmethod msx:Quit ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowserApp.Quit ole::this.object))
       (defmethod msx:ClientToWindow ((ole::this.object msx:WebBrowser)
                                      ole.control::pcx
                                      ole.control::pcy)
         (ole.control::IWebBrowserApp.ClientToWindow ole::this.object
           ole.control::pcx ole.control::pcy))
       (defmethod msx:PutProperty ((ole::this.object msx:WebBrowser)
                                   &rest
                                   ole::other.args)
         (apply 'ole.control::IWebBrowserApp.PutProperty
                ole::this.object ole::other.args))
       (defmethod msx:GetProperty ((ole::this.object msx:WebBrowser)
                                   &rest
                                   ole::other.args)
         (apply 'ole.control::IWebBrowserApp.GetProperty
                ole::this.object ole::other.args))
       (defmethod msx:Name ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowserApp.Name ole::this.object))
       (defmethod msx:HWND ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowserApp.HWND ole::this.object))
       (defmethod msx:FullName ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowserApp.FullName ole::this.object))
       (defmethod msx:Path ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowserApp.Path ole::this.object))
       (defmethod (setf msx:Visible) (ole::set.value
                                      (ole::this.object
                                       msx:WebBrowser))
         (setf (ole.control::IWebBrowserApp.Visible ole::this.object)
               ole::set.value))
       (defmethod msx:Visible ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowserApp.Visible ole::this.object))
       (defmethod (setf msx:StatusBar) (ole::set.value
                                        (ole::this.object
                                         msx:WebBrowser))
         (setf (ole.control::IWebBrowserApp.StatusBar ole::this.object)
               ole::set.value))
       (defmethod msx:StatusBar ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowserApp.StatusBar ole::this.object))
       (defmethod (setf msx:StatusText) (ole::set.value
                                         (ole::this.object
                                          msx:WebBrowser))
         (setf (ole.control::IWebBrowserApp.StatusText
                 ole::this.object)
               ole::set.value))
       (defmethod msx:StatusText ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowserApp.StatusText ole::this.object))
       (defmethod (setf msx:ToolBar) (ole::set.value
                                      (ole::this.object
                                       msx:WebBrowser))
         (setf (ole.control::IWebBrowserApp.ToolBar ole::this.object)
               ole::set.value))
       (defmethod msx:ToolBar ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowserApp.ToolBar ole::this.object))
       (defmethod (setf msx:MenuBar) (ole::set.value
                                      (ole::this.object
                                       msx:WebBrowser))
         (setf (ole.control::IWebBrowserApp.MenuBar ole::this.object)
               ole::set.value))
       (defmethod msx:MenuBar ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowserApp.MenuBar ole::this.object))
       (defmethod (setf msx:FullScreen) (ole::set.value
                                         (ole::this.object
                                          msx:WebBrowser))
         (setf (ole.control::IWebBrowserApp.FullScreen
                 ole::this.object)
               ole::set.value))
       (defmethod msx:FullScreen ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowserApp.FullScreen ole::this.object))
       (defmethod msx:GoBack ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.GoBack ole::this.object))
       (defmethod msx:GoForward ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.GoForward ole::this.object))
       (defmethod msx:GoHome ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.GoHome ole::this.object))
       (defmethod msx:GoSearch ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.GoSearch ole::this.object))
       (defmethod msx:Navigate ((ole::this.object msx:WebBrowser)
                                ole.control::URL
                                &key
                                (ole.control::Flags :missing)
                                (ole.control::TargetFrameName :missing)
                                (ole.control::PostData :missing)
                                (ole.control::Headers :missing))
         (ole.control::IWebBrowser.Navigate ole::this.object
                                            ole.control::URL
           :Flags ole.control::Flags
           :TargetFrameName ole.control::TargetFrameName
           :PostData ole.control::PostData
           :Headers ole.control::Headers))
       (defmethod msx:Refresh ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Refresh ole::this.object))
       (defmethod msx:Refresh2 ((ole::this.object msx:WebBrowser)
                                &key
                                (ole.control::Level :missing))
         (ole.control::IWebBrowser.Refresh2 ole::this.object
           :Level ole.control::Level))
       (defmethod msx:Stop ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Stop ole::this.object))
       (defmethod msx:Application ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Application ole::this.object))
       (defmethod msx:Parent ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Parent ole::this.object))
       (defmethod msx:Container ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Container ole::this.object))
       (defmethod msx:Document ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Document ole::this.object))
       (defmethod msx:TopLevelContainer ((ole::this.object
                                          msx:WebBrowser))
         (ole.control::IWebBrowser.TopLevelContainer ole::this.object))
       (defmethod msx:Type ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Type ole::this.object))
       (defmethod (setf msx:Left) (ole::set.value
                                   (ole::this.object msx:WebBrowser))
         (setf (ole.control::IWebBrowser.Left ole::this.object)
               ole::set.value))
       (defmethod msx:Left ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Left ole::this.object))
       (defmethod (setf msx:Top) (ole::set.value
                                  (ole::this.object msx:WebBrowser))
         (setf (ole.control::IWebBrowser.Top ole::this.object)
               ole::set.value))
       (defmethod msx:Top ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Top ole::this.object))
       (defmethod (setf msx:Width) (ole::set.value
                                    (ole::this.object msx:WebBrowser))
         (setf (ole.control::IWebBrowser.Width ole::this.object)
               ole::set.value))
       (defmethod msx:Width ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Width ole::this.object))
       (defmethod (setf msx:Height) (ole::set.value
                                     (ole::this.object msx:WebBrowser))
         (setf (ole.control::IWebBrowser.Height ole::this.object)
               ole::set.value))
       (defmethod msx:Height ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Height ole::this.object))
       (defmethod msx:LocationName ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.LocationName ole::this.object))
       (defmethod msx:LocationURL ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.LocationURL ole::this.object))
       (defmethod msx:Busy ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Busy ole::this.object))
       (defmethod msx:GoBack ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.GoBack ole::this.object))
       (defmethod msx:GoForward ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.GoForward ole::this.object))
       (defmethod msx:GoHome ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.GoHome ole::this.object))
       (defmethod msx:GoSearch ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.GoSearch ole::this.object))
       (defmethod msx:Navigate ((ole::this.object msx:WebBrowser)
                                ole.control::URL
                                &key
                                (ole.control::Flags :missing)
                                (ole.control::TargetFrameName :missing)
                                (ole.control::PostData :missing)
                                (ole.control::Headers :missing))
         (ole.control::IWebBrowser.Navigate ole::this.object
                                            ole.control::URL
           :Flags ole.control::Flags
           :TargetFrameName ole.control::TargetFrameName
           :PostData ole.control::PostData
           :Headers ole.control::Headers))
       (defmethod msx:Refresh ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Refresh ole::this.object))
       (defmethod msx:Refresh2 ((ole::this.object msx:WebBrowser)
                                &key
                                (ole.control::Level :missing))
         (ole.control::IWebBrowser.Refresh2 ole::this.object
           :Level ole.control::Level))
       (defmethod msx:Stop ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Stop ole::this.object))
       (defmethod msx:Application ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Application ole::this.object))
       (defmethod msx:Parent ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Parent ole::this.object))
       (defmethod msx:Container ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Container ole::this.object))
       (defmethod msx:Document ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Document ole::this.object))
       (defmethod msx:TopLevelContainer ((ole::this.object
                                          msx:WebBrowser))
         (ole.control::IWebBrowser.TopLevelContainer ole::this.object))
       (defmethod msx:Type ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Type ole::this.object))
       (defmethod (setf msx:Left) (ole::set.value
                                   (ole::this.object msx:WebBrowser))
         (setf (ole.control::IWebBrowser.Left ole::this.object)
               ole::set.value))
       (defmethod msx:Left ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Left ole::this.object))
       (defmethod (setf msx:Top) (ole::set.value
                                  (ole::this.object msx:WebBrowser))
         (setf (ole.control::IWebBrowser.Top ole::this.object)
               ole::set.value))
       (defmethod msx:Top ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Top ole::this.object))
       (defmethod (setf msx:Width) (ole::set.value
                                    (ole::this.object msx:WebBrowser))
         (setf (ole.control::IWebBrowser.Width ole::this.object)
               ole::set.value))
       (defmethod msx:Width ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Width ole::this.object))
       (defmethod (setf msx:Height) (ole::set.value
                                     (ole::this.object msx:WebBrowser))
         (setf (ole.control::IWebBrowser.Height ole::this.object)
               ole::set.value))
       (defmethod msx:Height ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Height ole::this.object))
       (defmethod msx:LocationName ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.LocationName ole::this.object))
       (defmethod msx:LocationURL ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.LocationURL ole::this.object))
       (defmethod msx:Busy ((ole::this.object msx:WebBrowser))
         (ole.control::IWebBrowser.Busy ole::this.object))
       (ole::def-control-class msx:WebBrowser_V1 :uuid
         "{eab22ac3-30c1-11cf-a7eb-0000c05bae0b}" :default-interface
         ole.control:IWebBrowser2 :interfaces
         ((ole.control:IWebBrowser2
            "{d30c1661-cdaf-11d0-8a3e-00c04fc9e26e}"
            ole.control::i.IWebBrowser2)
          (ole.control:IWebBrowser
            "{eab22ac1-30c1-11cf-a7eb-0000c05bae0b}"
            ole.control::i.IWebBrowser))
         :default-event-interface ole.control:DWebBrowserEvents2
         :event-interfaces
         ((ole.control:DWebBrowserEvents
           ole.control::channel-DWebBrowserEvents)
          (ole.control:DWebBrowserEvents2
           ole.control::channel-DWebBrowserEvents2)))
       (defmethod msx:Navigate2 ((ole::this.object msx:WebBrowser_V1)
                                 ole.control::URL
                                 &key
                                 (ole.control::Flags :missing)
                                 (ole.control::TargetFrameName
                                  :missing)
                                 (ole.control::PostData :missing)
                                 (ole.control::Headers :missing))
         (ole.control::IWebBrowser2.Navigate2 ole::this.object
                                              ole.control::URL
           :Flags ole.control::Flags
           :TargetFrameName ole.control::TargetFrameName
           :PostData ole.control::PostData
           :Headers ole.control::Headers))
       (defmethod msx:QueryStatusWB ((ole::this.object
                                      msx:WebBrowser_V1)
                                     ole.control::cmdID)
         (ole.control::IWebBrowser2.QueryStatusWB ole::this.object
           ole.control::cmdID))
       (defmethod msx:ExecWB ((ole::this.object msx:WebBrowser_V1)
                              ole.control::cmdID
                              ole.control::cmdexecopt &key
                              (ole.control::pvaIn :missing)
                              (ole.control::pvaOut :missing))
         (ole.control::IWebBrowser2.ExecWB ole::this.object
                                           ole.control::cmdID
                                           ole.control::cmdexecopt
           :pvaIn ole.control::pvaIn
           :pvaOut ole.control::pvaOut))
       (defmethod msx:ShowBrowserBar ((ole::this.object
                                       msx:WebBrowser_V1)
                                      ole.control::pvaClsid
                                      &key
                                      (ole.control::pvarShow :missing)
                                      (ole.control::pvarSize :missing))
         (ole.control::IWebBrowser2.ShowBrowserBar ole::this.object
                                                   ole.control::pvaClsid
           :pvarShow ole.control::pvarShow
           :pvarSize ole.control::pvarSize))
       (defmethod msx:ReadyState ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser2.ReadyState ole::this.object))
       (defmethod (setf msx:Offline) (ole::set.value
                                      (ole::this.object
                                       msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowser2.Offline ole::this.object)
               ole::set.value))
       (defmethod msx:Offline ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser2.Offline ole::this.object))
       (defmethod (setf msx:Silent) (ole::set.value
                                     (ole::this.object
                                      msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowser2.Silent ole::this.object)
               ole::set.value))
       (defmethod msx:Silent ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser2.Silent ole::this.object))
       (defmethod (setf msx:RegisterAsBrowser) (ole::set.value
                                                (ole::this.object
                                                 msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowser2.RegisterAsBrowser
                 ole::this.object)
               ole::set.value))
       (defmethod msx:RegisterAsBrowser ((ole::this.object
                                          msx:WebBrowser_V1))
         (ole.control::IWebBrowser2.RegisterAsBrowser
           ole::this.object))
       (defmethod (setf msx:RegisterAsDropTarget) (ole::set.value
                                                   (ole::this.object
                                                    msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowser2.RegisterAsDropTarget
                 ole::this.object)
               ole::set.value))
       (defmethod msx:RegisterAsDropTarget ((ole::this.object
                                             msx:WebBrowser_V1))
         (ole.control::IWebBrowser2.RegisterAsDropTarget
           ole::this.object))
       (defmethod (setf msx:TheaterMode) (ole::set.value
                                          (ole::this.object
                                           msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowser2.TheaterMode ole::this.object)
               ole::set.value))
       (defmethod msx:TheaterMode ((ole::this.object
                                    msx:WebBrowser_V1))
         (ole.control::IWebBrowser2.TheaterMode ole::this.object))
       (defmethod (setf msx:AddressBar) (ole::set.value
                                         (ole::this.object
                                          msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowser2.AddressBar ole::this.object)
               ole::set.value))
       (defmethod msx:AddressBar ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser2.AddressBar ole::this.object))
       (defmethod (setf msx:Resizable) (ole::set.value
                                        (ole::this.object
                                         msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowser2.Resizable ole::this.object)
               ole::set.value))
       (defmethod msx:Resizable ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser2.Resizable ole::this.object))
       (defmethod msx:Quit ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowserApp.Quit ole::this.object))
       (defmethod msx:ClientToWindow ((ole::this.object
                                       msx:WebBrowser_V1)
                                      ole.control::pcx
                                      ole.control::pcy)
         (ole.control::IWebBrowserApp.ClientToWindow ole::this.object
           ole.control::pcx ole.control::pcy))
       (defmethod msx:PutProperty ((ole::this.object msx:WebBrowser_V1)
                                   &rest
                                   ole::other.args)
         (apply 'ole.control::IWebBrowserApp.PutProperty
                ole::this.object ole::other.args))
       (defmethod msx:GetProperty ((ole::this.object msx:WebBrowser_V1)
                                   &rest
                                   ole::other.args)
         (apply 'ole.control::IWebBrowserApp.GetProperty
                ole::this.object ole::other.args))
       (defmethod msx:Name ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowserApp.Name ole::this.object))
       (defmethod msx:HWND ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowserApp.HWND ole::this.object))
       (defmethod msx:FullName ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowserApp.FullName ole::this.object))
       (defmethod msx:Path ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowserApp.Path ole::this.object))
       (defmethod (setf msx:Visible) (ole::set.value
                                      (ole::this.object
                                       msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowserApp.Visible ole::this.object)
               ole::set.value))
       (defmethod msx:Visible ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowserApp.Visible ole::this.object))
       (defmethod (setf msx:StatusBar) (ole::set.value
                                        (ole::this.object
                                         msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowserApp.StatusBar ole::this.object)
               ole::set.value))
       (defmethod msx:StatusBar ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowserApp.StatusBar ole::this.object))
       (defmethod (setf msx:StatusText) (ole::set.value
                                         (ole::this.object
                                          msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowserApp.StatusText
                 ole::this.object)
               ole::set.value))
       (defmethod msx:StatusText ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowserApp.StatusText ole::this.object))
       (defmethod (setf msx:ToolBar) (ole::set.value
                                      (ole::this.object
                                       msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowserApp.ToolBar ole::this.object)
               ole::set.value))
       (defmethod msx:ToolBar ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowserApp.ToolBar ole::this.object))
       (defmethod (setf msx:MenuBar) (ole::set.value
                                      (ole::this.object
                                       msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowserApp.MenuBar ole::this.object)
               ole::set.value))
       (defmethod msx:MenuBar ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowserApp.MenuBar ole::this.object))
       (defmethod (setf msx:FullScreen) (ole::set.value
                                         (ole::this.object
                                          msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowserApp.FullScreen
                 ole::this.object)
               ole::set.value))
       (defmethod msx:FullScreen ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowserApp.FullScreen ole::this.object))
       (defmethod msx:GoBack ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.GoBack ole::this.object))
       (defmethod msx:GoForward ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.GoForward ole::this.object))
       (defmethod msx:GoHome ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.GoHome ole::this.object))
       (defmethod msx:GoSearch ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.GoSearch ole::this.object))
       (defmethod msx:Navigate ((ole::this.object msx:WebBrowser_V1)
                                ole.control::URL
                                &key
                                (ole.control::Flags :missing)
                                (ole.control::TargetFrameName :missing)
                                (ole.control::PostData :missing)
                                (ole.control::Headers :missing))
         (ole.control::IWebBrowser.Navigate ole::this.object
                                            ole.control::URL
           :Flags ole.control::Flags
           :TargetFrameName ole.control::TargetFrameName
           :PostData ole.control::PostData
           :Headers ole.control::Headers))
       (defmethod msx:Refresh ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Refresh ole::this.object))
       (defmethod msx:Refresh2 ((ole::this.object msx:WebBrowser_V1)
                                &key
                                (ole.control::Level :missing))
         (ole.control::IWebBrowser.Refresh2 ole::this.object
           :Level ole.control::Level))
       (defmethod msx:Stop ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Stop ole::this.object))
       (defmethod msx:Application ((ole::this.object
                                    msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Application ole::this.object))
       (defmethod msx:Parent ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Parent ole::this.object))
       (defmethod msx:Container ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Container ole::this.object))
       (defmethod msx:Document ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Document ole::this.object))
       (defmethod msx:TopLevelContainer ((ole::this.object
                                          msx:WebBrowser_V1))
         (ole.control::IWebBrowser.TopLevelContainer ole::this.object))
       (defmethod msx:Type ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Type ole::this.object))
       (defmethod (setf msx:Left) (ole::set.value
                                   (ole::this.object
                                    msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowser.Left ole::this.object)
               ole::set.value))
       (defmethod msx:Left ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Left ole::this.object))
       (defmethod (setf msx:Top) (ole::set.value
                                  (ole::this.object msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowser.Top ole::this.object)
               ole::set.value))
       (defmethod msx:Top ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Top ole::this.object))
       (defmethod (setf msx:Width) (ole::set.value
                                    (ole::this.object
                                     msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowser.Width ole::this.object)
               ole::set.value))
       (defmethod msx:Width ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Width ole::this.object))
       (defmethod (setf msx:Height) (ole::set.value
                                     (ole::this.object
                                      msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowser.Height ole::this.object)
               ole::set.value))
       (defmethod msx:Height ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Height ole::this.object))
       (defmethod msx:LocationName ((ole::this.object
                                     msx:WebBrowser_V1))
         (ole.control::IWebBrowser.LocationName ole::this.object))
       (defmethod msx:LocationURL ((ole::this.object
                                    msx:WebBrowser_V1))
         (ole.control::IWebBrowser.LocationURL ole::this.object))
       (defmethod msx:Busy ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Busy ole::this.object))
       (defmethod msx:GoBack ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.GoBack ole::this.object))
       (defmethod msx:GoForward ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.GoForward ole::this.object))
       (defmethod msx:GoHome ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.GoHome ole::this.object))
       (defmethod msx:GoSearch ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.GoSearch ole::this.object))
       (defmethod msx:Navigate ((ole::this.object msx:WebBrowser_V1)
                                ole.control::URL
                                &key
                                (ole.control::Flags :missing)
                                (ole.control::TargetFrameName :missing)
                                (ole.control::PostData :missing)
                                (ole.control::Headers :missing))
         (ole.control::IWebBrowser.Navigate ole::this.object
                                            ole.control::URL
           :Flags ole.control::Flags
           :TargetFrameName ole.control::TargetFrameName
           :PostData ole.control::PostData
           :Headers ole.control::Headers))
       (defmethod msx:Refresh ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Refresh ole::this.object))
       (defmethod msx:Refresh2 ((ole::this.object msx:WebBrowser_V1)
                                &key
                                (ole.control::Level :missing))
         (ole.control::IWebBrowser.Refresh2 ole::this.object
           :Level ole.control::Level))
       (defmethod msx:Stop ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Stop ole::this.object))
       (defmethod msx:Application ((ole::this.object
                                    msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Application ole::this.object))
       (defmethod msx:Parent ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Parent ole::this.object))
       (defmethod msx:Container ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Container ole::this.object))
       (defmethod msx:Document ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Document ole::this.object))
       (defmethod msx:TopLevelContainer ((ole::this.object
                                          msx:WebBrowser_V1))
         (ole.control::IWebBrowser.TopLevelContainer ole::this.object))
       (defmethod msx:Type ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Type ole::this.object))
       (defmethod (setf msx:Left) (ole::set.value
                                   (ole::this.object
                                    msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowser.Left ole::this.object)
               ole::set.value))
       (defmethod msx:Left ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Left ole::this.object))
       (defmethod (setf msx:Top) (ole::set.value
                                  (ole::this.object msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowser.Top ole::this.object)
               ole::set.value))
       (defmethod msx:Top ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Top ole::this.object))
       (defmethod (setf msx:Width) (ole::set.value
                                    (ole::this.object
                                     msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowser.Width ole::this.object)
               ole::set.value))
       (defmethod msx:Width ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Width ole::this.object))
       (defmethod (setf msx:Height) (ole::set.value
                                     (ole::this.object
                                      msx:WebBrowser_V1))
         (setf (ole.control::IWebBrowser.Height ole::this.object)
               ole::set.value))
       (defmethod msx:Height ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Height ole::this.object))
       (defmethod msx:LocationName ((ole::this.object
                                     msx:WebBrowser_V1))
         (ole.control::IWebBrowser.LocationName ole::this.object))
       (defmethod msx:LocationURL ((ole::this.object
                                    msx:WebBrowser_V1))
         (ole.control::IWebBrowser.LocationURL ole::this.object))
       (defmethod msx:Busy ((ole::this.object msx:WebBrowser_V1))
         (ole.control::IWebBrowser.Busy ole::this.object))
       '"SHDocVw")
cl-user(11): (dribble)
Copyright © 2014 Franz Inc., All Rights Reserved | Privacy Statement
Delicious Google Buzz Twitter Google+