Changeset 13254

Timestamp:

Dec 4, 2009, 6:42:43 PM (15 years ago)

Author:

gz

Message:

make mark_root clear the right offset when clearing subtag_pool vectors

File:

• trunk/source/lisp-kernel/x86-gc.c (modified) (1 diff)

trunk/source/lisp-kernel/x86-gc.c

@@ -530 +530 @@
 
       if (subtag == subtag_pool) {
-        deref(base, 1) = lisp_nil;
+        deref(n, 1) = lisp_nil;
       }