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