Plaster

(defun make-double (strand) (mapcar #'list strand (complement-strand strand) )) (defun make-double (strand) (do ((s strand (rest s)) (result nil (cons (list (first s) (complement-base (first s))) result))) ((null s) reverse result)))