Plaster

(defun pretty-gensym (name) (let ((exists (find-symbol name))) (if exists (gensym name) (make-symbol name))))