Io 错误的输入流
我试图将一些参数传递到一个新函数中,该函数向平面文件中添加一列。电话是这样的:Io 错误的输入流,io,stream,common-lisp,Io,Stream,Common Lisp,我试图将一些参数传递到一个新函数中,该函数向平面文件中添加一列。电话是这样的: (add-col-to-ff '(:absolute "home" "lambda" "Documents") "test-col-col" '(:absolute "home" "lambda" "Documents") "test-col-ff" '(:absolute "home" "lambda" "Documents") "test-co
(add-col-to-ff '(:absolute "home" "lambda" "Documents") "test-col-col"
'(:absolute "home" "lambda" "Documents") "test-col-ff"
'(:absolute "home" "lambda" "Documents") "test-col-new.txt")
但是SLIME返回了错误:
#<SB-SYS:FD-STREAM for "file /home/lambda/Documents/test-col-new.txt"
{B50D7E1}> is not a character input stream.
[Condition of type SIMPLE-TYPE-ERROR]
Backtrace:
0: (SB-KERNEL:ILL-IN #<SB-SYS:FD-STREAM for "file /home/lambda/Documents/test-
col-new.txt" {B50D7E1}>)
您可以为输出打开一个流。但是,然后您尝试使用
读取行
从该输出流中读取。这当然不起作用。根据公认的答案,我将do
宏替换为dotimes
,如下所示:
(defun add-col-to-ff (col-dir col-file
ff-dir ff-file
out-dir out-file)
(let ((M (make-ff-array ff-dir ff-file))
(vec (vec-from-1col-ff col-dir col-file))
(path (make-pathname :name out-file
:directory out-dir)))
(with-open-file (addcol-str path :direction :output)
(dotimes (i (array-dimension M 0))
(dotimes (k (array-dimension M 1))
(cond ((eql (1+ k) (array-dimension M 0))
(format addcol-str "~A ~A~%" (aref M i k) (svref vec k)))
((and (eql (1+ i) (array-dimension M 0))
(eql (1+ k) (array-dimension M 1)))
(format addcol-str "~A ~A" (aref M i k) (svref vec k)))
(t (format addcol-str "~A " (aref M i k)))))))))
很有魅力。哦,当然。我不需要像在输出中那样遍历这些行。我刚完成一个输入foo。我将发布正确的函数。
(defun add-col-to-ff (col-dir col-file
ff-dir ff-file
out-dir out-file)
(let ((M (make-ff-array ff-dir ff-file))
(vec (vec-from-1col-ff col-dir col-file))
(path (make-pathname :name out-file
:directory out-dir)))
(with-open-file (addcol-str path :direction :output)
(dotimes (i (array-dimension M 0))
(dotimes (k (array-dimension M 1))
(cond ((eql (1+ k) (array-dimension M 0))
(format addcol-str "~A ~A~%" (aref M i k) (svref vec k)))
((and (eql (1+ i) (array-dimension M 0))
(eql (1+ k) (array-dimension M 1)))
(format addcol-str "~A ~A" (aref M i k) (svref vec k)))
(t (format addcol-str "~A " (aref M i k)))))))))