diff options
| author | colin <colin@cicadas.surf> | 2024-08-17 21:53:43 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2024-08-17 21:53:43 -0700 |
| commit | 8ca553e91da3947a55d8b58b0a16a43e1ad6ce24 (patch) | |
| tree | 0cfe11860bca656b83baaf63ccd6f3c2c2fe1e37 | |
| parent | 877e4d8bf87bc03ebfed60e822a6ba1b7a6dbc01 (diff) | |
Update to support breaking change in `def` system
| -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" |