Using list with append

[Heime]

This function makes a list of lists.

(defun pmchart selectr nc)
  "TODO."
  
  (seq-mapn
     (lambda (p q)
       (message "p: %S" p)
       (list q (append (make-list p "xxxxx")
               (make-list (- nc 1 p) ""))))
       selectr
       descr))

Calling

(pmchart '("Peter" "Paul") [3 2] 5)

gives the list

'(("Peter" ("xxxxx" "xxxxx" "xxxxx" "")) 
  ("Paul" ("xxxxx" "xxxxx" "" "")))

But I want to adapt it to get this

'(("Peter" "xxxxx" "xxxxx" "xxxxx" "") 
  ("Paul" "xxxxx" "xxxxx" "" ""))

Doing the following did not help

(list (append q (make-list p "xxxxx") (make-list (- nc 1 p) ""))))