Update of /project/climacs/cvsroot/climacs/cl-automaton In directory clnet:/tmp/cvs-serv1782/cl-automaton

Modified Files: state-and-transition.lisp Log Message: A straggler from the ACL/CLIM check in

--- /project/climacs/cvsroot/climacs/cl-automaton/state-and-transition.lisp 2005/09/25 20:06:26 1.2 +++ /project/climacs/cvsroot/climacs/cl-automaton/state-and-transition.lisp 2006/03/03 21:01:44 1.3 @@ -9,7 +9,9 @@

(defconstant +min-char-code+ 0) (defconstant +max-char-code+ (1- char-code-limit)) -(deftype char-code-type () `(integer ,+min-char-code+ ,+max-char-code+)) +;;; In Allegro (for one), defconstants aren't available as values at compile +;;; time. +(deftype char-code-type () `(integer 0 ,(1- char-code-limit)))

(defclass state () ((accept :initform nil :accessor accept :type boolean)