[climacs-cvs] CVS update: climacs/cl-automaton/state-and-transition.lisp

[Aleksandar Bakic]

Update of /project/climacs/cvsroot/climacs/cl-automaton
In directory common-lisp.net:/tmp/cvs-serv25386/cl-automaton

Modified Files:
	state-and-transition.lisp 
Log Message:
Fixed one more typo in INSTALL. Cleaned up :climacs.tests in climacs.asd.
Changed *do-not-escape* to *escape-unicode-chars*, as requested by Derek
Peschel.

Date: Sun Sep 25 22:06:27 2005
Author: abakic

Index: climacs/cl-automaton/state-and-transition.lisp
diff -u climacs/cl-automaton/state-and-transition.lisp:1.1 climacs/cl-automaton/state-and-transition.lisp:1.2
--- climacs/cl-automaton/state-and-transition.lisp:1.1	Fri Aug  5 00:07:48 2005
+++ climacs/cl-automaton/state-and-transition.lisp	Sun Sep 25 22:06:26 2005
@@ -118,10 +118,11 @@
 	    sum (sxhash st))
 	 most-positive-fixnum)))
 
-(defvar *do-not-escape* t) ; nil may be useful in Slime
+(defvar *escape-unicode-chars* nil) ; true may be useful in Slime
 
 (defun escaped-char (c)
-  (if (or *do-not-escape* (and (<= #x21 c #x7e) (/= c (char-code #\\))))
+  (if (or (not *escape-unicode-chars*)
+	  (and (<= #x21 c #x7e) (/= c (char-code #\\))))
       (code-char c)
       (format nil "\\u~4,'0O" c)))