diff options
-rw-r--r-- | src/hypnotisml.lisp | 4 |
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" |