gcl.git - GNU Common Lisp

diff --git a/gcl/o/gbc.c b/gcl/o/gbc.c
index 6be9f5fef..589012f42 100755
--- a/gcl/o/gbc.c
+++ b/gcl/o/gbc.c

@@ -879,6 +879,8 @@ mark_stack_carefully(void *topv, void *bottomv, int offset) {

if (is_marked_or_free(x)) continue;

+ if (((unsigned long)x%OBJ_ALIGNMENT)) continue;

+

#ifdef SGC

if (sgc_enabled)

sgc_mark_object(x);