почему выводит только свойства последнего символа?

CL-USER 1 > (defun funca(x)
  (+ x 2))
FUNCA
 
CL-USER 2 > (defun funcb(x)
  (* x 2))
FUNCB
 
CL-USER 3 > (defun funcc(x)
  (expt x 2))
FUNCC
 
CL-USER 4 > (defun fwrite (x)
  (dolist (nu x)
    (setf (get 'nu :a) (funca nu))
    (setf (get 'nu :b) (funcb nu))  
    (setf (get 'nu :c) (funcc nu))))
FWRITE
 
CL-USER 5 > (defun fread (x)
  (dolist (nu x)
    (print (get 'nu :a))
    (print (get 'nu :b))
    (print (get 'nu :c))))
FREAD
 
CL-USER 6 > (setq li '(1 2 3 4))
(1 2 3 4)
 
CL-USER 7 > (fwrite li)
NIL
 
CL-USER 8 > (fread li)
 
6 
8 
16 
6 
8 
16 
6 
8 
16 
6 
8 
16 
NIL

CL-USER 8 > (fread li)
 
3
2
1
4
4
4
5
6
9
6
8
16
NIL

(defun a (x)
  (+ x 2))
 
(defun b (x)
  (* x 2))
 
(defun c (x)
  (expt x 2))
 
(defun set-symbols (syms xs)
  (loop :for sym :in syms
        :for x   :in xs :do 
        (setf (get sym :a) (a x)
              (get sym :b) (b x)
              (get sym :c) (c x))))
 
(defun print-symbols (syms)
  (dolist (sym syms)
    (dolist (key '(:a :b :c))
      (print (get sym key)))))
 
(defun test ()
  (let ((syms '(one two three four)))
    (set-symbols syms '(1 2 3 4))
    (print-symbols syms)))
 
(test)
; 3 
; 2 
; 1 
; 4 
; 4 
; 4 
; 5 
; 6 
; 9 
; 6 
; 8 
; 16 
; NIL

(setf (getprop 1 'something) 'beep)
 
==> beep
 
(proplist 1)
 
==> (FIXED something beep)

(setq *w* '(1 1 2 3 4 4 5 5 5)
      *ht* (make-hash-table))
 
(dolist (i *w* t)
  (setf (gethash i *ht*) (count i *w*)))
 
(maphash #'(lambda (key var) (format t "Elem ~A = Count ~A~%" key var)) *ht*)
 
Elem 1 = Count 2
Elem 2 = Count 1
Elem 3 = Count 1
Elem 4 = Count 2
Elem 5 = Count 3
NIL

;HomeLisp. Присвоение числу свойства.
(defvar *num* 1)
 
(progn
(defun sum   (x) (+ x 2))
(defun mult  (x) (* x 2))
(defun -expt (x) (expt x 2))
)
 
(progn
(setf (getprop 1 'sum)  (sum   *num*))
(setf (getprop 1 'mult) (mult  *num*))
(setf (getprop 1 'expt) (-expt *num*))
)
 
==> 1
 
(proplist 1)
 
==> (FIXED sum 3 mult 2 EXPT 1)
 
(printline (list (getprop 1 'sum) (getprop 1 'mult) (getprop 1 'expt)))
(3 2 1)
 
==> (3 2 1)

(progn
(setf (getprop *num* 'sum)  (sum   *num*))
(setf (getprop *num* 'mult) (mult  *num*))
(setf (getprop *num* 'expt) (-expt *num*))
)