会员
周边
众包
新闻
博问
闪存
赞助商
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
舜耕山翁
管理
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)
编辑