0.9.8.36:
authorChristophe Rhodes <csr21@cam.ac.uk>
Thu, 12 Jan 2006 09:31:21 +0000 (09:31 +0000)
committerChristophe Rhodes <csr21@cam.ac.uk>
Thu, 12 Jan 2006 09:31:21 +0000 (09:31 +0000)
->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...

src/runtime/purify.c
version.lisp-expr

index fc8bbd5..ba07c21 100644 (file)
@@ -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:
index 60c548c..4015c26 100644 (file)
@@ -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"