Add relocation hook for common lisp.

diff --git a/v7/src/microcode/fasload.c b/v7/src/microcode/fasload.c
index 8841fe54e67159db5e0363903517bf8bcc712db1..10ec9be0494c01b36fed38bbb80b63c110fdfb55 100644 (file)
--- a/v7/src/microcode/fasload.c
+++ b/v7/src/microcode/fasload.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fasload.c,v 9.27 1987/06/05 04:14:38 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/fasload.c,v 9.28 1987/07/07 21:02:46 cph Rel $
 
    The "fast loader" which reads in and relocates binary files and then
    interns symbols.  It is called with one argument: the (character
@@ -457,6 +457,7 @@ load_file(from_band_load)
   }
 
   Set_Pure_Top();
+  FASLOAD_RELOCATE_HOOK (Orig_Heap, Free, Orig_Constant, Free_Constant);
   Relocate_Into(Xtemp, Dumped_Object);
   return *Xtemp;
 }