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

[Git][cmucl/cmucl][issue-437-find-self] Check results from malloc and exit if malloc fails
by Raymond Toy (＠rtoy) 27 Oct '25

27 Oct '25

Raymond Toy pushed to branch issue-437-find-self at cmucl / cmucl Commits: bfc65529 by Raymond Toy at 2025-10-27T08:39:00-07:00 Check results from malloc and exit if malloc fails - - - - - 1 changed file: - src/lisp/lisp.c Changes: ===================================== src/lisp/lisp.c ===================================== @@ -143,6 +143,11 @@ default_cmucllib(const char *argv0arg) char *cwd; char *newpath = malloc(PATH_MAX); + if (!newpath) { + perror("Failed to malloc space for newpath"); + exit(1); + } + cwd = realpath(argv0arg, newpath); if (debug_lisp_search) { @@ -195,6 +200,11 @@ default_cmucllib(const char *argv0arg) /* Create the colon separated list of directories */ defpath = malloc(total_len + 1); + if (!defpath) { + perror("Failed to malloc space for cmucllib"); + exit(1); + } + *defpath = '\0'; ptr = cmucllib_search_list; View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/bfc655297cd0fe2cc57ba36… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/bfc655297cd0fe2cc57ba36… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-437-find-self] Remove old version and add some more comments.
by Raymond Toy (＠rtoy) 26 Oct '25

26 Oct '25

Raymond Toy pushed to branch issue-437-find-self at cmucl / cmucl Commits: 858da43e by Raymond Toy at 2025-10-26T16:18:14-07:00 Remove old version and add some more comments. - - - - - 1 changed file: - src/lisp/lisp.c Changes: ===================================== src/lisp/lisp.c ===================================== @@ -127,179 +127,12 @@ int debug_lisp_search = TRUE; /* * 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. */ -#if 0 -static const char * -default_cmucllib(const char *argv0arg) -{ - char *p0; - char *defpath; - char *cwd; - char *argv0_dir = strdup(argv0arg); - - /* - * From argv[0], create the appropriate directory by lopping off the - * executable name - */ - - p0 = strrchr(argv0_dir, '/'); - if (p0 == NULL) { - *argv0_dir = '\0'; - } else if (p0 != argv0_dir) { - *p0 = '\0'; - } - - /* - * Create the full pathname of the directory containing the - * executable. argv[0] can be an absolute or relative path. - */ - if (debug_lisp_search) { - fprintf(stderr, "argv[0] = %s\n", argv0arg); - fprintf(stderr, "argv_dir = %s\n", argv0_dir); - } - - - 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"); - } - } - - } - - if (*p2 == ':') { - p2++; - } - - } - 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); - } - - } - } - - /* Create the appropriate value for CMUCLLIB */ - - { - char **ptr; - int total_len; - int cwd_len; - - /* First figure out how much space we need */ - - total_len = 0; - cwd_len = strlen(cwd); - - ptr = cmucllib_search_list; - - while (*ptr != NULL) { - /* Plus 2 for the ":" and "/" we need to add */ - total_len += strlen(*ptr) + cwd_len + 2; - ++ptr; - } - - /* 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, ":"); - } - - ++ptr; - } - - if (strlen(defpath) > total_len) { - abort(); - } - } - - free(argv0_dir); - free(cwd); - - return (const char *) defpath; -} -#endif - static const char * default_cmucllib(const char *argv0arg) { View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/858da43e80c12c1dcbc63c1… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/858da43e80c12c1dcbc63c1… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-437-find-self] 2 commits: Clean up implementation
by Raymond Toy (＠rtoy) 26 Oct '25

26 Oct '25

