[cl-ppcre-devel] Porting to Genera, feature request

[Patrick O'Donnell]

    Date: Wed, 15 Sep 2004 13:27:23 -0400 (EDT)
    From: "Patrick O'Donnell" <pao at 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