0.pre7.59:

[sbcl.git] / src / code / x86-vm.lisp

diff --git a/src/code/x86-vm.lisp b/src/code/x86-vm.lisp
index 353e1d8..26d8dc4 100644 (file)
--- a/src/code/x86-vm.lisp
+++ b/src/code/x86-vm.lisp
@@ -38,12 +38,12 @@
 
 (defun machine-type ()
   #!+sb-doc
-  "Returns a string describing the type of the local machine."
+  "Return a string describing the type of the local machine."
   "X86")
 
 (defun machine-version ()
   #!+sb-doc
-  "Returns a string describing the version of the local machine."
+  "Return a string describing the version of the local machine."
   "X86")
 \f
 ;;;; :CODE-OBJECT fixups
@@ -76,7 +76,7 @@
                            new-fixups)))
                   (t
                    (unless (or (eq (get-type fixups)
-                                   sb!vm:unbound-marker-type)
+                                   sb!vm:unbound-marker-widetag)
                                (zerop fixups))
                      (format t "** Init. code FU = ~S~%" fixups)) ; FIXME
                    (setf (code-header-ref code code-constants-offset)
@@ -139,7 +139,7 @@
                            new-fixups)))
                   (t
                    (unless (or (eq (get-type fixups)
-                                   sb!vm:unbound-marker-type)
+                                   sb!vm:unbound-marker-widetag)
                                (zerop fixups))
                      (sb!impl::!cold-lose "Argh! can't process fixup"))
                    (setf (code-header-ref code sb!vm:code-constants-offset)
@@ -276,7 +276,7 @@
       (/hexstr length)
       (/hexstr vector)
       (copy-from-system-area pc (* sb!vm:byte-bits 2)
-                            vector (* sb!vm:word-bits
+                            vector (* sb!vm:n-word-bits
                                       sb!vm:vector-data-offset)
                             (* length sb!vm:byte-bits))
       (let* ((index 0)
@@ -338,7 +338,7 @@
 ;;; Support for the MT19937 random number generator. The update
 ;;; function is implemented as an assembly routine. This definition is
 ;;; transformed to a call to the assembly routine allowing its use in
-;;; byte compiled code.
+;;; interpreted code.
 (defun random-mt19937 (state)
   (declare (type (simple-array (unsigned-byte 32) (627)) state))
   (random-mt19937 state))