Raymond Toy pushed to branch issue-437-find-self at cmucl / cmucl Commits: df9bb2e5 by Raymond Toy at 2025-10-26T16:13:08-07:00 Clean up implementation Remove old junk, add some debugging stuff when debugging search list is enabled. Add some more comments. - - - - - 0e88661a by Raymond Toy at 2025-10-26T16:15:23-07:00 Clean up empty lines - - - - - 1 changed file: - src/lisp/lisp.c Changes: ===================================== src/lisp/lisp.c ===================================== @@ -303,64 +303,89 @@ default_cmucllib(const char *argv0arg) static const char * default_cmucllib(const char *argv0arg) { - extern void findyourself_init(const char *argv0); - extern int find_yourself(char *result, size_t size_of_result); - - int rc; + int total_len; + int cwd_len; + char **ptr; char *defpath; char *cwd; - char* newpath = malloc(PATH_MAX); - - realpath(argv0arg, newpath); - printf("argv[0] = %s\n", argv0arg); - printf("realpath = %s\n", newpath); + char *newpath = malloc(PATH_MAX); + + cwd = realpath(argv0arg, newpath); + + if (debug_lisp_search) { + fprintf(stderr, "Realpath of %s = %s\n", argv0arg, newpath); + } + + if (!cwd) { + perror("Cannot determine realpath of lisp executable"); + exit(1); + } + /* + * Delete the binary name from the full path, leaving just the + * full directory to the executable. + */ cwd = strrchr(newpath, '/'); - cwd[1] = '\0'; - printf("cwd = %s\n", newpath); - + if (cwd) { + cwd[1] = '\0'; + } + + /* cwd is the path directory of the executable */ cwd = newpath; - { - char **ptr; - int total_len; - int cwd_len; - /* First figure out how much space we need */ + if (debug_lisp_search) { + fprintf(stderr, "Executable path %s\n", cwd); + } - total_len = 0; - cwd_len = strlen(newpath); + /* + * Create the appropriate value for CMUCLLIB by adding the + * executable path (if needed) to each entry in + * cmucllib_search_list. + */ - ptr = cmucllib_search_list; + /* First figure out how much space we need */ - while (*ptr != NULL) { - /* Plus 2 for the ":" and "/" we need to add */ - total_len += strlen(*ptr) + cwd_len + 2; - ++ptr; - } + total_len = 0; + cwd_len = strlen(cwd); - /* Create the colon separated list of directories */ + ptr = cmucllib_search_list; - defpath = malloc(total_len + 1); - *defpath = '\0'; + while (*ptr != NULL) { + /* + * Plus 2 for the ":" and "/" we need to add and the cwd that + * might be added. + */ + total_len += strlen(*ptr) + cwd_len + 2; + ++ptr; + } - ptr = cmucllib_search_list; - while (*ptr != NULL) { - if (*ptr[0] != '/') { - strcat(defpath, cwd); - } + /* Create the colon separated list of directories */ - strcat(defpath, *ptr); + defpath = malloc(total_len + 1); + *defpath = '\0'; - if (ptr[1] != NULL) { - strcat(defpath, ":"); - } - - ++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(defpath, cwd); } - if (strlen(defpath) > total_len) { - abort(); + strcat(defpath, *ptr); + + /* Add a colon if we're not at the last entry of the search list */ + if (ptr[1] != NULL) { + strcat(defpath, ":"); } + + ++ptr; + } + + if (strlen(defpath) > total_len) { + abort(); } free(newpath); View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/0e2ebe246601a8a0fc0f15… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/0e2ebe246601a8a0fc0f15… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-437-find-self
by Raymond Toy (＠rtoy) 26 Oct '25

26 Oct '25

Raymond Toy pushed new branch issue-437-find-self at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-437-find-self 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] 2 commits: Disable shellcheck SC2006
by Raymond Toy (＠rtoy) 25 Oct '25

25 Oct '25

Raymond Toy pushed to branch issue-446-use-cc-to-get-errno at cmucl / cmucl Commits: 38a4e045 by Raymond Toy at 2025-10-24T17:51:27-07:00 Disable shellcheck SC2006 For Solaris with ancient implementation of `sh`, we use backticks instead of `$(...)`. This requires disabling this check for the one line in create-errno.sh. - - - - - 550ca950 by Raymond Toy at 2025-10-24T17:53:26-07:00 Use branch cmucl-expected-failures-etypecase.15 On darwin the ansi test `etypcase.15` fails for some reason. Use the branch cmucl-expected-failures-etypecase.15 for the ansi tests to note that this is an expected failure. - - - - - 2 changed files: - bin/create-errno.sh - bin/run-ansi-tests.sh Changes: ===================================== bin/create-errno.sh ===================================== @@ -61,6 +61,7 @@ TEMPLATE_PKG="bin/errno-pkg-template.lisp" # Set ERRNO_FILE to an OS-specific name if possible. If not, use the # default ERRNO_FILE value. if [ -z "$DEFAULT" ]; then + # shellcheck disable=SC2006 case `uname -s` in Linux) ERRNO_FILE="bin/errno-linux.lisp" ;; ===================================== bin/run-ansi-tests.sh ===================================== @@ -36,7 +36,7 @@ shift $((OPTIND - 1)) # Use branch cmucl-expected-failures in general since this branch # generally has the list of expected failures. This is the branch to # use on cmucl master in general. -BRANCH=cmucl-expected-failures +BRANCH=cmucl-expected-failures-etypecase.15 set -x if [ -d ../ansi-test ]; then View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/d4998b32fb5bbc50f3c30b… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/d4998b32fb5bbc50f3c30b… 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] 2 commits: Address review comments
by Raymond Toy (＠rtoy) 24 Oct '25

24 Oct '25

Raymond Toy pushed to branch issue-446-use-cc-to-get-errno at cmucl / cmucl Commits: 6fc59db8 by Raymond Toy at 2025-10-23T20:06:53-07:00 Address review comments Inline DUMP_MACROS. Make Solaris sh happy by using backticks. - - - - - d4998b32 by Raymond Toy at 2025-10-24T09:45:24-07:00 Generate the ERRNO package definition Update create-errno.sh to generate a package definition for the ERRNO package from the `def-unix-error` forms that we generate already. This uses "bin/errno-pkg-template.lisp" for the boiler plate needed. The result is placed in src/code/exports-errno.lisp. Remove the ERRNO defpackage form from exports.lisp since we're generating it now. Update worldcom and worldload to load exports-errno.lisp. Finally, tell git to ignore the generated file exports-errno.lisp. - - - - - 7 changed files: - .gitignore - bin/build-world.sh - bin/create-errno.sh - + bin/errno-pkg-template.lisp - src/code/exports.lisp - src/tools/worldcom.lisp - src/tools/worldload.lisp Changes: ===================================== .gitignore ===================================== @@ -33,5 +33,6 @@ src/docs/cmu-user/*.tnd src/docs/cmu-user/*.toc src/docs/cmu-user/*.vdx src/docs/cmu-user/*.vnd -# Ignore generated errno.lisp +# Ignore generated errno files src/code/errno.lisp +src/code/exports-errno.lisp ===================================== bin/build-world.sh ===================================== @@ -53,6 +53,7 @@ $LISP "$@" -noinit -nositeinit <<EOF (pushnew :no-clm *features*) (pushnew :no-hemlock *features*) +(load "target:code/exports-errno") (load "target:code/exports") (load "target:tools/setup" :if-source-newer :load-source) (comf "target:tools/setup" :load t) ===================================== bin/create-errno.sh ===================================== @@ -48,6 +48,7 @@ done # Output file containing the final errno defintions OUTPUT="src/code/errno.lisp" +OUTPUT_PKG="src/code/exports-errno.lisp" # Default file containing errno definitions. ERRNO_FILE="bin/errno-default.lisp" @@ -55,16 +56,12 @@ ERRNO_FILE="bin/errno-default.lisp" # Template file containing the default def-unix-error forms and other # support code. TEMPLATE="bin/errno-template.lisp" - -# How to dump the macros. This version works on Linux, Darwin, and -# Solaris (with Sun C). Update this below if we need some other way -# for other OSes. -DUMP_MACROS="cpp -dM -" +TEMPLATE_PKG="bin/errno-pkg-template.lisp" # Set ERRNO_FILE to an OS-specific name if possible. If not, use the # default ERRNO_FILE value. if [ -z "$DEFAULT" ]; then - case $(uname -s) in + case `uname -s` in Linux) ERRNO_FILE="bin/errno-linux.lisp" ;; Darwin) ERRNO_FILE="bin/errno-darwin.lisp" @@ -84,9 +81,11 @@ fi find_errno () { # Create appropriate DEF-UNIX-ERROR forms by reading header files - # containing the C definitions. + # 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. echo '#include <errno.h>' | - ${DUMP_MACROS} | + cpp -dM - | grep "#define[ \t]\{1,\}E[A-Z0-9]\{1,\}" | sed 's/#define $.*$ $.*$$/(def-unix-error \1 \2)/' | sort -n -k 3 @@ -111,6 +110,12 @@ fi # OS-specific errno values (or the default). cat "$TEMPLATE" "$ERRNO_FILE" > $OUTPUT +cut -d ' ' -f 2 "$ERRNO_FILE" | + sed 's/$.*$/ "\1"/' | + sort | + cat "$TEMPLATE_PKG" - > "$OUTPUT_PKG" +echo " ))" >> "$OUTPUT_PKG" + # If -S option given, cat the output file to stdout if [ -n "$SHOW" ]; then cat $OUTPUT ===================================== bin/errno-pkg-template.lisp ===================================== @@ -0,0 +1,31 @@ +;;; -*- Log: C.Log -*- +;;; +;;; ********************************************************************** +;;; This code was written as part of the CMU Common Lisp project at +;;; Carnegie Mellon University, and has been placed in the public domain. +;;; +(ext:file-comment + "$Header: src/code/exports-errno.lisp $") +;;; +;;; ********************************************************************** +;;; +;;; Defines the ERRNO package and all the exported symbols. +;;; +;;; This file is auto-generated via bin/create-errno.sh. +;;; +;;; DO NOT EDIT! +;;; + +(in-package "LISP") + +(intl:textdomain "cmucl") + +(if (find-package "ERRNO") + (rename-package "ERRNO" "ERRNO" 'nil) + (make-package "ERRNO" :nicknames 'nil :use nil)) + +(use-package '("LISP") "ERRNO") + +(defpackage "ERRNO" + (:export + "ESUCCESS" ===================================== src/code/exports.lisp ===================================== @@ -200,450 +200,6 @@ "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS" "MULTIPLY-FIXNUMS" "NEGATE-BIGNUM" "SUBTRACT-BIGNUM")) -(defpackage "ERRNO" - #+linux - (:export "E2BIG" - "EACCES" - "EADDRINUSE" - "EADDRNOTAVAIL" - "EADV" - "EAFNOSUPPORT" - "EAGAIN" - "EALREADY" - "EBADE" - "EBADF" - "EBADFD" - "EBADMSG" - "EBADR" - "EBADRQC" - "EBADSLT" - "EBFONT" - "EBUSY" - "ECHILD" - "ECHRNG" - "ECOMM" - "ECONNABORTED" - "ECONNREFUSED" - "ECONNRESET" - "EDEADLK" - "EDEADLOCK" - "EDESTADDRREQ" - "EDOM" - "EDOTDOT" - "EDQUOT" - "EEXIST" - "EFAULT" - "EFBIG" - "EHOSTDOWN" - "EHOSTUNREACH" - "EIDRM" - "EILSEQ" - "EINPROGRESS" - "EINTR" - "EINVAL" - "EIO" - "EISCONN" - "EISDIR" - "EISNAM" - "EL2HLT" - "EL2NSYNC" - "EL3HLT" - "EL3RST" - "ELIBACC" - "ELIBBAD" - "ELIBEXEC" - "ELIBMAX" - "ELIBSCN" - "ELNRNG" - "ELOOP" - "EMFILE" - "EMLINK" - "EMSGSIZE" - "EMULTIHOP" - "ENAMETOOLONG" - "ENAVAIL" - "ENETDOWN" - "ENETRESET" - "ENETUNREACH" - "ENFILE" - "ENOANO" - "ENOBUFS" - "ENOCSI" - "ENODATA" - "ENODEV" - "ENOENT" - "ENOEXEC" - "ENOLCK" - "ENOLINK" - "ENOMEM" - "ENOMSG" - "ENONET" - "ENOPKG" - "ENOPROTOOPT" - "ENOSPC" - "ENOSR" - "ENOSTR" - "ENOSYS" - "ENOTBLK" - "ENOTCONN" - "ENOTDIR" - "ENOTEMPTY" - "ENOTNAM" - "ENOTSOCK" - "ENOTTY" - "ENOTUNIQ" - "ENXIO" - "EOPNOTSUPP" - "EOVERFLOW" - "EPERM" - "EPFNOSUPPORT" - "EPIPE" - "EPROTO" - "EPROTONOSUPPORT" - "EPROTOTYPE" - "ERANGE" - "EREMCHG" - "EREMOTE" - "EREMOTEIO" - "ERESTART" - "EROFS" - "ESHUTDOWN" - "ESOCKTNOSUPPORT" - "ESPIPE" - "ESRCH" - "ESRMNT" - "ESTALE" - "ESTRPIPE" - "ESUCCESS" - "ETIME" - "ETIMEDOUT" - "ETOOMANYREFS" - "ETXTBSY" - "EUCLEAN" - "EUNATCH" - "EUSERS" - "EWOULDBLOCK" - "EXDEV" - "EXFULL" - ) - #+(or bsd darwin) - (:export "E2BIG" - "EACCES" - "EADDRINUSE" - "EADDRNOTAVAIL" - "EAFNOSUPPORT" - "EAGAIN" - "EALREADY" - "EBADF" - "EBUSY" - "ECHILD" - "ECONNABORTED" - "ECONNREFUSED" - "ECONNRESET" - "EDEADLK" - "EDESTADDRREQ" - "EDOM" - "EDQUOT" - "EEXIST" - "EFAULT" - "EFBIG" - "EHOSTDOWN" - "EHOSTUNREACH" - "EINPROGRESS" - "EINTR" - "EINVAL" - "EIO" - "EISCONN" - "EISDIR" - "ELOCAL" - "ELOOP" - "EMFILE" - "EMLINK" - "EMSGSIZE" - "ENAMETOOLONG" - "ENETDOWN" - "ENETRESET" - "ENETUNREACH" - "ENFILE" - "ENOBUFS" - "ENODEV" - "ENOENT" - "ENOEXEC" - "ENOMEM" - "ENOPROTOOPT" - "ENOSPC" - "ENOTBLK" - "ENOTCONN" - "ENOTDIR" - "ENOTEMPTY" - "ENOTSOCK" - "ENOTTY" - "ENXIO" - "EOPNOTSUPP" - "EPERM" - "EPFNOSUPPORT" - "EPIPE" - "EPROCLIM" - "EPROTONOSUPPORT" - "EPROTOTYPE" - "ERANGE" - "EREMOTE" - "EROFS" - "ESHUTDOWN" - "ESOCKTNOSUPPORT" - "ESPIPE" - "ESRCH" - "ESUCCESS" - "ETIMEDOUT" - "ETOOMANYREFS" - "ETXTBSY" - "EUSERS" - "EVICEERR" - "EVICEOP" - "EWOULDBLOCK" - "EXDEV" - ) - #+solaris - (:export "E2BIG" - "EACCES" - "EADDRINUSE" - "EADDRNOTAVAIL" - "EADV" - "EAFNOSUPPORT" - "EAGAIN" - "EALREADY" - "EBADE" - "EBADF" - "EBADFD" - "EBADMSG" - "EBADR" - "EBADRQC" - "EBADSLT" - "EBFONT" - "EBUSY" - "ECANCELED" - "ECHILD" - "ECHRNG" - "ECOMM" - "ECONNABORTED" - "ECONNREFUSED" - "ECONNRESET" - "EDEADLK" - "EDEADLOCK" - "EDESTADDRREQ" - "EDOM" - "EEXIST" - "EFAULT" - "EFBIG" - "EHOSTDOWN" - "EHOSTUNREACH" - "EIDRM" - "EILSEQ" - "EINPROGRESS" - "EINTR" - "EINVAL" - "EIO" - "EISCONN" - "EISDIR" - "EL2HLT" - "EL2NSYNC" - "EL3HLT" - "EL3RST" - "ELIBACC" - "ELIBBAD" - "ELIBEXEC" - "ELIBMAX" - "ELIBSCN" - "ELNRNG" - "ELOOP" - "EMFILE" - "EMLINK" - "EMSGSIZE" - "EMULTIHOP" - "ENAMETOOLONG" - "ENETDOWN" - "ENETRESET" - "ENETUNREACH" - "ENFILE" - "ENOANO" - "ENOBUFS" - "ENOCSI" - "ENODATA" - "ENODEV" - "ENOENT" - "ENOEXEC" - "ENOLCK" - "ENOLINK" - "ENOMEM" - "ENOMSG" - "ENONET" - "ENOPKG" - "ENOPROTOOPT" - "ENOSPC" - "ENOSR" - "ENOSTR" - "ENOSYS" - "ENOTBLK" - "ENOTCONN" - "ENOTDIR" - "ENOTEMPTY" - "ENOTSOCK" - "ENOTSUP" - "ENOTTY" - "ENOTUNIQ" - "ENXIO" - "EOPNOTSUPP" - "EOVERFLOW" - "EPERM" - "EPFNOSUPPORT" - "EPIPE" - "EPROTO" - "EPROTONOSUPPORT" - "EPROTOTYPE" - "ERANGE" - "EREMCHG" - "EREMOTE" - "ERESTART" - "EROFS" - "ESHUTDOWN" - "ESOCKTNOSUPPORT" - "ESPIPE" - "ESRCH" - "ESRMNT" - "ESTALE" - "ESTRPIPE" - "ESUCCESS" - "ETIME" - "ETIMEDOUT" - "ETOOMANYREFS" - "ETXTBSY" - "EUNATCH" - "EUSERS" - "EWOULDBLOCK" - "EXDEV" - "EXFULL" - ) - #-(or linux solaris bsd darwin) - (:export "E2BIG" - "EACCES" - "EADDRINUSE" - "EADDRNOTAVAIL" - "EADV" - "EAFNOSUPPORT" - "EAGAIN" - "EALREADY" - "EBADE" - "EBADF" - "EBADFD" - "EBADMSG" - "EBADR" - "EBADRQC" - "EBADSLT" - "EBFONT" - "EBUSY" - "ECANCELED" - "ECHILD" - "ECHRNG" - "ECOMM" - "ECONNABORTED" - "ECONNREFUSED" - "ECONNRESET" - "EDEADLK" - "EDEADLOCK" - "EDESTADDRREQ" - "EDOM" - "EEXIST" - "EFAULT" - "EFBIG" - "EHOSTDOWN" - "EHOSTUNREACH" - "EIDRM" - "EILSEQ" - "EINPROGRESS" - "EINTR" - "EINVAL" - "EIO" - "EISCONN" - "EISDIR" - "EL2HLT" - "EL2NSYNC" - "EL3HLT" - "EL3RST" - "ELIBACC" - "ELIBBAD" - "ELIBEXEC" - "ELIBMAX" - "ELIBSCN" - "ELNRNG" - "ELOOP" - "EMFILE" - "EMLINK" - "EMSGSIZE" - "EMULTIHOP" - "ENAMETOOLONG" - "ENETDOWN" - "ENETRESET" - "ENETUNREACH" - "ENFILE" - "ENOANO" - "ENOBUFS" - "ENOCSI" - "ENODATA" - "ENODEV" - "ENOENT" - "ENOEXEC" - "ENOLCK" - "ENOLINK" - "ENOMEM" - "ENOMSG" - "ENONET" - "ENOPKG" - "ENOPROTOOPT" - "ENOSPC" - "ENOSR" - "ENOSTR" - "ENOSYS" - "ENOTBLK" - "ENOTCONN" - "ENOTDIR" - "ENOTEMPTY" - "ENOTSOCK" - "ENOTSUP" - "ENOTTY" - "ENOTUNIQ" - "ENXIO" - "EOPNOTSUPP" - "EOVERFLOW" - "EPERM" - "EPFNOSUPPORT" - "EPIPE" - "EPROTO" - "EPROTONOSUPPORT" - "EPROTOTYPE" - "ERANGE" - "EREMCHG" - "EREMOTE" - "ERESTART" - "EROFS" - "ESHUTDOWN" - "ESOCKTNOSUPPORT" - "ESPIPE" - "ESRCH" - "ESRMNT" - "ESTALE" - "ESTRPIPE" - "ESUCCESS" - "ETIME" - "ETIMEDOUT" - "ETOOMANYREFS" - "ETXTBSY" - "EUNATCH" - "EUSERS" - "EWOULDBLOCK" - "EXDEV" - "EXFULL" - )) - (defpackage "UNIX" (:export "UNIX-CURRENT-DIRECTORY" "UNIX-OPEN" @@ -945,7 +501,7 @@ (do-external-symbols (sym "ERRNO") (shadowing-import sym "UNIX") (export sym "UNIX"))) - + (defpackage "FORMAT") (defpackage "COMMON-LISP" ===================================== src/tools/worldcom.lisp ===================================== @@ -315,6 +315,7 @@ (comf "target:code/multi-proc")) (comf "target:code/setf-funs") +(comf "target:code/exports-errno" :proceed t) (comf "target:code/exports" :proceed t) ;;; Compile basic macros that we assume are already in the compilation ===================================== src/tools/worldload.lisp ===================================== @@ -78,6 +78,7 @@ ;;; Make sure the package structure is correct. ;;; +(maybe-byte-load "code:exports-errno") (maybe-byte-load "code:exports") ;;; Load random code sources. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/6ce0be0f7aaae32f27ac4d… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/6ce0be0f7aaae32f27ac4d… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #449: touch 64-bit-timestamp.txt with desired time
by Raymond Toy (＠rtoy) 23 Oct '25

23 Oct '25

Raymond Toy pushed to branch master 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 - - - - - 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/52ce44f1f04551f323eb1b… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/52ce44f1f04551f323eb1b… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-449-set-timestamp-on-test-file] Address review comments
by Raymond Toy (＠rtoy) 23 Oct '25

