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

[Git][cmucl/cmucl][master] Update release notes with more closed issues.
by Raymond Toy (＠rtoy) 29 Jan '25

29 Jan '25

Raymond Toy pushed to branch master at cmucl / cmucl Commits: bf461224 by Raymond Toy at 2025-01-29T13:59:15-08:00 Update release notes with more closed issues. - - - - - 1 changed file: - src/general-info/release-21f.md Changes: ===================================== src/general-info/release-21f.md ===================================== @@ -30,6 +30,7 @@ public domain. * ANSI compliance fixes: * Bug fixes: * Gitlab tickets: + * ~~#135~~ `(unix-namestring ".")` returns "" instead of "." * ~~#154~~ piglatin translation does not work anymore * ~~#171~~ Readably print `(make-pathname :name :unspecfic)` * ~~#180~~ Move `get-page-size` to C @@ -52,6 +53,7 @@ public domain. available for Hemlock * ~~#261~~ Remove `get-system-info` from "bsd-os.lisp" * ~~#268~~ Can't clone ansi-test repo on Mac OS CI box + * ~~#262~~ [arch_skip_inst invalid code -55] * ~~#265~~ CI for mac os is broken * ~~#266~~ Support "~user" in namestrings * ~~#269~~ Add function to get user's home directory @@ -77,17 +79,41 @@ public domain. * ~~#299~~ Enable xoroshiro assembly routine * ~~#303~~ Variable `*assert-not-standard-readtable*` defined but not used. + * ~~#309~~ obj_run_linker does unnecessary allocations * ~~#312~~ Compiler error building motif server on Fedora 40 * ~~#314~~ tanh incorrect for large args * ~~#316~~ Support roundtrip character casing * ~~#320~~ Motif variant not defaulted for `x86_linux_clang` config * ~~#321~~ Rename Motif Config.x86 to Config.linux * ~~#323~~ Make string casing functions compliant + * ~~#327~~ Fix up weird CLRLF and LF line terminators in the same file * ~~#329~~ Fix compiler warnings in os.lisp * ~~#330~~ Fix typos in unicode.lisp * ~~#333~~ `load` doesn't accept generalized boolean for `:if-does-not-exist` arg + * ~~#338~~ Solaris/x86 build + * ~~#336~~ Clean up some compiler notes + * ~~#337~~ Cross-compile from x86 (linux) to x86 fails + * ~~#339~~ Solaris/x86 `nl_langinfo` returns "646" + * ~~#340~~ Use `+ascii-limit+` instead of `#x7f` in srctran.lisp + for consistency + * ~~#341~~ Update version feature in cross-compile script + * ~~#342~~ Add CI job to run gcc static analyer + * ~~#348~~ Solaris/x86: u_int64_t vs uint64_t + * ~~#347~~ Solaris/x86: Update cross-compile script + * ~~#350~~ Export warnings on Solaris + * ~~#351~~ Solaris does not recognize `-E` option for grep + * ~~#352~~ Always use bzip2 compression for tarballs + * ~~#353~~ Automatically use gtar on Solaris when making a distribution + * ~~#354~~ Check that executables can be created in CI + * ~~#356~~ Return value from `vm::x87-floating-point-modes` should + have status word in low part of result + * ~~#357~~ Solaris needs limits.h to get `PATH_MAX` in elf.c + * ~~#360~~ Adding site-init file * ~~#361~~ Add herald item to mention where to report issues + * ~~#362~~ Simplify "library:" search-list + * ~~#364~~ Add interface to `mkdtemp` and `mkstemp` + * ~~#369~~ Improve docstring for `unix::unix-setlocale` * 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/bf461224aaa80f802a5f402… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/bf461224aaa80f802a5f402… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-365-add-strerror] 5 commits: Fix #364: Add interface to mkstemp and mkdtemp
by Raymond Toy (＠rtoy) 28 Jan '25

28 Jan '25

