CCL (Common Lisp) 파일에 stdout을 영구적으로 리디렉션

Question

stdout을 파일로 영구적으로 리디렉션하려고 시도하지만이 작업에 대해 찾을 수있는 모든 예제는 let 내부 또는 open file 표준 출력 글로벌을 사용합니다. 응용 프로그램을 리디렉션 할 수있는 방법이 있습니까?

편집 :

이

(Setf *log* (open "/Users/Mike/Desktop/some.txt" :direction :output :if-exists :append)) 
(Setf *standard-output* *log*) 
(print "Test") 

이것은 REPL에 출력을 정지하지만, 아무것도 (존재 수행하고 probe-file으로 볼 수있는 파일에 표시하지 : 여기에 내가 표준 출력 리디렉션을 수행하려고했습니다 어떻게)를 호출합니다.

편집 : 나는 드리블 기능을 사용하여 시도했다 :

(Dribble "/Users/Mike/Desktop/some.txt") 

(format t "hello") 

을하지만 다음과 같은 오류 얻을 :

Error: There is no applicable method for the generic function: #STANDARD-GENERIC-FUNCTION CCL::STREAM-SET-COLUMN #x30200006557F when called with arguments: (# 0) While executing: #, in process Listener(11). Type cmd-/ to continue, cmd-. to abort, cmd-\ for a list of available restarts. If continued: Try calling it again Type :? for other options.

Answer 1

내가 당신의 문제가 버퍼링과 관련이있다 생각합니다. force-output보십시오 : 폐쇄 스트림을 자동으로 버퍼를 플러시, 정상 종료에 일반적으로 가까운 스트림을 lisps, 그래서 아무것도 실제로 손실되지

가

(force-output *log*) 

참고, 그냥 디스크에 나타나는 시간이 걸립니다.

또한 Common Lisp REPL 상호 작용은 단지 하나가 아니라 many different stream variables을 통해 수행됩니다 (많은 경우 다른 사람의 별칭 임).

실제로 세션의 로그를 저장 (예 : REPL을 화면에 유지하고 사본을 파일에 저장)하려면 표준 시설이 dribble에 의해 제공됩니다. 시도해보십시오!