実践Common Lispを読んでみる12

実践Common Lisp

CLOSがあまりにもよくわからなかったので次の章に行ってみる。

…FORMATもあんまり面白くないなあ。
っていうか、最初のソレは一体どーなっているんだ。

以下、ソースコード

(let ((list '(1 2 3)))
  (loop for cons on list
     do (format t "~a" (car cons))
     when (cdr cons) do (format t ", "))
  (format t "~%")
  (format t "~{~a~^, ~}" list))
(format t "~$" pi)
(format t "~5$" pi)
(format t "~v$" 3 pi)
(format t "~#$" pi)
(format t "~,5f" pi)
(format t "~d" 100000)
(format t "~:d" 100000)
(format t "~@d" 100000)
(format t "~:@d" 100000)

(format nil "The value is: ~a" 10)
(format nil "The value is: ~a" "foo")
(format nil "The value is: ~a" (list 1 2 3))

(format nil "The value is: ~s" 10)
(format nil "The value is: ~s" "foo")
(format nil "The value is: ~s" (list 1 2 3))

(format t "~%~&")
(format t "~% ~&")
(format t "~3%")
(format t "~3&")
(format t "~~")