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

[Git][cmucl/cmucl][master] Fix some typos.
by Raymond Toy (＠rtoy) 14 Aug '22

14 Aug '22

Raymond Toy pushed to branch master at cmucl / cmucl Commits: f62f1e9e by Raymond Toy at 2022-08-14T08:09:53-07:00 Fix some typos. One was mentioned in !87. Found a few more typos so fixed those too. - - - - - 1 changed file: - src/general-info/release-21e.md Changes: ===================================== src/general-info/release-21e.md ===================================== @@ -1,10 +1,10 @@ # CMUCL 21e -## Work in prograss +## 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 21a release. +fixes from the 21d release. CMUCL is a free, high performance implementation of the Common Lisp programming language which runs on most major Unix platforms. It @@ -39,15 +39,15 @@ public domain. * ~~#90~~ Some static symbols have been removed. This probably makes the fasl files incompatible with older versions. * ~~#91~~ Loop destructuring no longer incorrectly signals an error * ~~#95~~ Disassembler syntax of x86 je and movzx is incorrect - * ~~#97~~ Define and use ud2 instruction isntead of int3. Fixes single-stepping. + * ~~#97~~ Define and use ud2 instruction instead of int3. Fixes single-stepping. * ~~#98~~ fstpd is not an Intel instruction; disassemble as `fstp dword ptr [addr]` - * ~~#100~~ ldb prints out unicode base-chars correctly instead of just the low 8 bits. + * ~~#100~~ ldb prints out Unicode base-chars correctly instead of just the low 8 bits. * ~~#103~~ RANDOM-MT19937-UPDATE assembly routine still exists * ~~#104~~ Single-stepping broken (fixed via #97). * ~~#107~~ Replace u_int8_t with uint8_t * ~~#108~~ Update ASDF * ~~#112~~ CLX can't connect to X server via inet sockets - * ~~#113~~ REQUIRE on contribs can pull in the wrong things vai ASDF. + * ~~#113~~ REQUIRE on contribs can pull in the wrong things via ASDF. * ~~#121~~ Wrong column index in FILL-POINTER-OUTPUT-STREAM * ~~#122~~ gcc 11 can't build cmucl * ~~#127~~ Linux unix-getpwuid segfaults when given non-existent uid. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/f62f1e9ee9835281ee42b6f… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/f62f1e9ee9835281ee42b6f… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #128: quit accepts an exit code
by Raymond Toy (＠rtoy) 14 Aug '22

14 Aug '22

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 9cf3916e by Raymond Toy at 2022-08-14T15:00:30+00:00 Fix #128: quit accepts an exit code - - - - - 3aec3f5e by Raymond Toy at 2022-08-14T15:00:31+00:00 Merge branch 'issue-128-quit-exit-code' into 'master' Fix #128: quit accepts an exit code Closes #128 See merge request cmucl/cmucl!87 - - - - - 3 changed files: - src/code/lispinit.lisp - src/general-info/release-21e.md - src/i18n/locale/cmucl.pot Changes: ===================================== src/code/lispinit.lisp ===================================== @@ -492,14 +492,15 @@ ;;; Quit gets us out, one way or another. -(defun quit (&optional recklessly-p) - "Terminates the current Lisp. Things are cleaned up unless Recklessly-P is - non-Nil." +(defun quit (&optional recklessly-p (code 0)) + "Terminates the current Lisp. Things are cleaned up unless + Recklessly-P is non-Nil. On quitting, Lisp sets the return code to + Code, defaulting to 0." (if recklessly-p - (unix:unix-exit 0) + (unix:unix-exit code) (progn (mapc (lambda (fn) (ignore-errors (funcall fn))) *cleanup-functions*) - (throw '%end-of-the-world 0)))) + (throw '%end-of-the-world code)))) #-mp ; Multi-processing version defined in multi-proc.lisp. ===================================== src/general-info/release-21e.md ===================================== @@ -51,6 +51,7 @@ public domain. * ~~#121~~ Wrong column index in FILL-POINTER-OUTPUT-STREAM * ~~#122~~ gcc 11 can't build cmucl * ~~#127~~ Linux unix-getpwuid segfaults when given non-existent uid. + * ~~#128~~ `QUIT` accepts an exit code * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -309,8 +309,9 @@ msgstr "" #: src/code/lispinit.lisp msgid "" -"Terminates the current Lisp. Things are cleaned up unless Recklessly-P is\n" -" non-Nil." +"Terminates the current Lisp. Things are cleaned up unless\n" +" Recklessly-P is non-Nil. On quitting, Lisp sets the return code to\n" +" Code, defaulting to 0." msgstr "" #: src/code/lispinit.lisp View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/88ca0184f219100c92888c… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/88ca0184f219100c92888c… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-125-unix-stat-wrong] Address review comments
by Raymond Toy (＠rtoy) 14 Aug '22

