[Git][cmucl/cmucl][issue-128-quit-exit-code] Rename exit-code to code.

[Raymond Toy (@rtoy)]

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/bfdd1d8c039f13caf593472fb564fac58c4af5d5

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/bfdd1d8c039f13caf593472fb564fac58c4af5d5
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20220814/4c23d526/attachment-0001.html>