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

(defun power-set (list)
    (let ((pow-set (list nil)))
      (dolist (element (reverse list) pow-set)
        (dolist (set pow-set)
          (push (cons element set) pow-set)))))