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

[Git][cmucl/cmucl] Pushed new tag 21e
by Raymond Toy (＠rtoy) 14 May '23

14 May '23

Raymond Toy pushed new tag 21e at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/21e You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][branch-21e] Update release notes for 21e.
by Raymond Toy (＠rtoy) 14 May '23

14 May '23

Raymond Toy pushed to branch branch-21e at cmucl / cmucl Commits: e82bebb7 by Raymond Toy at 2023-05-13T17:29:42-07:00 Update release notes for 21e. Basically just remove the WIP section title. - - - - - 1 changed file: - src/general-info/release-21e.md Changes: ===================================== src/general-info/release-21e.md ===================================== @@ -1,7 +1,5 @@ # CMUCL 21e -## Work in progress - The CMUCL project is pleased to announce the release of CMUCL 21e. This is a major release which contains numerous enhancements and bug fixes from the 21d release. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e82bebb7be1f2a642286246… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e82bebb7be1f2a642286246… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch branch-21e
by Raymond Toy (＠rtoy) 13 May '23

13 May '23

Raymond Toy pushed new branch branch-21e at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/branch-21e You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Update cmucl.pot and cmucl-unix.pot for Linux
by Raymond Toy (＠rtoy) 12 May '23

12 May '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: d53c9575 by Raymond Toy at 2023-05-12T16:43:51-07:00 Update cmucl.pot and cmucl-unix.pot for Linux See also #223. - - - - - 2 changed files: - src/i18n/locale/cmucl-unix.pot - src/i18n/locale/cmucl.pot Changes: ===================================== src/i18n/locale/cmucl-unix.pot ===================================== @@ -1356,6 +1356,14 @@ msgid "" "found." msgstr "" +#: src/code/unix.lisp +msgid "" +"Return a USER-INFO structure for the user identified by UID. If\n" +" not found, NIL is returned with a second value indicating the cause\n" +" of the failure. In particular, if the second value is 0 (or\n" +" ENONENT, ESRCH, EBADF, etc.), then the uid was not found." +msgstr "" + #: src/code/unix.lisp msgid "" "Unix-times returns information about the cpu time usage of the process\n" ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -9599,15 +9599,6 @@ msgid "" " an otherwise undefined logical host." msgstr "" -#: src/code/pathname.lisp -msgid "" -"When non-NIL, pathnames are on Darwin are normalized when created.\n" -" Otherwise, the pathnames are unchanged.\n" -"\n" -" This must be NIL during bootstrapping because Unicode is not yet\n" -" available." -msgstr "" - #: src/code/pathname.lisp msgid "A path specification, either a string, file-stream or pathname." msgstr "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d53c9575b1166a3a9d5e98b… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d53c9575b1166a3a9d5e98b… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Update pot files for Darwin
by Raymond Toy (＠rtoy) 12 May '23

12 May '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 7774063f by Raymond Toy at 2023-05-12T16:28:16-07:00 Update pot files for Darwin - - - - - 2 changed files: - src/i18n/locale/cmucl-unix.pot - src/i18n/locale/cmucl.pot Changes: ===================================== src/i18n/locale/cmucl-unix.pot ===================================== @@ -1356,14 +1356,6 @@ msgid "" "found." msgstr "" -#: src/code/unix.lisp -msgid "" -"Return a USER-INFO structure for the user identified by UID. If\n" -" not found, NIL is returned with a second value indicating the cause\n" -" of the failure. In particular, if the second value is 0 (or\n" -" ENONENT, ESRCH, EBADF, etc.), then the uid was not found." -msgstr "" - #: src/code/unix.lisp msgid "" "Unix-times returns information about the cpu time usage of the process\n" ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -9599,6 +9599,15 @@ msgid "" " an otherwise undefined logical host." msgstr "" +#: src/code/pathname.lisp +msgid "" +"When non-NIL, pathnames are on Darwin are normalized when created.\n" +" Otherwise, the pathnames are unchanged.\n" +"\n" +" This must be NIL during bootstrapping because Unicode is not yet\n" +" available." +msgstr "" + #: src/code/pathname.lisp msgid "A path specification, either a string, file-stream or pathname." msgstr "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7774063faced8bd6f635408… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7774063faced8bd6f635408… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Update cmucl.pot
by Raymond Toy (＠rtoy) 10 May '23

