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)))