Skip to content
Snippets Groups Projects
Commit 30cedf2f authored by wlott's avatar wlott
Browse files

Added definition for %standard-char-p.

parent 20768cd0
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment