summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/hypnotisml.lisp4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/hypnotisml.lisp b/src/hypnotisml.lisp
index adbb14d..a009835 100644
--- a/src/hypnotisml.lisp
+++ b/src/hypnotisml.lisp
@@ -564,11 +564,11 @@ CONTENTS is a list of NODE instances."
(horz horizontal div)
(vert vertical div)))
-(def:fast numeric-char-p ((c character)) -> boolean
+(def:typed numeric-char-p ((c character)) -> boolean
"Returns T if C is in #\0, ... #\9"
(and (find c "0123456789") t))
-(def:fast rational-name-p ((name (or keyword string rational))) -> boolean
+(def:typed rational-name-p ((name (or keyword string rational))) -> boolean
"Returns t if thing is a keyword whose name is describes rational number.
E.g. :1/2, :1, :3/4"