From 3540e470d78fbd116ca78b2f2e39becffbc4acd8 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 25 Jan 1992 14:39:55 +0000
Subject: [PATCH] When checking to see if an object starts with a forwarding
 pointer, make sure it is a pointer in addition to makeing sure it's in the
 right range.

---
 ldb/purify.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ldb/purify.c b/ldb/purify.c
index 6e6e78403..9c662848c 100644
--- a/ldb/purify.c
+++ b/ldb/purify.c
@@ -1,6 +1,6 @@
 /* Purify. */
 
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/purify.c,v 1.15 1991/12/20 18:47:02 ram Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/purify.c,v 1.16 1992/01/25 14:39:55 wlott Exp $ */
 
 #include <stdio.h>
 
@@ -511,7 +511,7 @@ static lispobj *pscav(addr, nwords, constant)
                 /* Maybe.  Have we already moved it? */
                 thingp = (lispobj *)PTR(thing);
                 header = *thingp;
-                if (forwarding_pointer_p(header))
+                if (Pointerp(header) && forwarding_pointer_p(header))
                     /* Yep, so just copy the forwarding pointer. */
                     thing = header;
                 else {
-- 
GitLab