# Pastebin ofXRpQuS
(defun my-test ()
  (let ((x '(1 2 3)))
    (declare (dynamic-extent x)) ; hint to use stack alloc
    (print x)
    nil))
;; x deallocated by unwinding of the stack

(defun my-test ()
  (let ((x '(1 2 3)))
    (declare (dynamic-extent x)) ; hint to use stack alloc
    x))
;; x what is point of stack alloc? what stack unwinds to release x?