From 8ca553e91da3947a55d8b58b0a16a43e1ad6ce24 Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 17 Aug 2024 21:53:43 -0700 Subject: Update to support breaking change in `def` system --- src/hypnotisml.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') 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" -- cgit v1.2.3