<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;">As I told before, ABLE crashes whenever there is a space between an open parenthesis and a token. For instance<br><br>(defvar xxx<br>     '(       abc<br>           d e f))<br><br>causes a TK crash.A quick fix is to add a condition that deals with an empty token into the get-indent-level macro (see macro.lisp). Thus<br><br>(defmacro get-indent-level (token)<br>  "Deduce how much to indent based on the token supplied. The user<br>  can supply their own indentation rules in the configuration file."<br>  `(cond<br>     ((< (length ,token) 1) 1)<br>     ((equal (char ,token 0) +lparen+) 1)<br>     ((equal (length ,token) 1) 3)<br>     ,@(mapcar #'(lambda
 (rule)<br>                   `((equalp ,token ,(car rule)) ,(cdr rule)))<br>         *indentation-rules*)<br>     (t 2)))<br><br><br></td></tr></table>