Raymond Toy pushed to branch issue-128-quit-exit-code at cmucl / cmucl

Commits: bfdd1d8c by Raymond Toy 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.

- - - - -

3 changed files:

- src/code/lispinit.lisp - src/general-info/release-21e.md - src/i18n/locale/cmucl.pot

Changes:

===================================== src/code/lispinit.lisp ===================================== @@ -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.

===================================== src/general-info/release-21e.md ===================================== @@ -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:

===================================== src/i18n/locale/cmucl.pot ===================================== @@ -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

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/bfdd1d8c039f13caf593472f...