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

[Git][cmucl/cmucl][master] 21f is not a WIP
by Raymond Toy (＠rtoy) 06 Nov '25

06 Nov '25

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 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] - - - - - 1 changed file: - src/general-info/release-21f.md Changes: ===================================== src/general-info/release-21f.md ===================================== @@ -1,7 +1,5 @@ # CMUCL 21f -# Work in progress - The CMUCL project is pleased to announce the release of CMUCL 21f. This is a major release which contains numerous enhancements and bug fixes from the <previous> release. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/c5c80aef9bc5763f692b3ec… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/c5c80aef9bc5763f692b3ec… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-446-use-cc-to-get-errno] Move template files from bin/ to src/tools/
by Raymond Toy (＠rtoy) 06 Nov '25

06 Nov '25

Raymond Toy pushed to branch issue-446-use-cc-to-get-errno at cmucl / cmucl Commits: 6ff5b552 by Raymond Toy at 2025-11-06T06:23:31-08:00 Move template files from bin/ to src/tools/ Update create-errno.sh appropriately. - - - - - 4 changed files: - bin/create-errno.sh - bin/errno-default.lisp → src/tools/errno-default.lisp - bin/errno-template.lisp → src/tools/errno-template.lisp - bin/unix-pkg-template.lisp → src/tools/unix-pkg-template.lisp Changes: ===================================== bin/create-errno.sh ===================================== @@ -51,13 +51,13 @@ OUTPUT="src/code/errno.lisp" OUTPUT_PKG="src/code/exports-unix.lisp" # Default file containing errno definitions. -ERRNO_FILE="bin/errno-default.lisp" +ERRNO_FILE="src/tools/errno-default.lisp" # Template file containing the default def-unix-error forms and other # support code. TEMPLATE is for the definition of all the errno # values. TEMPLATE_PKG is for the definition of the UNIX package. -TEMPLATE="bin/errno-template.lisp" -TEMPLATE_PKG="bin/unix-pkg-template.lisp" +TEMPLATE="src/tools/errno-template.lisp" +TEMPLATE_PKG="src/tools/unix-pkg-template.lisp" # Set ERRNO_FILE to an OS-specific name if possible. If not, use the # default ERRNO_FILE value. ===================================== bin/errno-default.lisp → src/tools/errno-default.lisp ===================================== ===================================== bin/errno-template.lisp → src/tools/errno-template.lisp ===================================== ===================================== bin/unix-pkg-template.lisp → src/tools/unix-pkg-template.lisp ===================================== View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/6ff5b5522fd77c92ce81865… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/6ff5b5522fd77c92ce81865… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-446-use-cc-to-get-errno] Remove nil'ed out code and update some comments
by Raymond Toy (＠rtoy) 06 Nov '25

06 Nov '25

Raymond Toy pushed to branch issue-446-use-cc-to-get-errno at cmucl / cmucl Commits: cd2b834a by Raymond Toy at 2025-11-06T06:10:52-08:00 Remove nil'ed out code and update some comments Forgot to remove the old code from exports.lisp that was commented out because they're not needed or got moved to other files. - - - - - 2 changed files: - bin/create-errno.sh - src/code/exports.lisp Changes: ===================================== bin/create-errno.sh ===================================== @@ -22,7 +22,7 @@ If no options are given (the usual case), src/code/errno.lisp is updated with the OS-specific values in bin/errno-{lisp,darwin,solaris}.lisp. For other OSes a default value in bin/errno-default.lisp is used. For supported OSes, we also -regenerate the def-unix-error forms from the system header files and +regenerate the defconstant forms from the system header files and display a diff between this and the existing files. If -U is given, the existing OS-specific file is updated with the ===================================== src/code/exports.lisp ===================================== @@ -133,10 +133,6 @@ (use-package '("SYSTEM" "ALIEN-INTERNALS" "ALIEN" "LISP") "C-CALL") (use-package '("KERNEL" "EXTENSIONS" "LISP") "INSPECT") (use-package '("LISP" "KERNEL") "BIGNUM") -#+nil -(use-package '("LISP") "ERRNO") -#+nil -(use-package '("LISP") "UNIX") (use-package '("KERNEL" "LISP" "EXTENSIONS") "FORMAT") (use-package '("EXTENSIONS" "SYSTEM" "DEBUG" "KERNEL" "BIGNUM") "LISP") (use-package '("LISP" "KERNEL") "EVAL") @@ -196,310 +192,6 @@ "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS" "MULTIPLY-FIXNUMS" "NEGATE-BIGNUM" "SUBTRACT-BIGNUM")) -#+nil -(defpackage "UNIX" - (:export "UNIX-CURRENT-DIRECTORY" - "UNIX-OPEN" - "UNIX-READ" - "UNIX-WRITE" - "UNIX-GETPAGESIZE" - "UNIX-ERRNO" - "UNIX-MAYBE-PREPEND-CURRENT-DIRECTORY" - "UNIX-REALPATH" - "UNIX-CLOSE" - "UNIX-STAT" - "UNIX-LSTAT" - "UNIX-FSTAT" - "UNIX-GETHOSTNAME" - "UNIX-LSEEK" - "UNIX-EXIT" - "UNIX-CHDIR" - "UNIX-ACCESS" - "UNIX-DUP" - "UNIX-CHMOD" - "UNIX-READLINK" - "UNIX-RENAME" - "UNIX-SELECT" - "UNIX-FAST-GETRUSAGE" - "UNIX-GETRUSAGE" - "UNIX-GETTIMEOFDAY" - "UNIX-ISATTY" - "UNIX-MKDIR" - "UNIX-RMDIR" - "UNIX-UNLINK" - "TIMEZONE" - "TIMEVAL" - "SIZE-T" - "OFF-T" - "INO-T" - "DEV-T" - "TIME-T" - "USER-INFO-NAME" - "INT64-T" - "MODE-T" - "UNIX-FAST-SELECT" - "UNIX-PIPE" - "UNIX-GETPID" - "UNIX-GETHOSTID" - "UNIX-UID" - "UNIX-GID" - "GET-UNIX-ERROR-MSG" - "WINSIZE" - "TIMEVAL" - "CLOSE-DIR" - "OPEN-DIR" - "READ-DIR" - - ;; filesys.lisp - "UNIX-GETPWUID" - - ;; multi-proc.lisp - "UNIX-SETITIMER" - - ;; run-program.lisp - "UNIX-TTYNAME" - "UNIX-IOCTL" - "UNIX-OPENPTY" - - ;; alien-callback.lisp - "UNIX-MPROTECT" - - ;; internet.lisp - "UNIX-SOCKET" - "UNIX-CONNECT" - "UNIX-BIND" - "UNIX-LISTEN" - "UNIX-ACCEPT" - "UNIX-GETSOCKOPT" - "UNIX-SETSOCKOPT" - "UNIX-GETPEERNAME" - "UNIX-GETSOCKNAME" - "UNIX-RECV" - "UNIX-SEND" - "UNIX-RECVFROM" - "UNIX-SENDTO" - "UNIX-SHUTDOWN" - "UNIX-FCNTL" - - ;; serve-event.lisp - "FD-SETSIZE" - "FD-ISSET" - "FD-CLR" - - ;; Simple streams - "PROT_READ" - "UNIX-MMAP" - "UNIX-MUNMAP" - "UNIX-MSYNC" - - ;; Motif - "UNIX-GETUID" - - ;; Hemlock - "UNIX-CFGETOSPEED" - "TERMIOS" - "UNIX-TCGETATTR" - "UNIX-TCSETATTR" - "UNIX-FCHMOD" - "UNIX-CREAT" - "UNIX-UTIMES" - - ;; Tests - "UNIX-SYMLINK" - - ;; Other symbols from structures, etc. - "C-CC" "C-CFLAG" "C-IFLAG" "C-ISPEED" "C-LFLAG" "C-OFLAG" "C-OSPEED" - "CHECK" "D-NAME" "D-RECLEN" - "F-GETFL" "F-GETOWN" "F-SETFL" "F-SETOWN" "FAPPEND" - "FASYNC" "FD-SET" "FD-ZERO" "FNDELAY" "F_OK" "GID-T" "IT-INTERVAL" - "IT-VALUE" "ITIMERVAL" "L_INCR" "L_SET" "L_XTND" "MAP_ANONYMOUS" - "MAP_FIXED" "MAP_PRIVATE" "MAP_SHARED" "MS_ASYNC" "MS_INVALIDATE" - "MS_SYNC" "O_APPEND" "O_CREAT" "O_EXCL" "O_NDELAY" "O_NONBLOCK" - "O_RDONLY" "O_RDWR" "O_TRUNC" "O_WRONLY" "PROT_EXEC" "PROT_NONE" - "PROT_WRITE" "RU-IDRSS" "RU-INBLOCK" "RU-ISRSS" "RU-IXRSS" "RU-MAJFLT" - "RU-MAXRSS" "RU-MINFLT" "RU-MSGRCV" "RU-MSGSND" "RU-NIVCSW" "RU-NSIGNALS" - "RU-NSWAP" "RU-NVCSW" "RU-OUBLOCK" "RU-STIME" "RU-UTIME" - "RUSAGE_CHILDREN" "RUSAGE_SELF" "R_OK" "S-IFBLK" "S-IFCHR" "S-IFDIR" - "S-IFLNK" "S-IFMT" "S-IFREG" "S-IFSOCK" "SIGABRT" "SIGALRM" "SIGBUS" - "SIGCHLD" "SIGCONT" "SIGCONTEXT" "SIGFPE" "SIGHUP" "SIGILL" "SIGINT" - "SIGIO" "SIGIOT" "SIGKILL" "SIGMASK" "SIGPIPE" "SIGPROF" "SIGQUIT" - "SIGSEGV" "SIGSTOP" "SIGTERM" "SIGTRAP" "SIGTSTP" "SIGTTIN" "SIGTTOU" - "SIGURG" "SIGUSR1" "SIGUSR2" "SIGVTALRM" "SIGWINCH" "SIGXCPU" "SIGXFSZ" - "ST-ATIME" "ST-BLKSIZE" "ST-BLOCKS" "ST-CTIME" "ST-DEV" "ST-GID" - "ST-MODE" "ST-MTIME" "ST-NLINK" "ST-RDEV" "ST-SIZE" "ST-UID" "STAT" - "TCSADRAIN" "TCSAFLUSH" "TCSANOW" "TIOCGPGRP" "TIOCGWINSZ" "TIOCNOTTY" - "TIOCSPGRP" "TIOCSWINSZ" "TTY-BRKINT" "TTY-ECHO" "TTY-ECHOCTL" - "TTY-ECHOE" "TTY-ECHOK" "TTY-ECHOKE" "TTY-ECHONL" "TTY-ECHOPRT" - "TTY-FLUSHO" "TTY-ICANON" "TTY-ICRNL" "TTY-IEXTEN" "TTY-IGNBRK" - "TTY-IGNCR" "TTY-IGNPAR" "TTY-IMAXBEL" "TTY-INLCR" "TTY-INPCK" "TTY-ISIG" - "TTY-ISTRIP" "TTY-IXANY" "TTY-IXOFF" "TTY-IXON" "TTY-NOFLSH" "TTY-ONLCR" - "TTY-OPOST" "TTY-PARMRK" "TTY-PENDIN" "TTY-TOSTOP" "TV-SEC" "TV-USEC" - "TZ-DSTTIME" "TZ-MINUTESWEST" "UID-T" "UNIX-FD" "UNIX-FILE-KIND" - "UNIX-FILE-MODE" "UNIX-GETUID" "UNIX-KILL" "UNIX-KILLPG" "UNIX-PATHNAME" - "UNIX-SIGBLOCK" "UNIX-SIGNAL-DESCRIPTION" "UNIX-SIGNAL-NAME" - "UNIX-SIGNAL-NUMBER" "UNIX-SIGPAUSE" "UNIX-SIGSETMASK" "USER-INFO" - "USER-INFO-DIR" "USER-INFO-GECOS" "USER-INFO-GID" "USER-INFO-PASSWORD" - "USER-INFO-SHELL" "USER-INFO-UID" "VDSUSP" "VEOF" "VEOL" "VEOL2" "VERASE" - "VINTR" "VKILL" "VMIN" "VQUIT" "VSTART" "VSTOP" "VSUSP" "VTIME" - "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL" "WS-YPIXEL" "W_OK" "X_OK" - "FIONREAD" - "TERMINAL-SPEEDS" - ) - (:export - ;; For asdf - "UNIX-GETENV" - "UNIX-SETENV" - "UNIX-PUTENV" - "UNIX-UNSETENV" - ;; For slime - "UNIX-EXECVE" - "UNIX-FORK") - #-(or linux solaris) - (:export "TCHARS" - "LTCHARS" - "D-NAMLEN" - - ;; run-program.lisp - "SGTTYB" - - ;; Other symbols from structures, etc. - "DIRECT" "ELOCAL" "EPROCLIM" "EVICEERR" "EVICEOP" "EXECGRP" "EXECOTH" - "EXECOWN" "F-DUPFD" "F-GETFD" "F-SETFD" "FCREAT" "FEXCL" - "FTRUNC" "READGRP" "READOTH" "READOWN" "S-IEXEC" "S-IREAD" "S-ISGID" - "S-ISUID" "S-ISVTX" "S-IWRITE" "SAVETEXT" "SETGIDEXEC" "SETUIDEXEC" - "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL" "SG-OSPEED" "SIGEMT" "SIGSYS" - "T-BRKC" "T-DSUSPC" "T-EOFC" "T-FLUSHC" "T-INTRC" "T-LNEXTC" "T-QUITC" - "T-RPRNTC" "T-STARTC" "T-STOPC" "T-SUSPC" "T-WERASC" "TCIFLUSH" - "TCIOFLUSH" "TCOFLUSH" "TIOCFLUSH" "TIOCGETC" - "TIOCGETP" "TIOCGLTC" "TIOCSETC" "TIOCSETP" "TIOCSLTC" "TTY-CBREAK" - "TTY-CLOCAL" "TTY-CREAD" "TTY-CRMOD" "TTY-CS5" "TTY-CS6" "TTY-CS7" - "TTY-CS8" "TTY-CSIZE" "TTY-CSTOPB" "TTY-HUPCL" "TTY-LCASE" "TTY-PARENB" - "TTY-PARODD" "TTY-RAW" "TTY-TANDEM" "WRITEGRP" "WRITEOTH" - ) - #+linux - (:export "TCHARS" - "LTCHARS" - "D-NAMLEN" - - ;; run-program.lisp - "SGTTYB" - - ;; Other symbols - "BLKCNT-T" "D-INO" "D-OFF" - "O_NOCTTY" "SIGSTKFLT" - "SG-FLAGS" - "TIOCGETP" - "TIOCSETP" - "TTY-IUCLC" - "TTY-OCRNL" "TTY-OFDEL" "TTY-OFILL" "TTY-OLCUC" "TTY-ONLRET" "TTY-ONOCR" - "TTY-XCASE" "UNIX-DUP2" "UNIX-GETITIMER" "UNIX-PID" - "UTSNAME" - ) - #+solaris - (:export "D-INO" - "D-OFF" - "DIRECT" - "EXECGRP" - "EXECOTH" - "EXECOWN" - - "F-DUPFD" - "F-GETFD" - "F-SETFD" - "FCREAT" - "FEXCL" - "FTRUNC" - "LTCHARS" - "O_NOCTTY" - "RCV1EN" - "READGRP" - "READOTH" - "READOWN" - "S-IEXEC" - "S-IREAD" - "S-ISGID" - "S-ISUID" - "S-ISVTX" - "S-IWRITE" - "SAVETEXT" - "SETGIDEXEC" - "SETUIDEXEC" - "SG-ERASE" - "SG-FLAGS" - "SG-ISPEED" - "SG-KILL" - "SG-OSPEED" - "SGTTYB" - "SIGEMT" - "SIGSYS" - "SIGWAITING" - "T-BRKC" - "T-DSUSPC" - "T-EOFC" - "T-FLUSHC" - "T-INTRC" - "T-LNEXTC" - "T-QUITC" - "T-RPRNTC" - "T-STARTC" - "T-STOPC" - "T-SUSPC" - "T-WERASC" - "TCHARS" - "TCIFLUSH" - "TCIOFLUSH" - "TCOFLUSH" - "TIOCFLUSH" - "TIOCGETC" - "TIOCGETP" - "TIOCGLTC" - "TIOCSETC" - "TIOCSETP" - "TIOCSLTC" - "TTY-CBAUD" - "TTY-CBREAK" - "TTY-CLOCAL" - "TTY-CREAD" - "TTY-CRMOD" - "TTY-CS5" - "TTY-CS6" - "TTY-CS7" - "TTY-CS8" - "TTY-CSIZE" - "TTY-CSTOPB" - "TTY-DEFECHO" - "TTY-HUPCL" - "TTY-IUCLC" - "TTY-LCASE" - "TTY-LOBLK" - "TTY-OCRNL" - "TTY-OFDEL" - "TTY-OFILL" - "TTY-OLCUC" - "TTY-ONLRET" - "TTY-ONOCR" - "TTY-PARENB" - "TTY-PARODD" - "TTY-RAW" - "TTY-TANDEM" - "TTY-XCASE" - "UNIX-TIMES" - "UNIX-DUP2" - "UTSNAME" - "WRITEGRP" - "WRITEOTH" - "XMT1EN" - ) - ) - -;; Import all of the symbols from UNIX-ERRNO into UNIX and the export -;; them. -#+nil -(ext:without-package-locks - (do-external-symbols (sym "ERRNO") - (shadowing-import sym "UNIX") - (export sym "UNIX"))) - (defpackage "FORMAT") (defpackage "COMMON-LISP" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/cd2b834a005639957f8a21f… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/cd2b834a005639957f8a21f… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-446-use-cc-to-get-errno] Apply 7 suggestion(s) to 3 file(s)
by Raymond Toy (＠rtoy) 06 Nov '25

