;calls a function
(defun call-func (func) (funcall func))

(defun simple-func () '(1))
(defun argument-func (number) (list number))

;works
(call-func 'simple-func)

(let (argument '(3))
  (func-argument (make-test-lambda argument)))

(defmacro make-test-lambda (arg)
  `(lambda () (argument-func ,arg '())))

(make-test-lambda '(1))