1 2 3 4 5 6 7 8 9
(in-package #:symbol) (defun normalize (sym expression) (nsubst-if sym (lambda (x) (and (symbolp x) (string-equal (symbol-name x) (symbol-name sym)))) expression))
