GitLab

at 2025-02-09T07:14:22-08:00

Fix misleading debugging print message

The message said "Found it, but we can't read it".  This is
misleading.  The message should really say either the file doesn't
exist or that we can't read it if it does (because `access(buf, R_OK)`
failed).

@@ -167,7 +167,7 @@ TARGET="`echo $1 | sed 's:/*$::'`"
  # Choose a version based on the git hash as the default version.  We
  # only compute a default if the git hash looks like a snapshot
  # ("snapshot-yyyy-mm") or a release number..
 -DEFAULT_VERSION="`$TARGET/lisp/lisp -print-version`"
 +DEFAULT_VERSION="`$TARGET/lisp/lisp --version`"
  if [ -z "$VERSION" ]; then
      # If a default version exists, use it. Otherwise this is an

@@ -400,18 +400,14 @@
    (format t "~A~%" (lisp-implementation-version))
    (ext:quit))
 +;; the switches "-version" and "--version" are never actually called
 +;; from lisp because main() handles it and returns before the lisp
 +;; initial function is ever run.  It's here so that -help will print
 +;; it out so the user knows about it.
  (defswitch "version" #'version-switch-demon
 -  "Prints the cmucl version and exits")
 +  "Prints the cmucl version and exits, without loading the lisp core.")
  ;; Make --version work for the benefit of those who are accustomed to
  ;; GNU software.
  (defswitch "-version" #'version-switch-demon
    "Prints the cmucl version and exits; same as -version")
+-
 -;; This is never actually called from lisp because main() handles it
 -;; and returns before the lisp initial function is ever run.  It's
 -;; here so that -help will print it out so the user knows about it.
 -(defswitch "print-version" #'version-switch-demon
 -  "Like -version, but a core file doesn't have to loaded first.  The
 - version is printed and lisp exits immediately before doing any of the
 - core startup code.")

@@ -27,6 +27,8 @@ public domain.
      * The RNG has changed from an old version of xoroshiro128+ to
        xoroshiro128**.  This means sequences of random numbers will be
        different from before.  See ~~#276~~.
 +    * The layout of the distribution has changed.  Version numbers are
 +      added to files and directories.  For the exact layout, see !261.
    * ANSI compliance fixes:
    * Bug fixes:
    * Gitlab tickets:
@@ -112,6 +114,8 @@ public domain.
      * ~~#360~~ Adding site-init file
      * ~~#361~~ Add herald item to mention where to report issues
      * ~~#362~~ Simplify "library:" search-list
 +    * ~~#363~~ Version numbers added to files and directories.  The
 +      distribution layout has changed.
      * ~~#364~~ Add interface to `mkdtemp` and `mkstemp`
      * ~~#367~~ Add stream:string-count-octets to count octets in a string
      * ~~#369~~ Improve docstring for `unix::unix-setlocale`

@@ -6216,13 +6216,6 @@ msgstr ""
  msgid "Prints the cmucl version and exits; same as -version"
  msgstr ""
 -#: src/code/commandline.lisp
 -msgid ""
 -"Like -version, but a core file doesn't have to loaded first.  The\n"
 -" version is printed and lisp exits immediately before doing any of the\n"
 -" core startup code."
 -msgstr ""
+-
  #: src/code/env-access.lisp
  msgid ""
  "Returns information about the symbol VAR in the lexical environment ENV.\n"

@@ -342,7 +342,7 @@ search_core(const char *lib, const char *default_core)
  	    return buf;
  	} else {
  	    if (debug_lisp_search) {
 -		fprintf(stderr, "Found it, but we can't read it!\n");
 +		fprintf(stderr, "Does not exist, or can't read it if it does!\n");
+ 	    }
+ 	}
      } while (*lib++ == ':');
@@ -679,7 +679,8 @@ main(int argc, const char *argv[], const char *envp[])
  	    debug_lisp_search = TRUE;
          } else if (strcmp(arg, "-unidata") == 0) {
            unidata = *++argptr;
 -        } else if (strcmp(arg, "-print-version") == 0) {
 +        } else if ((strcmp(arg, "-version") == 0) ||
 +		   (strcmp(arg, "--version") == 0)) {
  	    /*
  	     * Print the version and exit; we don't want to do
  	     * anything else!

Raymond Toy pushed to branch issue-363-add-version-number at cmucl / cmucl

Commits:

5 changed files:

Changes: