X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsave.lisp;h=d4f183ef32e140842ad9927cda4ed1ee1caeab97;hb=878638b5b594ec6c3e8b2310f7d31435c5935ef2;hp=c7b5b6d9c6f0cfff44ce61b49632fb11c9aac1b3;hpb=f82850855bab2cdaaf51c4e92d506b365866e65f;p=sbcl.git

diff --git a/src/code/save.lisp b/src/code/save.lisp
index c7b5b6d..d4f183e 100644
--- a/src/code/save.lisp
+++ b/src/code/save.lisp
@@ -125,6 +125,7 @@ sufficiently motivated to do lengthy fixes."
   (labels ((restart-lisp ()
              (handling-end-of-the-world
                (reinit)
+               #!+hpux (sb!sys:%primitive sb!vm::setup-return-from-lisp-stub)
                (funcall toplevel)))
            (foreign-bool (value)
              (if value 1 0))
@@ -137,12 +138,12 @@ sufficiently motivated to do lengthy fixes."
                ;; since the GC will invalidate the stack.
                #!+gencgc (gc-and-save (unix-namestring core-file-name nil)
                                       (foreign-bool executable)
-                                      (foreign-bool save-runtime-options))
+                                      (foreign-bool save-runtime-options)))
              (without-gcing
               (save (unix-namestring core-file-name nil)
                     (get-lisp-obj-address #'restart-lisp)
                     (foreign-bool executable)
-                    (foreign-bool save-runtime-options))))))
+                    (foreign-bool save-runtime-options)))))
     ;; Save the restart function into a static symbol, to allow GC-AND-SAVE
     ;; access to it even after the GC has moved it.
     #!+gencgc