(ps (defmacro some-macro (unique-id)
        (let ((variable (make-symbol (string-downcase unique-id))))
          `(let ((,variable "abc123"))
             variable))))
             
(ps (some-macro "my-unique-id"))