X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-impl.lisp;h=51fe65662cbebfb5a324c2de01996a090ebb219b;hb=eaf81bd22d56879aa1feff5535d60db81acbd15f;hp=3ab97bf32346d0c9a055f689c77123060a404f3c;hpb=63f714af62d0ccdb9d4a793ab0245b036c3d8531;p=sbcl.git diff --git a/src/code/early-impl.lisp b/src/code/early-impl.lisp index 3ab97bf..51fe656 100644 --- a/src/code/early-impl.lisp +++ b/src/code/early-impl.lisp @@ -33,9 +33,14 @@ ;; pseudo-atomicity too, but they handle it without ;; messing with special variables.) #!+(or x86 x86-64) *pseudo-atomic-bits* - sb!unix::*interrupts-enabled* - sb!unix::*interrupt-pending* + #!+(or hpux) sb!vm::*c-lra* + *allow-with-interrupts* + sb!unix::*unblock-deferrables-on-enabling-interrupts-p* + *interrupts-enabled* + *interrupt-pending* *free-interrupt-context-index* + sb!kernel::*gc-epoch* + sb!vm::*unwind-to-frame-function* sb!vm::*allocation-pointer* sb!vm::*binding-stack-pointer* sb!vm::*fp-constant-0d0* @@ -50,4 +55,6 @@ sb!vm::*fp-constant-lg2* sb!vm::*fp-constant-ln2* sb!vm:*alloc-signal* - sb!pcl::..slot-unbound..)) + sb!pcl::..slot-unbound.. + sb!pcl::*cache-miss-values-stack* + sb!pcl::*dfun-miss-gfs-on-stack*))