3

我开始通过 Practical Common LISP 工作，第一个练习是编写一个简单的数据库。我在 cygwin 上使用 GNU CLISP 2.48 (2009-07-28)。

这段代码，我已经与本书多次比较，并没有按照书中所说的方式产生输出

(defun make-cd (title artist rating ripped)
  (list :title title :artist artist :rating rating :ripped))
(defvar *db* nil)
(defun add-record (cd) (push cd *db*))
(add-record (make-cd "Roses" "Kathy Mattea" 7 t))
(add-record (make-cd "Fly" "Dixie Chicks" 8 t))
(add-record (make-cd "Home" "Dixie Chicks" 9 t))
(defun dump-db ()
  (dolist (cd *db*)
   (format t "~{~a:~10t~a~%~}~%" cd)))

(dump-db)

我明白了

TITLE:    Home
ARTIST:   Dixie Chicks
RATING:   9
RIPPED:   
*** - There are not enough arguments left for this format directive.
      Current point in control string:
        "~{~a:~10t~a~%~}~%"
                  |

我不了解format或 LISP 不够好，无法进行故障排除。这本书说我应该得到数据库中所有记录的列表。出了什么问题？

4

3 回答 3

4

首先，让我们看一下（make-cd）的返回：

[12]> (make-cd "Home" "Dixie Chicks" 9 t)
(:TITLE "Home" :ARTIST "Dixie Chicks" :RATING 9 :RIPPED)

您没有包含:ripped! 将（make-cd）更改为：

(defun make-cd (title artist rating ripped)
  (list :title title :artist artist :rating rating :ripped ripped))

注意ripped后面:ripped。

于 2012-11-05T04:52:25.900 回答
4

如果你在 CLISP 中使用编译器，它会告诉你哪里出了问题：

[1]> (defun make-cd (title artist rating ripped)
       (list :title title :artist artist :rating rating :ripped))   
MAKE-CD

[2]> (compile 'make-cd)
WARNING: in MAKE-CD : variable RIPPED is not used.
         Misspelled or missing IGNORE declaration?
MAKE-CD ;
1 ;
NIL

RIPPED未使用该变量。

于 2012-11-05T07:40:04.107 回答
1

格式指令~{...~}是一个迭代构造，其对应的参数应该是一个列表。此外，在这种情况下，由于 出现两次~a，每次迭代将消耗两个项目，因此列表中的项目总数预计为偶数。然而你给它提供了奇数个项目。

于 2012-11-05T11:22:37.323 回答