- 344 名前：340 [04/09/18 15:24:32]
- >>342
有難うございます
で、さっそく以下のように書いてみたのですが、
結果が nil になってしまいます
(defun util (fname)
(with-open-file (in fname :direction :input)
(let ((buff)
(output))
(while (setq buff (read-line in nil))
(setq output
(mapcar #'list output (split-string buff "\t"))))
(mapcar #'(lambda (s) (format t "~A\n" s)) output))))
(util "test.dat")
nil
なぜ nil になってしまうのでしょうか？
