Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • gerd's avatar
    b10e98ff
    (with-open-file (stream "test.123" :direction :output · b10e98ff
    gerd authored
    	                        :if-exists :supersede)
    	  (format stream "~S ~S ~S~%" 'these 'are 'symbols))
    
    	(with-open-file (stream "test.123" :direction :io
    	                        :if-exists :overwrite)
    	  (read stream) (prin1 'insert stream))
    
    	(with-open-file (stream "test.123")
    	  (loop for line = (read-line stream nil)
    	        until (null line) do (write-line line)))
    
    	Output should be "these insertmbols"
    	Output is "these are symbols\ninsert"
    
    	* src/code/fd-stream.lisp (def-output-routines): If there is any
    	input read from UNIX but not supplied to the user of the stream,
    	reposition to the real file position as seen from Lisp.
    	Reported by Adam Warner.
    b10e98ff
    History
    (with-open-file (stream "test.123" :direction :output
    gerd authored
    	                        :if-exists :supersede)
    	  (format stream "~S ~S ~S~%" 'these 'are 'symbols))
    
    	(with-open-file (stream "test.123" :direction :io
    	                        :if-exists :overwrite)
    	  (read stream) (prin1 'insert stream))
    
    	(with-open-file (stream "test.123")
    	  (loop for line = (read-line stream nil)
    	        until (null line) do (write-line line)))
    
    	Output should be "these insertmbols"
    	Output is "these are symbols\ninsert"
    
    	* src/code/fd-stream.lisp (def-output-routines): If there is any
    	input read from UNIX but not supplied to the user of the stream,
    	reposition to the real file position as seen from Lisp.
    	Reported by Adam Warner.