Discussion :

[palmitoto]

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!!!

[Garulfo]

Désolé, mais je ne lis pas du code proprement présenté -_-



Après on en rediscute.

[palmitoto]

Ok dsl je ne savais pas ! Dsl

[palmitoto]

Super cool la participation sur le forum, pour poster n'importe quoi vous êtes pas mauvais mais après ....

[Garulfo]

Super cool la participation sur le forum, pour poster n'importe quoi vous êtes pas mauvais mais après ....

Désolé... je t'avais oublié.

Mais bon vu ton attitude, je pense que tu trouveras bien tout seul
Si tu penses que je n'ai que ça à faire, c'est que tu n'as probablement toi rien d'autres à chercher...