From: Douglas K. <sn...@us...> - 2015-03-28 17:37:15
|
The branch "master" has been updated in SBCL: via 12782965dcfc72deaee4ed2a011710643c8adf50 (commit) from e9071b4ccb3e7f8eb94fa809e84bf0ea7fdfb4e3 (commit) - Log ----------------------------------------------------------------- commit 12782965dcfc72deaee4ed2a011710643c8adf50 Author: Douglas Katzman <do...@go...> Date: Sat Mar 28 13:35:18 2015 -0400 Replace literal number with symbolic constant --- src/compiler/generic/genesis.lisp | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp index 73f3b56..c91ba41 100644 --- a/src/compiler/generic/genesis.lisp +++ b/src/compiler/generic/genesis.lisp @@ -2517,7 +2517,7 @@ core and return a descriptor to it." (define-cold-fop (fop-structset) (let ((obj (ref-fop-table (read-word-arg))) (idx (read-word-arg))) - (write-wordindexed obj (1+ idx) (pop-stack)))) + (write-wordindexed obj (+ idx sb!vm:instance-slots-offset) (pop-stack)))) (define-cold-fop (fop-nthcdr) (cold-nthcdr (read-word-arg) (pop-stack))) ----------------------------------------------------------------------- hooks/post-receive -- SBCL |