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

diff --git a/src/code/save.lisp b/src/code/save.lisp
index 486bc97..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))