From f940f0e1b0198a45431ae4ebb219b78f8eb3ed46 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 4 Jan 2001 22:24:15 +0000
Subject: [PATCH] Primitive names are supposed to be upper-case.

---
 v7/src/microcode/string.c | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/v7/src/microcode/string.c b/v7/src/microcode/string.c
index c283d23f1..8db21832f 100644
--- a/v7/src/microcode/string.c
+++ b/v7/src/microcode/string.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: string.c,v 9.39 2001/01/04 22:07:43 cph Exp $
+$Id: string.c,v 9.40 2001/01/04 22:24:15 cph Exp $
 
 Copyright (c) 1987-2001 Massachusetts Institute of Technology
 
@@ -530,7 +530,7 @@ static ht_record_t * EXFUN (ht_delete, (hash_table_t *, unsigned long));
 
 static hash_table_t * external_strings = 0;
 
-DEFINE_PRIMITIVE ("allocate-external-string", Prim_alloc_external_string, 1, 1, 0)
+DEFINE_PRIMITIVE ("ALLOCATE-EXTERNAL-STRING", Prim_alloc_external_string, 1, 1, 0)
 {
   PRIMITIVE_HEADER (1);
   {
@@ -547,7 +547,7 @@ DEFINE_PRIMITIVE ("allocate-external-string", Prim_alloc_external_string, 1, 1,
   }
 }
 
-DEFINE_PRIMITIVE ("external-string?", Prim_external_string_p, 1, 1, 0)
+DEFINE_PRIMITIVE ("EXTERNAL-STRING?", Prim_external_string_p, 1, 1, 0)
 {
   PRIMITIVE_HEADER (1);
   {
@@ -565,7 +565,7 @@ DEFINE_PRIMITIVE ("external-string?", Prim_external_string_p, 1, 1, 0)
   }
 }
 
-DEFINE_PRIMITIVE ("deallocate-external-string", Prim_dealloc_external_string, 1, 1, 0)
+DEFINE_PRIMITIVE ("DEALLOCATE-EXTERNAL-STRING", Prim_dealloc_external_string, 1, 1, 0)
 {
   PRIMITIVE_HEADER (1);
   {
@@ -581,7 +581,7 @@ DEFINE_PRIMITIVE ("deallocate-external-string", Prim_dealloc_external_string, 1,
   }
 }
 
-DEFINE_PRIMITIVE ("extended-string-length", Prim_extended_string_length, 1, 1, 0)
+DEFINE_PRIMITIVE ("EXTENDED-STRING-LENGTH", Prim_extended_string_length, 1, 1, 0)
 {
   PRIMITIVE_HEADER (1);
   {
-- 
2.25.1