
Date: Wed, 15 Sep 2004 13:27:23 -0400 (EDT) From: "Patrick O'Donnell" <pao@ascent.com> The feature that I'd like to see relates to your s-expression parse tree capability. I'd like to abstract sub-parse-trees. A small change to the end of convert-aux, (otherwise (let ((translation (get parse-tree 'parse-tree-synonym))) (if translation (convert-aux translation) (signal-ppcre-syntax-error "Unknown token ~A in parse-tree" parse-tree)))) Except that it has to be: (otherwise (let ((translation (and (symbolp parse-tree) (get parse-tree 'parse-tree-synonym)))) (if translation (convert-aux (copy-tree translation)) (signal-ppcre-syntax-error "Unknown token ~A in parse-tree" parse-tree)))))))) - Pat