06 Nov '25

Raymond Toy pushed to branch issue-446-use-cc-to-get-errno at cmucl / cmucl Commits: 483dc418 by Raymond Toy at 2025-11-06T05:54:04-08:00 Apply 7 suggestion(s) to 3 file(s) Co-authored-by: Carl Shapiro <cshapiro(a)panix.com> - - - - - 3 changed files: - bin/create-errno.sh - bin/errno-default.lisp - src/code/exports.lisp Changes: ===================================== bin/create-errno.sh ===================================== @@ -82,24 +82,22 @@ fi find_errno () { - # Create appropriate DEF-UNIX-ERROR forms by reading header files + # Create appropriate DEFCONSTANT forms by reading the preprocessed output of errno.h # containing the C definitions. This version with cpp works on # Linux, Darwin, and Solaris (with Sun C) to dump the macros - # defined in errno.h. The results are sorted in descending - # numerical order so that aliases are at the end. Sorting is - # important because different Linux systems can have the errno - # values in different orders. + # defined in errno.h. The results are sorted in ascending + # numerical order and aliases follow the original definition. echo '#include <errno.h>' | cpp -dM - | awk "BEGIN { max = 0 } -# Pattern is '#define Efoo number' +# Pattern is '#define EFOO number' /^#define[ \t]+(E[A-Z0-9]+)[ \t]+([0-9]+)/ { errno[\$3] = \$2 max = (\$3 > max) ? \$3 : max } -# Pattern is '#define Efoo Ealias' +# Pattern is '#define EFOO EALIAS' /^#define[ \t]+(E[A-Z0-9]+)[ \t]+(E[A-Z0-9]+)/ { alias[\$3] = \$2 } ===================================== bin/errno-default.lisp ===================================== @@ -11,7 +11,7 @@ (defconstant EBADF 9) (defconstant ECHILD 10) #+bsd(defconstant EDEADLK 11) -#-bsd(defconstant EAGAIN 11 #-linux) +#-bsd(defconstant EAGAIN 11) (defconstant ENOMEM 12) (defconstant EACCES 13) (defconstant EFAULT 14) @@ -36,7 +36,7 @@ ;;; ;;; Math (defconstant EDOM 33) -(defconstant ERANGE 34 #-linux) +(defconstant ERANGE 34) ;;; non-blocking and interrupt i/o (defconstant EWOULDBLOCK 35) ===================================== src/code/exports.lisp ===================================== @@ -31,14 +31,6 @@ (if (find-package "BIGNUM") (rename-package "BIGNUM" "BIGNUM" 'nil) (make-package "BIGNUM" :nicknames 'nil :use nil)) -#+nil -(if (find-package "ERRNO") - (rename-package "ERRNO" "ERRNO" 'nil) - (make-package "ERRNO" :nicknames 'nil :use nil)) -#+nil -(if (find-package "UNIX") - (rename-package "UNIX" "UNIX" 'nil) - (make-package "UNIX" :nicknames 'nil :use nil)) (if (find-package "FORMAT") (rename-package "FORMAT" "FORMAT" 'nil) (make-package "FORMAT" :nicknames 'nil :use nil)) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/483dc4188ae2efd897b3b5e… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/483dc4188ae2efd897b3b5e… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-437-find-self] Fix some typos introduced in batched suggestions
by Raymond Toy (＠rtoy) 06 Nov '25

06 Nov '25

Raymond Toy pushed to branch issue-437-find-self at cmucl / cmucl Commits: 58659812 by Raymond Toy at 2025-11-06T05:35:30-08:00 Fix some typos introduced in batched suggestions - - - - - 1 changed file: - src/lisp/lisp.c Changes: ===================================== src/lisp/lisp.c ===================================== @@ -133,20 +133,20 @@ int debug_lisp_search = FALSE; * * The caller must free the returned string. */ -static const char * +static char * default_cmucllib(const char *argv0arg) { - int total_len; - int path_len; + char *cwd; int cwd_len; char **ptr; char *path; + int path_len; char *slash; cwd = realpath(argv0arg, NULL); if (debug_lisp_search) { - fprintf(stderr, "Realpath of %s = %s\n", argv0arg, newpath); + fprintf(stderr, "Realpath of %s = %s\n", argv0arg, cwd); } if (!cwd) { @@ -175,7 +175,7 @@ default_cmucllib(const char *argv0arg) /* First figure out how much space we need */ - total_len = 0; + path_len = 0; cwd_len = strlen(cwd); ptr = cmucllib_search_list; @@ -185,19 +185,19 @@ default_cmucllib(const char *argv0arg) * Plus 2 for the ":" and "/" we need to add and the cwd that * might be added. */ - total_len += strlen(*ptr) + cwd_len + 2; + path_len += strlen(*ptr) + cwd_len + 2; ++ptr; } /* Create the colon separated list of directories */ - defpath = malloc(total_len + 1); - if (!defpath) { + path = malloc(path_len + 1); + if (!path) { perror("Failed to malloc space for cmucllib"); exit(1); } - *defpath = '\0'; + *path = '\0'; ptr = cmucllib_search_list; while (*ptr != NULL) { @@ -206,25 +206,25 @@ default_cmucllib(const char *argv0arg) * make the path absolute. */ if (*ptr[0] != '/') { - strcat(defpath, cwd); + strcat(path, cwd); } - strcat(defpath, *ptr); + strcat(path, *ptr); /* Add a colon if we're not at the last entry of the search list */ if (ptr[1] != NULL) { - strcat(defpath, ":"); + strcat(path, ":"); } ++ptr; } - if (strlen(defpath) > total_len) { + if (strlen(path) > path_len) { abort(); } free(cwd); - return (const char *) defpath; + return path; } /* View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/58659812ac9de2bb41d28d0… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/58659812ac9de2bb41d28d0… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-437-find-self] Apply 5 suggestion(s) to 1 file(s)
by Raymond Toy (＠rtoy) 06 Nov '25

06 Nov '25

Raymond Toy pushed to branch issue-437-find-self at cmucl / cmucl Commits: 1fa4a75e by Raymond Toy at 2025-11-06T05:21:08-08:00 Apply 5 suggestion(s) to 1 file(s) Co-authored-by: Carl Shapiro <cshapiro(a)panix.com> - - - - - 1 changed file: - src/lisp/lisp.c Changes: ===================================== src/lisp/lisp.c ===================================== @@ -137,18 +137,13 @@ static const char * default_cmucllib(const char *argv0arg) { int total_len; + int path_len; int cwd_len; char **ptr; - char *defpath; - char *cwd; - char *newpath = malloc(PATH_MAX); - - if (!newpath) { - perror("Failed to malloc space for newpath"); - exit(1); - } + char *path; + char *slash; - cwd = realpath(argv0arg, newpath); + cwd = realpath(argv0arg, NULL); if (debug_lisp_search) { fprintf(stderr, "Realpath of %s = %s\n", argv0arg, newpath); @@ -163,14 +158,11 @@ default_cmucllib(const char *argv0arg) * Delete the binary name from the full path, leaving just the * full directory to the executable. */ - cwd = strrchr(newpath, '/'); - if (cwd) { - cwd[1] = '\0'; + slash = strrchr(cwd, '/'); + if (slash) { + slash[1] = '\0'; } - /* cwd is the path directory of the executable */ - cwd = newpath; - if (debug_lisp_search) { fprintf(stderr, "Executable path %s\n", cwd); } @@ -231,7 +223,7 @@ default_cmucllib(const char *argv0arg) abort(); } - free(newpath); + free(cwd); return (const char *) defpath; } View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/1fa4a75e585f4a6250c2ee5… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/1fa4a75e585f4a6250c2ee5… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-408-get-user-name-and-homedir] 3 commits: Fix #449: touch 64-bit-timestamp.txt with desired time
by Raymond Toy (＠rtoy) 04 Nov '25

04 Nov '25

Raymond Toy pushed to branch issue-408-get-user-name-and-homedir at cmucl / cmucl Commits: 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 - - - - - 5da6959f by Raymond Toy at 2025-11-04T10:00:40-08:00 Merge branch 'master' into issue-408-get-user-name-and-homedir - - - - - 5 changed files: - .gitlab-ci.yml - bin/run-unit-tests.sh - tests/os.lisp - tests/resources/64-bit-timestamp.txt → tests/resources/64-bit-timestamp-2038.txt - + tests/resources/64-bit-timestamp-2106.txt Changes: ===================================== .gitlab-ci.yml ===================================== @@ -7,7 +7,7 @@ variables: download_url: "https://common-lisp.net/project/cmucl/downloads/release/$release" version: "$release-x86" tar_ext: "xz" - bootstrap: "-B boot-21f" + bootstrap: "" # Default install configuration to download the cmucl tarballs to use # for building. ===================================== bin/run-unit-tests.sh ===================================== @@ -42,6 +42,14 @@ rm -rf test-tmp mkdir test-tmp ln -s /bin/ls test-tmp/ls-link +# Set the timestamps on 64-bit-timestamp-2038.txt and +# 64-bit-timestamp-2106.txt. The time for the first file is a +# negative value for a 32-bit time_t. The second file won't fit in a +# 32-bit time_t value. It's ok if this doesn't work in general, as +# long as it works on Linux for the stat test in tests/os.lisp. +touch -d "1 April 2038" tests/resources/64-bit-timestamp-2038.txt +touch -d "1 April 2106" tests/resources/64-bit-timestamp-2106.txt + # Cleanup temp files and directories that we created during testing. function cleanup { rm -f /tmp/trac.36.bom.txt /tmp/trac.43.txt ===================================== tests/os.lisp ===================================== @@ -36,9 +36,24 @@ (assert-eql status 0))) #+linux -(define-test stat.64-bit-timestamp +(define-test stat.64-bit-timestamp-2038 (:tag :issues) - (let ((test-file #.(merge-pathnames "resources/64-bit-timestamp.txt" + (let ((test-file #.(merge-pathnames "resources/64-bit-timestamp-2038.txt" + cl:*load-pathname*))) + (assert-true (probe-file test-file)) + (multiple-value-bind (ok st-dev st-ino st-mode st-nlink st-uid st-gid st-rdev st-size + st-atime st-mtime + st-ctime st-blksize st-blocks) + (unix:unix-stat (namestring test-file)) + (declare (ignore st-dev st-ino st-mode st-nlink st-uid st-gid st-rdev st-size + st-ctime st-blksize st-blocks)) + (assert-true ok) + (assert-equal 2153718000 st-atime) + (assert-equal 2153718000 st-mtime)))) + +(define-test stat.64-bit-timestamp-2106 + (:tag :issues) + (let ((test-file #.(merge-pathnames "resources/64-bit-timestamp-2106.txt" cl:*load-pathname*))) (assert-true (probe-file test-file)) (multiple-value-bind (ok st-dev st-ino st-mode st-nlink st-uid st-gid st-rdev st-size @@ -48,5 +63,5 @@ (declare (ignore st-dev st-ino st-mode st-nlink st-uid st-gid st-rdev st-ctime st-blksize st-blocks)) (assert-true ok) - (assert-equal st-atime 2153718000) - (assert-equal st-mtime 2153718000)))) + (assert-equal 4299548400 st-atime) + (assert-equal 4299548400 st-mtime)))) ===================================== tests/resources/64-bit-timestamp.txt → tests/resources/64-bit-timestamp-2038.txt ===================================== ===================================== tests/resources/64-bit-timestamp-2106.txt ===================================== View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/2660e39419cc04b398e11f… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/2660e39419cc04b398e11f… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-446-use-cc-to-get-errno] Update errno references for Darwin and Solaris
by Raymond Toy (＠rtoy) 03 Nov '25

03 Nov '25

Raymond Toy pushed to branch issue-446-use-cc-to-get-errno at cmucl / cmucl Commits: 8eda39c1 by Raymond Toy at 2025-11-03T13:50:03-08:00 Update errno references for Darwin and Solaris Ran "create-errno.sh -U" to update these files. - - - - - 2 changed files: - bin/errno-darwin.lisp - bin/errno-solaris.lisp Changes: ===================================== bin/errno-darwin.lisp ===================================== @@ -1,108 +1,107 @@ -(def-unix-error EQFULL 106) -(def-unix-error ELAST 106) -(def-unix-error EOWNERDEAD 105) -(def-unix-error ENOTRECOVERABLE 104) -(def-unix-error ENOPOLICY 103) -(def-unix-error EOPNOTSUPP 102) -(def-unix-error ETIME 101) -(def-unix-error EPROTO 100) -(def-unix-error ENOSTR 99) -(def-unix-error ENOSR 98) -(def-unix-error ENOLINK 97) -(def-unix-error ENODATA 96) -(def-unix-error EMULTIHOP 95) -(def-unix-error EBADMSG 94) -(def-unix-error ENOATTR 93) -(def-unix-error EILSEQ 92) -(def-unix-error ENOMSG 91) -(def-unix-error EIDRM 90) -(def-unix-error ECANCELED 89) -(def-unix-error EBADMACHO 88) -(def-unix-error ESHLIBVERS 87) -(def-unix-error EBADARCH 86) -(def-unix-error EBADEXEC 85) -(def-unix-error EOVERFLOW 84) -(def-unix-error EDEVERR 83) -(def-unix-error EPWROFF 82) -(def-unix-error ENEEDAUTH 81) -(def-unix-error EAUTH 80) -(def-unix-error EFTYPE 79) -(def-unix-error ENOSYS 78) -(def-unix-error ENOLCK 77) -(def-unix-error EPROCUNAVAIL 76) -(def-unix-error EPROGMISMATCH 75) -(def-unix-error EPROGUNAVAIL 74) -(def-unix-error ERPCMISMATCH 73) -(def-unix-error EBADRPC 72) -(def-unix-error EREMOTE 71) -(def-unix-error ESTALE 70) -(def-unix-error EDQUOT 69) -(def-unix-error EUSERS 68) -(def-unix-error EPROCLIM 67) -(def-unix-error ENOTEMPTY 66) -(def-unix-error EHOSTUNREACH 65) -(def-unix-error EHOSTDOWN 64) -(def-unix-error ENAMETOOLONG 63) -(def-unix-error ELOOP 62) -(def-unix-error ECONNREFUSED 61) -(def-unix-error ETIMEDOUT 60) -(def-unix-error ETOOMANYREFS 59) -(def-unix-error ESHUTDOWN 58) -(def-unix-error ENOTCONN 57) -(def-unix-error EISCONN 56) -(def-unix-error ENOBUFS 55) -(def-unix-error ECONNRESET 54) -(def-unix-error ECONNABORTED 53) -(def-unix-error ENETRESET 52) -(def-unix-error ENETUNREACH 51) -(def-unix-error ENETDOWN 50) -(def-unix-error EADDRNOTAVAIL 49) -(def-unix-error EADDRINUSE 48) -(def-unix-error EAFNOSUPPORT 47) -(def-unix-error EPFNOSUPPORT 46) -(def-unix-error ENOTSUP 45) -(def-unix-error ESOCKTNOSUPPORT 44) -(def-unix-error EPROTONOSUPPORT 43) -(def-unix-error ENOPROTOOPT 42) -(def-unix-error EPROTOTYPE 41) -(def-unix-error EMSGSIZE 40) -(def-unix-error EDESTADDRREQ 39) -(def-unix-error ENOTSOCK 38) -(def-unix-error EALREADY 37) -(def-unix-error EINPROGRESS 36) -(def-unix-error EAGAIN 35) -(def-unix-error ERANGE 34) -(def-unix-error EDOM 33) -(def-unix-error EPIPE 32) -(def-unix-error EMLINK 31) -(def-unix-error EROFS 30) -(def-unix-error ESPIPE 29) -(def-unix-error ENOSPC 28) -(def-unix-error EFBIG 27) -(def-unix-error ETXTBSY 26) -(def-unix-error ENOTTY 25) -(def-unix-error EMFILE 24) -(def-unix-error ENFILE 23) -(def-unix-error EINVAL 22) -(def-unix-error EISDIR 21) -(def-unix-error ENOTDIR 20) -(def-unix-error ENODEV 19) -(def-unix-error EXDEV 18) -(def-unix-error EEXIST 17) -(def-unix-error EBUSY 16) -(def-unix-error ENOTBLK 15) -(def-unix-error EFAULT 14) -(def-unix-error EACCES 13) -(def-unix-error ENOMEM 12) -(def-unix-error EDEADLK 11) -(def-unix-error ECHILD 10) -(def-unix-error EBADF 9) -(def-unix-error ENOEXEC 8) -(def-unix-error E2BIG 7) -(def-unix-error ENXIO 6) -(def-unix-error EIO 5) -(def-unix-error EINTR 4) -(def-unix-error ESRCH 3) -(def-unix-error ENOENT 2) -(def-unix-error EPERM 1) -(def-unix-error EWOULDBLOCK EAGAIN) +(defconstant EPERM 1) +(defconstant ENOENT 2) +(defconstant ESRCH 3) +(defconstant EINTR 4) +(defconstant EIO 5) +(defconstant ENXIO 6) +(defconstant E2BIG 7) +(defconstant ENOEXEC 8) +(defconstant EBADF 9) +(defconstant ECHILD 10) +(defconstant EDEADLK 11) +(defconstant ENOMEM 12) +(defconstant EACCES 13) +(defconstant EFAULT 14) +(defconstant ENOTBLK 15) +(defconstant EBUSY 16) +(defconstant EEXIST 17) +(defconstant EXDEV 18) +(defconstant ENODEV 19) +(defconstant ENOTDIR 20) +(defconstant EISDIR 21) +(defconstant EINVAL 22) +(defconstant ENFILE 23) +(defconstant EMFILE 24) +(defconstant ENOTTY 25) +(defconstant ETXTBSY 26) +(defconstant EFBIG 27) +(defconstant ENOSPC 28) +(defconstant ESPIPE 29) +(defconstant EROFS 30) +(defconstant EMLINK 31) +(defconstant EPIPE 32) +(defconstant EDOM 33) +(defconstant ERANGE 34) +(defconstant EAGAIN 35) +(defconstant EWOULDBLOCK EAGAIN) +(defconstant EINPROGRESS 36) +(defconstant EALREADY 37) +(defconstant ENOTSOCK 38) +(defconstant EDESTADDRREQ 39) +(defconstant EMSGSIZE 40) +(defconstant EPROTOTYPE 41) +(defconstant ENOPROTOOPT 42) +(defconstant EPROTONOSUPPORT 43) +(defconstant ESOCKTNOSUPPORT 44) +(defconstant ENOTSUP 45) +(defconstant EPFNOSUPPORT 46) +(defconstant EAFNOSUPPORT 47) +(defconstant EADDRINUSE 48) +(defconstant EADDRNOTAVAIL 49) +(defconstant ENETDOWN 50) +(defconstant ENETUNREACH 51) +(defconstant ENETRESET 52) +(defconstant ECONNABORTED 53) +(defconstant ECONNRESET 54) +(defconstant ENOBUFS 55) +(defconstant EISCONN 56) +(defconstant ENOTCONN 57) +(defconstant ESHUTDOWN 58) +(defconstant ETOOMANYREFS 59) +(defconstant ETIMEDOUT 60) +(defconstant ECONNREFUSED 61) +(defconstant ELOOP 62) +(defconstant ENAMETOOLONG 63) +(defconstant EHOSTDOWN 64) +(defconstant EHOSTUNREACH 65) +(defconstant ENOTEMPTY 66) +(defconstant EPROCLIM 67) +(defconstant EUSERS 68) +(defconstant EDQUOT 69) +(defconstant ESTALE 70) +(defconstant EREMOTE 71) +(defconstant EBADRPC 72) +(defconstant ERPCMISMATCH 73) +(defconstant EPROGUNAVAIL 74) +(defconstant EPROGMISMATCH 75) +(defconstant EPROCUNAVAIL 76) +(defconstant ENOLCK 77) +(defconstant ENOSYS 78) +(defconstant EFTYPE 79) +(defconstant EAUTH 80) +(defconstant ENEEDAUTH 81) +(defconstant EPWROFF 82) +(defconstant EDEVERR 83) +(defconstant EOVERFLOW 84) +(defconstant EBADEXEC 85) +(defconstant EBADARCH 86) +(defconstant ESHLIBVERS 87) +(defconstant EBADMACHO 88) +(defconstant ECANCELED 89) +(defconstant EIDRM 90) +(defconstant ENOMSG 91) +(defconstant EILSEQ 92) +(defconstant ENOATTR 93) +(defconstant EBADMSG 94) +(defconstant EMULTIHOP 95) +(defconstant ENODATA 96) +(defconstant ENOLINK 97) +(defconstant ENOSR 98) +(defconstant ENOSTR 99) +(defconstant EPROTO 100) +(defconstant ETIME 101) +(defconstant EOPNOTSUPP 102) +(defconstant ENOPOLICY 103) +(defconstant ENOTRECOVERABLE 104) +(defconstant EOWNERDEAD 105) +(defconstant EQFULL 106) ===================================== bin/errno-solaris.lisp ===================================== @@ -1,123 +1,123 @@ -(def-unix-error ESTALE 151) -(def-unix-error EINPROGRESS 150) -(def-unix-error EALREADY 149) -(def-unix-error EHOSTUNREACH 148) -(def-unix-error EHOSTDOWN 147) -(def-unix-error ECONNREFUSED 146) -(def-unix-error ETIMEDOUT 145) -(def-unix-error ETOOMANYREFS 144) -(def-unix-error ESHUTDOWN 143) -(def-unix-error ENOTCONN 134) -(def-unix-error EISCONN 133) -(def-unix-error ENOBUFS 132) -(def-unix-error ECONNRESET 131) -(def-unix-error ECONNABORTED 130) -(def-unix-error ENETRESET 129) -(def-unix-error ENETUNREACH 128) -(def-unix-error ENETDOWN 127) -(def-unix-error EADDRNOTAVAIL 126) -(def-unix-error EADDRINUSE 125) -(def-unix-error EAFNOSUPPORT 124) -(def-unix-error EPFNOSUPPORT 123) -(def-unix-error EOPNOTSUPP 122) -(def-unix-error ESOCKTNOSUPPORT 121) -(def-unix-error EPROTONOSUPPORT 120) -(def-unix-error ENOPROTOOPT 99) -(def-unix-error EPROTOTYPE 98) -(def-unix-error EMSGSIZE 97) -(def-unix-error EDESTADDRREQ 96) -(def-unix-error ENOTSOCK 95) -(def-unix-error EUSERS 94) -(def-unix-error ENOTEMPTY 93) -(def-unix-error ESTRPIPE 92) -(def-unix-error ERESTART 91) -(def-unix-error ELOOP 90) -(def-unix-error ENOSYS 89) -(def-unix-error EILSEQ 88) -(def-unix-error ELIBEXEC 87) -(def-unix-error ELIBMAX 86) -(def-unix-error ELIBSCN 85) -(def-unix-error ELIBBAD 84) -(def-unix-error ELIBACC 83) -(def-unix-error EREMCHG 82) -(def-unix-error EBADFD 81) -(def-unix-error ENOTUNIQ 80) -(def-unix-error EOVERFLOW 79) -(def-unix-error ENAMETOOLONG 78) -(def-unix-error EBADMSG 77) -(def-unix-error EADI 75) -(def-unix-error EMULTIHOP 74) -(def-unix-error ENOTACTIVE 73) -(def-unix-error ELOCKUNMAPPED 72) -(def-unix-error EPROTO 71) -(def-unix-error ECOMM 70) -(def-unix-error ESRMNT 69) -(def-unix-error EADV 68) -(def-unix-error ENOLINK 67) -(def-unix-error EREMOTE 66) -(def-unix-error ENOPKG 65) -(def-unix-error ENONET 64) -(def-unix-error ENOSR 63) -(def-unix-error ETIME 62) -(def-unix-error ENODATA 61) -(def-unix-error ENOSTR 60) -(def-unix-error ENOTRECOVERABLE 59) -(def-unix-error EOWNERDEAD 58) -(def-unix-error EBFONT 57) -(def-unix-error EDEADLOCK 56) -(def-unix-error EBADSLT 55) -(def-unix-error EBADRQC 54) -(def-unix-error ENOANO 53) -(def-unix-error EXFULL 52) -(def-unix-error EBADR 51) -(def-unix-error EBADE 50) -(def-unix-error EDQUOT 49) -(def-unix-error ENOTSUP 48) -(def-unix-error ECANCELED 47) -(def-unix-error ENOLCK 46) -(def-unix-error EDEADLK 45) -(def-unix-error EL2HLT 44) -(def-unix-error ENOCSI 43) -(def-unix-error EUNATCH 42) -(def-unix-error ELNRNG 41) -(def-unix-error EL3RST 40) -(def-unix-error EL3HLT 39) -(def-unix-error EL2NSYNC 38) -(def-unix-error ECHRNG 37) -(def-unix-error EIDRM 36) -(def-unix-error ENOMSG 35) -(def-unix-error ERANGE 34) -(def-unix-error EDOM 33) -(def-unix-error EPIPE 32) -(def-unix-error EMLINK 31) -(def-unix-error EROFS 30) -(def-unix-error ESPIPE 29) -(def-unix-error ENOSPC 28) -(def-unix-error EFBIG 27) -(def-unix-error ETXTBSY 26) -(def-unix-error ENOTTY 25) -(def-unix-error EMFILE 24) -(def-unix-error ENFILE 23) -(def-unix-error EINVAL 22) -(def-unix-error EISDIR 21) -(def-unix-error ENOTDIR 20) -(def-unix-error ENODEV 19) -(def-unix-error EXDEV 18) -(def-unix-error EEXIST 17) -(def-unix-error EBUSY 16) -(def-unix-error ENOTBLK 15) -(def-unix-error EFAULT 14) -(def-unix-error EACCES 13) -(def-unix-error ENOMEM 12) -(def-unix-error EAGAIN 11) -(def-unix-error ECHILD 10) -(def-unix-error EBADF 9) -(def-unix-error ENOEXEC 8) -(def-unix-error E2BIG 7) -(def-unix-error ENXIO 6) -(def-unix-error EIO 5) -(def-unix-error EINTR 4) -(def-unix-error ESRCH 3) -(def-unix-error ENOENT 2) -(def-unix-error EPERM 1) -(def-unix-error EWOULDBLOCK EAGAIN) +(defconstant EPERM 1) +(defconstant ENOENT 2) +(defconstant ESRCH 3) +(defconstant EINTR 4) +(defconstant EIO 5) +(defconstant ENXIO 6) +(defconstant E2BIG 7) +(defconstant ENOEXEC 8) +(defconstant EBADF 9) +(defconstant ECHILD 10) +(defconstant EAGAIN 11) +(defconstant EWOULDBLOCK EAGAIN) +(defconstant ENOMEM 12) +(defconstant EACCES 13) +(defconstant EFAULT 14) +(defconstant ENOTBLK 15) +(defconstant EBUSY 16) +(defconstant EEXIST 17) +(defconstant EXDEV 18) +(defconstant ENODEV 19) +(defconstant ENOTDIR 20) +(defconstant EISDIR 21) +(defconstant EINVAL 22) +(defconstant ENFILE 23) +(defconstant EMFILE 24) +(defconstant ENOTTY 25) +(defconstant ETXTBSY 26) +(defconstant EFBIG 27) +(defconstant ENOSPC 28) +(defconstant ESPIPE 29) +(defconstant EROFS 30) +(defconstant EMLINK 31) +(defconstant EPIPE 32) +(defconstant EDOM 33) +(defconstant ERANGE 34) +(defconstant ENOMSG 35) +(defconstant EIDRM 36) +(defconstant ECHRNG 37) +(defconstant EL2NSYNC 38) +(defconstant EL3HLT 39) +(defconstant EL3RST 40) +(defconstant ELNRNG 41) +(defconstant EUNATCH 42) +(defconstant ENOCSI 43) +(defconstant EL2HLT 44) +(defconstant EDEADLK 45) +(defconstant ENOLCK 46) +(defconstant ECANCELED 47) +(defconstant ENOTSUP 48) +(defconstant EDQUOT 49) +(defconstant EBADE 50) +(defconstant EBADR 51) +(defconstant EXFULL 52) +(defconstant ENOANO 53) +(defconstant EBADRQC 54) +(defconstant EBADSLT 55) +(defconstant EDEADLOCK 56) +(defconstant EBFONT 57) +(defconstant EOWNERDEAD 58) +(defconstant ENOTRECOVERABLE 59) +(defconstant ENOSTR 60) +(defconstant ENODATA 61) +(defconstant ETIME 62) +(defconstant ENOSR 63) +(defconstant ENONET 64) +(defconstant ENOPKG 65) +(defconstant EREMOTE 66) +(defconstant ENOLINK 67) +(defconstant EADV 68) +(defconstant ESRMNT 69) +(defconstant ECOMM 70) +(defconstant EPROTO 71) +(defconstant ELOCKUNMAPPED 72) +(defconstant ENOTACTIVE 73) +(defconstant EMULTIHOP 74) +(defconstant EADI 75) +(defconstant EBADMSG 77) +(defconstant ENAMETOOLONG 78) +(defconstant EOVERFLOW 79) +(defconstant ENOTUNIQ 80) +(defconstant EBADFD 81) +(defconstant EREMCHG 82) +(defconstant ELIBACC 83) +(defconstant ELIBBAD 84) +(defconstant ELIBSCN 85) +(defconstant ELIBMAX 86) +(defconstant ELIBEXEC 87) +(defconstant EILSEQ 88) +(defconstant ENOSYS 89) +(defconstant ELOOP 90) +(defconstant ERESTART 91) +(defconstant ESTRPIPE 92) +(defconstant ENOTEMPTY 93) +(defconstant EUSERS 94) +(defconstant ENOTSOCK 95) +(defconstant EDESTADDRREQ 96) +(defconstant EMSGSIZE 97) +(defconstant EPROTOTYPE 98) +(defconstant ENOPROTOOPT 99) +(defconstant EPROTONOSUPPORT 120) +(defconstant ESOCKTNOSUPPORT 121) +(defconstant EOPNOTSUPP 122) +(defconstant EPFNOSUPPORT 123) +(defconstant EAFNOSUPPORT 124) +(defconstant EADDRINUSE 125) +(defconstant EADDRNOTAVAIL 126) +(defconstant ENETDOWN 127) +(defconstant ENETUNREACH 128) +(defconstant ENETRESET 129) +(defconstant ECONNABORTED 130) +(defconstant ECONNRESET 131) +(defconstant ENOBUFS 132) +(defconstant EISCONN 133) +(defconstant ENOTCONN 134) +(defconstant ESHUTDOWN 143) +(defconstant ETOOMANYREFS 144) +(defconstant ETIMEDOUT 145) +(defconstant ECONNREFUSED 146) +(defconstant EHOSTDOWN 147) +(defconstant EHOSTUNREACH 148) +(defconstant EALREADY 149) +(defconstant EINPROGRESS 150) +(defconstant ESTALE 151) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/8eda39c1ce9a917dee40bfb… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/8eda39c1ce9a917dee40bfb… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-446-use-cc-to-get-errno] Use the correct awk comment syntax
by Raymond Toy (＠rtoy) 03 Nov '25

