common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Fix :file-length method of stream-from-stdio-file

Browse source 
It positioned the stream to 0 by accident
This commit is contained in:
Douglas Katzman 2024-12-17 22:00:13 -05:00
parent 36c3659322
commit 2063bcf9a3
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/code/fd-stream.lisp
View file

@ -2857,7 +2857,7 @@
(:file-length
;; there are at least 2 ways to do this: stat() or lseek() a few times
(let* ((fd (stdio-file-fd stdio-file))
(cur (sb-unix:unix-lseek fd 0 sb-unix:L_SET)) ; SEEK-SET
(cur (sb-unix:unix-lseek fd 0 sb-unix:L_INCR)) ; SEEK-CUR
(end (sb-unix:unix-lseek fd 0 sb-unix:L_XTND))) ; SEEK-END
;; go back to where it was
(sb-unix:unix-lseek fd cur sb-unix:L_SET)

4
tests/tmpfile.pure.lisp
View file

@ -3,7 +3,11 @@
(multiple-value-bind (output warn err)
(sb-c:compile-form-to-file '(progn (defvar *foo* 3)) tmpfile)
(assert (and output (not warn) (not err)))
(assert (eq (sb-int:info :variable :kind '*foo*) :special))
(sb-int:clear-info :variable :kind '*foo*)
(let ((stream (sb-impl::stream-from-stdio-file tmpfile :input t)))
;; compile-form-to-file leaves the file positioned to its end.
(file-position stream 0)
(sb-fasl::load-as-fasl stream nil nil)
(sb-unix:unix-fclose tmpfile)
(assert (eq (sb-int:info :variable :kind '*foo*) :special))