X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Futils.lisp;h=3162a7d8a242e1fc3da6577fdfc136fdd5c60c27;hp=dff2ab02ac52a9f0a35c73bdddd2eb951b67af7d;hb=ad3505e2f0d71c858425e4e13b7d9d00e633ba61;hpb=b50166ae0ba2bc09a9094c0e675ec92010b7293e

diff --git a/sql/utils.lisp b/sql/utils.lisp
index dff2ab0..3162a7d 100644
--- a/sql/utils.lisp
+++ b/sql/utils.lisp
@@ -21,6 +21,15 @@
     ,@(loop for (place value . rest) on place-value-plist by #'cddr
             collect `(unless ,place (setf ,place ,value)))))
 
+(defmacro pop-n (place &optional (n 1))
+  "pops n items off of a list in place and returns their values in a new list
+
+   if n > the length of the list in place, then we return the full list,
+     setting the place to nil"
+  `(loop repeat ,n
+    while ,place
+    collect (pop ,place)))
+
 (defun %get-int (v)
   (etypecase v
     (string (parse-integer v :junk-allowed t))