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