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

[Git][cmucl/cmucl][issue-453-update-make-options-for-analyzer] Always save analyzer artifacts
by Raymond Toy (＠rtoy) 10 Nov '25

10 Nov '25

Raymond Toy pushed to branch issue-453-update-make-options-for-analyzer at cmucl / cmucl Commits: c937739e by Raymond Toy at 2025-11-09T16:21:59-08:00 Always save analyzer artifacts Instead of using the exit code (as done previously), modify the artifacts rule to include "when: always". This is simpler and more obvious about what we want. - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== @@ -301,6 +301,7 @@ linux:static-analyzer: tags: - linux artifacts: + when: always paths: - analyzer.log needs: @@ -312,15 +313,7 @@ linux:static-analyzer: # console. If someday there's less or no output, we can consider # having the logs go to the console too. - make -C build-4/lisp clean - # From - # https://docs.gitlab.com/ci/yaml/script/#ignore-non-zero-exit-codes - # - # If the analyzer fails, we still want the logs to be saved. So - # ignore the failure, but also print a message so we know - # something happened. - - exit_code=0 - - make -C build-4/lisp ANALYZER=-fanalyzer > analyzer.log 2>&1 || exit_code=$? - - if [ $exit_code -ne 0 ]; then echo "Analyzer failed with code $exit_code"; fi; + - make -C build-4/lisp ANALYZER=-fanalyzer > analyzer.log 2>&1 #### OpenSUSE jobs #### opensuse:install: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/c937739e1c717d99cfcfcea… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/c937739e1c717d99cfcfcea… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-453-update-make-options-for-analyzer
by Raymond Toy (＠rtoy) 09 Nov '25

09 Nov '25

Raymond Toy pushed new branch issue-453-update-make-options-for-analyzer at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-453-update-make-opt… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Address #453: Save analyzer logs even if analyzer fails
by Raymond Toy (＠rtoy) 09 Nov '25

09 Nov '25

Raymond Toy pushed to branch master at cmucl / cmucl Commits: ec60199f by Raymond Toy at 2025-11-09T11:30:40-08:00 Address #453: Save analyzer logs even if analyzer fails - - - - - 23ef5ca7 by Raymond Toy at 2025-11-09T11:30:40-08:00 Merge branch 'issue-453-save-analyzer-results' into 'master' Address #453: Save analyzer logs even if analyzer fails See merge request cmucl/cmucl!331 - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== @@ -312,7 +312,15 @@ linux:static-analyzer: # console. If someday there's less or no output, we can consider # having the logs go to the console too. - make -C build-4/lisp clean - - make -C build-4/lisp CFLAGS=-fanalyzer > analyzer.log 2>&1 + # From + # https://docs.gitlab.com/ci/yaml/script/#ignore-non-zero-exit-codes + # + # If the analyzer fails, we still want the logs to be saved. So + # ignore the failure, but also print a message so we know + # something happened. + - exit_code=0 + - make -C build-4/lisp CFLAGS=-fanalyzer > analyzer.log 2>&1 || exit_code=$? + - if [ $exit_code -ne 0 ]; then echo "Analyzer failed with code $exit_code"; fi; #### OpenSUSE jobs #### opensuse:install: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/8508d11e81ed0e1ff7887c… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/8508d11e81ed0e1ff7887c… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-453-save-analyzer-results
by Raymond Toy (＠rtoy) 09 Nov '25

09 Nov '25

Raymond Toy pushed new branch issue-453-save-analyzer-results at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-453-save-analyzer-r… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-373-handle-temp-files] Really remove WITH-TEMPORARY-STREAM
by Raymond Toy (＠rtoy) 07 Nov '25

07 Nov '25

