舜耕山翁

摘要： (defvar *db* nil) (defun make-cd (title artist rating ripped) (list :title title :artist artist :rating rating :ripped ripped))(defun add-record (cd) (push cd *db*))(defun dump-db () (dolist (cd *db*)... 阅读全文