X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Futils.lisp;h=cd08569462c53f88e070d32667c125d00fdf9a64;hb=89eb73c035f05ae53b1148ef8a83e1d4030b2dd8;hp=5df590b467757f58db2668edcc1b8015d2ab54ca;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/compiler/generic/utils.lisp b/src/compiler/generic/utils.lisp
index 5df590b..cd08569 100644
--- a/src/compiler/generic/utils.lisp
+++ b/src/compiler/generic/utils.lisp
@@ -32,8 +32,8 @@
 	(unless posn (error "~S is not a static symbol." symbol))
 	(+ (* posn (pad-data-block symbol-size))
 	   (pad-data-block (1- symbol-size))
-	   other-pointer-type
-	   (- list-pointer-type)))
+	   other-pointer-lowtag
+	   (- list-pointer-lowtag)))
       0))
 
 (defun offset-static-symbol (offset)
@@ -42,7 +42,7 @@
   (if (zerop offset)
       nil
       (multiple-value-bind (n rem)
-	  (truncate (+ offset list-pointer-type (- other-pointer-type)
+	  (truncate (+ offset list-pointer-lowtag (- other-pointer-lowtag)
 		       (- (pad-data-block (1- symbol-size))))
 		    (pad-data-block symbol-size))
 	(unless (and (zerop rem) (<= 0 n (1- (length *static-symbols*))))
@@ -59,6 +59,6 @@
       (error "~S isn't a static function." name))
     (+ (* static-syms (pad-data-block symbol-size))
        (pad-data-block (1- symbol-size))
-       (- list-pointer-type)
+       (- list-pointer-lowtag)
        (* static-function-index (pad-data-block fdefn-size))
-       (* fdefn-raw-addr-slot word-bytes))))
+       (* fdefn-raw-addr-slot n-word-bytes))))