摘要:
1,定义和获取列表元素(list 1 2 3)(list :a 1 :b 3 :c 2)(getf (list :a 1 :b 3) :b); output:32,定义简单的函数(defun make-cd (title artist rating ripped) (list :title title :artist artist :rating rating :ripped ripped))3,定义全局变量(devar *db* nil)4,向全局变量添加纪录(defun add-record (cd) (push cd *db*))(add-record (make-cd "n. 阅读全文