14 Aug '22

Raymond Toy pushed to branch issue-125-unix-stat-wrong at cmucl / cmucl Commits: 6f0f8c05 by Raymond Toy at 2022-08-13T17:51:12-07:00 Address review comments In unix.lisp, use `c-call:long-long` and `c-call:unsigned-long-long` instead of `int64-t` and `u-int64-t`. Renamed functions from `unix_stat` to `os_stat`. In `os_stat` and friends, if the syscall fails, just return with the code instead of copying random stuff. - - - - - 2 changed files: - src/code/unix.lisp - src/lisp/os-common.c Changes: ===================================== src/code/unix.lisp ===================================== @@ -1337,37 +1337,37 @@ ;; to the stat function. fstat is different from stat and ;; lstat since it takes an fd for the first arg instead of ;; string. - `(with-alien ((dev u-int64-t) - (ino u-int64-t) + `(with-alien ((dev c-call:long-long) + (ino c-call:unsigned-long-long) (mode c-call:unsigned-int) - (nlink u-int64-t) + (nlink c-call:unsigned-long-long) (uid c-call:unsigned-int) (gid c-call:unsigned-int) - (rdev u-int64-t) - (size int64-t) - (atime int64-t) - (mtime int64-t) - (ctime int64-t) + (rdev c-call:unsigned-long-long) + (size c-call:long-long) + (atime c-call:long-long) + (mtime c-call:long-long) + (ctime c-call:long-long) (blksize c-call:long) - (blocks int64-t)) + (blocks c-call:long-long)) (let ((result (alien-funcall (extern-alien ,c-func-name (function int ,first-arg-type - (* u-int64-t) - (* u-int64-t) + (* c-call:long-long) + (* c-call:unsigned-long-long) (* c-call:unsigned-int) - (* u-int64-t) + (* c-call:unsigned-long-long) (* c-call:unsigned-int) (* c-call:unsigned-int) - (* u-int64-t) - (* int64-t) - (* int64-t) - (* int64-t) - (* int64-t) + (* c-call:unsigned-long-long) + (* c-call:long-long) + (* c-call:long-long) + (* c-call:long-long) + (* c-call:long-long) (* c-call:long) - (* int64-t))) + (* c-call:long-long))) ,first-arg (addr dev) (addr ino) @@ -1421,7 +1421,7 @@ (declare (type unix-pathname name)) (when (string= name "") (setf name ".")) - (call-stat "unix_stat" c-call:c-string (%name->file name))) + (call-stat "os_stat" c-call:c-string (%name->file name))) (defun unix-lstat (name) "Unix-lstat is similar to unix-stat except the specified @@ -1443,7 +1443,7 @@ st_blocks Number of blocks allocated. (Block size is implementation dependent.) " (declare (type unix-pathname name)) - (call-stat "unix_lstat" c-call:c-string (%name->file name))) + (call-stat "os_lstat" c-call:c-string (%name->file name))) (defun unix-fstat (fd) _N"Unix-fstat is similar to unix-stat except the file is specified @@ -1465,7 +1465,7 @@ st_blocks Number of blocks allocated. (Block size is implementation dependent.) " (declare (type unix-fd fd)) - (call-stat "unix_fstat" int fd))) + (call-stat "os_fstat" int fd))) (def-alien-type nil (struct rusage ===================================== src/lisp/os-common.c ===================================== @@ -5,12 +5,6 @@ */ -#ifdef __linux__ -/* Needed to get 64-bit objects for stat and friends on Linux. */ -#define _LARGEFILE_SOURCE -#define _FILE_OFFSET_BITS 64 -#endif - #include <errno.h> #include <math.h> #include <netdb.h> @@ -606,17 +600,21 @@ os_sleep(double seconds) * function that works across all OSes. */ int -unix_stat(const char* path, u_int64_t *dev, u_int64_t *ino, unsigned int *mode, u_int64_t *nlink, - unsigned int *uid, unsigned int *gid, u_int64_t *rdev, int64_t *size, - int64_t *atime, int64_t *mtime, int64_t *ctime, - long *blksize, int64_t *blocks) +os_stat(const char* path, u_int64_t *dev, u_int64_t *ino, unsigned int *mode, u_int64_t *nlink, + unsigned int *uid, unsigned int *gid, u_int64_t *rdev, int64_t *size, + int64_t *atime, int64_t *mtime, int64_t *ctime, + long *blksize, int64_t *blocks) { int rc; struct stat buf; rc = stat(path, &buf); -#if 0 + if (rc != 0) { + return rc; + } + +#if 1 /* * Useful prints to see the actual size of the various * fields. Helpful for porting this to other OSes that we haven't @@ -655,16 +653,20 @@ unix_stat(const char* path, u_int64_t *dev, u_int64_t *ino, unsigned int *mode, } int -unix_fstat(int fd, u_int64_t *dev, u_int64_t *ino, unsigned int *mode, u_int64_t *nlink, - unsigned int *uid, unsigned int *gid, u_int64_t *rdev, int64_t *size, - int64_t *atime, int64_t *mtime, int64_t *ctime, - long *blksize, int64_t *blocks) +os_fstat(int fd, u_int64_t *dev, u_int64_t *ino, unsigned int *mode, u_int64_t *nlink, + unsigned int *uid, unsigned int *gid, u_int64_t *rdev, int64_t *size, + int64_t *atime, int64_t *mtime, int64_t *ctime, + long *blksize, int64_t *blocks) { int rc; struct stat buf; rc = fstat(fd, &buf); + if (rc != 0) { + return rc; + } + *dev = buf.st_dev; *ino = buf.st_ino; *mode = buf.st_mode; @@ -683,16 +685,20 @@ unix_fstat(int fd, u_int64_t *dev, u_int64_t *ino, unsigned int *mode, u_int64_t } int -unix_lstat(const char* path, u_int64_t *dev, u_int64_t *ino, unsigned int *mode, u_int64_t *nlink, - unsigned int *uid, unsigned int *gid, u_int64_t *rdev, int64_t *size, - int64_t *atime, int64_t *mtime, int64_t *ctime, - long *blksize, int64_t *blocks) +os_lstat(const char* path, u_int64_t *dev, u_int64_t *ino, unsigned int *mode, u_int64_t *nlink, + unsigned int *uid, unsigned int *gid, u_int64_t *rdev, int64_t *size, + int64_t *atime, int64_t *mtime, int64_t *ctime, + long *blksize, int64_t *blocks) { int rc; struct stat buf; rc = lstat(path, &buf); + if (rc != 0) { + return rc; + } + *dev = buf.st_dev; *ino = buf.st_ino; *mode = buf.st_mode; View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/6f0f8c0501d22d6e63d237f… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/6f0f8c0501d22d6e63d237f… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-128-quit-exit-code] Rename exit-code to code.
by Raymond Toy (＠rtoy) 14 Aug '22

14 Aug '22

Raymond Toy pushed to branch issue-128-quit-exit-code at cmucl / cmucl Commits: bfdd1d8c by Raymond Toy at 2022-08-13T17:20:01-07:00 Rename exit-code to code. Carl, offline, suggested renaming exit-code to just code. The docstring is also updated, along with the pot file because the docstring changed. Update the release notes as well. - - - - - 3 changed files: - src/code/lispinit.lisp - src/general-info/release-21e.md - src/i18n/locale/cmucl.pot Changes: ===================================== src/code/lispinit.lisp ===================================== @@ -492,15 +492,15 @@ ;;; Quit gets us out, one way or another. -(defun quit (&optional recklessly-p (exit-code 0)) +(defun quit (&optional recklessly-p (code 0)) "Terminates the current Lisp. Things are cleaned up unless Recklessly-P is non-Nil. On quitting, Lisp sets the return code to - exit-code, defaulting to 0." + Code, defaulting to 0." (if recklessly-p - (unix:unix-exit exit-code) + (unix:unix-exit code) (progn (mapc (lambda (fn) (ignore-errors (funcall fn))) *cleanup-functions*) - (throw '%end-of-the-world exit-code)))) + (throw '%end-of-the-world code)))) #-mp ; Multi-processing version defined in multi-proc.lisp. ===================================== src/general-info/release-21e.md ===================================== @@ -51,6 +51,7 @@ public domain. * ~~#121~~ Wrong column index in FILL-POINTER-OUTPUT-STREAM * ~~#122~~ gcc 11 can't build cmucl * ~~#127~~ Linux unix-getpwuid segfaults when given non-existent uid. + * ~~#128~~ `QUIT` accepts an exit code * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -311,7 +311,7 @@ msgstr "" msgid "" "Terminates the current Lisp. Things are cleaned up unless\n" " Recklessly-P is non-Nil. On quitting, Lisp sets the return code to\n" -" exit-code, defaulting to 0." +" Code, defaulting to 0." msgstr "" #: src/code/lispinit.lisp View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/bfdd1d8c039f13caf593472… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/bfdd1d8c039f13caf593472… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-128-quit-exit-code
by Raymond Toy (＠rtoy) 12 Aug '22

12 Aug '22

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

1 0

[Git][cmucl/cmucl][master] Update release notes
by Raymond Toy (＠rtoy) 08 Aug '22

08 Aug '22

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 88ca0184 by Raymond Toy at 2022-08-08T10:44:47-07:00 Update release notes We've fixed bugs #122 and #127 now, so make a note of it. - - - - - 1 changed file: - src/general-info/release-21e.md Changes: ===================================== src/general-info/release-21e.md ===================================== @@ -49,6 +49,8 @@ public domain. * ~~#112~~ CLX can't connect to X server via inet sockets * ~~#113~~ REQUIRE on contribs can pull in the wrong things vai ASDF. * ~~#121~~ Wrong column index in FILL-POINTER-OUTPUT-STREAM + * ~~#122~~ gcc 11 can't build cmucl + * ~~#127~~ Linux unix-getpwuid segfaults when given non-existent uid. * 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/88ca0184f219100c92888cf… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/88ca0184f219100c92888cf… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Update to ASDF 3.3.6
by Raymond Toy (＠rtoy) 08 Aug '22

08 Aug '22

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 73cdf68c by Raymond Toy at 2022-08-08T10:40:37-07:00 Update to ASDF 3.3.6 - - - - - 1 changed file: - src/contrib/asdf/asdf.lisp The diff was not included because it is too large. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/73cdf68c5a163577b073499… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/73cdf68c5a163577b073499… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #127: Linux unix:unix-getpwuid segfaults with invalid uid
by Raymond Toy (＠rtoy) 08 Aug '22

08 Aug '22

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 1af344b3 by Raymond Toy at 2022-08-08T17:39:43+00:00 Fix #127: Linux unix:unix-getpwuid segfaults with invalid uid - - - - - 9bba5bc4 by Raymond Toy at 2022-08-08T17:39:45+00:00 Merge branch 'issue-127-getpwuid-segfault' into 'master' Fix #127: Linux unix:unix-getpwuid segfaults with invalid uid Closes #127 See merge request cmucl/cmucl!86 - - - - - 2 changed files: - src/code/unix.lisp - tests/issues.lisp Changes: ===================================== src/code/unix.lisp ===================================== @@ -2748,9 +2748,12 @@ #+linux (defun unix-getpwuid (uid) - _N"Return a USER-INFO structure for the user identified by UID, or NIL if not found." + "Return a USER-INFO structure for the user identified by UID. If + not found, NIL is returned with a second value indicating the cause + of the failure. In particular, if the second value is 0 (or + ENONENT, ESRCH, EBADF, etc.), then the uid was not found." (declare (type unix-uid uid)) - (with-alien ((buf (array c-call:char 1024)) + (with-alien ((buf (array c-call:char 16384)) (user-info (struct passwd)) (result (* (struct passwd)))) (let ((returned @@ -2767,15 +2770,16 @@ (cast buf (* c-call:char)) 1024 (addr result)))) - (when (zerop returned) - (make-user-info - :name (string (cast (slot result 'pw-name) c-call:c-string)) - :password (string (cast (slot result 'pw-passwd) c-call:c-string)) - :uid (slot result 'pw-uid) - :gid (slot result 'pw-gid) - :gecos (string (cast (slot result 'pw-gecos) c-call:c-string)) - :dir (string (cast (slot result 'pw-dir) c-call:c-string)) - :shell (string (cast (slot result 'pw-shell) c-call:c-string))))))) + (if (not (zerop (sap-int (alien-sap result)))) + (make-user-info + :name (string (cast (slot result 'pw-name) c-call:c-string)) + :password (string (cast (slot result 'pw-passwd) c-call:c-string)) + :uid (slot result 'pw-uid) + :gid (slot result 'pw-gid) + :gecos (string (cast (slot result 'pw-gecos) c-call:c-string)) + :dir (string (cast (slot result 'pw-dir) c-call:c-string)) + :shell (string (cast (slot result 'pw-shell) c-call:c-string))) + (values nil returned))))) ;;; Getrusage is not provided in the C library on Solaris 2.4, and is ;;; rather slow on later versions so the "times" system call is ===================================== tests/issues.lisp ===================================== @@ -570,3 +570,12 @@ (terpri s) (fresh-line s)) a))) + +(define-test issue.127 + (:tag :issues) + ;; Let's just start at uid 10000 and keep going up until we fail. + ;; There should be no segfaults when we find an invalid uid. + (loop for uid from 10000 + with user-info = (unix:unix-getpwuid uid) + while user-info + finally (assert-false user-info))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/00907500388dcbabd11306… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/00907500388dcbabd11306… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-127-getpwuid-segfault
by Raymond Toy (＠rtoy) 07 Aug '22

07 Aug '22

Raymond Toy pushed new branch issue-127-getpwuid-segfault at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-127-getpwuid-segfau… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-125-unix-stat-wrong] Remove stat from contrib unix
by Raymond Toy (＠rtoy) 04 Aug '22

04 Aug '22

Raymond Toy pushed to branch issue-125-unix-stat-wrong at cmucl / cmucl Commits: 9c22aa80 by Raymond Toy at 2022-08-04T16:18:22-07:00 Remove stat from contrib unix contrib/unix/unix.lisp still had definitions of the alien typestruct stat. Remove these since they're not used there anyway. contrib/unix/unix.lisp and contrib/unix/unix-glibc2.lisp both had exports for unix-stat, unix-fstat, and unix-lstat. Remove these. - - - - - 2 changed files: - src/contrib/unix/unix-glibc2.lisp - src/contrib/unix/unix.lisp Changes: ===================================== src/contrib/unix/unix-glibc2.lisp ===================================== @@ -175,7 +175,7 @@ TIOCSIGSEND KBDCGET KBDCSET KBDCRESET KBDCRST KBDCSSTD KBDSGET KBDGCLICK - KBDSCLICK FIONREAD unix-exit unix-stat unix-lstat unix-fstat + KBDSCLICK FIONREAD unix-exit unix-getrusage unix-fast-getrusage rusage_self rusage_children unix-gettimeofday unix-utimes unix-sched-yield unix-setreuid ===================================== src/contrib/unix/unix.lisp ===================================== @@ -159,7 +159,7 @@ KBDCGET KBDCSET KBDCRESET KBDCRST KBDCSSTD KBDSGET KBDGCLICK KBDSCLICK FIONREAD #+(or hpux bsd) siocspgrp - unix-exit unix-stat unix-lstat unix-fstat + unix-exit unix-getrusage unix-fast-getrusage rusage_self rusage_children unix-gettimeofday #-hpux unix-utimes #-(or svr4 hpux) unix-setreuid @@ -230,50 +230,6 @@ ;;; -;;; From sys/stat.h -;; oh boy, in linux-> 2 stat(s)!! - -#-(or svr4 bsd linux) ; eg hpux and alpha -(def-alien-type nil - (struct stat - (st-dev dev-t) - (st-ino ino-t) - (st-mode mode-t) - (st-nlink nlink-t) - (st-uid uid-t) - (st-gid gid-t) - (st-rdev dev-t) - (st-size off-t) - (st-atime time-t) - (st-spare1 int) - (st-mtime time-t) - (st-spare2 int) - (st-ctime time-t) - (st-spare3 int) - (st-blksize #-alpha long #+alpha unsigned-int) - (st-blocks #-alpha long #+alpha int) - (st-spare4 (array long 2)))) - -#+netbsd -(def-alien-type nil - (struct stat - (st-dev dev-t) - (st-mode mode-t) - (st-ino ino-t) - (st-nlink nlink-t) - (st-uid uid-t) - (st-gid gid-t) - (st-rdev dev-t) - (st-atime (struct timespec-t)) - (st-mtime (struct timespec-t)) - (st-ctime (struct timespec-t)) - (st-birthtime (struct timespec-t)) - (st-size off-t) - (st-blocks off-t) - (st-blksize long) - (st-flags unsigned-long) - (st-gen unsigned-long) - (st-spare (array unsigned-long 2)))) ;;; From sys/resource.h View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/9c22aa80d7969fdc518d8aa… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/9c22aa80d7969fdc518d8aa… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0