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

[Git][cmucl/cmucl][master] 2 commits: Fix #452: Move bin/errno-foo.lisp to src/tools/
by Raymond Toy (＠rtoy) 07 Nov '25

07 Nov '25

Raymond Toy pushed to branch master at cmucl / cmucl Commits: b61d6e17 by Raymond Toy at 2025-11-06T17:28:00-08:00 Fix #452: Move bin/errno-foo.lisp to src/tools/ - - - - - 8508d11e by Raymond Toy at 2025-11-06T17:28:00-08:00 Merge branch 'issue-452-move-errno-ref-files' into 'master' Fix #452: Move bin/errno-foo.lisp to src/tools/ Closes #452 See merge request cmucl/cmucl!330 - - - - - 4 changed files: - bin/create-errno.sh - bin/errno-darwin.lisp → src/tools/errno-darwin.lisp - bin/errno-linux.lisp → src/tools/errno-linux.lisp - bin/errno-solaris.lisp → src/tools/errno-solaris.lisp Changes: ===================================== bin/create-errno.sh ===================================== @@ -64,11 +64,11 @@ TEMPLATE_PKG="src/tools/unix-pkg-template.lisp" if [ -z "$DEFAULT" ]; then # shellcheck disable=SC2006 case `uname -s` in - Linux) ERRNO_FILE="bin/errno-linux.lisp" + Linux) ERRNO_FILE="src/tools/errno-linux.lisp" ;; - Darwin) ERRNO_FILE="bin/errno-darwin.lisp" + Darwin) ERRNO_FILE="src/tools/errno-darwin.lisp" ;; - SunOS) ERRNO_FILE="bin/errno-solaris.lisp" + SunOS) ERRNO_FILE="src/tools/errno-solaris.lisp" ;; *) # The default case where we use the defaults. But also disable updating. UPDATE="" ===================================== bin/errno-darwin.lisp → src/tools/errno-darwin.lisp ===================================== ===================================== bin/errno-linux.lisp → src/tools/errno-linux.lisp ===================================== ===================================== bin/errno-solaris.lisp → src/tools/errno-solaris.lisp ===================================== View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/f6df759b1c0fc864b936e5… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/f6df759b1c0fc864b936e5… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-452-move-errno-ref-files
by Raymond Toy (＠rtoy) 07 Nov '25

07 Nov '25

Raymond Toy pushed new branch issue-452-move-errno-ref-files at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-452-move-errno-ref-… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #437: Use realpath to find the executable
by Raymond Toy (＠rtoy) 06 Nov '25

06 Nov '25