10 May '23

Raymond Toy pushed to branch master at cmucl / cmucl Commits: a4c000f9 by Raymond Toy at 2023-05-10T11:48:33-07:00 Update cmucl.pot Issue #143 updated a docstring so the pot file needs updating. - - - - - ee480fbf by Raymond Toy at 2023-05-10T11:49:20-07:00 Update release notes Issue #143 has been fixed. - - - - - 2 changed files: - src/general-info/release-21e.md - src/i18n/locale/cmucl.pot Changes: ===================================== src/general-info/release-21e.md ===================================== @@ -64,6 +64,7 @@ public domain. * ~~#140~~ External format for streams that are not `file-stream`'s. * ~~#141~~ Disallow locales that are pathnames to a localedef file. * ~~#142~~ `(random 0)` signals incorrect error. + * ~~#143~~ `LISTEN` doesn't signal error when given more than one arg * ~~#147~~ `stream-line-column` method missing for `fundamental-character-output-stream`. * ~~#149~~ Call setlocale(3C) on startup. * ~~#150~~ Add aliases for external format cp949 and euckr. ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -7024,7 +7024,15 @@ msgid "Impossible case reached in PEEK-CHAR" msgstr "" #: src/code/stream.lisp -msgid "Returns T if a character is available on the given Stream." +msgid "" +"Returns T if a character is available on the given Stream.\n" +" Argument Width is only used by instances of SIMPLE-STREAM. If\n" +" Stream is a LISP-STREAM or FUNDAMENTAL-STREAM, passing more\n" +" than one argument is invalid." +msgstr "" + +#: src/code/interr.lisp src/code/stream.lisp +msgid "Invalid number of arguments: ~S" msgstr "" #: src/code/stream.lisp @@ -10912,10 +10920,6 @@ msgstr "" msgid "Unknown error:~{ ~S~})" msgstr "" -#: src/code/interr.lisp -msgid "Invalid number of arguments: ~S" -msgstr "" - #: src/code/interr.lisp msgid "Attempt to use VALUES-LIST on a dotted-list:~% ~S" msgstr "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/e472bd4ff2846f2f6d4ac6… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/e472bd4ff2846f2f6d4ac6… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #143 - Adds argument checking for lisp-streams and Gray sttreams for LISTEN
by Jon Boone (＠jboone) 09 May '23

09 May '23

Jon Boone pushed to branch master at cmucl / cmucl Commits: 6162e5b4 by Jon Boone at 2023-05-09T17:38:36+00:00 Fix #143 - Adds argument checking for lisp-streams and Gray sttreams for LISTEN - - - - - e472bd4f by Jon Boone at 2023-05-09T17:38:47+00:00 Merge branch 'issue-143-ansi-compliance-failure-listen-extra-argument' into 'master' Fix #143 - Adds argument checking for lisp-streams and Gray sttreams for LISTEN Closes #143 See merge request cmucl/cmucl!145 - - - - - 1 changed file: - src/code/stream.lisp Changes: ===================================== src/code/stream.lisp ===================================== @@ -604,19 +604,34 @@ :skipped-char-form () :eof-detected-form (eof-or-lose stream eof-errorp eof-value)))))) -(defun listen (&optional (stream *standard-input*) (width 1)) - "Returns T if a character is available on the given Stream." +(defun listen (&optional (stream *standard-input*) (width 1 width-p)) + _N"Returns T if a character is available on the given Stream. + Argument Width is only used by instances of SIMPLE-STREAM. If + Stream is a LISP-STREAM or FUNDAMENTAL-STREAM, passing more + than one argument is invalid." (declare (type streamlike stream)) (let ((stream (in-synonym-of stream))) (stream-dispatch stream ;; simple-stream (stream::%listen stream width) ;; lisp-stream - (or (/= (the fixnum (lisp-stream-in-index stream)) in-buffer-length) - ;; Test for t explicitly since misc methods return :eof sometimes. - (eq (funcall (lisp-stream-misc stream) stream :listen) t)) + (progn + (when width-p + (error 'kernel:simple-program-error + :function-name 'listen + :format-control (intl:gettext "Invalid number of arguments: ~S") + :format-arguments (list 2))) + (or (/= (the fixnum (lisp-stream-in-index stream)) in-buffer-length) + ;; Test for t explicitly since misc methods return :eof sometimes. + (eq (funcall (lisp-stream-misc stream) stream :listen) t))) ;; fundamental-stream - (stream-listen stream)))) + (progn + (when width-p + (error 'kernel:simple-program-error + :function-name 'listen + :format-control (intl:gettext "Invalid number of arguments: ~S") + :format-arguments (list 2))) + (stream-listen stream))))) (defun read-char-no-hang (&optional (stream *standard-input*) (eof-errorp t) eof-value recursive-p) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/fa4edacbea17140c0e869a… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/fa4edacbea17140c0e869a… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-195-relocatable-stacks-by-default
by Raymond Toy (＠rtoy) 08 May '23

08 May '23

Raymond Toy pushed new branch issue-195-relocatable-stacks-by-default at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-195-relocatable-sta… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-143-ansi-compliance-failure-listen-extra-argument] Fix #143 - correcting docstring to conform with CMUCL style
by Jon Boone (＠jboone) 04 May '23

04 May '23

Jon Boone pushed to branch issue-143-ansi-compliance-failure-listen-extra-argument at cmucl / cmucl Commits: 4ad74293 by Jon Boone at 2023-05-04T12:10:06-04:00 Fix #143 - correcting docstring to conform with CMUCL style - - - - - 1 changed file: - src/code/stream.lisp Changes: ===================================== src/code/stream.lisp ===================================== @@ -606,9 +606,9 @@ (defun listen (&optional (stream *standard-input*) (width 1 width-p)) _N"Returns T if a character is available on the given Stream. - Argument width is only used by streams of type simple-stream. - If stream is of type lisp-stream or fundamental-stream, - passing more than one argument is invalid. " + Argument Width is only used by instances of SIMPLE-STREAM. If + Stream is a LISP-STREAM or FUNDAMENTAL-STREAM, passing more + than one argument is invalid." (declare (type streamlike stream)) (let ((stream (in-synonym-of stream))) (stream-dispatch stream View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/4ad742939d3f88369c719cf… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/4ad742939d3f88369c719cf… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-143-ansi-compliance-failure-listen-extra-argument] Fix #143 - add gray-stream support and update docstring
by Jon Boone (＠jboone) 03 May '23

03 May '23

Jon Boone pushed to branch issue-143-ansi-compliance-failure-listen-extra-argument at cmucl / cmucl Commits: 873fa8b1 by Jon Boone at 2023-05-03T19:33:09-04:00 Fix #143 - add gray-stream support and update docstring - - - - - 1 changed file: - src/code/stream.lisp Changes: ===================================== src/code/stream.lisp ===================================== @@ -605,7 +605,10 @@ :eof-detected-form (eof-or-lose stream eof-errorp eof-value)))))) (defun listen (&optional (stream *standard-input*) (width 1 width-p)) - "Returns T if a character is available on the given Stream." + _N"Returns T if a character is available on the given Stream. + Argument width is only used by streams of type simple-stream. + If stream is of type lisp-stream or fundamental-stream, + passing more than one argument is invalid. " (declare (type streamlike stream)) (let ((stream (in-synonym-of stream))) (stream-dispatch stream @@ -622,7 +625,13 @@ ;; Test for t explicitly since misc methods return :eof sometimes. (eq (funcall (lisp-stream-misc stream) stream :listen) t))) ;; fundamental-stream - (stream-listen stream)))) + (progn + (when width-p + (error 'kernel:simple-program-error + :function-name 'listen + :format-control (intl:gettext "Invalid number of arguments: ~S") + :format-arguments (list 2))) + (stream-listen stream))))) (defun read-char-no-hang (&optional (stream *standard-input*) (eof-errorp t) eof-value recursive-p) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/873fa8b1049aea0c7165ef3… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/873fa8b1049aea0c7165ef3… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0