#!/usr/local/bin/sbcl --script


(list 1 2 3)
(list :a 1 :b 2 :c 3)
(getf (list :a 1 :b 2 :c 3) :a)
(defun make-cd (title artist rating ripped)
  (list :title title :artist artist :rating rating :ripped ripped))
(make-cd "Roses" "Kathy Mattea" 7 t)
(:TITLE "Roses" :ARTIST "Kathy Mattea" :RATING 7 :RIPPED T)