実践 CommonLisp（1）

xyzzy lisp でサンプルを実行してみる。
そのままでは動作しない部分がある。

3章P24、prompt-for-cd。
prompt 回りはミニバッファを利用させてもらう。
y-or-n-p は、自動で (y or n) が表示される。

(defun prompt-for-cd()
    (make-cd
     (read-string "TITLE: ")
     (read-string "ARTIST: ")
     (read-integer "RATING: ")
     (y-or-n-p "RIPPED: ")))

3章P35、make-comparisons-list。
loop while やら collecting やらが通らない。
再帰的にコールしてつなげてくことにする。

(defun make-comparisons-list (fields)
    (if fields
            (cons (make-comparison-expr (first fields) (second fields))
                        (make-comparisons-list (rest (rest fields))))
        nil))