From aac8c1588f2082e04b80fd7159e645325927e5d9 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Mon, 17 Nov 1997 23:39:04 +0000
Subject: [PATCH] Fix a mistake from the previous commit which broke
 maybe_can_move_p when there is no scavenger hook support (for CGC).

---
 lisp/purify.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/purify.c b/lisp/purify.c
index 563ac4c69..8623e8d2e 100644
--- a/lisp/purify.c
+++ b/lisp/purify.c
@@ -10,7 +10,7 @@
    Bug fixes, x86 code movement support, and scavenger hook support,
    by Douglas Crosher, 1996, 1997.
 
-   $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/purify.c,v 1.12 1997/11/08 15:44:38 dtc Exp $ 
+   $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/purify.c,v 1.13 1997/11/17 23:39:04 dtc Exp $ 
 
    */
 #include <stdio.h>
@@ -162,9 +162,9 @@ maybe_can_move_p(lispobj thing)
       case type_Fdefn:
 #ifdef type_ScavengerHook
       case type_ScavengerHook:
+#endif
 	return kind;
 	break;
-#endif
       default:
 	return 0;
       }}}
@@ -684,8 +684,8 @@ static lispobj ptrans_otherptr(lispobj thing, lispobj header, boolean constant)
       case type_WeakPointer:
 #ifdef type_ScavengerHook
       case type_ScavengerHook:
-        return ptrans_boxed(thing, header, FALSE);
 #endif
+        return ptrans_boxed(thing, header, FALSE);
 
       case type_SymbolHeader:
         return ptrans_boxed(thing, header, FALSE);
-- 
GitLab