Строка в массив(вектор) - Lisp

Формулировка задачи:

Нужно сконвертировать строку в вектор. например ввод {1,2,3} выход (1 2 3) Вот то что получилось но не знаю от чего дальше оттолкнуться

(let p) (setq p (read))
(let w) (setq w (parse-integer (read-line)))
(let str) (setq str (read-line))
(remove "," str)
(princ str)
(let r) (setq r (make-array w :fill-pointer 0))

Решение задачи: «Строка в массив(вектор)»

Листинг программы

(let* ((p 5)
       (w "{}")
       (x (remove #\} (remove #\{ (remove #\, (coerce w 'list))))))
  (loop for i below p do (setf x (fun x)))
  x)

Объяснение кода листинга программы

В этом коде:

Объявляются три переменные: p, w, x.
Переменная p содержит число 5.
Переменная w содержит строку {}.
Переменная x содержит результат обработки строки w с помощью функций remove и coerce.
Используется цикл loop для присвоения значения x переменной x от 0 до 4.
Значение переменной x выводится на экран. Вывод: x содержит список (1 2 3 4)