Advertisement
Guest User

Untitled

a guest
Apr 19th, 2019
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.49 KB | None | 0 0
  1. (defmacro sg-with-open-file (file &body body)
  2.   `(progn
  3.      (open file)
  4.      ,@body
  5.      (close file)))
  6.  
  7. (sg-with-open-file (mon-fichier)
  8.   (Je fais un premier truc avec mon-fichier qui est deja ouvert!)
  9.   (Je fais un deuxième truc avec mon-fichier qui va se fermer automatiquement!))
  10.  
  11. ;; expand :
  12. (PROGN
  13.   (OPEN FILE)
  14.   (JE FAIS UN PREMIER TRUC AVEC MON-FICHIER QUI EST DEJA OUVERT!)
  15.   (JE FAIS UN DEUXIÈME TRUC AVEC MON-FICHIER QUI VA SE FERMER AUTOMATIQUEMENT!)
  16.   (CLOSE FILE))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement