GitLab

at 2022-08-13T17:20:01-07:00

Rename exit-code to code.

Carl, offline, suggested renaming exit-code to just code.

The docstring is also updated, along with the pot file because the
docstring changed.

Update the release notes as well.

@@ -492,15 +492,15 @@
  ;;; Quit gets us out, one way or another.
 -(defun quit (&optional recklessly-p (exit-code 0))
 +(defun quit (&optional recklessly-p (code 0))
    "Terminates the current Lisp.  Things are cleaned up unless
    Recklessly-P is non-Nil.  On quitting, Lisp sets the return code to
 -  exit-code, defaulting to 0."
 +  Code, defaulting to 0."
    (if recklessly-p
 -      (unix:unix-exit exit-code)
 +      (unix:unix-exit code)
        (progn
          (mapc (lambda (fn) (ignore-errors (funcall fn))) *cleanup-functions*)
 -        (throw '%end-of-the-world exit-code))))
 +        (throw '%end-of-the-world code))))
  #-mp ; Multi-processing version defined in multi-proc.lisp.

@@ -51,6 +51,7 @@ public domain.
      * ~~#121~~ Wrong column index in FILL-POINTER-OUTPUT-STREAM
      * ~~#122~~ gcc 11 can't build cmucl
      * ~~#127~~ Linux unix-getpwuid segfaults when given non-existent uid.
 +    * ~~#128~~ `QUIT` accepts an exit code
    * Other changes:
    * Improvements to the PCL implementation of CLOS:
    * Changes to building procedure:

@@ -311,7 +311,7 @@ msgstr ""
  msgid ""
  "Terminates the current Lisp.  Things are cleaned up unless\n"
  "  Recklessly-P is non-Nil.  On quitting, Lisp sets the return code to\n"
 -"  exit-code, defaulting to 0."
 +"  Code, defaulting to 0."
  msgstr ""
  #: src/code/lispinit.lisp