GitLab

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.

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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.

Raymond Toy pushed to branch issue-391-load-world-can-set-lisp-impl-ver at cmucl / cmucl

Commits:

5 changed files:

Changes: