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

[Git][cmucl/cmucl][issue-446-unix-errno-pkg] Update errno files for darwin and solaris
by Raymond Toy (＠rtoy) 31 Oct '25

31 Oct '25

Raymond Toy pushed to branch issue-446-unix-errno-pkg at cmucl / cmucl Commits: e13640f0 by Raymond Toy at 2025-10-31T07:58:30-07:00 Update errno files for darwin and solaris Just run `bin/create-errno.sh -U` on the appropriate systems to update these files. - - - - - 2 changed files: - bin/errno-darwin.lisp - bin/errno-solaris.lisp Changes: ===================================== bin/errno-darwin.lisp ===================================== @@ -1,108 +1,108 @@ -(def-unix-error EWOULDBLOCK EAGAIN) -(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) -(def-unix-error EDEADLK 11) -(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) -(def-unix-error EDOM 33) -(def-unix-error ERANGE 34) -(def-unix-error EAGAIN 35) -(def-unix-error EINPROGRESS 36) -(def-unix-error EALREADY 37) -(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 ENOTSUP 45) -(def-unix-error EPFNOSUPPORT 46) -(def-unix-error EAFNOSUPPORT 47) -(def-unix-error EADDRINUSE 48) -(def-unix-error EADDRNOTAVAIL 49) -(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) -(def-unix-error ELOOP 62) -(def-unix-error ENAMETOOLONG 63) -(def-unix-error EHOSTDOWN 64) -(def-unix-error EHOSTUNREACH 65) -(def-unix-error ENOTEMPTY 66) -(def-unix-error EPROCLIM 67) -(def-unix-error EUSERS 68) -(def-unix-error EDQUOT 69) -(def-unix-error ESTALE 70) -(def-unix-error EREMOTE 71) -(def-unix-error EBADRPC 72) -(def-unix-error ERPCMISMATCH 73) -(def-unix-error EPROGUNAVAIL 74) -(def-unix-error EPROGMISMATCH 75) -(def-unix-error EPROCUNAVAIL 76) -(def-unix-error ENOLCK 77) -(def-unix-error ENOSYS 78) -(def-unix-error EFTYPE 79) -(def-unix-error EAUTH 80) -(def-unix-error ENEEDAUTH 81) -(def-unix-error EPWROFF 82) -(def-unix-error EDEVERR 83) -(def-unix-error EOVERFLOW 84) -(def-unix-error EBADEXEC 85) -(def-unix-error EBADARCH 86) -(def-unix-error ESHLIBVERS 87) -(def-unix-error EBADMACHO 88) -(def-unix-error ECANCELED 89) -(def-unix-error EIDRM 90) -(def-unix-error ENOMSG 91) -(def-unix-error EILSEQ 92) -(def-unix-error ENOATTR 93) -(def-unix-error EBADMSG 94) -(def-unix-error EMULTIHOP 95) -(def-unix-error ENODATA 96) -(def-unix-error ENOLINK 97) -(def-unix-error ENOSR 98) -(def-unix-error ENOSTR 99) -(def-unix-error EPROTO 100) -(def-unix-error ETIME 101) -(def-unix-error EOPNOTSUPP 102) -(def-unix-error ENOPOLICY 103) -(def-unix-error ENOTRECOVERABLE 104) -(def-unix-error EOWNERDEAD 105) -(def-unix-error ELAST 106) (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) ===================================== bin/errno-solaris.lisp ===================================== @@ -1,123 +1,123 @@ -(def-unix-error EWOULDBLOCK EAGAIN) -(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) -(def-unix-error EAGAIN 11) -(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) -(def-unix-error EDOM 33) -(def-unix-error ERANGE 34) -(def-unix-error ENOMSG 35) -(def-unix-error EIDRM 36) -(def-unix-error ECHRNG 37) -(def-unix-error EL2NSYNC 38) -(def-unix-error EL3HLT 39) -(def-unix-error EL3RST 40) -(def-unix-error ELNRNG 41) -(def-unix-error EUNATCH 42) -(def-unix-error ENOCSI 43) -(def-unix-error EL2HLT 44) -(def-unix-error EDEADLK 45) -(def-unix-error ENOLCK 46) -(def-unix-error ECANCELED 47) -(def-unix-error ENOTSUP 48) -(def-unix-error EDQUOT 49) -(def-unix-error EBADE 50) -(def-unix-error EBADR 51) -(def-unix-error EXFULL 52) -(def-unix-error ENOANO 53) -(def-unix-error EBADRQC 54) -(def-unix-error EBADSLT 55) -(def-unix-error EDEADLOCK 56) -(def-unix-error EBFONT 57) -(def-unix-error EOWNERDEAD 58) -(def-unix-error ENOTRECOVERABLE 59) -(def-unix-error ENOSTR 60) -(def-unix-error ENODATA 61) -(def-unix-error ETIME 62) -(def-unix-error ENOSR 63) -(def-unix-error ENONET 64) -(def-unix-error ENOPKG 65) -(def-unix-error EREMOTE 66) -(def-unix-error ENOLINK 67) -(def-unix-error EADV 68) -(def-unix-error ESRMNT 69) -(def-unix-error ECOMM 70) -(def-unix-error EPROTO 71) -(def-unix-error ELOCKUNMAPPED 72) -(def-unix-error ENOTACTIVE 73) -(def-unix-error EMULTIHOP 74) -(def-unix-error EADI 75) -(def-unix-error EBADMSG 77) -(def-unix-error ENAMETOOLONG 78) -(def-unix-error EOVERFLOW 79) -(def-unix-error ENOTUNIQ 80) -(def-unix-error EBADFD 81) -(def-unix-error EREMCHG 82) -(def-unix-error ELIBACC 83) -(def-unix-error ELIBBAD 84) -(def-unix-error ELIBSCN 85) -(def-unix-error ELIBMAX 86) -(def-unix-error ELIBEXEC 87) -(def-unix-error EILSEQ 88) -(def-unix-error ENOSYS 89) -(def-unix-error ELOOP 90) -(def-unix-error ERESTART 91) -(def-unix-error ESTRPIPE 92) -(def-unix-error ENOTEMPTY 93) -(def-unix-error EUSERS 94) -(def-unix-error ENOTSOCK 95) -(def-unix-error EDESTADDRREQ 96) -(def-unix-error EMSGSIZE 97) -(def-unix-error EPROTOTYPE 98) -(def-unix-error ENOPROTOOPT 99) -(def-unix-error EPROTONOSUPPORT 120) -(def-unix-error ESOCKTNOSUPPORT 121) -(def-unix-error EOPNOTSUPP 122) -(def-unix-error EPFNOSUPPORT 123) -(def-unix-error EAFNOSUPPORT 124) -(def-unix-error EADDRINUSE 125) -(def-unix-error EADDRNOTAVAIL 126) -(def-unix-error ENETDOWN 127) -(def-unix-error ENETUNREACH 128) -(def-unix-error ENETRESET 129) -(def-unix-error ECONNABORTED 130) -(def-unix-error ECONNRESET 131) -(def-unix-error ENOBUFS 132) -(def-unix-error EISCONN 133) -(def-unix-error ENOTCONN 134) -(def-unix-error ESHUTDOWN 143) -(def-unix-error ETOOMANYREFS 144) -(def-unix-error ETIMEDOUT 145) -(def-unix-error ECONNREFUSED 146) -(def-unix-error EHOSTDOWN 147) -(def-unix-error EHOSTUNREACH 148) -(def-unix-error EALREADY 149) -(def-unix-error EINPROGRESS 150) (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) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e13640f076e17d75a4a64a3… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e13640f076e17d75a4a64a3… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-446-unix-errno-pkg] Forgot to update build-world.sh to load exports-unix
by Raymond Toy (＠rtoy) 31 Oct '25

31 Oct '25

Raymond Toy pushed to branch issue-446-unix-errno-pkg at cmucl / cmucl Commits: 8ffa5f3c by Raymond Toy at 2025-10-31T07:02:54-07:00 Forgot to update build-world.sh to load exports-unix Load exports-unix.lisp instead of exports-errno.lisp. - - - - - 1 changed file: - bin/build-world.sh Changes: ===================================== bin/build-world.sh ===================================== @@ -53,8 +53,8 @@ $LISP "$@" -noinit -nositeinit <<EOF (pushnew :no-clm *features*) (pushnew :no-hemlock *features*) -(load "target:code/exports-errno") (load "target:code/exports") +(load "target:code/exports-unix") (load "target:tools/setup" :if-source-newer :load-source) (comf "target:tools/setup" :load t) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/8ffa5f3c293c918ac51572a… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/8ffa5f3c293c918ac51572a… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-446-unix-errno-pkg
by Raymond Toy (＠rtoy) 30 Oct '25

30 Oct '25

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

1 0

[Git][cmucl/cmucl][issue-437-find-self] Set debug_lisp_search back to FALSE for the default
by Raymond Toy (＠rtoy) 28 Oct '25

28 Oct '25

Raymond Toy pushed to branch issue-437-find-self at cmucl / cmucl Commits: 6b7e97da by Raymond Toy at 2025-10-28T15:55:07-07:00 Set debug_lisp_search back to FALSE for the default We had set it to true for debugging, so set it back to false now. - - - - - 1 changed file: - src/lisp/lisp.c Changes: ===================================== src/lisp/lisp.c ===================================== @@ -115,7 +115,7 @@ getcwd_or_die(char* buf, size_t size) } /* Set this to see how we're doing our search */ -int debug_lisp_search = TRUE; +int debug_lisp_search = FALSE; /* * Define this to get some debugging printfs for searching for the View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/6b7e97dab39899eb3a8a8a0… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/6b7e97dab39899eb3a8a8a0… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[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) 24 Oct '25

24 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