03 Nov '25

Raymond Toy pushed to branch issue-446-use-cc-to-get-errno at cmucl / cmucl Commits: 03e93d4e by Raymond Toy at 2025-11-03T13:42:21-08:00 Use the correct awk comment syntax Awk comment character is a hash sign, not a C-style comment. - - - - - 1 changed file: - bin/create-errno.sh Changes: ===================================== bin/create-errno.sh ===================================== @@ -94,17 +94,17 @@ find_errno () awk "BEGIN { max = 0 } -/* Pattern is '#define Efoo number' */ +# Pattern is '#define Efoo number' /^#define[ \t]+(E[A-Z0-9]+)[ \t]+([0-9]+)/ { errno[\$3] = \$2 max = (\$3 > max) ? \$3 : max } -/* Pattern is '#define Efoo Ealias' */ +# Pattern is '#define Efoo Ealias' /^#define[ \t]+(E[A-Z0-9]+)[ \t]+(E[A-Z0-9]+)/ { alias[\$3] = \$2 } END { - /* Print out each errno and print the alias right after the actual value */ + # Print out each errno and print the alias right after the actual value for (i = 0; i <= max; i++) { if (i in errno) { printf \"(defconstant %s %d)\n\", errno[i], i View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/03e93d4ef768e4f45535c1f… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/03e93d4ef768e4f45535c1f… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-446-use-cc-to-get-errno] Use awk script to get errno values
by Raymond Toy (＠rtoy) 03 Nov '25

