Bonjour, j'ai un problème je dois écrire dans un fichier... Pour ce la je crée une variable globale contenant mon stream :


appel:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
(defmacro model-output (control-string &rest args)
  (let ((module (gensym))
        (present (gensym)))
    `(multiple-value-bind (,module ,present)
       (get-module-fct 'printing-module)
     (when (and ,present (act-r-output-stream (printing-module-v ,module)))
       (format *stream-moi* "~&~@?~% ----------" ,control-string ,@args)))))
variable:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
(defvar *stream-moi* (with-open-file (str "zloll.txt"
                          :direction :output
                          :if-exists :append
                     :if-does-not-exist :create)))
Le fichier se crée bien, mais il reste vide alors que sur l'affichage écran il y a bien du texte.

Merci pour vos réponses!

P.S : J'espère que certains auront reconnus le projet ACT-R!!!