;;; Compilation of /home/juergen/lisp/mevalxp/system/keyboard-02.lisp, ;;; by juergen on LispWorks Personal Edition 4.4.6 at 2008/05/10 19:15:15. ;;; 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% keyboard-02lispB;TC LISPWORKS**TOP-LEVEL-FORM>>>E%= 'wF;%8v6u1Uth(7-2?BH CHECK-GENERATIONHCLET  DEFCONSTANTCOMMON-LISP-USER VK_L_CTRL VK_L_ALT @BVK_R_ALT@B VK_R_CTRLB VK_L_SHFT B VK_R_SHFT @BVK_CAPS BVK_ENTER BVK_TAB @BVK_BKSP BVK_ESC BVK_F1 @BVK_F2 BVK_F3 BVK_F4 BVK_F5 BVK_F6 BVK_F7 BVK_F8 BVK_F9?@BVK_F10 @BVK_F11 BVK_F12 B VK_INSERTBVK_HOMEBVK_PG_UP@B VK_DELETE@BVK_END@BVK_PG_DNB VK_U_ARROW@B VK_L_ARROWB VK_D_ARROWB VK_R_ARROW%PRINT>2B/>7SETQ*UNMODIF-TABLE*VECTOR?????????????> >^??????>q>1???>y>s>a>w>2??>c>x>d>e>4>3??> >v>f>t>r>5??>n>b>h>g>z>6???>m>j>u>7>8??>,>k>i>o>0>9??>.>->l?>p????????????> >+?>#???>?????????????????????????B *ALTGR-TABLE*B?????????????> ???????>Q>!???>Y>S>A>W>"??>C>X>D>E>$???> >V>F>T>R>%??>N>B>H>G>Z>&???>M>J>U>{>[??>;>K>I>O>}>]??>:>_>L?>P>\??????>`????> >~?>'???>|????????????????????>?????????????????????????B *SHFT-TABLE*B?????????????> ???????>Q>!???>Y>S>A>W>"??>C>X>D>E>$???> >V>F>T>R>%??>N>B>H>G>Z>&???>M>J>U>/>(??>;>K>I>O>=>)??>:>_>L?>P>???????>`????> >*?>'???>>????????????????????>?????????????????????????B>dDEFUN P-SHIFTL-8XP-SHIFTLB>B*E0*?B*F0*?B*SHFT*>B*CTRL*>B*ALT*>B*ALT-GR*>B *SETCODE*>B *SHFT-UP*>B *CTRL-UP*>B*ALT-UP*>B *ALT-GR-UP*>B *RESETCODE*>BSTATE= MODIF-STATE= NEW-CHAR-VAL=NEW-EVENT-READY-FLAG B6 CH-TO-INTCHADDR-ANDBB>?BPROCESS-KEY-EVENTBCOND%=B=BB BBBBBB>B BBBB>&PROGN AKT-CHAR-SR>=AKT-MODIFIER-SR>=BBB=B B>BBBBBB>&B>BBB>BBBB=B B>B B==BB==BBB=B B>B B=BBB=BBBB=BBSRBCBB>BB%+P-CONSTRB BB>B=IFBB=B%/=BBB=%SVREFBBBBBB=BBB & BB"?BBBBBBBB>BBADDR-IORBBBBBBBB>BBBBB>BBB>B >BORBB>BB>YBBBBB>BBBBB>BBB>B BBBBB BBBBBB>BBBB B>BBB>B>BB BB>BB>YBBBBB>BBBB B>BBB>BBNEW-EVENT-READY BEVBISETFB BBNEW-CHAR BB NEW-MODIFIER BB *CHAR-QUEUE*>pB *MODIF-QUEUE*?BPEEK-PT=B6 RESET-PEEK-PT B(BGET-WORD>d=BPEEK-CH BGET-PTBc INSERT-PTB>d>BBBB>BBKGET-BYTE *RAW-QUEUE*BBBNEXT-IB>B?BBBB SET-PEEK-PT  DISABLE-IRQSET-WORD>d=B- ENABLE-IRQBB7 BS GET-STATUS SET-STATUSBLB$>BB9 BBpBBBB>??EE%TRI%TRI%TRI%TRI%TRI%TRI%TRI%TRI%%%EUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUJQUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUURTUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUITRI%TRI%TRI%%%%ITIPI%A%B%Q%UR TJDTI*TUR% DTI*E%QITDeR)DeR)QRTEPIPIPIJQIT T TJ*ETTR)TR)ATR)B%B%RTTTIRI%A)ERDDRTJI*IRD*QRD*Q *KEYB02*&CB>>>E%= ; U BHLOAD-XREF-INFOL&;%8vuU%BH?C XREF-INFO(CALLSBTBSETSBBmake-safe-for-tail-call-397B >> EPRR*BCB>>>E%= X