((/clause-processors/meta-extract-user.lisp::meta-extract-replace-sym (nil nil nil (let*) nil nil nil) (nil nil ((name (symbol-name x))) nil (if) nil nil) ((pos x) nil (pos) (let*) nil nil nil) (nil nil ((pre (subseq name 0 pos))) (search intern-in-package-of-symbol) nil nil nil) ((from name to) nil (post) nil nil (concatenate) nil) ((pre post) nil (quote symbol-name) nil (subseq) nil nil) ((name nil string to) nil nil (+) nil nil nil)))