diff options
| -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)) |