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

[Git][cmucl/cmucl][issue-132-ansi-test-rename-files] Rename NEW-FILE-NAME arg back to NEW-NAME
by Raymond Toy (＠rtoy) 27 Sep '22

27 Sep '22

Raymond Toy pushed to branch issue-132-ansi-test-rename-files at cmucl / cmucl Commits: 189b1940 by Raymond Toy at 2022-09-27T16:20:25-07:00 Rename NEW-FILE-NAME arg back to NEW-NAME This was an oversight from when I was doing some experiments on what to return from RENAME-FILE. - - - - - 1 changed file: - src/code/filesys.lisp Changes: ===================================== src/code/filesys.lisp ===================================== @@ -940,7 +940,7 @@ ;;; Rename-File -- Public ;;; -(defun rename-file (file new-file-name) +(defun rename-file (file new-name) "Rename File to have the specified New-Name. If file is a stream open to a file, then the associated file is renamed. @@ -953,7 +953,7 @@ ;; First, merge NEW-FILE-NAME with *DEFAULT-PATHNAME-DEFAULTS* to ;; fill in the missing components and then merge again with ;; the FILE to get any missing components from FILE. - (new-name (merge-pathnames (merge-pathnames new-file-name) + (new-name (merge-pathnames (merge-pathnames new-name) file)) (new-namestring (unix-namestring new-name nil))) (unless new-namestring View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/189b194089db3484d554ebb… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/189b194089db3484d554ebb… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-140-stream-element-type-two-way-stream] Update release notes for issue #140.
by Raymond Toy (＠rtoy) 27 Sep '22

27 Sep '22

Raymond Toy pushed to branch issue-140-stream-element-type-two-way-stream at cmucl / cmucl Commits: 334be4e0 by Raymond Toy at 2022-09-27T14:53:35-07:00 Update release notes for issue #140. - - - - - 1 changed file: - src/general-info/release-21e.md Changes: ===================================== src/general-info/release-21e.md ===================================== @@ -52,6 +52,7 @@ public domain. * ~~#122~~ gcc 11 can't build cmucl * ~~#127~~ Linux unix-getpwuid segfaults when given non-existent uid. * ~~#128~~ `QUIT` accepts an exit code + * ~~#140~~ External format of `two-way-stream` returns the common format of the input and output streams if possible; otherwise, return `:default`. * 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/334be4e0666f767ce56332c… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/334be4e0666f767ce56332c… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-140-stream-element-type-two-way-stream
by Raymond Toy (＠rtoy) 27 Sep '22

27 Sep '22

Raymond Toy pushed new branch issue-140-stream-element-type-two-way-stream at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-140-stream-element-… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-139-use-lang-to-set-external-format
by Raymond Toy (＠rtoy) 27 Sep '22

27 Sep '22

Raymond Toy pushed new branch issue-139-use-lang-to-set-external-format at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-139-use-lang-to-set… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-139-filename-encoding-utf8
by Raymond Toy (＠rtoy) 25 Sep '22

25 Sep '22

Raymond Toy pushed new branch issue-139-filename-encoding-utf8 at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-139-filename-encodi… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-139a-default-external-format-utf8] *tty* format can be either :utf-8 or :default
by Raymond Toy (＠rtoy) 23 Sep '22

23 Sep '22

Raymond Toy pushed to branch issue-139a-default-external-format-utf8 at cmucl / cmucl Commits: 86b4483e by Raymond Toy at 2022-09-23T16:46:25-07:00 *tty* format can be either :utf-8 or :default `*tty*` can either be an fd-stream of a two-way-stream. If the former, the format is `:utf-8`; if the latter, `:default`. Update test accordingly. - - - - - 1 changed file: - tests/issues.lisp Changes: ===================================== tests/issues.lisp ===================================== @@ -587,7 +587,11 @@ (assert-eql :utf-8 (stream-external-format sys:*stdin*)) (assert-eql :utf-8 (stream-external-format sys:*stdout*)) (assert-eql :utf-8 (stream-external-format sys:*stderr*)) - (assert-eql :utf-8 (stream-external-format sys:*tty*)) + ;; *tty* can either be an fd-stream, in which case the format is + ;; utf8, or a two-way-stream, in which case it is :default. + (if (typep sys:*tty* 'two-way-stream) + (assert-eql :default (stream-external-format sys:*tty*)) + (assert-eql :utf-8 (stream-external-format sys:*tty*))) ;; Check that printing to *standard-output* is correctly encoded. (dribble "test-format.txt") ;; Print a Greek lower-case alpha character View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/86b4483e870dc7f5bd512fd… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/86b4483e870dc7f5bd512fd… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-139a-default-external-format-utf8] Explicitly set format to :utf-8 instead of :default
by Raymond Toy (＠rtoy) 23 Sep '22

23 Sep '22

Raymond Toy pushed to branch issue-139a-default-external-format-utf8 at cmucl / cmucl Commits: c5f31c3c by Raymond Toy at 2022-09-23T16:06:01-07:00 Explicitly set format to :utf-8 instead of :default - - - - - 1 changed file: - src/code/fd-stream.lisp Changes: ===================================== src/code/fd-stream.lisp ===================================== @@ -2397,20 +2397,20 @@ (setf *available-buffers* nil) (setf *stdin* (make-fd-stream 0 :name "Standard Input" :input t :buffering :line - :external-format :default)) + :external-format :utf-8)) (setf *stdout* (make-fd-stream 1 :name "Standard Output" :output t :buffering :line - :external-format :default)) + :external-format :utf-8)) (setf *stderr* (make-fd-stream 2 :name "Standard Error" :output t :buffering :line - :external-format :default)) + :external-format :utf-8)) (let ((tty (and (not *batch-mode*) (unix:unix-open "/dev/tty" unix:o_rdwr #o666)))) (setf *tty* (if tty (make-fd-stream tty :name "the Terminal" :input t :output t :buffering :line :auto-close t - :external-format :default) + :external-format :utf-8) (make-two-way-stream *stdin* *stdout*)))) nil) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/c5f31c3cd0628d668831d28… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/c5f31c3cd0628d668831d28… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-139a-default-external-format-utf8] Add test for default external format and system streams
by Raymond Toy (＠rtoy) 23 Sep '22

23 Sep '22

Raymond Toy pushed to branch issue-139a-default-external-format-utf8 at cmucl / cmucl Commits: 344b9482 by Raymond Toy at 2022-09-23T15:14:21-07:00 Add test for default external format and system streams Verify that the default external format is :utf-8 and that all the system streams use :utf-8. - - - - - 1 changed file: - tests/issues.lisp Changes: ===================================== tests/issues.lisp ===================================== @@ -579,3 +579,20 @@ with user-info = (unix:unix-getpwuid uid) while user-info finally (assert-false user-info))) + +(define-test issue-139.1 + (:tag :issues) + ;; Verify the value of the default external format and that system streams use :utf-8. + (assert-eql :utf-8 stream:*default-external-format*) + (assert-eql :utf-8 (stream-external-format sys:*stdin*)) + (assert-eql :utf-8 (stream-external-format sys:*stdout*)) + (assert-eql :utf-8 (stream-external-format sys:*stderr*)) + (assert-eql :utf-8 (stream-external-format sys:*tty*)) + ;; Check that printing to *standard-output* is correctly encoded. + (dribble "test-format.txt") + ;; Print a Greek lower-case alpha character + (princ #\u+3b1) + (dribble) + (with-open-file (s "test-format.txt" :direction :input) + (let ((c (read-char s))) + (assert-equal #\u+3b1 c)))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/344b948245ca3b33154c767… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/344b948245ca3b33154c767… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-139a-default-external-format-utf8
by Raymond Toy (＠rtoy) 23 Sep '22

23 Sep '22

Raymond Toy pushed new branch issue-139a-default-external-format-utf8 at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-139a-default-extern… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-135-unix-namestring-dot] Add tests for #135
by Raymond Toy (＠rtoy) 20 Sep '22

20 Sep '22

Raymond Toy pushed to branch issue-135-unix-namestring-dot at cmucl / cmucl Commits: 777ccaeb by Raymond Toy at 2022-09-20T16:42:52-07:00 Add tests for #135 - - - - - 1 changed file: - tests/issues.lisp Changes: ===================================== tests/issues.lisp ===================================== @@ -579,3 +579,9 @@ with user-info = (unix:unix-getpwuid uid) while user-info finally (assert-false user-info))) + +(define-test issue.135 + (:tag :issues) + (assert-equalp "." (ext:unix-namestring ".")) + (assert-equalp "./abc.txt" (ext:unix-namestring "abc.txt")) + (assert-equalp "./abc/def/foo.txt" (ext:unix-namestring "abc/def/foo.txt"))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/777ccaebb94ed0ccbf5e8f0… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/777ccaebb94ed0ccbf5e8f0… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0