La fonction close ferme un flot ouvert. La connexion entre le flot et le fichier associé est terminée mais l'objet flot existe toujours en tant que flot non ouvert.
La macro with-open-stream exécute un certain nombre d'opérations sur un flot ouvert, renvoie une valeur puis ferme le flot. Elle a deux paramètres. Le premier est un nom de variable qui prendra comme valeur le flot correspondant au deuxième paramètre. Le corps est une suite d'expressions formant un progn implicite.
La macro with-open-file est similaire mais au préalable elle ouvre un flot sur un fichier avec open.
* (defparameter *flot-sortie* (open "fichier" :direction :output))
*FLOT-SORTIE*
* (print '(1 2 3) *flot-sortie*)
(1 2 3)
* (print '(A B) *flot-sortie*)
(A B)
* (close *flot-sortie*)
T
* (with-open-file (flot-entree (open "fichier" :direction :input))
(defparameter *expr1* (read flot-entree))
(defparameter *expr2* (read flot-entree)))
*EXPR2*
* *expr1*
(1 2 3)
* *expr2*
(A B)
*