X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fchar.lisp;h=4d4b3577105c760accf711ca68a0c06bf74cf8b7;hb=5e9825374b74df450d8cfb2c005e6bef30197734;hp=04192dea37828806548c9eba1b899ddd685bad84;hpb=02afc3779a467fd354d40db8b891f2d866f3d49a;p=sbcl.git

diff --git a/src/compiler/ppc/char.lisp b/src/compiler/ppc/char.lisp
index 04192de..4d4b357 100644
--- a/src/compiler/ppc/char.lisp
+++ b/src/compiler/ppc/char.lisp
@@ -19,7 +19,7 @@
   (:results (y :scs (base-char-reg)))
   (:note "character untagging")
   (:generator 1
-    (inst srwi y x sb!vm:n-widetag-bits)))
+    (inst srwi y x n-widetag-bits)))
 
 (define-move-vop move-to-base-char :move
   (any-reg descriptor-reg) (base-char-reg))
@@ -31,8 +31,8 @@
   (:results (y :scs (any-reg descriptor-reg)))
   (:note "character tagging")
   (:generator 1
-    (inst slwi y x sb!vm:n-widetag-bits)
-    (inst ori y y sb!vm:base-char-widetag)))
+    (inst slwi y x n-widetag-bits)
+    (inst ori y y base-char-widetag)))
 
 (define-move-vop move-from-base-char :move
   (base-char-reg) (any-reg descriptor-reg))