Raymond Toy pushed to branch issue-391-load-world-can-set-lisp-impl-ver at cmucl / cmucl Commits: 9e2e8c94 by Raymond Toy at 2025-03-24T12:20:26-07:00 Remove *lisp-implementation-version* from static symbols We don't need `*lisp-implementation-version*` to be a static symbol anymore because the C code doesn't need it anymore. The C code doesn't need to initialize the value because `load-world.sh` will do that. - - - - - 5 changed files: - src/compiler/arm/parms.lisp - src/compiler/ppc/parms.lisp - src/compiler/sparc/parms.lisp - src/compiler/x86/parms.lisp - src/lisp/lisp.c Changes: ===================================== src/compiler/arm/parms.lisp ===================================== @@ -343,11 +343,11 @@ :key-or-value lisp::*unidata-path* - lisp::*lisp-implementation-version* ;; Some spare static symbols. Useful for adding another static ;; symbol without having to do a cross-compile. Just rename one ;; of these to the desired name. + spare-9 spare-8 spare-7 spare-6 ===================================== src/compiler/ppc/parms.lisp ===================================== @@ -295,9 +295,9 @@ :key-and-value :key-or-value - lisp::*lisp-implementation-version* ;; Spare symbols. Rename these when you need to add some static ;; symbols and don't want to do a cross-compile. + spare-9 spare-8 spare-7 spare-6 ===================================== src/compiler/sparc/parms.lisp ===================================== @@ -358,11 +358,11 @@ *fp-constant-0f0* lisp::*unidata-path* - lisp::*lisp-implementation-version* ;; Some spare static symbols. Useful for adding another static ;; symbol without having to do a cross-compile. Just rename one ;; of these to the desired name. + spare-9 spare-8 spare-7 spare-6 ===================================== src/compiler/x86/parms.lisp ===================================== @@ -380,9 +380,10 @@ :key-or-value lisp::*unidata-path* - lisp::*lisp-implementation-version* + ;; Spare symbols. Rename these when you need to add some static ;; symbols and don't want to do a cross-compile. + spare-9 spare-8 spare-7 spare-6 ===================================== src/lisp/lisp.c ===================================== @@ -961,12 +961,6 @@ main(int argc, const char *argv[], const char *envp[]) } #endif -#if 0 -#ifdef LISP_IMPLEMENTATION_VERSION - SetSymbolValue(LISP_IMPLEMENTATION_VERSION, alloc_string(cmucl_version)); -#endif -#endif - /* * Pick off sigint until the lisp system gets far enough along to * install it's own. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/9e2e8c9401110c937ba7e7bb... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/9e2e8c9401110c937ba7e7bb... You're receiving this email because of your account on gitlab.common-lisp.net.