(defun make-cd (title artist rating ripped)
(list :title title :artist artist :rating rating :ripped ripped))
(defvar *db* nil)
(defun add-record (cd) (push cd *db*))
(defun dump-dp (*data*)
(dolist (cd *data*)
(format t "~{~a:~10t~a~%~}~%" cd)))
(add-record (make-cd "Roses" "Kathy Mattea" 7 t))
(add-record (make-cd "Fly" "Dixie Chicks" 8 t))
(add-record (make-cd "Home" "Dixie Chicks" 9 t))
(dump-dp *db*)
(defun prompt-read (prompt)
(format *query-io* "~a: " prompt)
(force-output *query-io*)
(read-line *query-io*))
(defun prompt-for-cd ()
(make-cd
(prompt-read "Title")
(prompt-read "Artist")
(prompt-read "Rating")
(prompt-read "Ripped [y/n]")))
(prompt-for-cd)
Я вроде бы все написал правильно (точнее списал), но всеравно при вызове (prompt-for-cd)
"Title" опускается и считывается сразу
"Artist". Точнее, в "Title" считывается пустая строка. Поясните, в чем дело, пожалуйста.