From 7389cee624e2703f59fcd7d7a7807d41707ca035 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 15 Oct 1997 01:17:07 +0000
Subject: [PATCH] Added primitive CHAR?

---
 v7/src/microcode/char.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/v7/src/microcode/char.c b/v7/src/microcode/char.c
index 1017809ff..9c0da8d06 100644
--- a/v7/src/microcode/char.c
+++ b/v7/src/microcode/char.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: char.c,v 9.30 1993/06/24 07:07:11 gjr Exp $
+$Id: char.c,v 9.31 1997/10/15 01:17:07 adams Exp $
 
 Copyright (c) 1987-1991 Massachusetts Institute of Technology
 
@@ -56,6 +56,12 @@ DEFUN (arg_ascii_integer, (n), int n)
   return (arg_index_integer (n, MAX_ASCII));
 }
 
+DEFINE_PRIMITIVE ("CHAR?", Prim_char_p, 1, 1, 0)
+{
+  PRIMITIVE_HEADER (1);
+  PRIMITIVE_RETURN (BOOLEAN_TO_OBJECT (CHARACTER_P (arg_ref (1))));
+}
+
 DEFINE_PRIMITIVE ("MAKE-CHAR", Prim_make_char, 2, 2, 0)
 {
   PRIMITIVE_HEADER (2);
-- 
2.25.1