Rediriger définitivement stdout vers un fichier en Common Lisp (CCL)

Question

J'essaie de rediriger stdout vers un fichier de manière permanente, mais tous les exemples que je peux trouver à propos de cela impliquent de le faire dans un let ou dans un fichier open-open en utilisant la sortie standard global. Y at-il un moyen de faire une redirection large application?

EDIT: Voici comment j'ai essayé de faire la redirection avec la sortie standard:

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

Cette sortie arrête au REPL mais rien ne montre dans le fichier (qui n'existe et est vu par probe-file) de l'appel d'impression.

EDIT: J'ai essayé d'utiliser la fonction Dribble:

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

(format t "hello") 

Mais je reçois l'erreur suivante:

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

Je pense que votre problème a à voir avec mise en mémoire tampon. Essayez force-output:

(force-output *log*) 

Notez que les flux de fermeture automatique des tampons Flushes et Lisps habituellement des flux proches sur la sortie normale, donc rien perdu est en fait, il faut juste le temps d'apparaître sur le disque.

De plus, veuillez noter que l'interaction REPL Common Lisp est effectuée sur many different stream variables, et non sur une seule (bien que nombre d'entre eux soient des alias d'autres).

En fait, si vous souhaitez enregistrer le journal de votre session (c'est-à-dire conserver le REPL sur l'écran et enregistrer la transcription dans un fichier), le service standard est fourni par dribble - essayez-le!