Raymond Toy pushed to branch master at cmucl / cmucl Commits: b764d014 by Raymond Toy at 2025-11-06T07:20:10-08:00 Fix #437: Use realpath to find the executable - - - - - 2a9edb1f by Raymond Toy at 2025-11-06T07:20:11-08:00 Merge branch 'issue-437-find-self' into 'master' Fix #437: Use realpath to find the executable Closes #437 See merge request cmucl/cmucl!329 - - - - - 1 changed file: - src/lisp/lisp.c Changes: ===================================== src/lisp/lisp.c ===================================== @@ -127,175 +127,104 @@ int debug_lisp_search = FALSE; /* * From the current location of the lisp executable, create a suitable - * default for CMUCLLIB + * default for CMUCLLIB. The result is a colon-separated list + * directories to be used for finding the core file and for the cmucl + * libraries. + * + * The caller must free the returned string. */ -static const char * +static char * default_cmucllib(const char *argv0arg) { - char *p0; - char *defpath; char *cwd; - char *argv0_dir = strdup(argv0arg); + int cwd_len; + char **ptr; + char *path; + int path_len; + char *slash; - /* - * From argv[0], create the appropriate directory by lopping off the - * executable name - */ + cwd = realpath(argv0arg, NULL); - p0 = strrchr(argv0_dir, '/'); - if (p0 == NULL) { - *argv0_dir = '\0'; - } else if (p0 != argv0_dir) { - *p0 = '\0'; + if (debug_lisp_search) { + fprintf(stderr, "Realpath of %s = %s\n", argv0arg, cwd); + } + + if (!cwd) { + perror("Cannot determine realpath of lisp executable"); + exit(1); } /* - * Create the full pathname of the directory containing the - * executable. argv[0] can be an absolute or relative path. + * Delete the binary name from the full path, leaving just the + * full directory to the executable. */ - if (debug_lisp_search) { - fprintf(stderr, "argv[0] = %s\n", argv0arg); - fprintf(stderr, "argv_dir = %s\n", argv0_dir); + slash = strrchr(cwd, '/'); + if (slash) { + slash[1] = '\0'; } + if (debug_lisp_search) { + fprintf(stderr, "Executable path %s\n", cwd); + } - if (argv0_dir[0] == '/') { - cwd = malloc(strlen(argv0_dir) + 2); - strcpy(cwd, argv0_dir); - strcat(cwd, "/"); - if (debug_lisp_search) { - fprintf(stderr, "absolute path, argv[0] = %s\n", cwd); - } - - } else if (*argv0_dir != '\0') { - /* - * argv[0] is a relative path. Get the current directory and - * append argv[0], after stripping off the executable name. - */ - cwd = malloc(FILENAME_MAX + strlen(argv0_dir) + 100); - getcwd_or_die(cwd, FILENAME_MAX); - strcat(cwd, "/"); - if (*argv0_dir != '\0') { - strcat(cwd, argv0_dir); - strcat(cwd, "/"); - } - if (debug_lisp_search) { - fprintf(stderr, "relative path, argv[0] = %s\n", cwd); - } - } else { - /* - * argv[0] is someplace on the user's PATH - * - */ - char *path = getenv("PATH"); - char *p1, *p2 = NULL; - struct stat buf; - - if (debug_lisp_search) { - fprintf(stderr, "User's PATH = %s\n", path ? path : "<NULL>"); - } - - cwd = malloc(FILENAME_MAX + strlen(argv0arg) + 100); - cwd[0] = '\0'; - - if (path) { - const char *ptr = (p0 != NULL) ? p0 : argv0arg; - - for (p1 = path; *p1 != '\0'; p1 = p2) { - p2 = strchr(p1, ':'); - if (p2 == NULL) - p2 = p1 + strlen(p1); - strncpy(cwd, p1, p2 - p1); - cwd[p2 - p1] = '/'; - cwd[p2 - p1 + 1] = '\0'; - strcpy(cwd + (p2 - p1 + 1), ptr); - - if (debug_lisp_search) { - fprintf(stderr, "User's PATH, trying %s\n", cwd); - } - - if (stat(cwd, &buf) == 0) { - - if (debug_lisp_search) { - fprintf(stderr, "User's PATH, found %s\n", cwd); - } - if (access(cwd, X_OK) == 0) { - break; - } else { - if (debug_lisp_search) { - fprintf(stderr, - " But not executable. Continuing...\n"); - } - } + /* + * Create the appropriate value for CMUCLLIB by adding the + * executable path (if needed) to each entry in + * cmucllib_search_list. + */ - } + /* First figure out how much space we need */ - if (*p2 == ':') { - p2++; - } + path_len = 0; + cwd_len = strlen(cwd); - } - if ((p1 == p2) || (p2 == NULL)) { - cwd[0] = '\0'; - } else { - cwd[p2 - p1 + 1] = '\0'; - } - if (debug_lisp_search) { - fprintf(stderr, "User's PATH, Final cwd %s\n", cwd); - } + ptr = cmucllib_search_list; - } + while (*ptr != NULL) { + /* + * Plus 2 for the ":" and "/" we need to add and the cwd that + * might be added. + */ + path_len += strlen(*ptr) + cwd_len + 2; + ++ptr; } - /* Create the appropriate value for CMUCLLIB */ - - { - char **ptr; - int total_len; - int cwd_len; - - /* First figure out how much space we need */ + /* Create the colon separated list of directories */ - total_len = 0; - cwd_len = strlen(cwd); - - ptr = cmucllib_search_list; + path = malloc(path_len + 1); + if (!path) { + perror("Failed to malloc space for cmucllib"); + exit(1); + } + + *path = '\0'; - while (*ptr != NULL) { - /* Plus 2 for the ":" and "/" we need to add */ - total_len += strlen(*ptr) + cwd_len + 2; - ++ptr; + ptr = cmucllib_search_list; + while (*ptr != NULL) { + /* + * If it's relative, add the full executable path first to + * make the path absolute. + */ + if (*ptr[0] != '/') { + strcat(path, cwd); } - /* Create the colon separated list of directories */ - - defpath = malloc(total_len + 1); - *defpath = '\0'; - - ptr = cmucllib_search_list; - while (*ptr != NULL) { - if (*ptr[0] != '/') { - strcat(defpath, cwd); - } - - strcat(defpath, *ptr); - - if (ptr[1] != NULL) { - strcat(defpath, ":"); - } + strcat(path, *ptr); - ++ptr; + /* Add a colon if we're not at the last entry of the search list */ + if (ptr[1] != NULL) { + strcat(path, ":"); } - if (strlen(defpath) > total_len) { - abort(); - } + ++ptr; } - free(argv0_dir); - free(cwd); + if (strlen(path) > path_len) { + abort(); + } - return (const char *) defpath; + free(cwd); + return path; } /* View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/c5c80aef9bc5763f692b3e… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/c5c80aef9bc5763f692b3e… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[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