Dynamic Learning Centerの続きです。何のヒネリもないつまらない解答しか思い浮かばない
のですが、こんなもんなんでしょうか。

(defun double-number (n)
　(typecase n
　　(number (+ n n))
　　(t (error "argument is not a number"))))

(defun hours-in-1999 ()
　(* 365　　　　　; days in 1999
　　　24))　　　　; hours per day

(defun is-a-list? (arg)
　(typecase arg
　　(null 'empty-list)
　　(list 'list)
　　(otherwise 'something-else)))

>> 683
ANSI Common LispってPaul Grahamのですよね？ これも一応購入してちょっとづつですが
読んではいます。On Lispみたく製本された状態で入手できなくなるのがイヤなので気になった
本は片っ端から購入してあります（汗
Stephen SladeのObject-Oriented Common LispとかSonya E. KeeneのObject-Oriented
Programming in Common Lisp: A Programmer's Guide to CLOSとかもありますが
最初に読破すべきはやっぱりANSI Common Lispですか？