X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fppc-vm.lisp;h=7b0e19919c5e602d5dacba0cef1ec30243bb41f6;hb=581e3d62de8cb37e13ad9db63e5537c0f962be28;hp=278fb828ace0ba2dbaa9b6625621fc955c11ff9b;hpb=06c18a339a9883597dc5a96028e7ac983cbb9305;p=sbcl.git diff --git a/src/code/ppc-vm.lisp b/src/code/ppc-vm.lisp index 278fb82..7b0e199 100644 --- a/src/code/ppc-vm.lisp +++ b/src/code/ppc-vm.lisp @@ -20,8 +20,8 @@ -;;; FIXUP-CODE-OBJECT -- Interface -;;; +;;;; FIXUP-CODE-OBJECT + (defun fixup-code-object (code offset fixup kind) (declare (type index offset)) (unless (zerop (rem offset n-word-bytes))