23 Oct '25

Raymond Toy pushed to branch issue-449-set-timestamp-on-test-file at cmucl / cmucl Commits: 3732db6e by Raymond Toy at 2025-10-23T08:15:34-07:00 Address review comments Add test for timestamp in 2106 that won't fit in a 32-bit int. To do this, we added a new file 64-bit-timestamp-2106.txt and renamed 64-bit-timestamp.txt to 64-bit-timestamp-2038.txt. Update run-unit-tests.sh to set the time stamps on these two files, and add a test to os.lisp for the new file. Finally, a minor tweak to os.lisp because we got the expected and actual values backwards in `assert-equal` for the time stamp tests. The expected value is first. - - - - - 4 changed files: - 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: ===================================== bin/run-unit-tests.sh ===================================== @@ -42,10 +42,13 @@ rm -rf test-tmp mkdir test-tmp ln -s /bin/ls test-tmp/ls-link -# Set the timestamp on 64-bit-timestamp.txt. 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.txt +# 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 { ===================================== 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/-/commit/3732db6efc15ee53fd88065… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/3732db6efc15ee53fd88065… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-449-set-timestamp-on-test-file
by Raymond Toy (＠rtoy) 20 Oct '25

20 Oct '25

Raymond Toy pushed new branch issue-449-set-timestamp-on-test-file at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-449-set-timestamp-o… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-355-solaris-x86-sigfpe-handler] 3 commits: Fix #444: Use 64-bit time_t value for stat and friends
by Raymond Toy (＠rtoy) 17 Oct '25

