X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fmips-vm.lisp;h=558d293f340b01cfc474ae803478872893fdd825;hb=43c1fa847c7a392e145f7d39b5e1ef2cef83e78c;hp=6b0664e4a4ea1a1e04ebe65d6df8b9142a02626b;hpb=4ae1b794a5d6a90794468cf8017f5307f2c30dfe;p=sbcl.git diff --git a/src/code/mips-vm.lisp b/src/code/mips-vm.lisp index 6b0664e..558d293 100644 --- a/src/code/mips-vm.lisp +++ b/src/code/mips-vm.lisp @@ -14,8 +14,8 @@ #!-little-endian "big-endian") -;;; FIXUP-CODE-OBJECT -- Interface -;;; +;;;; FIXUP-CODE-OBJECT + (defun fixup-code-object (code offset value kind) (unless (zerop (rem offset n-word-bytes)) (error "Unaligned instruction? offset=#x~X." offset)) @@ -123,7 +123,7 @@ vector-data-offset) (* length n-byte-bits)) (let* ((index 0) - (error-number (sb!c::read-var-integer vector index))) + (error-number (sb!c:read-var-integer vector index))) (/hexstr error-number) (collect ((sc-offsets)) (loop @@ -131,7 +131,7 @@ (/hexstr index) (when (>= index length) (return)) - (sc-offsets (sb!c::read-var-integer vector index))) + (sc-offsets (sb!c:read-var-integer vector index))) (values error-number (sc-offsets)))))))