(if listeggs
     (display
                             (list-available-extensions
                              *default-transport* *default-location*))
                            (install (apply-mappings (reverse eggs))))
                        (cond (listeggs
                               (display
                                (list-available-extensions
                                 *default-transport* *default-location*)))
                              (*show-foreign-deps*
                               (show-foreign-dependencies eggs))
                              (else (install (apply-mappings (reverse eggs)))))