Macros: Difficult Solutions

code writing

Write a list comprehension macro that takes in a list of numbers and adds 1 to each element in the list.
(define-macro (list-comprehension lst)
    (list 'map (list 'lambda '(x) '(+ x 1)) lst))