Raymond Toy pushed to branch issue-373-handle-temp-files at cmucl / cmucl Commits: cc969535 by Raymond Toy at 2025-11-07T10:53:07-08:00 Really remove WITH-TEMPORARY-STREAM Forgot to remove `with-temporary-stream` from exports.lisp an pprint.lisp. Remove the test from trac.lisp and use the `with-temporary-file` version instead. - - - - - 3 changed files: - src/code/exports.lisp - src/code/pprint.lisp - tests/trac.lisp Changes: ===================================== src/code/exports.lisp ===================================== @@ -1213,8 +1213,7 @@ "INVALID-FASL" "WITH-TEMPORARY-DIRECTORY" - "WITH-TEMPORARY-FILE" - "WITH-TEMPORARY-STREAM") + "WITH-TEMPORARY-FILE") ;; gencgc features #+gencgc (:export "GET-GC-ASSERTIONS" ===================================== src/code/pprint.lisp ===================================== @@ -2093,7 +2093,6 @@ When annotations are present, invoke them at the right positions." (c:defoptimizer pprint-defun) (ext:with-float-traps-masked pprint-with-like) (ext:with-float-traps-enabled pprint-with-like) - (ext::with-temporary-stream pprint-with-like) (ext::with-temporary-directory pprint-with-like))) (defun pprint-init () ===================================== tests/trac.lisp ===================================== @@ -175,7 +175,6 @@ (let ((p0* (file-position stream))) (eql p0* p0))))))))) -#+nil (define-test trac.43 (:tag :trac) (assert-true @@ -193,19 +192,6 @@ (let ((p0* (file-position stream))) (eql p0* p0))))))) -(define-test trac.43 - (:tag :trac) - (assert-true - (ext:with-temporary-stream (stream :direction :io :external-format :utf-8) - (dotimes (i 1000) - (write-char (code-char #x1234) stream)) - (file-position stream 0) - (let ((p0 (file-position stream)) - (ch (read-char stream))) - (unread-char ch stream) - (let ((p0* (file-position stream))) - (eql p0* p0)))))) - (define-test trac.50 (:tag :trac) (assert-equal "#P(:DIRECTORY (:ABSOLUTE \"tmp\" \"\" \"a\" \"\" \"b\"))" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/cc969535d9f546a5ab79b77… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/cc969535d9f546a5ab79b77… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-373-handle-temp-files] 2 commits: Remove with-temporary-stream
by Raymond Toy (＠rtoy) 07 Nov '25

07 Nov '25

