Seminario_TP4_EJ05

(defun misma-forma (l1 l2)
    (cond       ((null l1)
                (if (null l2)
                    t
                    nil
                )
            )
            ((null l2)
                (if (null l1)
                    t
                    nil
                )
            )
            ((atom (car l1))
                (if (atom (car l2))
                    (misma-forma (cdr l1) (cdr l2))
                    nil
                )
            )
            ((listp (car l1))
                (if (listp (car l2))
                    (if (misma-forma (car l1) (car l2))
                        (misma-forma (cdr l1) (cdr l2))
                        nil
                    )
                    nil
                )
            )
    )
)