oreodave/cantedraw
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Move parse-integer*

Browse Source
This commit is contained in:
Aryadev Chavali
2025-02-11 00:31:49 +00:00
parent 52f7db44cf
commit bd3a17d678
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib.functions.lisp
View File

@@ -27,10 +27,6 @@ each member is STEP distance apart."
(loop :for i :from start :to (1- end) :by step (loop :for i :from start :to (1- end) :by step
:collect i))) :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) (fn take (n lst) (-> (fixnum list) list)
"Return the first N elements of LST." "Return the first N elements of LST."
(subseq lst 0 n)) (subseq lst 0 n))
@@ -54,3 +50,7 @@ where key x in A has associations {y in LST : INDICATOR(y) = x}."
:else :else
:do (setq assoc-list (cons (list key element) assoc-list)) :do (setq assoc-list (cons (list key element) assoc-list))
:finally (return 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))