Raymond Toy pushed to branch issue-373-handle-temp-files at cmucl / cmucl Commits: c9181e31 by Raymond Toy at 2025-11-07T10:37:51-08:00 Remove with-temporary-stream As mentioned in the review, we probably don't want this. Hence, remove it. - - - - - ef79c4ec by Raymond Toy at 2025-11-07T10:38:26-08:00 Convert clear-output-1 test to use with-temporary-file - - - - - 2 changed files: - src/code/extensions.lisp - tests/fd-streams.lisp Changes: ===================================== src/code/extensions.lisp ===================================== @@ -645,57 +645,6 @@ default-name)) "XXXXXX")) -;;; WITH-TEMPORARY-STREAM -- Public -;;; -(defmacro with-temporary-stream ((s &key - (direction :output) - (element-type 'base-char) - (external-format :default) - decoding-error - encoding-error) - &parse-body (forms decls)) - _N"Return a stream to a temporary file that is automatically created." - (let ((fd (gensym "FD-")) - (filename (gensym "FILENAME-")) - (dir (gensym "DIRECTION-")) - (okay (gensym "OKAY-")) - (err (gensym "ERR-")) - (file-template (gensym "FILE-TEMPLATE-"))) - `(progn - (unless (member ,direction '(:output :io)) - (error ":direction must be one of :output or :io, not ~S" - ,direction)) - (let ((,file-template (create-template nil "cmucl-temp-stream-")) - ,fd ,filename ,s) - (unwind-protect - (progn - (multiple-value-setq (,fd ,filename) - (unix::unix-mkstemp ,file-template)) - (unless ,fd - (error "Unable to create temporary stream at ~S: ~A~%" - ,file-template - (unix:get-unix-error-msg ,filename))) - (let* ((,dir ,direction)) - (setf ,s (make-fd-stream ,fd - :input (member ,dir '(:input :io)) - :output (member ,dir '(:output :io)) - :element-type ',element-type - :external-format ,external-format - :decoding-error ,decoding-error - :encoding-error ,encoding-error))) - ;; Delete the file; we have an open fd to the file, though. - (multiple-value-bind (,okay ,err) - (unix::unix-unlink ,filename) - (unless ,okay - (error "Unable to unlink temporary file ~S: ~A" - ,filename (unix:get-unix-error-msg ,err)))) - (locally ,@decls - ,@forms)) - ;; Close the stream which will close the fd now that we're - ;; done. - (when ,s - (close ,s))))))) - ;;; WITH-TEMPORARY-FILE -- Public (defmacro with-temporary-file ((filename &key prefix) &parse-body (forms decls)) ===================================== tests/fd-streams.lisp ===================================== @@ -36,6 +36,25 @@ (file-length s)) (delete-file *test-file*)))) +(define-test clear-output-1 + (:tag :trac) + (assert-eql + 0 + (ext:with-temporary-file (test-file) + (let ((s (open test-file + :direction :output + :if-exists :supersede))) + ;; Write a character to the (fully buffered) output + ;; stream. Clear the output and close the file. Nothing + ;; should have been written to the file. + (write-char #\a s) + (clear-output s) + (close s) + (setf s (open test-file)) + (prog1 + (file-length s) + (close s)))))) + (define-test file-position.1 (:tag :issues) ;; Create a short test file View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/346db6a87020bef895a2d8… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/346db6a87020bef895a2d8… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-373-handle-temp-files] 67 commits: Fix #405: Remove unix::unix-resolve-links and update probe-file
by Raymond Toy (＠rtoy) 07 Nov '25

07 Nov '25

Raymond Toy pushed to branch issue-373-handle-temp-files at cmucl / cmucl Commits: 7fd5e2ff by Raymond Toy at 2025-06-01T17:07:58-07:00 Fix #405: Remove unix::unix-resolve-links and update probe-file - - - - - a4c4016f by Raymond Toy at 2025-06-01T17:07:58-07:00 Merge branch 'issue-405-remove-unix-resolve-links' into 'master' Fix #405: Remove unix::unix-resolve-links and update probe-file Closes #405 See merge request cmucl/cmucl!294 - - - - - 8fa86990 by Raymond Toy at 2025-06-01T19:23:12-07:00 Fix #409: Run manual jobs on a schedule - - - - - 14f7103c by Raymond Toy at 2025-06-01T19:23:13-07:00 Merge branch 'issue-409-run-manual-jobs-on-schedule' into 'master' Fix #409: Run manual jobs on a schedule Closes #409 See merge request cmucl/cmucl!301 - - - - - 14bfb3e0 by Raymond Toy at 2025-06-01T19:25:25-07:00 Address #399: Use -std=gnu89 to build motif server - - - - - 12f21ca8 by Raymond Toy at 2025-06-01T19:25:25-07:00 Merge branch 'issue-399-b-motif-server-fedora-42' into 'master' Address #399: Use -std=gnu89 to build motif server Closes #399 See merge request cmucl/cmucl!285 - - - - - 300a849d by Raymond Toy at 2025-06-01T20:57:58-07:00 Fix #334: Add wiki link checker to CI - - - - - c2dee44a by Raymond Toy at 2025-06-01T20:57:58-07:00 Merge branch 'issue-334-add-wiki-link-checker' into 'master' Fix #334: Add wiki link checker to CI Closes #334 See merge request cmucl/cmucl!232 - - - - - cd35783b by Raymond Toy at 2025-06-05T07:48:07-07:00 Fix #413: Run markdown-link-check on scheduled pipeline - - - - - b6f90681 by Raymond Toy at 2025-06-05T07:48:08-07:00 Merge branch 'issue-413-markdown-link-check-on-schedule' into 'master' Fix #413: Run markdown-link-check on scheduled pipeline Closes #413 See merge request cmucl/cmucl!304 - - - - - 97dff761 by Raymond Toy at 2025-06-06T07:10:20-07:00 Update all the pot and po files Just ran bin/build.sh -U to get these all updated. - - - - - d6faeaef by Raymond Toy at 2025-06-09T08:51:48-07:00 Remove extra closing parenthesis There was an extra closing parenthesis at the end of `precompile-ef-slot`. Remove it. [skip-ci] - - - - - 4e6e1afe by Raymond Toy at 2025-06-09T10:39:52-07:00 Update with new resolved issues Add #404 and #405 to the list of fixed issues. - - - - - 852aaef6 by Raymond Toy at 2025-06-10T08:06:34-07:00 Fix typo in docstring for with-string-{glyph,codepoint}-iterator "prodcucing" -> "producing" Update pot file too of course. - - - - - d6a6c40d by Raymond Toy at 2025-06-10T18:21:12-07:00 Update and correct some comments The paths mentioned in the script are wrong so update them. Some the the examples are out-of-date so correct those too. Finally, mention that "bin/build.sh -?" gives help. - - - - - 46bd7cff by Raymond Toy at 2025-06-23T08:45:54-07:00 Fix 418: Update asdf to 3.3.7.4 - - - - - 9e6d1350 by Raymond Toy at 2025-06-23T08:45:54-07:00 Merge branch 'issue-418-update-asdf-to-3.3.7.4' into 'master' Fix 418: Update asdf to 3.3.7.4 See merge request cmucl/cmucl!307 - - - - - aeab122e by Raymond Toy at 2025-06-30T07:18:34-07:00 Fix #415: Add support for package-local-nicknames - - - - - 32b15538 by Raymond Toy at 2025-06-30T07:18:34-07:00 Merge branch 'issue-415-add-package-local-nicknames' into 'master' Fix #415: Add support for package-local-nicknames Closes #415 See merge request cmucl/cmucl!305 - - - - - 6dba253c by Raymond Toy at 2025-06-30T08:36:53-07:00 Fix #417: Allow repeated lambda var in defmethod aux variables - - - - - 4e2e7fec by Raymond Toy at 2025-06-30T08:36:53-07:00 Merge branch 'issue-417-defmethod-check-aux-vars' into 'master' Fix #417: Allow repeated lambda var in defmethod aux variables Closes #417 See merge request cmucl/cmucl!306 - - - - - f1d6ff67 by Raymond Toy at 2025-06-30T19:17:31-07:00 Update release notes from closed issues [skip-ci] - - - - - aadcf841 by Raymond Toy at 2025-07-02T07:22:08-07:00 Update trivial-package-local-nicknames repo name We renamed/moved our mirror phoe/trivial-package-local-nicknames from trivial-package-local-nicknames-mirror to just trivial-package-local-nicknames. Thus, we need to update run-unit-tests.sh to use the new name. - - - - - fbe08b91 by Raymond Toy at 2025-07-02T08:13:00-07:00 Use https instead of git to clone trivial-pln - - - - - cc3996f1 by Raymond Toy at 2025-07-09T13:23:49-07:00 Update docstring for add-package-local-nickname We allow the local nickname to be a global name of a package. This matches what we currently do and what sbcl does. - - - - - 7dbefc84 by Raymond Toy at 2025-07-09T13:31:38-07:00 Update cmucl.pot due to changed docstring No changes in code or behavior. - - - - - 9ab06424 by Raymond Toy at 2025-07-11T08:13:17-07:00 Make dist tarballs after building - - - - - 72877169 by Raymond Toy at 2025-07-11T08:13:17-07:00 Merge branch 'rtoy-ci-make-dist-tarballs' into 'master' Make dist tarballs after building See merge request cmucl/cmucl!308 - - - - - a99bf94d by Raymond Toy at 2025-07-12T15:38:28-07:00 Make dist tarballs after building - - - - - 38b2787c by Raymond Toy at 2025-07-12T15:38:28-07:00 Merge branch 'rtoy-debug-ci-2025-07' into 'master' Make dist tarballs after building See merge request cmucl/cmucl!309 - - - - - 2c94b54e by Raymond Toy at 2025-07-12T18:18:16-07:00 Fix #423: Use new binaries for CI - - - - - 9a8fd3c4 by Raymond Toy at 2025-07-12T18:18:16-07:00 Merge branch 'issue-423-update-ci-for-snapshot' into 'master' Fix #423: Use new binaries for CI Closes #423 See merge request cmucl/cmucl!310 - - - - - 4660c011 by Raymond Toy at 2025-08-14T07:40:17-07:00 Fix #424: Use fdlibm hypot - - - - - 6a2028c5 by Raymond Toy at 2025-08-14T07:40:17-07:00 Merge branch 'issue-424-fix-hypot' into 'master' Fix #424: Use fdlibm hypot Closes #424 See merge request cmucl/cmucl!311 - - - - - cb874f7f by Raymond Toy at 2025-08-14T07:42:48-07:00 Update release notes for #424 - - - - - d2c96f1b by Raymond Toy at 2025-08-14T07:45:18-07:00 Fix #426: Define float-modes type correctly - - - - - 2db294b1 by Raymond Toy at 2025-08-14T07:45:18-07:00 Merge branch 'issue-426-fix-float-modes-type-def' into 'master' Fix #426: Define float-modes type correctly Closes #426 See merge request cmucl/cmucl!313 - - - - - eb98570f by Raymond Toy at 2025-08-14T07:55:12-07:00 Update release notes for #426 [skip-ci] - - - - - cd2edae5 by Raymond Toy at 2025-08-19T14:16:31-07:00 Fix #432: Don't pass -M option to make-extra-dist.sh - - - - - c65554a5 by Raymond Toy at 2025-08-19T14:16:31-07:00 Merge branch 'issue-432-fix-man-option-for-make-extra-dist' into 'master' Fix #432: Don't pass -M option to make-extra-dist.sh Closes #432 See merge request cmucl/cmucl!315 - - - - - 633e64a4 by Raymond Toy at 2025-09-05T07:55:14-07:00 Fix #431: Fix setting of x87 modes in set-floating-point-modes - - - - - 7ab74e13 by Raymond Toy at 2025-09-05T07:55:15-07:00 Merge branch 'issue-431-fix-set-floating-point-modes' into 'master' Fix #431: Fix setting of x87 modes in set-floating-point-modes Closes #431 See merge request cmucl/cmucl!314 - - - - - 62235089 by Raymond Toy at 2025-09-12T08:51:26-07:00 Update release notes Forgot to include #432 [skip-ci] - - - - - 61592012 by Raymond Toy at 2025-09-16T17:50:14-07:00 Fix #381: cmucl-unix.pot depends on OS - - - - - 4dd79bc9 by Raymond Toy at 2025-09-16T17:50:15-07:00 Merge branch 'issue-381-cmucl-unix-depends-on-os' into 'master' Fix #381: cmucl-unix.pot depends on OS Closes #381 See merge request cmucl/cmucl!319 - - - - - 69a8a4b6 by Raymond Toy at 2025-09-16T19:43:12-07:00 Update release notes Forgot to add #381 [skip-ci] - - - - - fb29eb6e by Raymond Toy at 2025-09-17T08:32:41-07:00 Fix #440: Update CI to use snapshot 2025-09 - - - - - d537a8a3 by Raymond Toy at 2025-09-17T08:32:41-07:00 Merge branch 'issue-440-ci-use-snapshot-2025-09' into 'master' Fix #440: Update CI to use snapshot 2025-09 Closes #440 See merge request cmucl/cmucl!320 - - - - - 23de5fc0 by Raymond Toy at 2025-10-01T08:36:54-07:00 Fix #442: Make release 21f - - - - - 4cd3f395 by Raymond Toy at 2025-10-01T08:36:54-07:00 Merge branch 'branch-21f' into 'master' Fix #442: Make release 21f Closes #442 See merge request cmucl/cmucl!322 - - - - - 9761c696 by Raymond Toy at 2025-10-01T13:40:21-07:00 Use 21f release for CI Just update the variables section with appropriate values. We comment out the old stuff for snapshots. We should figure out a better way of doing this, but releases are relatively rare so the snapshot stuff happens way more often. - - - - - 38e6cb72 by Raymond Toy at 2025-10-01T15:02:08-07:00 Add release-22a.md for next release Just add the template for the next release; everything is empty, of course. No CI needed. [skip-ci] - - - - - 415f0383 by Raymond Toy at 2025-10-01T15:38:34-07:00 Fix #387: Update CLX to upstream version - - - - - e5b25a23 by Raymond Toy at 2025-10-01T15:38:34-07:00 Merge branch 'issue-387-update-clx' into 'master' Fix #387: Update CLX to upstream version Closes #387 See merge request cmucl/cmucl!323 - - - - - 13f23f79 by Raymond Toy at 2025-10-13T18:45:22-07:00 Fix #444: Use 64-bit time_t value for stat and friends - - - - - 52ce44f1 by Raymond Toy at 2025-10-13T18:45:22-07:00 Merge branch 'issue-444-b-stat-with-64-bit-time' into 'master' Fix #444: Use 64-bit time_t value for stat and friends Closes #444 See merge request cmucl/cmucl!326 - - - - - 07be52cc by Raymond Toy at 2025-10-23T16:30:34-07:00 Fix #449: touch 64-bit-timestamp.txt with desired time - - - - - 443a77eb by Raymond Toy at 2025-10-23T16:30:34-07:00 Merge branch 'issue-449-set-timestamp-on-test-file' into 'master' Fix #449: touch 64-bit-timestamp.txt with desired time Closes #449 See merge request cmucl/cmucl!328 - - - - - c5c80aef by Raymond Toy at 2025-11-06T06:38:25-08:00 21f is not a WIP Remove the heading from the release notes for 21f. Forgot to fix this when doing the 21f release. [skip-ci] - - - - - b764d014 by Raymond Toy at 2025-11-06T07:20:10-08:00 Fix #437: Use realpath to find the executable - - - - - 2a9edb1f by Raymond Toy at 2025-11-06T07:20:11-08:00 Merge branch 'issue-437-find-self' into 'master' Fix #437: Use realpath to find the executable Closes #437 See merge request cmucl/cmucl!329 - - - - - c1904aaa by Raymond Toy at 2025-11-06T08:37:30-08:00 Fix #446: Use C compiler to get errno values and generate UNIX defpackage for errno - - - - - f6df759b by Raymond Toy at 2025-11-06T08:37:30-08:00 Merge branch 'issue-446-use-cc-to-get-errno' into 'master' Fix #446: Use C compiler to get errno values and generate UNIX defpackage for errno Closes #446 See merge request cmucl/cmucl!327 - - - - - b61d6e17 by Raymond Toy at 2025-11-06T17:28:00-08:00 Fix #452: Move bin/errno-foo.lisp to src/tools/ - - - - - 8508d11e by Raymond Toy at 2025-11-06T17:28:00-08:00 Merge branch 'issue-452-move-errno-ref-files' into 'master' Fix #452: Move bin/errno-foo.lisp to src/tools/ Closes #452 See merge request cmucl/cmucl!330 - - - - - 0789a95b by Raymond Toy at 2025-11-07T09:37:01-08:00 Merge branch 'master' into issue-373-handle-temp-files - - - - - 346db6a8 by Raymond Toy at 2025-11-07T10:27:52-08:00 Return pathname objects instead of strings for temp files and dirs `with-temporary-file` and `with-temporary-directory` now produce a pathname object instead of a namestring. This change required updating a couple of tests in trac.lisp to convert the pathname to a namestring for use by `run-program`. - - - - - 86 changed files: - .gitignore - .gitlab-ci.yml - bin/build-world.sh - bin/build.sh - − bin/create-def-unix-error.awk - bin/create-errno.sh - − bin/errno-darwin.lisp - − bin/errno-default.lisp - − bin/errno-linux.lisp - − bin/errno-solaris.lisp - bin/git-version.sh - bin/make-dist.sh - bin/run-ansi-tests.sh - bin/run-unit-tests.sh - src/bootfiles/21e/boot-2024-08.lisp - + src/bootfiles/21e/boot-2025-07.lisp - + src/bootfiles/21e/boot-21f.lisp - src/clx/NEWS - src/clx/clx.asd - src/clx/dep-allegro.lisp - src/clx/dep-lispworks.lisp - src/clx/dep-openmcl.lisp - src/clx/dependent.lisp - src/clx/display.lisp - src/clx/extensions/randr.lisp - src/clx/extensions/xrender.lisp - src/clx/extensions/xvidmode.lisp - src/clx/manual/clx.texinfo - src/clx/tests/core-protocol.lisp - src/code/exports.lisp - src/code/extensions.lisp - src/code/extfmts.lisp - src/code/filesys.lisp - src/code/float-trap.lisp - src/code/irrat.lisp - src/code/package.lisp - src/code/print.lisp - src/code/string.lisp - src/code/unix.lisp - src/code/x86-vm.lisp - src/compiler/byte-comp.lisp - src/compiler/x86/float-sse2.lisp - src/compiler/x86/parms.lisp - src/contrib/asdf/asdf.lisp - src/contrib/asdf/doc/asdf.html - src/contrib/asdf/doc/asdf.info - src/contrib/asdf/doc/asdf.pdf - src/general-info/release-21f.md - + src/general-info/release-22a.md - src/i18n/locale/cmucl-unix.pot - src/i18n/locale/cmucl-x86-vm.pot - src/i18n/locale/cmucl.pot - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-bsd-os.po - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-linux-os.po - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-unix.po - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-x86-vm.po - src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po - src/i18n/locale/ko/LC_MESSAGES/cmucl-bsd-os.po - src/i18n/locale/ko/LC_MESSAGES/cmucl-linux-os.po - src/i18n/locale/ko/LC_MESSAGES/cmucl-unix.po - src/i18n/locale/ko/LC_MESSAGES/cmucl-x86-vm.po - src/i18n/locale/ko/LC_MESSAGES/cmucl.po - src/lisp/GNUmakefile - + src/lisp/e_hypot.c - src/lisp/lisp.c - src/lisp/os-common.c - src/motif/server/Config.linux - src/motif/server/server.c - src/pcl/low.lisp - + src/tools/errno-darwin.lisp - + src/tools/errno-default.lisp - + src/tools/errno-linux.lisp - + src/tools/errno-solaris.lisp - bin/errno-template.lisp → src/tools/errno-template.lisp - + src/tools/unix-pkg-template.lisp - src/tools/worldcom.lisp - src/tools/worldload.lisp - + tests/float-x86.lisp - tests/float.lisp - tests/irrat.lisp - tests/issues.lisp - tests/os.lisp - tests/pcl/defmethod.lisp - + tests/resources/64-bit-timestamp-2038.txt - + tests/resources/64-bit-timestamp-2106.txt - tests/trac.lisp The diff was not included because it is too large. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/2beeead3147b0e6f5713fa… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/2beeead3147b0e6f5713fa… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #452: Move bin/errno-foo.lisp to src/tools/
by Raymond Toy (＠rtoy) 07 Nov '25

07 Nov '25

Raymond Toy pushed to branch master at cmucl / cmucl Commits: b61d6e17 by Raymond Toy at 2025-11-06T17:28:00-08:00 Fix #452: Move bin/errno-foo.lisp to src/tools/ - - - - - 8508d11e by Raymond Toy at 2025-11-06T17:28:00-08:00 Merge branch 'issue-452-move-errno-ref-files' into 'master' Fix #452: Move bin/errno-foo.lisp to src/tools/ Closes #452 See merge request cmucl/cmucl!330 - - - - - 4 changed files: - bin/create-errno.sh - bin/errno-darwin.lisp → src/tools/errno-darwin.lisp - bin/errno-linux.lisp → src/tools/errno-linux.lisp - bin/errno-solaris.lisp → src/tools/errno-solaris.lisp Changes: ===================================== bin/create-errno.sh ===================================== @@ -64,11 +64,11 @@ TEMPLATE_PKG="src/tools/unix-pkg-template.lisp" if [ -z "$DEFAULT" ]; then # shellcheck disable=SC2006 case `uname -s` in - Linux) ERRNO_FILE="bin/errno-linux.lisp" + Linux) ERRNO_FILE="src/tools/errno-linux.lisp" ;; - Darwin) ERRNO_FILE="bin/errno-darwin.lisp" + Darwin) ERRNO_FILE="src/tools/errno-darwin.lisp" ;; - SunOS) ERRNO_FILE="bin/errno-solaris.lisp" + SunOS) ERRNO_FILE="src/tools/errno-solaris.lisp" ;; *) # The default case where we use the defaults. But also disable updating. UPDATE="" ===================================== bin/errno-darwin.lisp → src/tools/errno-darwin.lisp ===================================== ===================================== bin/errno-linux.lisp → src/tools/errno-linux.lisp ===================================== ===================================== bin/errno-solaris.lisp → src/tools/errno-solaris.lisp ===================================== View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/f6df759b1c0fc864b936e5… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/f6df759b1c0fc864b936e5… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-452-move-errno-ref-files
by Raymond Toy (＠rtoy) 07 Nov '25

07 Nov '25

Raymond Toy pushed new branch issue-452-move-errno-ref-files at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-452-move-errno-ref-… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #437: Use realpath to find the executable
by Raymond Toy (＠rtoy) 06 Nov '25

06 Nov '25

Raymond Toy pushed to branch master at cmucl / cmucl Commits: b764d014 by Raymond Toy at 2025-11-06T07:20:10-08:00 Fix #437: Use realpath to find the executable - - - - - 2a9edb1f by Raymond Toy at 2025-11-06T07:20:11-08:00 Merge branch 'issue-437-find-self' into 'master' Fix #437: Use realpath to find the executable Closes #437 See merge request cmucl/cmucl!329 - - - - - 1 changed file: - src/lisp/lisp.c Changes: ===================================== src/lisp/lisp.c ===================================== @@ -127,175 +127,104 @@ int debug_lisp_search = FALSE; /* * From the current location of the lisp executable, create a suitable - * default for CMUCLLIB + * default for CMUCLLIB. The result is a colon-separated list + * directories to be used for finding the core file and for the cmucl + * libraries. + * + * The caller must free the returned string. */ -static const char * +static char * default_cmucllib(const char *argv0arg) { - char *p0; - char *defpath; char *cwd; - char *argv0_dir = strdup(argv0arg); + int cwd_len; + char **ptr; + char *path; + int path_len; + char *slash; - /* - * From argv[0], create the appropriate directory by lopping off the - * executable name - */ + cwd = realpath(argv0arg, NULL); - p0 = strrchr(argv0_dir, '/'); - if (p0 == NULL) { - *argv0_dir = '\0'; - } else if (p0 != argv0_dir) { - *p0 = '\0'; + if (debug_lisp_search) { + fprintf(stderr, "Realpath of %s = %s\n", argv0arg, cwd); + } + + if (!cwd) { + perror("Cannot determine realpath of lisp executable"); + exit(1); } /* - * Create the full pathname of the directory containing the - * executable. argv[0] can be an absolute or relative path. + * Delete the binary name from the full path, leaving just the + * full directory to the executable. */ - if (debug_lisp_search) { - fprintf(stderr, "argv[0] = %s\n", argv0arg); - fprintf(stderr, "argv_dir = %s\n", argv0_dir); + slash = strrchr(cwd, '/'); + if (slash) { + slash[1] = '\0'; } + if (debug_lisp_search) { + fprintf(stderr, "Executable path %s\n", cwd); + } - if (argv0_dir[0] == '/') { - cwd = malloc(strlen(argv0_dir) + 2); - strcpy(cwd, argv0_dir); - strcat(cwd, "/"); - if (debug_lisp_search) { - fprintf(stderr, "absolute path, argv[0] = %s\n", cwd); - } - - } else if (*argv0_dir != '\0') { - /* - * argv[0] is a relative path. Get the current directory and - * append argv[0], after stripping off the executable name. - */ - cwd = malloc(FILENAME_MAX + strlen(argv0_dir) + 100); - getcwd_or_die(cwd, FILENAME_MAX); - strcat(cwd, "/"); - if (*argv0_dir != '\0') { - strcat(cwd, argv0_dir); - strcat(cwd, "/"); - } - if (debug_lisp_search) { - fprintf(stderr, "relative path, argv[0] = %s\n", cwd); - } - } else { - /* - * argv[0] is someplace on the user's PATH - * - */ - char *path = getenv("PATH"); - char *p1, *p2 = NULL; - struct stat buf; - - if (debug_lisp_search) { - fprintf(stderr, "User's PATH = %s\n", path ? path : "<NULL>"); - } - - cwd = malloc(FILENAME_MAX + strlen(argv0arg) + 100); - cwd[0] = '\0'; - - if (path) { - const char *ptr = (p0 != NULL) ? p0 : argv0arg; - - for (p1 = path; *p1 != '\0'; p1 = p2) { - p2 = strchr(p1, ':'); - if (p2 == NULL) - p2 = p1 + strlen(p1); - strncpy(cwd, p1, p2 - p1); - cwd[p2 - p1] = '/'; - cwd[p2 - p1 + 1] = '\0'; - strcpy(cwd + (p2 - p1 + 1), ptr); - - if (debug_lisp_search) { - fprintf(stderr, "User's PATH, trying %s\n", cwd); - } - - if (stat(cwd, &buf) == 0) { - - if (debug_lisp_search) { - fprintf(stderr, "User's PATH, found %s\n", cwd); - } - if (access(cwd, X_OK) == 0) { - break; - } else { - if (debug_lisp_search) { - fprintf(stderr, - " But not executable. Continuing...\n"); - } - } + /* + * Create the appropriate value for CMUCLLIB by adding the + * executable path (if needed) to each entry in + * cmucllib_search_list. + */ - } + /* First figure out how much space we need */ - if (*p2 == ':') { - p2++; - } + path_len = 0; + cwd_len = strlen(cwd); - } - if ((p1 == p2) || (p2 == NULL)) { - cwd[0] = '\0'; - } else { - cwd[p2 - p1 + 1] = '\0'; - } - if (debug_lisp_search) { - fprintf(stderr, "User's PATH, Final cwd %s\n", cwd); - } + ptr = cmucllib_search_list; - } + while (*ptr != NULL) { + /* + * Plus 2 for the ":" and "/" we need to add and the cwd that + * might be added. + */ + path_len += strlen(*ptr) + cwd_len + 2; + ++ptr; } - /* Create the appropriate value for CMUCLLIB */ - - { - char **ptr; - int total_len; - int cwd_len; - - /* First figure out how much space we need */ + /* Create the colon separated list of directories */ - total_len = 0; - cwd_len = strlen(cwd); - - ptr = cmucllib_search_list; + path = malloc(path_len + 1); + if (!path) { + perror("Failed to malloc space for cmucllib"); + exit(1); + } + + *path = '\0'; - while (*ptr != NULL) { - /* Plus 2 for the ":" and "/" we need to add */ - total_len += strlen(*ptr) + cwd_len + 2; - ++ptr; + ptr = cmucllib_search_list; + while (*ptr != NULL) { + /* + * If it's relative, add the full executable path first to + * make the path absolute. + */ + if (*ptr[0] != '/') { + strcat(path, cwd); } - /* Create the colon separated list of directories */ - - defpath = malloc(total_len + 1); - *defpath = '\0'; - - ptr = cmucllib_search_list; - while (*ptr != NULL) { - if (*ptr[0] != '/') { - strcat(defpath, cwd); - } - - strcat(defpath, *ptr); - - if (ptr[1] != NULL) { - strcat(defpath, ":"); - } + strcat(path, *ptr); - ++ptr; + /* Add a colon if we're not at the last entry of the search list */ + if (ptr[1] != NULL) { + strcat(path, ":"); } - if (strlen(defpath) > total_len) { - abort(); - } + ++ptr; } - free(argv0_dir); - free(cwd); + if (strlen(path) > path_len) { + abort(); + } - return (const char *) defpath; + free(cwd); + return path; } /* View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/c5c80aef9bc5763f692b3e… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/c5c80aef9bc5763f692b3e… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0