#!/usr/local/bin/sbcl --script
(defun make-cd (title artist rating)
 (list :title title :artist artist :rating rating))

(defvar *db* nil)
(defun add-record (cd) (push cd *db*))
(add-record (make-cd "PARADE" "HIRASAWA SUSUMU" 8))
(add-record (make-cd "This game" "SUZUKI KONOMI" 9))
(add-record (make-cd "Only my rail gun" "frip-side" 7))

(defun dump-db ()
 (dolist (cd *db*)
  (format t "~{~a:~10t~a~%~}~%" cd)))

(dump-db)