1 665c255d 2023-08-04 jrmu (defun powerset (s)
2 665c255d 2023-08-04 jrmu   (if (null s)
3 665c255d 2023-08-04 jrmu       (list nil)
4 665c255d 2023-08-04 jrmu       (let ((rest (powerset (cdr s))))