From: Christophe Rhodes Date: Thu, 12 Jan 2006 09:31:21 +0000 (+0000) Subject: 0.9.8.36: X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=bd5dfa4a42f34fe992cd4507989cc13120ed7e83;p=sbcl.git 0.9.8.36: ->pure, not ->slots[15] in purify ... independent of whether 7 clos-hash slots get deleted, this might prevent future maintainers making the same kind of fool of themselves as I did with my "inconsequential modifications" error... --- diff --git a/src/runtime/purify.c b/src/runtime/purify.c index fc8bbd5..ba07c21 100644 --- a/src/runtime/purify.c +++ b/src/runtime/purify.c @@ -537,8 +537,9 @@ ptrans_boxed(lispobj thing, lispobj header, boolean constant) static lispobj ptrans_instance(lispobj thing, lispobj header, boolean /* ignored */ constant) { - lispobj layout = ((struct instance *)native_pointer(thing))->slots[0]; - lispobj pure = ((struct instance *)native_pointer(layout))->slots[15]; + struct layout *layout = + (struct layout *) native_pointer(((struct instance *)native_pointer(thing))->slots[0]); + lispobj pure = layout->pure; switch (pure) { case T: diff --git a/version.lisp-expr b/version.lisp-expr index 60c548c..4015c26 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.9.8.35" +"0.9.8.36"