Input code:
....
(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 "Ripped [y/n]: ")))

.....
====================================================================   
Output:

Title: foo
Artist: bar
Rating: 1

Ripped [y/n]:  (y or n) 
===================================================================
Comment:a new-line (fresh line?(new to lisp)) gets automatically printed in output on line number 17 just above "Ripped [y/n]:  (y or n)" and the second "(y or n)" is also not expected. Please help me understand :)