GitLab

at 2022-08-14T15:00:30+00:00

Fix #128: quit accepts an exit code

Merge branch 'issue-128-quit-exit-code' into 'master'

Fix #128: quit accepts an exit code

Closes #128

See merge request cmucl/cmucl!87

 ;;; Quit gets us out, one way or another.

-(defun quit (&optional recklessly-p)

-  "Terminates the current Lisp.  Things are cleaned up unless Recklessly-P is

-  non-Nil."

+(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

+  Code, defaulting to 0."

   (if recklessly-p

-      (unix:unix-exit 0)

+      (unix:unix-exit code)

       (progn

         (mapc (lambda (fn) (ignore-errors (funcall fn))) *cleanup-functions*)

-        (throw '%end-of-the-world 0))))

+        (throw '%end-of-the-world code))))

 #-mp ; Multi-processing version defined in multi-proc.lisp.

     * ~~#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/code/lispinit.lisp

 msgid ""

-"Terminates the current Lisp.  Things are cleaned up unless Recklessly-P is\n"

-"  non-Nil."

+"Terminates the current Lisp.  Things are cleaned up unless\n"

+"  Recklessly-P is non-Nil.  On quitting, Lisp sets the return code to\n"

+"  Code, defaulting to 0."

 msgstr ""

 #: src/code/lispinit.lisp

Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

3 changed files:

Changes: