Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; first
- (let ((s (read-file file))
- (backup (make-pathname
- :defaults file
- :directory "/tmp/")))
- ; second
- (let ((s (read-file file))
- (backup (make-pathname
- :defaults file
- :directory "/tmp/")))
- ; third
- (let ((s (read-file file))
- (backup (make-pathname
- :defaults file
- :directory "/tmp/")))
Advertisement
Add Comment
Please, Sign In to add comment