Install new primitives for vectors and bit strings.

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index f0b7e05d791012242db7e7cb450730d844f20119..87042a9930ed779c6c8c37fdfa62bbad56ca3568 100644 (file)
--- 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 9e4aba15bae4532f379635754237992528a6d681..4ae12e5afc5a29dbc72ba703afda08901cc9a7bf 100644 (file)
--- 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. */
 \f
@@ -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 100c49ad84c64cf4b951d1f0d0a3fa7b1c11c841..cdafb6c9702e1c694659baf2fdcae35c8482ec39 100644 (file)
--- 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 2e1f9a76aa61cdd1773e1e0b62459735e31177e1..e8eaf79f4fe7c30049f91af14c887f070019fde9 100644 (file)
--- 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. */
 \f
@@ -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