From 30cedf2f4007d03c838ba6e6d1c7dacaa02bd90b Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 29 Jul 1990 12:05:36 +0000
Subject: [PATCH] Added definition for %standard-char-p.

---
 code/char.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/code/char.lisp b/code/char.lisp
index 12adb4aec..f97e56fb1 100644
--- a/code/char.lisp
+++ b/code/char.lisp
@@ -128,6 +128,10 @@
 	     (= n 13)
 	     (= n 10)))))
 
+(defun %standard-char-p (thing)
+  "Return T if and only if THING is a standard-char.  Differs from
+  standard-char-p in that THING doesn't have to be a character."
+  (and (characterp thing) (standard-char-p thing)))
 
 (defun graphic-char-p (char)
   "The argument must be a character object.  Graphic-char-p returns T if the
-- 
GitLab