(load "~/quicklisp/setup.lisp")
(ql:quickload :cl-ftp)
(defpackage :example
  (:use :cl
        :ftp))
(in-package :example)

; Works
(with-ftp-connection (conn :hostname "ftp.ncdc.noaa.gov" :passive-ftp-p t)
  (retrieve-file conn "pub/data/noaa/readme.txt" "./readme.txt"))

; Does not work - I am expecting an ftp:ftp-error in this case but instead it hangs forever
(with-ftp-connection (conn :hostname "ftp.ncdc.noaa.gov" :passive-ftp-p t)
  (retrieve-file conn "pub/data/noaa/fake-file-does-not-exist.txt" "./file.txt"))