diff options
| author | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-11 00:31:49 +0000 |
|---|---|---|
| committer | Aryadev Chavali <aryadev@aryadevchavali.com> | 2025-02-11 00:41:00 +0000 |
| commit | bd3a17d67806e70316be9163be5093b5693184ac (patch) | |
| tree | 2866c23bf58e3cca13e77130eb5c10349ea1e8f1 /lib.functions.lisp | |
| parent | 52f7db44cf442e466fd4a0be7eb5e0e03fb4ff09 (diff) | |
| download | cantedraw-bd3a17d67806e70316be9163be5093b5693184ac.tar.gz cantedraw-bd3a17d67806e70316be9163be5093b5693184ac.tar.bz2 cantedraw-bd3a17d67806e70316be9163be5093b5693184ac.zip | |
Move parse-integer*
Diffstat (limited to 'lib.functions.lisp')
| -rw-r--r-- | lib.functions.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib.functions.lisp b/lib.functions.lisp index 2e37f79..e56c224 100644 --- a/lib.functions.lisp +++ b/lib.functions.lisp @@ -27,10 +27,6 @@ each member is STEP distance apart." (loop :for i :from start :to (1- end) :by step :collect i))) -(fn parse-integer* (inp) (-> (string) (or integer list)) - "Given string INP, attempt to parse an integer. Return NIL otherwise." - (parse-integer inp :junk-allowed t)) - (fn take (n lst) (-> (fixnum list) list) "Return the first N elements of LST." (subseq lst 0 n)) @@ -54,3 +50,7 @@ where key x in A has associations {y in LST : INDICATOR(y) = x}." :else :do (setq assoc-list (cons (list key element) assoc-list)) :finally (return assoc-list))) + +(fn parse-integer* (inp) (-> (string) (or integer list)) + "Given string INP, attempt to parse an integer. Return NIL otherwise." + (parse-integer inp :junk-allowed t)) |