1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/db.lisp	Thu May 31 10:32:35 2012 +0400
     1.3 @@ -0,0 +1,11 @@
     1.4 +(defun make-cd (title artist rating ripped)
     1.5 +	   (list :title title :artist artist :rating rating :ripped ripped))
     1.6 +(defvar *db* nil)
     1.7 +(defun add-record (record) 
     1.8 +	   (push record *db*))
     1.9 +(add-record (make-cd "Title1" "Artist1" 7 t))
    1.10 +(add-record (make-cd "Title2" "Artist2" 5 T))
    1.11 +(add-record (make-cd "Title3" "Artist3" 8 T))
    1.12 +(defun dump-db () 
    1.13 +	   (dolist (cd *db*)
    1.14 +			     (format t "~{~a:~10t~a~%~}~%" cd)))