From 45002d58e741179834a27d030ee50284ae8bc17c Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 23 Mar 1990 21:52:24 +0000
Subject: [PATCH] Added predicate for base-characters.

---
 compiler/typetran.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/typetran.lisp b/compiler/typetran.lisp
index 6080d2997..a8663e05c 100644
--- a/compiler/typetran.lisp
+++ b/compiler/typetran.lisp
@@ -171,6 +171,7 @@
 ;;; type predicates, accepting any type object.
 ;;;
 (define-type-predicate %string-char-p string-char)
+(define-type-predicate base-char-p base-character)
 (define-type-predicate %standard-char-p standard-char)
 
 
-- 
GitLab