Почему на выходе nil?

 
(progn 
  (setq li (list ())) 
  (print "введите числа, для окончания ввода: nil") 
  (do ((i))
    ((eq (read) nil) li)
    (cons '(read) li)
  )
)

(progn 
  (setq li (list ()))  ;; переменая li будет глобальной... 
                         ;; это не слишком хорошо, но дело не в том.
  (print "введите числа, для окончания ввода: nil") 
  (do ((i))
    ((eq (read) nil) li) ;; Читаешь с консоли элемент данных и сравниваешь с Nil
                            ;; предположим, я ввел "abc" условие не сработает, а "abc" пропадет
    (cons '(read) li)   ;; здесь ты приделываешь к li первым элементом список (read)
                            ;; (из-за апострофа). Кстати, результат тоже пропадает, т.к. ничему не присваивается
  )
)

(progn 
 (let ((li nil) (v nil))
     (loop 
        (princ "Enter number. End - nil ")
        (setq v (read))
        (when (null v) (return (reverse li)))
        (push v li))))
 
Enter number. End - nil 1
Enter number. End - nil 2
Enter number. End - nil 3
Enter number. End - nil 4
Enter number. End - nil 5
Enter number. End - nil nil
(1 2 3 4 5)

(progn 
 (let ((li nil) (v nil))
     (loop (princ "Enter number. End - nil ")
        (push (read) v) ;; результат ввода - в стек v
        (when (null (car v)) (return (reverse li))) ;; если вершина стека - Nil - выход
        (push (pop v) li)))) ;; вершину стека v -> в стек li
 
Enter number. End - nil 1
Enter number. End - nil 2
Enter number. End - nil 3
Enter number. End - nil 4
Enter number. End - nil 5
Enter number. End - nil 6
Enter number. End - nil 7
Enter number. End - nil nil
 
(1 2 3 4 5 6 7)

(defun get-num-list ()
  (input (strCat "(" (ask "Введите несколько чисел через пробел") ")")))
 
==> get-num-list
(get-num-list)
 
==> (1 2 3 4 5 6)