- 336 名前：デフォルトの名無しさん mailto:sage [2011/11/19(土) 06:48:52.64 ]
- おはよう。1要素しかないのにcdrのcdrのcdrのcarを参照してるから。
(("2ch.net." "8" "IN" "A" "206.223.154.230"))のcdrはnil。
nilのcdrはnilで、そのcdrもnil。nilのcarはnil。
(defparameter *lines*
(with-open-file (s "get.dat")
(loop for l = (read-line s nil)
while l collect (ppcre:split "\\s+" l))))
(caar *lines*)
;=> "2ch.net."
(cadar *lines*)
;=> "8"
普通は頭が混乱するので、firstやsecond、eltなどを使う。
(let ((first-line (car *lines*)))
(values (first first-line) (second first-line)))
;=> "2ch.net.", "8"
(let ((first-line (car *lines*)))
(values (elt first-line 0) (elt first-line 1)))
;=> "2ch.net.", "8"
|
 |
