Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defmacro sg-with-open-file (file &body body)
- `(progn
- (open file)
- ,@body
- (close file)))
- (sg-with-open-file (mon-fichier)
- (Je fais un premier truc avec mon-fichier qui est deja ouvert!)
- (Je fais un deuxième truc avec mon-fichier qui va se fermer automatiquement!))
- ;; expand :
- (PROGN
- (OPEN FILE)
- (JE FAIS UN PREMIER TRUC AVEC MON-FICHIER QUI EST DEJA OUVERT!)
- (JE FAIS UN DEUXIÈME TRUC AVEC MON-FICHIER QUI VA SE FERMER AUTOMATIQUEMENT!)
- (CLOSE FILE))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement