Add TAKE.

kutils.lisp

@@ -6,6 +6,15 @@
 
 ;;; This file contains various utilities I've written.
 
+(defun take (n lst)
+  "Take n elements from lst."
+  (labels ((rec (n lst acc)
+             (if (or (zerop n) (null lst))
+                 (nreverse acc)
+                 (rec (- n 1) (cdr lst) (cons (car lst) acc)))))
+    (when (> n 0)
+      (rec n lst nil))))
+
 (defun interpose (x sep)
   "Takes a list and a separator, and places separator between element
 of the list."

package.lisp

@@ -9,13 +9,14 @@
            #:compose
            #:defmacro! ; Let Over Lambda utilities
            #:interpose ; My utilities
+           #:take
            #:build-list
            #:partial
            #:macroexpand-n
            #:mksymb
            #:mkkw
            #:defclass!
-	   #:zip
+           #:zip
            #:enable-hash-table-reader
            #:hashkeys
            #:sethash