(with-open-file (in "d:\\文件名" :if-does-not-exist :create)
(do ((line (read-line in) (setf line (read-line in nil)))
)
((not line) 'done)
(format t "~a~%" line)
)
)
(with-open-file (in "d:\\文件名" :if-does-not-exist :create)
(do ((line (read-line in) (setf line (read-line in nil)))
)
((not line) 'done)
(format t "~a~%" line)
)
)
