diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp
index cc4568d3c3226acadb960c6538d9652458209832..7ec7727c8e7da7f860e5df293d6f61f3836af717 100644
--- a/compiler/generic/vm-fndb.lisp
+++ b/compiler/generic/vm-fndb.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.6 1990/05/14 01:59:03 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.7 1990/05/23 06:07:34 wlott Exp $
 ;;;
 ;;; This file defines the machine specific function signatures.
 ;;;
@@ -129,3 +129,28 @@
 (defknown (bignum::%ashl bignum::%ashr)
 	  (bignum-element-type (mod 32)) bignum-element-type
   (foldable flushable movable))
+
+
+
+;;;; Bit-bashing routines.
+
+(defknown copy-to-system-area
+	  ((simple-unboxed-array (*)) index system-area-pointer index index)
+  null
+  ())
+
+(defknown copy-from-system-area
+	  (system-area-pointer index (simple-unboxed-array (*)) index index)
+  null
+  ())
+
+(defknown system-area-copy
+	  (system-area-pointer index system-area-pointer index index)
+  null
+  ())
+
+(defknown bit-bash-copy
+	  ((simple-unboxed-array (*)) index
+	   (simple-unboxed-array (*)) index index)
+  null
+  ())