X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fkernel.lisp;h=1311ee316294c634c7bcf6879ae1e07e0e96c92d;hb=6ddaf294e5a7e3b1792ed1d9c342894c38538773;hp=cfcf76be8aea7e84ec3b654e0869566410d8940a;hpb=78fa16bf55be44cc16845be84d98023e83fb14bc;p=sbcl.git

diff --git a/src/code/kernel.lisp b/src/code/kernel.lisp
index cfcf76b..1311ee3 100644
--- a/src/code/kernel.lisp
+++ b/src/code/kernel.lisp
@@ -120,9 +120,18 @@
 
 (defun %set-raw-bits (object offset value)
   (declare (type index offset))
-  (declare (type (unsigned-byte #.sb!vm:n-word-bits) value))
+  (declare (type sb!vm:word value))
   (setf (sb!kernel:%raw-bits object offset) value))
 
+(defun %vector-raw-bits (object offset)
+  (declare (type index offset))
+  (sb!kernel:%vector-raw-bits object offset))
+
+(defun %set-vector-raw-bits (object offset value)
+  (declare (type index offset))
+  (declare (type sb!vm:word value))
+  (setf (sb!kernel:%vector-raw-bits object offset) value))
+
 (defun make-single-float (x) (make-single-float x))
 (defun make-double-float (hi lo) (make-double-float hi lo))