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 (file)
--- 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 (file)
--- 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"