Необходимо списку присвоить значения, которые вводятся с клавиатуры

(defun appen (sp)
( do (( x ( list ( read)) ( setq (car sp) (list (read)))))
((or ( equal (last x) '(nil))) ((null sp)) (setq sp (cdr sp))
(print x)))

(defun change (lst)
    (if lst
        (let ((e (read)))
            (if e
                (cons e (change (cdr lst)))
                lst))
        nil))

(defun change (lst)
    (when lst (let ((e (read))) (if e (cons e (change (cdr lst))) lst))))
 
> (change '(a a a))
3
4
5
(3 4 5)

(defun mset (lst)
  (cond ((null lst) nil)
        (t (progn (print (car lst))
                  (print ':) 
                  (terpri) 
                  (set (car lst) (read)) (mset (cdr lst))))))
 
==> mset
 
(mset '(x1 x2 x3))
x1:
123
x2:
456
x3:
789
 
==> NIL
 
x1
 
==> 123
 
x2
 
==> 456
 
x3
 
==> 789

(defun change (list)
  (loop for item in list
        for r = (read)
        while r collect r))

(defun change (list)
  (loop for item in list
        and r = (progn
                  (format t "~a:~%" item)
                  (read))
        while r do (setf (symbol-value item) r)))

CL-USER 5 : 2 > (defun change (list)
  (loop for item in list
        and r = (progn
                  (format t "~a:~%" item)
                  (read))
        while r do (setf (symbol-value item) r)))
CHANGE
 
CL-USER 6 : 2 > change '(x1 x2 x3 x4)
NIL:
3
X1:
4
X2:
5
X3:
6