- cmucl-cvs - mailman3.common-lisp.net

[Git][cmucl/cmucl][issue-401-file-position-setter-wrong] Add tests for file-position
by Raymond Toy (＠rtoy) 08 May '25

08 May '25

Raymond Toy pushed to branch issue-401-file-position-setter-wrong at cmucl / cmucl Commits: e7f7a9aa by Raymond Toy at 2025-05-08T07:57:10-07:00 Add tests for file-position - - - - - 1 changed file: - tests/fd-streams.lisp Changes: ===================================== tests/fd-streams.lisp ===================================== @@ -34,3 +34,34 @@ (setf s (open *test-file*)) (file-length s)) (delete-file *test-file*)))) + +(define-test file-position.1 + (:tag :issues) + ;; Create a short test file + (let ((test-file (merge-pathnames #p"file-pos.txt" *test-path*))) + (with-open-file (s test-file + :direction :output + :if-exists :supersede) + (write-string "aaaaaa" s) + (write-char #\newline s)) + (with-open-file (s test-file) + (read-line s) + (assert-true (file-position s 0)) + (assert-equal (file-position s) 0)))) + +(define-test file-position.2 + (:tag :issues) + ;; Create a test file just longer than the internal in-buffer length + ;; and the first line is more than 512 characters long. + (let ((test-file (merge-pathnames #p"file-pos.txt" *test-path*))) + (with-open-file (s test-file + :direction :output + :if-exists :supersede) + (write-string (make-string 512 :initial-element #\a) s) + (write-char #\newline s) + (write-string "zzzzz" s) + (write-char #\newline s)) + (with-open-file (s test-file) + (read-line s) + (assert-true (file-position s 0)) + (assert-equal (file-position s) 0)))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e7f7a9aad8981e3baf90492… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e7f7a9aad8981e3baf90492… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-401-file-position-setter-wrong] 2 commits: Clean up debugging stuff
by Raymond Toy (＠rtoy) 08 May '25

08 May '25

Raymond Toy pushed to branch issue-401-file-position-setter-wrong at cmucl / cmucl Commits: bb4b550f by Raymond Toy at 2025-05-08T07:27:54-07:00 Clean up debugging stuff Remove additional prints and turn off original debugging stuff by uncommenting the `#+nil` stuff. - - - - - 7b351a33 by Raymond Toy at 2025-05-08T07:41:22-07:00 Fix typos introduced in previous commits - - - - - 1 changed file: - src/code/fd-stream.lisp Changes: ===================================== src/code/fd-stream.lisp ===================================== @@ -1699,7 +1699,7 @@ (posn errno) (unix:unix-lseek (fd-stream-fd stream) 0 unix:l_incr) (declare (type (or (integer 0) null) posn)) - ;;#+nil + #+nil (format t "lseek returns ~D ~D~%" posn errno) (cond (posn ;; Adjust for buffered output: @@ -1720,7 +1720,7 @@ (decf posn (- (fd-stream-ibuf-tail stream) (fd-stream-ibuf-head stream))) - ;;#+nil + #+nil (format t "Updated posn = ~D~%" posn) #+unicode (when (fd-stream-string-buffer stream) @@ -1737,14 +1737,14 @@ ;; octet-count doesn't use that. Hence, ;; subtract one from string-index and ;; string-buffer-len. - ;;#+nil + #+nil (progn (format t "~&ocount = ~D~%" ocount) (format t "posn = ~D~%" posn)) (loop for k of-type fixnum from (1- (fd-stream-string-index stream)) below (1- (fd-stream-string-buffer-len stream)) do (decf posn (aref ocount k))) - ;;#+nil + #+nil (progn (format t "new posn = ~D~%" posn) (format t "in-buffer-length = ~D~%" in-buffer-length) @@ -1760,23 +1760,19 @@ ;; string-buffer and no in-buffer, then the ibuf ;; tail and head pointers contain all the ;; information needed. - ;;#+nil + #+nil (progn (format t "in-buffer-length = ~D~%" in-buffer-length) (format t "in-length = ~D~%" (fd-stream-in-length stream)) (format t "fd-stream-in-index = ~D~%" (fd-stream-in-index stream)) (format t "posn = ~A~%" posn)) (decf posn (- (fd-stream-in-length stream) - (fd-stream-in-index stream))) - (format t "After inbuffer update posn = ~A~%" posn)) - ;;#+nil + (fd-stream-in-index stream)))) + #+nil (format t "fd-stream-unread = ~S~%" (fd-stream-unread stream)) (when (fd-stream-unread stream) ;;@@ (decf posn)) ;; Divide bytes by element size. - (format t "posn = ~A, size = ~A, trunc = ~A~%" - posn (fd-stream-element-size stream) - (truncate posn (fd-stream-element-size stream))) (truncate posn (fd-stream-element-size stream))) ((eq errno unix:espipe) nil) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/4b942f362924b4a6057480… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/4b942f362924b4a6057480… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-401-file-position-setter-wrong
by Raymond Toy (＠rtoy) 08 May '25

08 May '25

Raymond Toy pushed new branch issue-401-file-position-setter-wrong at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-401-file-position-s… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-400-unix-resolve-links] Add test for #400
by Raymond Toy (＠rtoy) 05 May '25

05 May '25

Raymond Toy pushed to branch issue-400-unix-resolve-links at cmucl / cmucl Commits: 2293f000 by Raymond Toy at 2025-05-05T10:23:00-07:00 Add test for #400 Based on test code from Philip Fominykh. Instead of using "/tmp", we create a tmp directory from the current directory which should work for any OS running CI or locally. - - - - - 1 changed file: - tests/issues.lisp Changes: ===================================== tests/issues.lisp ===================================== @@ -1153,3 +1153,16 @@ (assert-true (stream::find-external-format :646 nil)) (assert-true (eq (stream::find-external-format :646 nil) (stream::find-external-format :iso646-us nil)))) + +(define-test issue.400 + (:tag :issues) + (let* ((pl 50) + (nl 250) + (p (append (pathname-directory (ext:default-directory)) + (list "tmp") + (list (make-string pl :initial-element #\a)))) + (n (make-string nl :initial-element #\b)) + (pn (make-pathname :name n :directory p))) + (ensure-directories-exist pn) + (close (open pn :direction :output :if-exists :supersede)) + (assert-true (unix::unix-resolve-links (namestring pn))))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/2293f000bc5e6f0eaf56a27… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/2293f000bc5e6f0eaf56a27… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-400-unix-resolve-links
by Raymond Toy (＠rtoy) 05 May '25

05 May '25

Raymond Toy pushed new branch issue-400-unix-resolve-links at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-400-unix-resolve-li… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-349-load-segment-with-rwx-permissions] Specify the correct path to the executable
by Raymond Toy (＠rtoy) 05 May '25

05 May '25

Raymond Toy pushed to branch issue-349-load-segment-with-rwx-permissions at cmucl / cmucl Commits: b7a3aa46 by Raymond Toy at 2025-05-05T09:18:31-07:00 Specify the correct path to the executable Need to prefix the executable path with "./" so `run-unit-tests.sh` can find it. - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== @@ -78,7 +78,7 @@ variables: - ./saved-lisp-executable --version # Run the unit tests with the executable, just to make sure the # executable works as expected. - - bin/run-unit-tests.sh -l saved-lisp-executable + - bin/run-unit-tests.sh -l ./saved-lisp-executable # Default configuration for running the benchmarks. .benchmark_template: &benchmark_configuration View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/b7a3aa4610be7744ec39d25… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/b7a3aa4610be7744ec39d25… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-349-load-segment-with-rwx-permissions
by Raymond Toy (＠rtoy) 05 May '25

05 May '25

Raymond Toy pushed new branch issue-349-load-segment-with-rwx-permissions at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-349-load-segment-wi… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-383-build-can-specify-core-dir] Clean up code around git-version.sh
by Raymond Toy (＠rtoy) 30 Apr '25

30 Apr '25

Raymond Toy pushed to branch issue-383-build-can-specify-core-dir at cmucl / cmucl Commits: 4871e8e7 by Raymond Toy at 2025-04-30T09:56:15-07:00 Clean up code around git-version.sh Update comments and remove some debugging prints we left in. Remove `DEFAULT_VERSION` and such because we don't use it anywhere anymore. - - - - - 1 changed file: - bin/build.sh Changes: ===================================== bin/build.sh ===================================== @@ -179,18 +179,10 @@ do esac done -# Set default version and generate lisp/cmucl-version.h -set -x -echo VERSION = $VERSION -echo GIT_HASH = $GIT_HASH -DEFAULT_VERSION="`bin/git-version.sh ${VERSION:+ -v ${VERSION}}`" -# Export DEFAULT_VERSION -export DEFAULT_VERISON -echo DEFAULT_VERSION = $DEFAULT_VERSION - +# Generate lisp/cmucl-version.h with the appropriate version. The -v +# option (if given) overrides the default that git-describe.sh uses. bin/git-version.sh -f ${VERSION:+ -v ${VERSION}} > src/lisp/cmucl-version.h - # If -b not given, try to derive one instead of just using "build". if [ -z "$BASE" ]; then case `uname -s` in View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/4871e8e733bc4daa655143f… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/4871e8e733bc4daa655143f… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-383-build-can-specify-core-dir
by Raymond Toy (＠rtoy) 30 Apr '25

30 Apr '25

Raymond Toy pushed new branch issue-383-build-can-specify-core-dir at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-383-build-can-speci… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-386-generate-def-unix-error] Update release notes for #386.
by Raymond Toy (＠rtoy) 30 Apr '25

30 Apr '25

Raymond Toy pushed to branch issue-386-generate-def-unix-error at cmucl / cmucl Commits: bb32d966 by Raymond Toy at 2025-04-30T07:11:21-07:00 Update release notes for #386. CI not needed since only the release notes are changed. [SKIP-CI] - - - - - 1 changed file: - src/general-info/release-21f.md Changes: ===================================== src/general-info/release-21f.md ===================================== @@ -123,6 +123,8 @@ public domain. file names now. * ~~#379~~ Support GNU-style command-line option names * ~~#382~~ Command-line options are case-sensitive + * ~~#386~~ Generate def-unix-error froms from OS-specific files. + This replaces the original versions in unix.lisp. * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/bb32d9664e7d0496c92a281… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/bb32d9664e7d0496c92a281… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0