;;; Compilation of /home/juergen/lisp/mevalxp/system/windows-02.lisp, ;;; by juergen on LispWorks Personal Edition 4.4.6 at 2008/05/10 19:15:16. ;;; Safety = 3, Speed = 1, Space = 1, Float = 1, Interruptible = 0 ;;; Compilation speed = 1, Debug = 2, Fixnum safety = 3 ;;; Source level debugging is on ;;; Source file recording is on ;;; Cross referencing is on A  U SYSTEM  MAKE-SAFE-FOR-TAIL-CALLHCOMPILERNOTE-START-OF-FILEL&;%8vuU%RUNTIMEBAD-ARGS-OR-STACKHB COMMON-LISPPATHNAMEKEYWORD UNSPECIFICBCABSOLUTEhomejuergenlispmevalxpsystem>>EU% windows-02lispB;TC LISPWORKS**TOP-LEVEL-FORM>>>E%= 'wF;%8v6u1Uth(7-2?BH CHECK-GENERATIONHCDEFUNCOMMON-LISP-USER UPDATE-GETPTGETPTSET-WORD>d=NEXT-I>BMAIN  MAIN-INITSETQ*I*= RESET-PEEK-PTDO-UNTIL LETCH>SETFB PEEK-CHIF%/=B>PROGNPROCESS-KEY-EVENTB SET-PEEK-PTBNEW-EVENT-READY MAIN-DISPATCHBB B *EDIT-WIN* MAKE-WINDOWINIT-WINB BTESTXY%+BBBBBB BNEW-CHARMODIF NEW-MODIFIEREV  PRINT-HEX?BB?BB?BBBB>B*INST0*GET-INFO=B%=ADDR-ANDB>=BVK-PBVK_F1B DISABLE-IRQCOLLECT-GARBAGE ENABLE-IRQ%PRINT?WBB>d?BB?BBBVK_F2BQPRINTSOUTvn.BB?BBBB?=BBBBB?B%>B>BB CONDBB VK_U_ARROWBBQUOTEUPBB VK_D_ARROWBBB'DOWNBB VK_L_ARROWBBB'LEFTBB VK_R_ARROWBBB'RIGHTBBVK_HOMEBBB'HOMEBBVK_ENDBBB'ENDBBVK_PG_UPBBB'PRIORBBVK_PG_DNBBB'NEXTBBVK_ENTERBB> BBVK_BKSPBB>BB VK_DELETEBB>&B BBBB>BBCALLBACK-EDIT-WINDOWB B BBB*INST1*B=B?VB%-BB DEFCONSTANT +UPPER-MASK+?BB'BMASKADDR-EQB?BB%BB?BP-SHIFTL>o>BBjuergenBBund vnB??EIERTDRD%QJ$JERJQR)EDJRI%EQDT&QI$IRR)QITRJDeED%JPIQ*TR B%EPIQ*TR B%EPIPIPIDJQ)EUJQJITTRJITJ% *WINDOWS02*&CB>>>E%=  U BHLOAD-XREF-INFOL&;%8vuU%BHC XREF-INFO(CALLSB#BSETSBBmake-safe-for-tail-call-397B >> EPRR*BCB>>>E%= '