From dc205b4fe9e9d5187e89a0f62e1436d82bd050c7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 25 Apr 1987 20:27:27 +0000
Subject: [PATCH] Install new primitives for vectors and bit strings.

---
 v7/src/microcode/utabmd.scm | 12 ++++++------
 v7/src/microcode/version.h  |  4 ++--
 v8/src/microcode/utabmd.scm | 12 ++++++------
 v8/src/microcode/version.h  |  4 ++--
 4 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index f0b7e05d7..87042a993 100644
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.25 1987/04/16 02:32:05 jinx Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.26 1987/04/25 20:27:27 cph Exp $
 
 (declare (usual-integrations))
 
@@ -476,9 +476,9 @@
 	       SYSTEM-VECTOR-REF			;$9A
 	       SYSTEM-VECTOR-SET!			;$9B
 	       WITH-HISTORY-DISABLED			;$9C
-	       #F					;$9D
-	       #F					;$9E
-	       #F					;$9F
+	       SUBVECTOR-MOVE-RIGHT!			;$9D
+	       SUBVECTOR-MOVE-LEFT!			;$9E
+	       SUBVECTOR-FILL!				;$9F
 	       #F					;$A0
 	       #F					;$A1
 	       #F					;$A2
@@ -537,7 +537,7 @@
 	       BIT-STRING-SET!				;$D7
 	       BIT-STRING-CLEAR!			;$D8
 	       BIT-STRING-ZERO?				;$D9
-	       #F					;$DA
+	       BIT-SUBSTRING-FIND-NEXT-SET-BIT		;$DA
 	       #F					;$DB
 	       UNSIGNED-INTEGER->BIT-STRING		;$DC
 	       BIT-STRING->UNSIGNED-INTEGER		;$DD
@@ -854,4 +854,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.25 1987/04/16 02:32:05 jinx Exp $"
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.26 1987/04/25 20:27:27 cph Exp $"
diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 9e4aba15b..4ae12e5af 100644
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.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/version.h,v 9.45 1987/04/21 23:39:56 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 9.46 1987/04/25 20:24:28 cph Exp $
 
 This file contains version information for the microcode. */
 
@@ -46,7 +46,7 @@ This file contains version information for the microcode. */
 #define VERSION		9
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	45
+#define SUBVERSION	46
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index 100c49ad8..cdafb6c97 100644
--- a/v8/src/microcode/utabmd.scm
+++ b/v8/src/microcode/utabmd.scm
@@ -37,7 +37,7 @@
 
 ;;;; Machine Dependent Type Tables
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.25 1987/04/16 02:32:05 jinx Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.26 1987/04/25 20:27:27 cph Exp $
 
 (declare (usual-integrations))
 
@@ -476,9 +476,9 @@
 	       SYSTEM-VECTOR-REF			;$9A
 	       SYSTEM-VECTOR-SET!			;$9B
 	       WITH-HISTORY-DISABLED			;$9C
-	       #F					;$9D
-	       #F					;$9E
-	       #F					;$9F
+	       SUBVECTOR-MOVE-RIGHT!			;$9D
+	       SUBVECTOR-MOVE-LEFT!			;$9E
+	       SUBVECTOR-FILL!				;$9F
 	       #F					;$A0
 	       #F					;$A1
 	       #F					;$A2
@@ -537,7 +537,7 @@
 	       BIT-STRING-SET!				;$D7
 	       BIT-STRING-CLEAR!			;$D8
 	       BIT-STRING-ZERO?				;$D9
-	       #F					;$DA
+	       BIT-SUBSTRING-FIND-NEXT-SET-BIT		;$DA
 	       #F					;$DB
 	       UNSIGNED-INTEGER->BIT-STRING		;$DC
 	       BIT-STRING->UNSIGNED-INTEGER		;$DD
@@ -854,4 +854,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.25 1987/04/16 02:32:05 jinx Exp $"
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.26 1987/04/25 20:27:27 cph Exp $"
diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index 2e1f9a76a..e8eaf79f4 100644
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.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/v8/src/microcode/version.h,v 9.45 1987/04/21 23:39:56 cph Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 9.46 1987/04/25 20:24:28 cph Exp $
 
 This file contains version information for the microcode. */
 
@@ -46,7 +46,7 @@ This file contains version information for the microcode. */
 #define VERSION		9
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION	45
+#define SUBVERSION	46
 #endif
 
 #ifndef UCODE_TABLES_FILENAME
-- 
2.25.1