X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Falpha%2Fc-call.lisp;h=4b627412ea6f0d65a28b5f36c069657b987a78d9;hb=986ce2596822cc0871b609346aaf592348aca596;hp=0e775a481ec0cb0377a929a0e208ae64eb47dadd;hpb=be9eb6c67b5f43a095c3de17bea945c309d662e4;p=sbcl.git

diff --git a/src/compiler/alpha/c-call.lisp b/src/compiler/alpha/c-call.lisp
index 0e775a4..4b62741 100644
--- a/src/compiler/alpha/c-call.lisp
+++ b/src/compiler/alpha/c-call.lisp
@@ -103,7 +103,7 @@
       (dolist (arg-type (alien-fun-type-arg-types type))
 	(arg-tns (invoke-alien-type-method :arg-tn arg-type arg-state)))
       (values (my-make-wired-tn 'positive-fixnum 'any-reg nsp-offset)
-	      (* (max (arg-state-stack-frame-size arg-state) 4) word-bytes)
+	      (* (max (arg-state-stack-frame-size arg-state) 4) n-word-bytes)
 	      (arg-tns)
 	      (invoke-alien-type-method :result-tn
 					(alien-fun-type-result-type type)