Add unit tests for lib.functions.take

2025-02-21 13:59:13 +00:00
parent 4b4421c101
commit e9dcba06bb
2 changed files with 10 additions and 1 deletions
--- a/lib/functions.lisp
+++ b/lib/functions.lisp
@@ -27,7 +27,7 @@ each member is STEP distance apart."
      (loop :for i :from start :to (1- end) :by step
            :collect i)))

-(fn take (n lst) (-> (fixnum list) list)
+(fn take (n lst) (-> (fixnum sequence) sequence)
  "Return the first N elements of LST."
  (subseq lst 0 n))