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

(defun powerset (s)
  (if s (mapcan (lambda (x) (list (cons (car s) x) x))
                (powerset (cdr s)))
      '(())))