CL-USER> (defun prompt-for-cd ()
           (make-cd
            (prompt-read "Title")
            (prompt-read "Artist")
            (or (parse-integer (prompt-read "Rating") :junk-allowed t) 0)
            (string= (prompt-read "Ripped [y/n]") "y")))
PROMPT-FOR-CD

CL-USER> (prompt-for-cd)
Title: safsdf
Artist: kjdfksjdfh
Rating: 23
Ripped [y/n]: y

(:TITLE "safsdf" :ARTIST "kjdfksjdfh" :RATING 23 :RIPPED T)