X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-init.lisp;h=2b26328f01315f7e0b9a5a810266421c09893939;hb=395c461b58f0cd484c21913c1e075593c206b5c1;hp=63362b7b86f2be11b9e45a073c207a1e4ad9b06d;hpb=90d05e4ae39a451ce13a25f4467d0d280ff49593;p=sbcl.git

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index 63362b7..2b26328 100644
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
@@ -141,6 +141,7 @@
   ;; forms run.
   (show-and-call !type-class-cold-init)
   (show-and-call !typedefs-cold-init)
+  (show-and-call !world-lock-cold-init)
   (show-and-call !classes-cold-init)
   (show-and-call !early-type-cold-init)
   (show-and-call !late-type-cold-init)
@@ -258,6 +259,8 @@
   (/show0 "done initializing, setting *COLD-INIT-COMPLETE-P*")
   (setf *cold-init-complete-p* t)
 
+  ; hppa heap is segmented, lisp and c uses a stub to call eachother
+  #!+hpux (sb!sys:%primitive sb!vm::setup-return-from-lisp-stub)
   ;; The system is finally ready for GC.
   (/show0 "enabling GC")
   (gc-on)