Raymond Toy pushed to branch issue-365-add-strerror at cmucl / cmucl Commits: 9ea51cb2 by Raymond Toy at 2025-01-28T14:14:09+00:00 Fix #364: Add interface to mkstemp and mkdtemp - - - - - 98961a8b by Raymond Toy at 2025-01-28T14:14:10+00:00 Merge branch 'issue-364-add-mkstemp-mkdtemp' into 'master' Fix #364: Add interface to mkstemp and mkdtemp Closes #364 See merge request cmucl/cmucl!260 - - - - - 5f94e404 by Raymond Toy at 2025-01-28T15:50:59+00:00 Fix #369: Better docstring for unix-setlocale - - - - - 4bc3e3f4 by Raymond Toy at 2025-01-28T15:50:59+00:00 Merge branch 'issue-369-unix-setlocale-docstring' into 'master' Fix #369: Better docstring for unix-setlocale Closes #369 See merge request cmucl/cmucl!263 - - - - - 3c324a95 by Raymond Toy at 2025-01-28T08:34:18-08:00 Merge branch 'master' into issue-365-add-strerror Fixing conflict in unix.lisp - - - - - 2 changed files: - src/code/unix.lisp - src/i18n/locale/cmucl-unix.pot Changes: ===================================== src/code/unix.lisp ===================================== @@ -2871,7 +2871,10 @@ (int-syscall ("fork"))) (defun unix-setlocale () - _N"Call setlocale(3c) with fixed args. Returns 0 on success." + _N"Set all the categories of the locale according to the values of + the environment variables by calling setlocale(LC_ALL, \"\"). + + Returns 0 on success and -1 if setlocale failed." (alien:alien-funcall (alien:extern-alien "os_setlocale" (function c-call:int)))) @@ -2899,6 +2902,35 @@ (function (* char)))) c-string)) +(defun unix-mkstemp (template) + _N"Generates a unique temporary file name from TEMPLATE, and creates + and opens the file. On success, the corresponding file descriptor + and name of the file is returned. + + The last six characters of the template must be \"XXXXXX\"." + ;; Hope this buffer is large enough! + (let ((octets (%name->file template))) + (syscall ("mkstemp" c-call:c-string) + (values result + ;; Convert the file name back to a Lisp string. + (%file->name octets)) + octets))) + +(defun unix-mkdtemp (template) + _N"Generate a uniquely named temporary directory from Template, + which must have \"XXXXXX\" as the last six characters. The + directory is created with permissions 0700. The name of the + directory is returned." + (let* ((octets (%name->file template)) + (result (alien-funcall + (extern-alien "mkdtemp" + (function (* char) + c-call:c-string)) + octets))) + (if (null-alien result) + (values nil (unix-errno)) + (%file->name octets)))) + (defun unix-strerror (errno) _N"Returns a string that describes the error code Errno" (cast ===================================== src/i18n/locale/cmucl-unix.pot ===================================== @@ -1418,7 +1418,11 @@ msgid "" msgstr "" #: src/code/unix.lisp -msgid "Call setlocale(3c) with fixed args. Returns 0 on success." +msgid "" +"Set all the categories of the locale from the values of the\n" +" environment variables using setlocale(LC_ALL, \"\").\n" +"\n" +" Returns 0 on success and -1 if setlocale failed." msgstr "" #: src/code/unix.lisp View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/c8e3b367dc215677f8e445… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/c8e3b367dc215677f8e445… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #369: Better docstring for unix-setlocale
by Raymond Toy (＠rtoy) 28 Jan '25

28 Jan '25

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 5f94e404 by Raymond Toy at 2025-01-28T15:50:59+00:00 Fix #369: Better docstring for unix-setlocale - - - - - 4bc3e3f4 by Raymond Toy at 2025-01-28T15:50:59+00:00 Merge branch 'issue-369-unix-setlocale-docstring' into 'master' Fix #369: Better docstring for unix-setlocale Closes #369 See merge request cmucl/cmucl!263 - - - - - 2 changed files: - src/code/unix.lisp - src/i18n/locale/cmucl-unix.pot Changes: ===================================== src/code/unix.lisp ===================================== @@ -2873,7 +2873,10 @@ (int-syscall ("fork"))) (defun unix-setlocale () - _N"Call setlocale(3c) with fixed args. Returns 0 on success." + _N"Set all the categories of the locale according to the values of + the environment variables by calling setlocale(LC_ALL, \"\"). + + Returns 0 on success and -1 if setlocale failed." (alien:alien-funcall (alien:extern-alien "os_setlocale" (function c-call:int)))) ===================================== src/i18n/locale/cmucl-unix.pot ===================================== @@ -1418,7 +1418,11 @@ msgid "" msgstr "" #: src/code/unix.lisp -msgid "Call setlocale(3c) with fixed args. Returns 0 on success." +msgid "" +"Set all the categories of the locale from the values of the\n" +" environment variables using setlocale(LC_ALL, \"\").\n" +"\n" +" Returns 0 on success and -1 if setlocale failed." msgstr "" #: src/code/unix.lisp View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/98961a8b36f5608e3c0475… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/98961a8b36f5608e3c0475… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-369-unix-setlocale-docstring] Fix typo in docstring introduced in previous commit
by Raymond Toy (＠rtoy) 28 Jan '25

28 Jan '25

