Pratical: A Simple Database

practical-ch3.lisp

(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-db ()
  (dolist (cd *db*)
    (format t "~{~a:~10t~a~%~}~%" cd)))

(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")
    (or (parse-integer (prompt-read "Rating") :junk-allowed t) 0)
    (y-or-n-p "Rippled [y/n]: ")))

(example from Practical Common Lisp)

When running (prompt-for-cd) in the SBCL REPL, it works as expected, and as described in the tutorial.

However, when running it from within slimv, it prompts for the title, but when Enter is pressed, it skips the prompt for the artist and jumps straight to the prompt for the Rating.

CL-USER> (prompt-for-cd)
Title: It's a CD!
Artist: Rating: 9