03 Nov '25

Raymond Toy pushed to branch issue-446-use-cc-to-get-errno at cmucl / cmucl Commits: 7ef852b9 by Raymond Toy at 2025-11-03T13:33:13-08:00 Use awk script to get errno values Use an awk script in create-errno.sh to find the errno values and print them out. (Script from @cshapiro, slightly modified by me with some comments.) Update errno-template.lisp to remove the `def-unix-error` stuff since we can just use a plain `defconstant`. Don't need `export`s anymore because the UNIX package is guaranteed to export all the correct errno symbols since the export list is determined from the errno list. Regenerate errno-linux.lisp. Update errno-default.lisp to replace `def-unix-error` with `defconstant` since `def-unix-error` no longer exists. - - - - - 4 changed files: - bin/create-errno.sh - bin/errno-default.lisp - bin/errno-linux.lisp - bin/errno-template.lisp Changes: ===================================== bin/create-errno.sh ===================================== @@ -91,9 +91,30 @@ find_errno () # values in different orders. echo '#include <errno.h>' | cpp -dM - | - grep "#define[ \t]\{1,\}E[A-Z0-9]\{1,\}" | - sed 's/#define $.*$ $.*$$/(def-unix-error \1 \2)/' | - sort -nr -k 3 + awk "BEGIN { + max = 0 +} +/* Pattern is '#define Efoo number' */ +/^#define[ \t]+(E[A-Z0-9]+)[ \t]+([0-9]+)/ { + errno[\$3] = \$2 + max = (\$3 > max) ? \$3 : max +} +/* Pattern is '#define Efoo Ealias' */ +/^#define[ \t]+(E[A-Z0-9]+)[ \t]+(E[A-Z0-9]+)/ { + alias[\$3] = \$2 +} +END { + /* Print out each errno and print the alias right after the actual value */ + for (i = 0; i <= max; i++) { + if (i in errno) { + printf \"(defconstant %s %d)\n\", errno[i], i + if (errno[i] in alias) { + printf \"(defconstant %s %s)\n\", alias[errno[i]], errno[i] + } + } + } +}" + } if [ "$UPDATE" = "yes" ]; then ===================================== bin/errno-default.lisp ===================================== @@ -1,94 +1,94 @@ ;;; Default errno values. These are used only if we could not ;;; auto-generate these forms. -(def-unix-error EPERM 1) -(def-unix-error ENOENT 2) -(def-unix-error ESRCH 3) -(def-unix-error EINTR 4) -(def-unix-error EIO 5) -(def-unix-error ENXIO 6) -(def-unix-error E2BIG 7) -(def-unix-error ENOEXEC 8) -(def-unix-error EBADF 9) -(def-unix-error ECHILD 10) -#+bsd(def-unix-error EDEADLK 11) -#-bsd(def-unix-error EAGAIN 11 #-linux) -(def-unix-error ENOMEM 12) -(def-unix-error EACCES 13) -(def-unix-error EFAULT 14) -(def-unix-error ENOTBLK 15) -(def-unix-error EBUSY 16) -(def-unix-error EEXIST 17) -(def-unix-error EXDEV 18) -(def-unix-error ENODEV 19) -(def-unix-error ENOTDIR 20) -(def-unix-error EISDIR 21) -(def-unix-error EINVAL 22) -(def-unix-error ENFILE 23) -(def-unix-error EMFILE 24) -(def-unix-error ENOTTY 25) -(def-unix-error ETXTBSY 26) -(def-unix-error EFBIG 27) -(def-unix-error ENOSPC 28) -(def-unix-error ESPIPE 29) -(def-unix-error EROFS 30) -(def-unix-error EMLINK 31) -(def-unix-error EPIPE 32) +(defconstant EPERM 1) +(defconstant ENOENT 2) +(defconstant ESRCH 3) +(defconstant EINTR 4) +(defconstant EIO 5) +(defconstant ENXIO 6) +(defconstant E2BIG 7) +(defconstant ENOEXEC 8) +(defconstant EBADF 9) +(defconstant ECHILD 10) +#+bsd(defconstant EDEADLK 11) +#-bsd(defconstant EAGAIN 11 #-linux) +(defconstant ENOMEM 12) +(defconstant EACCES 13) +(defconstant EFAULT 14) +(defconstant ENOTBLK 15) +(defconstant EBUSY 16) +(defconstant EEXIST 17) +(defconstant EXDEV 18) +(defconstant ENODEV 19) +(defconstant ENOTDIR 20) +(defconstant EISDIR 21) +(defconstant EINVAL 22) +(defconstant ENFILE 23) +(defconstant EMFILE 24) +(defconstant ENOTTY 25) +(defconstant ETXTBSY 26) +(defconstant EFBIG 27) +(defconstant ENOSPC 28) +(defconstant ESPIPE 29) +(defconstant EROFS 30) +(defconstant EMLINK 31) +(defconstant EPIPE 32) ;;; ;;; Math -(def-unix-error EDOM 33) -(def-unix-error ERANGE 34 #-linux) +(defconstant EDOM 33) +(defconstant ERANGE 34 #-linux) ;;; non-blocking and interrupt i/o -(def-unix-error EWOULDBLOCK 35) -#-bsd(def-unix-error EDEADLK 35 _N"Operation would block") ; Ditto -#+bsd(def-unix-error EAGAIN 35) -(def-unix-error EINPROGRESS 36) -(def-unix-error EALREADY 37) +(defconstant EWOULDBLOCK 35) +#-bsd(defconstant EDEADLK 35 _N"Operation would block") ; Ditto +#+bsd(defconstant EAGAIN 35) +(defconstant EINPROGRESS 36) +(defconstant EALREADY 37) ;;; ;;; ipc/network software -(def-unix-error ENOTSOCK 38) -(def-unix-error EDESTADDRREQ 39) -(def-unix-error EMSGSIZE 40) -(def-unix-error EPROTOTYPE 41) -(def-unix-error ENOPROTOOPT 42) -(def-unix-error EPROTONOSUPPORT 43) -(def-unix-error ESOCKTNOSUPPORT 44) -(def-unix-error EOPNOTSUPP 45) -(def-unix-error EPFNOSUPPORT 46) -(def-unix-error EAFNOSUPPORT 47) -(def-unix-error EADDRINUSE 48) -(def-unix-error EADDRNOTAVAIL 49) +(defconstant ENOTSOCK 38) +(defconstant EDESTADDRREQ 39) +(defconstant EMSGSIZE 40) +(defconstant EPROTOTYPE 41) +(defconstant ENOPROTOOPT 42) +(defconstant EPROTONOSUPPORT 43) +(defconstant ESOCKTNOSUPPORT 44) +(defconstant EOPNOTSUPP 45) +(defconstant EPFNOSUPPORT 46) +(defconstant EAFNOSUPPORT 47) +(defconstant EADDRINUSE 48) +(defconstant EADDRNOTAVAIL 49) ;;; ;;; operational errors -(def-unix-error ENETDOWN 50) -(def-unix-error ENETUNREACH 51) -(def-unix-error ENETRESET 52) -(def-unix-error ECONNABORTED 53) -(def-unix-error ECONNRESET 54) -(def-unix-error ENOBUFS 55) -(def-unix-error EISCONN 56) -(def-unix-error ENOTCONN 57) -(def-unix-error ESHUTDOWN 58) -(def-unix-error ETOOMANYREFS 59) -(def-unix-error ETIMEDOUT 60) -(def-unix-error ECONNREFUSED 61) +(defconstant ENETDOWN 50) +(defconstant ENETUNREACH 51) +(defconstant ENETRESET 52) +(defconstant ECONNABORTED 53) +(defconstant ECONNRESET 54) +(defconstant ENOBUFS 55) +(defconstant EISCONN 56) +(defconstant ENOTCONN 57) +(defconstant ESHUTDOWN 58) +(defconstant ETOOMANYREFS 59) +(defconstant ETIMEDOUT 60) +(defconstant ECONNREFUSED 61) ;;; -(def-unix-error ELOOP 62) -(def-unix-error ENAMETOOLONG 63) +(defconstant ELOOP 62) +(defconstant ENAMETOOLONG 63) ;;; -(def-unix-error EHOSTDOWN 64) -(def-unix-error EHOSTUNREACH 65) -(def-unix-error ENOTEMPTY 66) +(defconstant EHOSTDOWN 64) +(defconstant EHOSTUNREACH 65) +(defconstant ENOTEMPTY 66) ;;; ;;; quotas & resource -(def-unix-error EPROCLIM 67) -(def-unix-error EUSERS 68) -(def-unix-error EDQUOT 69) +(defconstant EPROCLIM 67) +(defconstant EUSERS 68) +(defconstant EDQUOT 69) ;;; ;;; CMU RFS -(def-unix-error ELOCAL 126) -(def-unix-error EREMOTE 127) +(defconstant ELOCAL 126) +(defconstant EREMOTE 127) ;;; ;;; VICE -(def-unix-error EVICEERR 70) -(def-unix-error EVICEOP 71) +(defconstant EVICEERR 70) +(defconstant EVICEOP 71) ===================================== bin/errno-linux.lisp ===================================== @@ -1,134 +1,134 @@ -(def-unix-error EHWPOISON 133) -(def-unix-error ERFKILL 132) -(def-unix-error ENOTRECOVERABLE 131) -(def-unix-error EOWNERDEAD 130) -(def-unix-error EKEYREJECTED 129) -(def-unix-error EKEYREVOKED 128) -(def-unix-error EKEYEXPIRED 127) -(def-unix-error ENOKEY 126) -(def-unix-error ECANCELED 125) -(def-unix-error EMEDIUMTYPE 124) -(def-unix-error ENOMEDIUM 123) -(def-unix-error EDQUOT 122) -(def-unix-error EREMOTEIO 121) -(def-unix-error EISNAM 120) -(def-unix-error ENAVAIL 119) -(def-unix-error ENOTNAM 118) -(def-unix-error EUCLEAN 117) -(def-unix-error ESTALE 116) -(def-unix-error EINPROGRESS 115) -(def-unix-error EALREADY 114) -(def-unix-error EHOSTUNREACH 113) -(def-unix-error EHOSTDOWN 112) -(def-unix-error ECONNREFUSED 111) -(def-unix-error ETIMEDOUT 110) -(def-unix-error ETOOMANYREFS 109) -(def-unix-error ESHUTDOWN 108) -(def-unix-error ENOTCONN 107) -(def-unix-error EISCONN 106) -(def-unix-error ENOBUFS 105) -(def-unix-error ECONNRESET 104) -(def-unix-error ECONNABORTED 103) -(def-unix-error ENETRESET 102) -(def-unix-error ENETUNREACH 101) -(def-unix-error ENETDOWN 100) -(def-unix-error EADDRNOTAVAIL 99) -(def-unix-error EADDRINUSE 98) -(def-unix-error EAFNOSUPPORT 97) -(def-unix-error EPFNOSUPPORT 96) -(def-unix-error EOPNOTSUPP 95) -(def-unix-error ESOCKTNOSUPPORT 94) -(def-unix-error EPROTONOSUPPORT 93) -(def-unix-error ENOPROTOOPT 92) -(def-unix-error EPROTOTYPE 91) -(def-unix-error EMSGSIZE 90) -(def-unix-error EDESTADDRREQ 89) -(def-unix-error ENOTSOCK 88) -(def-unix-error EUSERS 87) -(def-unix-error ESTRPIPE 86) -(def-unix-error ERESTART 85) -(def-unix-error EILSEQ 84) -(def-unix-error ELIBEXEC 83) -(def-unix-error ELIBMAX 82) -(def-unix-error ELIBSCN 81) -(def-unix-error ELIBBAD 80) -(def-unix-error ELIBACC 79) -(def-unix-error EREMCHG 78) -(def-unix-error EBADFD 77) -(def-unix-error ENOTUNIQ 76) -(def-unix-error EOVERFLOW 75) -(def-unix-error EBADMSG 74) -(def-unix-error EDOTDOT 73) -(def-unix-error EMULTIHOP 72) -(def-unix-error EPROTO 71) -(def-unix-error ECOMM 70) -(def-unix-error ESRMNT 69) -(def-unix-error EADV 68) -(def-unix-error ENOLINK 67) -(def-unix-error EREMOTE 66) -(def-unix-error ENOPKG 65) -(def-unix-error ENONET 64) -(def-unix-error ENOSR 63) -(def-unix-error ETIME 62) -(def-unix-error ENODATA 61) -(def-unix-error ENOSTR 60) -(def-unix-error EBFONT 59) -(def-unix-error EBADSLT 57) -(def-unix-error EBADRQC 56) -(def-unix-error ENOANO 55) -(def-unix-error EXFULL 54) -(def-unix-error EBADR 53) -(def-unix-error EBADE 52) -(def-unix-error EL2HLT 51) -(def-unix-error ENOCSI 50) -(def-unix-error EUNATCH 49) -(def-unix-error ELNRNG 48) -(def-unix-error EL3RST 47) -(def-unix-error EL3HLT 46) -(def-unix-error EL2NSYNC 45) -(def-unix-error ECHRNG 44) -(def-unix-error EIDRM 43) -(def-unix-error ENOMSG 42) -(def-unix-error ELOOP 40) -(def-unix-error ENOTEMPTY 39) -(def-unix-error ENOSYS 38) -(def-unix-error ENOLCK 37) -(def-unix-error ENAMETOOLONG 36) -(def-unix-error EDEADLK 35) -(def-unix-error ERANGE 34) -(def-unix-error EDOM 33) -(def-unix-error EPIPE 32) -(def-unix-error EMLINK 31) -(def-unix-error EROFS 30) -(def-unix-error ESPIPE 29) -(def-unix-error ENOSPC 28) -(def-unix-error EFBIG 27) -(def-unix-error ETXTBSY 26) -(def-unix-error ENOTTY 25) -(def-unix-error EMFILE 24) -(def-unix-error ENFILE 23) -(def-unix-error EINVAL 22) -(def-unix-error EISDIR 21) -(def-unix-error ENOTDIR 20) -(def-unix-error ENODEV 19) -(def-unix-error EXDEV 18) -(def-unix-error EEXIST 17) -(def-unix-error EBUSY 16) -(def-unix-error ENOTBLK 15) -(def-unix-error EFAULT 14) -(def-unix-error EACCES 13) -(def-unix-error ENOMEM 12) -(def-unix-error EAGAIN 11) -(def-unix-error ECHILD 10) -(def-unix-error EBADF 9) -(def-unix-error ENOEXEC 8) -(def-unix-error E2BIG 7) -(def-unix-error ENXIO 6) -(def-unix-error EIO 5) -(def-unix-error EINTR 4) -(def-unix-error ESRCH 3) -(def-unix-error ENOENT 2) -(def-unix-error EPERM 1) -(def-unix-error EWOULDBLOCK EAGAIN) -(def-unix-error ENOTSUP EOPNOTSUPP) -(def-unix-error EDEADLOCK EDEADLK) +(defconstant EPERM 1) +(defconstant ENOENT 2) +(defconstant ESRCH 3) +(defconstant EINTR 4) +(defconstant EIO 5) +(defconstant ENXIO 6) +(defconstant E2BIG 7) +(defconstant ENOEXEC 8) +(defconstant EBADF 9) +(defconstant ECHILD 10) +(defconstant EAGAIN 11) +(defconstant EWOULDBLOCK EAGAIN) +(defconstant ENOMEM 12) +(defconstant EACCES 13) +(defconstant EFAULT 14) +(defconstant ENOTBLK 15) +(defconstant EBUSY 16) +(defconstant EEXIST 17) +(defconstant EXDEV 18) +(defconstant ENODEV 19) +(defconstant ENOTDIR 20) +(defconstant EISDIR 21) +(defconstant EINVAL 22) +(defconstant ENFILE 23) +(defconstant EMFILE 24) +(defconstant ENOTTY 25) +(defconstant ETXTBSY 26) +(defconstant EFBIG 27) +(defconstant ENOSPC 28) +(defconstant ESPIPE 29) +(defconstant EROFS 30) +(defconstant EMLINK 31) +(defconstant EPIPE 32) +(defconstant EDOM 33) +(defconstant ERANGE 34) +(defconstant EDEADLK 35) +(defconstant EDEADLOCK EDEADLK) +(defconstant ENAMETOOLONG 36) +(defconstant ENOLCK 37) +(defconstant ENOSYS 38) +(defconstant ENOTEMPTY 39) +(defconstant ELOOP 40) +(defconstant ENOMSG 42) +(defconstant EIDRM 43) +(defconstant ECHRNG 44) +(defconstant EL2NSYNC 45) +(defconstant EL3HLT 46) +(defconstant EL3RST 47) +(defconstant ELNRNG 48) +(defconstant EUNATCH 49) +(defconstant ENOCSI 50) +(defconstant EL2HLT 51) +(defconstant EBADE 52) +(defconstant EBADR 53) +(defconstant EXFULL 54) +(defconstant ENOANO 55) +(defconstant EBADRQC 56) +(defconstant EBADSLT 57) +(defconstant EBFONT 59) +(defconstant ENOSTR 60) +(defconstant ENODATA 61) +(defconstant ETIME 62) +(defconstant ENOSR 63) +(defconstant ENONET 64) +(defconstant ENOPKG 65) +(defconstant EREMOTE 66) +(defconstant ENOLINK 67) +(defconstant EADV 68) +(defconstant ESRMNT 69) +(defconstant ECOMM 70) +(defconstant EPROTO 71) +(defconstant EMULTIHOP 72) +(defconstant EDOTDOT 73) +(defconstant EBADMSG 74) +(defconstant EOVERFLOW 75) +(defconstant ENOTUNIQ 76) +(defconstant EBADFD 77) +(defconstant EREMCHG 78) +(defconstant ELIBACC 79) +(defconstant ELIBBAD 80) +(defconstant ELIBSCN 81) +(defconstant ELIBMAX 82) +(defconstant ELIBEXEC 83) +(defconstant EILSEQ 84) +(defconstant ERESTART 85) +(defconstant ESTRPIPE 86) +(defconstant EUSERS 87) +(defconstant ENOTSOCK 88) +(defconstant EDESTADDRREQ 89) +(defconstant EMSGSIZE 90) +(defconstant EPROTOTYPE 91) +(defconstant ENOPROTOOPT 92) +(defconstant EPROTONOSUPPORT 93) +(defconstant ESOCKTNOSUPPORT 94) +(defconstant EOPNOTSUPP 95) +(defconstant ENOTSUP EOPNOTSUPP) +(defconstant EPFNOSUPPORT 96) +(defconstant EAFNOSUPPORT 97) +(defconstant EADDRINUSE 98) +(defconstant EADDRNOTAVAIL 99) +(defconstant ENETDOWN 100) +(defconstant ENETUNREACH 101) +(defconstant ENETRESET 102) +(defconstant ECONNABORTED 103) +(defconstant ECONNRESET 104) +(defconstant ENOBUFS 105) +(defconstant EISCONN 106) +(defconstant ENOTCONN 107) +(defconstant ESHUTDOWN 108) +(defconstant ETOOMANYREFS 109) +(defconstant ETIMEDOUT 110) +(defconstant ECONNREFUSED 111) +(defconstant EHOSTDOWN 112) +(defconstant EHOSTUNREACH 113) +(defconstant EALREADY 114) +(defconstant EINPROGRESS 115) +(defconstant ESTALE 116) +(defconstant EUCLEAN 117) +(defconstant ENOTNAM 118) +(defconstant ENAVAIL 119) +(defconstant EISNAM 120) +(defconstant EREMOTEIO 121) +(defconstant EDQUOT 122) +(defconstant ENOMEDIUM 123) +(defconstant EMEDIUMTYPE 124) +(defconstant ECANCELED 125) +(defconstant ENOKEY 126) +(defconstant EKEYEXPIRED 127) +(defconstant EKEYREVOKED 128) +(defconstant EKEYREJECTED 129) +(defconstant EOWNERDEAD 130) +(defconstant ENOTRECOVERABLE 131) +(defconstant ERFKILL 132) +(defconstant EHWPOISON 133) ===================================== bin/errno-template.lisp ===================================== @@ -9,27 +9,16 @@ ;;; ;;; ********************************************************************** ;;; -;;; This file contains the UNIX low-level support, just enough to run -;;; CMUCL. +;;; This file contains the definition of UNIX errno values from errno.h. ;;; (in-package "UNIX") (intl:textdomain "cmucl-unix") ;;;; Errno stuff. -(eval-when (compile eval) - -(defparameter *compiler-unix-errors* nil) - -(defmacro def-unix-error (name number) - `(progn - (defconstant ,name ,number) - (export ',name))) - -) ;eval-when - ;;; ;;; From <errno.h> ;;; -(def-unix-error ESUCCESS 0) - +(defconstant ESUCCESS 0) +;;; The following values are autogenerated via bin/create-errno.sh +;;; DO NOT EDIT this file. Update the templates instead. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7ef852b91ad196b73ad1bf5… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7ef852b91ad196b73ad1bf5… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0