2012年4月10日
例子
摘要： (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*)... 阅读全文
posted @ 2012-04-10 17:37 舜耕山翁 阅读(175) 评论(0) 推荐(0) 编辑