From be5e445561b440cf7cd025bb49f90881dcef28eb Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 22 Jul 1991 19:22:34 +0000
Subject: [PATCH] Added defknowns for %make-scavenger-hook, scavenger-hook-p,
 code-component-p, and lra-p.  Deleted some old cruft needed to cross compile
 from the old RT system.

---
 compiler/generic/vm-fndb.lisp | 29 ++++++-----------------------
 1 file changed, 6 insertions(+), 23 deletions(-)

diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp
index 7065835b6..bbd2f8eec 100644
--- a/compiler/generic/vm-fndb.lisp
+++ b/compiler/generic/vm-fndb.lisp
@@ -7,11 +7,11 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.38 1991/03/27 14:19:10 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.39 1991/07/22 19:22:34 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.38 1991/03/27 14:19:10 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.39 1991/07/22 19:22:34 wlott Exp $
 ;;;
 ;;; This file defines the machine specific function signatures.
 ;;;
@@ -52,29 +52,10 @@
 	   simple-array-unsigned-byte-16-p simple-array-unsigned-byte-32-p
 	   simple-array-single-float-p simple-array-double-float-p
 	   system-area-pointer-p realp unsigned-byte-32-p signed-byte-32-p
-	   weak-pointer-p funcallable-instance-p)
+	   weak-pointer-p scavenger-hook-p code-component-p lra-p
+	   funcallable-instance-p)
   (t) boolean (movable foldable flushable))
 
-;;; Introduce these predicates into the old compiler.  This is necessary
-;;; 'cause they are marked as foldable.
-;;; 
-#-new-compiler
-(macrolet ((frob (name type)
-	     `(defun ,name (thing)
-		(typep thing ',type))))
-  (frob simple-array-unsigned-byte-2-p (simple-array (unsigned-byte 2) (*)))
-  (frob simple-array-unsigned-byte-4-p (simple-array (unsigned-byte 4) (*)))
-  (frob simple-array-unsigned-byte-8-p (simple-array (unsigned-byte 8) (*)))
-  (frob simple-array-unsigned-byte-16-p (simple-array (unsigned-byte 16) (*)))
-  (frob simple-array-unsigned-byte-32-p (simple-array (unsigned-byte 32) (*)))
-  (frob simple-array-single-float-p (simple-array single-float (*)))
-  (frob simple-array-double-float-p (simple-array double-float (*)))
-  (frob system-area-pointer-p system-area-pointer)
-  (frob realp real)
-  (frob unsigned-byte-32-p (unsigned-byte 32))
-  (frob signed-byte-32-p (signed-byte 32))
-  (frob weak-pointer-p weak-pointer))
-
 
 ;;;; Miscellaneous "sub-primitives":
 
@@ -142,6 +123,8 @@
 
 (defknown %make-weak-pointer (t boolean) weak-pointer
   (flushable))
+(defknown %make-scavenger-hook (t function) scavenger-hook
+  (flushable))
 (defknown %make-complex (real real) complex
   (flushable movable))
 (defknown %make-ratio (rational rational) ratio
-- 
GitLab