[climacs-cvs] CVS climacs/cl-automaton

[tmoore]

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)