LISP 简单的数据库 3.3 查看数据库内容

格式化输出数据内容

;使用全局变量记录数据(defvar *db* nil);数据记录格式(defun make-cd (title artist rating ripped)  (list :title title :artits artist :rating rating :ripped ripped));添加记录(defun add-record (cd) ( push cd *db*));查看数据库内容(defun dump-db()  (dolist (cd *db*)    (format t "~{~a: ~10t~a~%~}~%" cd)))

格式

CL-USER> (dump-db)TITLE:    KlyARTITS:   GyRATING:   9RIPPED:   TTITLE:    LilyARTITS:   PgyRATING:   8RIPPED:   TTITLE:    RosesARTITS:   KathyRATING:   7RIPPED:   TNIL

说明：

~a 消耗实参以输出内容

~t 空格

~% 换行