(defun make-cd (title artist rating ripped)
(list :title title :artits artist :rating rating :ripped ripped)
)
CL-USER> (make-cd "Roses" "Kathy" 7 t)
(:TITLE "Roses" :ARTITS "Kathy" :RATING 7 :RIPPED T)
开两个窗口,一个写代码,一个载入代码进行测试
代码修改之后需要再保存并且重新载入