Raymond Toy pushed to branch issue-369-unix-setlocale-docstring at cmucl / cmucl Commits: 7b418580 by Raymond Toy at 2025-01-28T06:16:55-08:00 Fix typo in docstring introduced in previous commit - - - - - 1 changed file: - src/code/unix.lisp Changes: ===================================== src/code/unix.lisp ===================================== @@ -2874,7 +2874,7 @@ (defun unix-setlocale () _N"Set all the categories of the locale according to the values of - the environment variables calling setlocale(LC_ALL, \"\"). + the environment variables by calling setlocale(LC_ALL, \"\"). Returns 0 on success and -1 if setlocale failed." (alien:alien-funcall View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7b418580c66ac4340adb53b… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7b418580c66ac4340adb53b… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-369-unix-setlocale-docstring] Apply suggested changes from review.
by Raymond Toy (＠rtoy) 28 Jan '25

28 Jan '25

Raymond Toy pushed to branch issue-369-unix-setlocale-docstring at cmucl / cmucl Commits: 7dc1d888 by Raymond Toy at 2025-01-28T06:15:37-08:00 Apply suggested changes from review. - - - - - 1 changed file: - src/code/unix.lisp Changes: ===================================== src/code/unix.lisp ===================================== @@ -2873,8 +2873,8 @@ (int-syscall ("fork"))) (defun unix-setlocale () - _N"Set all the categories of the locale from the values of the - environment variables using setlocale(LC_ALL, \"\"). + _N"Set all the categories of the locale according to the values of + the environment variables calling setlocale(LC_ALL, \"\"). Returns 0 on success and -1 if setlocale failed." (alien:alien-funcall View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7dc1d888b781f465357bba9… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7dc1d888b781f465357bba9… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #364: Add interface to mkstemp and mkdtemp
by Raymond Toy (＠rtoy) 28 Jan '25

28 Jan '25

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 9ea51cb2 by Raymond Toy at 2025-01-28T14:14:09+00:00 Fix #364: Add interface to mkstemp and mkdtemp - - - - - 98961a8b by Raymond Toy at 2025-01-28T14:14:10+00:00 Merge branch 'issue-364-add-mkstemp-mkdtemp' into 'master' Fix #364: Add interface to mkstemp and mkdtemp Closes #364 See merge request cmucl/cmucl!260 - - - - - 1 changed file: - src/code/unix.lisp Changes: ===================================== src/code/unix.lisp ===================================== @@ -2900,3 +2900,32 @@ (extern-alien "os_get_locale_codeset" (function (* char)))) c-string)) + +(defun unix-mkstemp (template) + _N"Generates a unique temporary file name from TEMPLATE, and creates + and opens the file. On success, the corresponding file descriptor + and name of the file is returned. + + The last six characters of the template must be \"XXXXXX\"." + ;; Hope this buffer is large enough! + (let ((octets (%name->file template))) + (syscall ("mkstemp" c-call:c-string) + (values result + ;; Convert the file name back to a Lisp string. + (%file->name octets)) + octets))) + +(defun unix-mkdtemp (template) + _N"Generate a uniquely named temporary directory from Template, + which must have \"XXXXXX\" as the last six characters. The + directory is created with permissions 0700. The name of the + directory is returned." + (let* ((octets (%name->file template)) + (result (alien-funcall + (extern-alien "mkdtemp" + (function (* char) + c-call:c-string)) + octets))) + (if (null-alien result) + (values nil (unix-errno)) + (%file->name octets)))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/fbe6f2d65cf23592a74ec5… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/fbe6f2d65cf23592a74ec5… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-367-count-octets-for-encoding] Update pot file for new docstrings
by Raymond Toy (＠rtoy) 17 Jan '25

17 Jan '25

Raymond Toy pushed to branch issue-367-count-octets-for-encoding at cmucl / cmucl Commits: 3f19d402 by Raymond Toy at 2025-01-16T19:36:41-08:00 Update pot file for new docstrings - - - - - 1 changed file: - src/i18n/locale/cmucl.pot Changes: ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -9300,6 +9300,13 @@ msgid "" " external format." msgstr "" +#: src/code/extfmts.lisp +msgid "" +"Compute the number of octets needed to convert String using the\n" +" specified External-format. The string is bound by Start (defaulting\n" +" to 0) and End (defaulting to the end of the string)." +msgstr "" + #: src/code/extfmts.lisp msgid "" "Encode the given String using External-Format and return a new\n" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/3f19d40275a95d5f6d69fce… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/3f19d40275a95d5f6d69fce… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-367-count-octets-for-encoding] Actually use random state in the generator
by Raymond Toy (＠rtoy) 15 Jan '25

15 Jan '25

Raymond Toy pushed to branch issue-367-count-octets-for-encoding at cmucl / cmucl Commits: f859892f by Raymond Toy at 2025-01-15T11:52:51-08:00 Actually use random state in the generator We created a random state to use for generating the test strings, but we didn't actually use the state with `random`. Do so now. - - - - - 1 changed file: - tests/external-formats.lisp Changes: ===================================== tests/external-formats.lisp ===================================== @@ -9,14 +9,14 @@ (let ((rs (kernel::make-random-object :state (kernel::init-random-state 27182828)))) (lisp::codepoints-string (loop for k from 0 below 1000 - collect (random 256)))) + collect (random 256 rs)))) "Random test string with ISO8859-1 characters") (defparameter *test-unicode* (let ((rs (kernel::make-random-object :state (kernel::init-random-state 27182828)))) (lisp::codepoints-string (loop for k from 0 below 1000 - collect (random 20000)))) + collect (random 20000 rs)))) "Random test string with codepoints below 20000") View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/f859892fe82927e2f8ce5a2… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/f859892fe82927e2f8ce5a2… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-367-count-octets-for-encoding] Hack to handle composing formats in string-octet-count
by Raymond Toy (＠rtoy) 15 Jan '25

15 Jan '25

Raymond Toy pushed to branch issue-367-count-octets-for-encoding at cmucl / cmucl Commits: afc9afb0 by Raymond Toy at 2025-01-15T09:04:00-08:00 Hack to handle composing formats in string-octet-count I can't figure out how to make `string-octet-count` work when using composing formats (like (:latin1 :crlf) to output CR/LF for every LF). As a workaround, if the external format is a composing format, use `string-to-octets` to get the number of octets. This is not great, but allows `string-octet-count` to work with composing formats. - - - - - 1 changed file: - src/code/extfmts.lisp Changes: ===================================== src/code/extfmts.lisp ===================================== @@ -1165,9 +1165,21 @@ character and illegal outputs are replaced by a question mark.") "Compute the number of octets needed to convert String using the specified External-format. The string is bound by Start (defaulting to 0) and End (defaulting to the end of the string)." - (lisp::with-array-data ((string string) (start start) (end end)) - (funcall (ef-string-octet-count external-format) - string start end error))) + (let ((composing-format-p + ;; Determine is the external format is a composing format + ;; which we determine by seeing that the name of the format + ;; is a cons. Probably not the best way. + (consp (ef-name (find-external-format external-format))))) + ;; We currently don't know how to get just the number of octets + ;; when a composing external format is used. As a workaround, use + ;; STRING-TO-OCTETS to find the number of octets. + (if composing-format-p + (nth-value 1 + (string-to-octets string :start start :end end + :external-format external-format)) + (lisp::with-array-data ((string string) (start start) (end end)) + (funcall (ef-string-octet-count external-format) + string start end error))))) (def-ef-macro ef-encode (extfmt lisp::lisp +ef-max+ +ef-en+) `(lambda (string start end result error &aux (ptr 0) (state nil)) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/afc9afb0e69ec877fafa02b… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/afc9afb0e69ec877fafa02b… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-367-count-octets-for-encoding] Rename def-ef-macro ef-octet-count to ef-string-octet-count
by Raymond Toy (＠rtoy) 15 Jan '25

15 Jan '25

Raymond Toy pushed to branch issue-367-count-octets-for-encoding at cmucl / cmucl Commits: 1a5889eb by Raymond Toy at 2025-01-14T21:18:44-08:00 Rename def-ef-macro ef-octet-count to ef-string-octet-count It's a bit confusing to use `ef-octet-count` defined by `def-ef-macro` and also have a function named `ef-octet-count`. Thus, rename it. While were at it, add a docstring for `string-octet-count`. - - - - - 1 changed file: - src/code/extfmts.lisp Changes: ===================================== src/code/extfmts.lisp ===================================== @@ -1155,15 +1155,18 @@ character and illegal outputs are replaced by a question mark.") (values (if stringp string (lisp::shrink-vector string pos)) (- pos s-start) last-octet new-state)))) -(def-ef-macro ef-octet-count (extfmt lisp::lisp +ef-max+ +ef-oc+) +(def-ef-macro ef-string-octet-count (extfmt lisp::lisp +ef-max+ +ef-oc+) `(lambda (string start end error &aux (total 0) (state nil)) (dotimes (i (- end start) total) (incf total (octet-count ,extfmt (schar string (+ start i)) state error))))) (defun string-octet-count (string &key (start 0) end (external-format :default) error) + "Compute the number of octets needed to convert String using the + specified External-format. The string is bound by Start (defaulting + to 0) and End (defaulting to the end of the string)." (lisp::with-array-data ((string string) (start start) (end end)) - (funcall (ef-octet-count external-format) + (funcall (ef-string-octet-count external-format) string start end error))) (def-ef-macro ef-encode (extfmt lisp::lisp +ef-max+ +ef-en+) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/1a5889ebc36c14498e1cffa… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/1a5889ebc36c14498e1cffa… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0