X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Ftarget-core.lisp;h=0ef862b30cdeb4b710a60b98ab7e5a3ff2030bcb;hb=eafc55e040c41a5fc4215d364f2b2b3bbf545810;hp=1f2b4b1168674b46147c0ffc6dd2e97880b5980e;hpb=50305b602c3953440af716137a56f50cd204375d;p=sbcl.git diff --git a/src/compiler/generic/target-core.lisp b/src/compiler/generic/target-core.lisp index 1f2b4b1..0ef862b 100644 --- a/src/compiler/generic/target-core.lisp +++ b/src/compiler/generic/target-core.lisp @@ -82,7 +82,8 @@ (push info (core-object-debug-info object)) (setf (%code-debug-info code-obj) info)) - (setf (code-header-ref code-obj sb!vm:code-trace-table-offset-slot) length) + (setf (code-header-ref code-obj sb!vm:code-trace-table-offset-slot) + length) (copy-to-system-area trace-table (* sb!vm:vector-data-offset sb!vm:n-word-bits) fill-ptr