17 Oct '25

Raymond Toy pushed to branch issue-355-solaris-x86-sigfpe-handler at cmucl / cmucl Commits: 13f23f79 by Raymond Toy at 2025-10-13T18:45:22-07:00 Fix #444: Use 64-bit time_t value for stat and friends - - - - - 52ce44f1 by Raymond Toy at 2025-10-13T18:45:22-07:00 Merge branch 'issue-444-b-stat-with-64-bit-time' into 'master' Fix #444: Use 64-bit time_t value for stat and friends Closes #444 See merge request cmucl/cmucl!326 - - - - - 2e23d828 by Raymond Toy at 2025-10-16T17:11:59-07:00 Merge branch 'master' into issue-355-solaris-x86-sigfpe-handler - - - - - 4 changed files: - src/general-info/release-22a.md - src/lisp/os-common.c - tests/os.lisp - + tests/resources/64-bit-timestamp.txt Changes: ===================================== src/general-info/release-22a.md ===================================== @@ -24,8 +24,9 @@ public domain. * Updated CLX from upstream to version from 2024-09-11. * ANSI compliance fixes: * Bug fixes: - * #387: Update CLX from upstream to version from 2024-09-11. * Gitlab tickets: + * #387: Update CLX from upstream to version from 2024-09-11. + * #444: `unix-stat` and friends return wrong timestamp * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: ===================================== src/lisp/os-common.c ===================================== @@ -5,6 +5,11 @@ */ +#ifdef __linux__ +/* Want 64-bit time_t values for stat and friends */ +#define _TIME_BITS 64 +#endif + #include <assert.h> #include <errno.h> #include <langinfo.h> ===================================== tests/os.lisp ===================================== @@ -34,3 +34,19 @@ (system:get-user-homedir-namestring "zotuserunknown") (assert-eql home-pathname nil) (assert-eql status 0))) + +#+linux +(define-test stat.64-bit-timestamp + (:tag :issues) + (let ((test-file #.(merge-pathnames "resources/64-bit-timestamp.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-ctime st-blksize st-blocks)) + (assert-true ok) + (assert-equal st-atime 2153718000) + (assert-equal st-mtime 2153718000)))) ===================================== tests/resources/64-bit-timestamp.txt ===================================== View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/84ed1efd980c14a526130b… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/84ed1efd980c14a526130b… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0