Alist remaining empty

[Heime <heimeborgia@protonmail.com>]

I have alist variable warn-alist, which I set to nil.  I am supposed
to push some alist examples if the values have not been added yet.

But I find that with the following function, the warn-alist remains empty.

(defun warn-test ()

  (interactive)

  (setq warn-alist nil)

  (let ( (qwpanel warn-alist)

         ;; Init flag to track if values have been added
         (already-added nil) )

    ;; If the alist is empty, add the cons data
    (unless qwpanel
      (setq already-added t))

    (unless already-added
      (push (cons 'ques-string "Warning Message")   qwpanel)
      (push (cons 'ques-number 42)                  qwpanel)
      (push (cons 'ques-symbol 'example-symbol)     qwpanel)
      (push (cons 'ques-list '(1 2 3))              qwpanel)
      (push (cons 'ques-boolean t)                  qwpanel)
      (push (cons 'ques-nil nil)                    qwpanel)
      (push (cons 'ques-cons (cons 'nested "cell")) qwpanel)
      (push (cons 'ques-function #'print)           qwpanel)) ))