X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fvm.lisp;h=7cc96e8bdf926fe87c2c15092d5fa9f64b259bd6;hb=69e6aef5e6fb3bd682c7a2cbf774034d2ea58ee8;hp=72c25aa3df3608482aa3bf4dc92ca6ee747c1a5b;hpb=f6b2e375747a54a1bfa34ead9f9af2d4e8b5aa38;p=sbcl.git

diff --git a/src/compiler/x86/vm.lisp b/src/compiler/x86/vm.lisp
index 72c25aa..7cc96e8 100644
--- a/src/compiler/x86/vm.lisp
+++ b/src/compiler/x86/vm.lisp
@@ -118,7 +118,7 @@
 ;;; the new way:
 (define-storage-base float-registers :finite :size 8)
 
-(define-storage-base stack :unbounded :size 8)
+(define-storage-base stack :unbounded :size 3 :size-increment 1)
 (define-storage-base constant :non-packed)
 (define-storage-base immediate-constant :non-packed)
 (define-storage-base noise :unbounded :size 2)