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)))