PPT Slide
FILE I/O
( with-open-file
( < stream name >
< file specs >
:direction < :input or :output > )
< sequence of forms > )
READING
( with-open-file ( fi ''myinput.lsp''
:direction :input )
( setf val ( read fi ) ) )
WRITING
( with-open-file ( fo ''myoutput.lsp''
:direction :output )
( print val fo ) )