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