Problème variable globale contenant un stream !
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:
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:
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!!!
