Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv1703

Modified Files: keyboard.lisp Log Message: Avoid the named-integer cruft.

Date: Fri Dec 10 13:48:34 2004 Author: ffjeld

Index: movitz/losp/x86-pc/keyboard.lisp diff -u movitz/losp/x86-pc/keyboard.lisp:1.5 movitz/losp/x86-pc/keyboard.lisp:1.6 --- movitz/losp/x86-pc/keyboard.lisp:1.5 Thu Dec 9 00:40:24 2004 +++ movitz/losp/x86-pc/keyboard.lisp Fri Dec 10 13:48:34 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Mon Sep 24 16:04:12 2001 ;;;; -;;;; $Id: keyboard.lisp,v 1.5 2004/12/08 23:40:24 ffjeld Exp $ +;;;; $Id: keyboard.lisp,v 1.6 2004/12/10 12:48:34 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -115,10 +115,9 @@ (t (values (ldb (byte 7 0) first-code) (logbitp 7 first-code))))))

-(define-named-integer qualifier (:only-constants t) - (0 shift) - (1 ctrl) - (2 alt)) +(defconstant +qualifier-shift+ 0) +(defconstant +qualifier-ctrl+ 1) +(defconstant +qualifier-alt+ 2)

(defvar *qualifier-state* 0)