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:    Kly
ARTITS:   Gy
RATING:   9
RIPPED:   T

TITLE:    Lily
ARTITS:   Pgy
RATING:   8
RIPPED:   T

TITLE:    Roses
ARTITS:   Kathy
RATING:   7
RIPPED:   T

NIL

~a 消耗实参以输出内容

~t 空格

~% 换行

文章来源: blog.csdn.net，作者：fengda2870，版权归原作者所有，如需转载，请联系作者。

原文链接：blog.csdn.net/fengda2870/article/details/9080205