RosettaCodeData/Task/Power-set/Common-Lisp/power-set-4.lisp

(defun powerset (xs)
  (loop for i below (expt 2 (length xs)) collect
       (loop for j below i for x in xs if (logbitp j i) collect x)))