From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 7 Jul 1987 20:01:19 +0000 (+0000)
Subject: Add hooks for various extensions.
X-Git-Tag: 20090517-FFI~13281
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bb623b3762623a9237577da074eed06d048fbedc;p=mit-scheme.git

Add hooks for various extensions.
---

diff --git a/v7/src/microcode/default.h b/v7/src/microcode/default.h
index 0f6970690..c3a61b3f5 100644
--- a/v7/src/microcode/default.h
+++ b/v7/src/microcode/default.h
@@ -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/Attic/default.h,v 9.26 1987/07/07 02:39:05 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/default.h,v 9.27 1987/07/07 20:01:19 cph Rel $
  *
  * This file contains default definitions for some hooks which 
  * various machines require.  These machines define these hooks
@@ -277,3 +277,21 @@ Loc = Apply_Primitive(N)
 #ifndef Error_Exit_Hook
 #define Error_Exit_Hook()
 #endif
+
+/* Common Lisp Hooks */
+
+#ifndef SITE_EXPRESSION_DISPATCH_HOOK
+#define SITE_EXPRESSION_DISPATCH_HOOK()
+#endif
+
+#ifndef SITE_RETURN_DISPATCH_HOOK
+#define SITE_RETURN_DISPATCH_HOOK()
+#endif
+
+#ifndef DOWNWARD_COERCE_FLONUM_P
+#define DOWNWARD_COERCE_FLONUM_P(number) ((floor (number)) != (number))
+#endif
+
+#ifndef FASLOAD_RELOCATE_HOOK
+#define FASLOAD_RELOCATE_HOOK(heap_low, heap_high, constant_low, constant_high)
+#endif