; first
      (let ((s (read-file file))
            (backup (make-pathname
                      :defaults file
                      :directory "/tmp/")))

; second
      (let ((s (read-file file))
            (backup (make-pathname
                      :defaults  file
                      :directory "/tmp/")))

; third
      (let ((s      (read-file file))
            (backup (make-pathname
                      :defaults  file
                      :directory "/tmp/")))