ЧТЕНИЕ запускается перед ФОРМАТИРОВАНИЕМ

Запустил это в SLIME и задался вопросом, почему он ожидает ввода read перед выводом format.

(defun wage ()
  (format t "~&Enter wage: ")
  (let ((wage (read)))
    (format t "~&Enter hours: ")
    (let ((hours (read)))
      (format t "~&Earned ~S dollars." (* wage hours)))))

* (wage)

2
Enter wage: 
3
Enter hours: 
Earned 6 dollars.
NIL