autogensym.cl

(defun gensymify (body &optional (mappings (make-hash-table :test #'equal)))
  (mapcar
   (lambda (el)
     (cond
      ((listp el)
       (gensymify el mappings))
      ((and (symbolp el)
            (not (symbol-package el)))
       (let* ((n (symbol-name el))
              (s (gethash n mappings)))
         (or s (let* ((g (gensym)))
                 (setf (gethash n mappings) g)
                 g))))
      (t el)))
   body))

(set-dispatch-macro-character #\# #\`
  (lambda (stream char n)
    (declare (ignore char n))
    (let ((body (list (quote quote) (read stream t nil t))))
      (gensymify body))))

(eval #`(let ((#:a 1)) #:a)) ;; => 1