+(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)))
+