How to download and save a file using drakma:http-request and flexistreams

Question

I am trying to download and save a PDF but it fails while writing with an EOF-Error. What would be the correct way of doing this?

(with-open-file (file "/home/*/test.pdf"
                      :direction :io
                      :if-does-not-exist :create
                      :if-exists :supersede
                      :element-type '(unsigned-byte 8))
  (let ((input (drakma:http-request "http://www.fractalconcept.com/ex.pdf"
                                    :want-stream t)))
    (awhile (read-byte input)
      (write-byte it file))
    (close input)))

Sim · Accepted Answer · 2014-08-25T13:01:05.790

8

The solution was that I forgot to use the two optional parameters of read-byte.

The correct way would be to set eof-error-p and eof-value to nil:

(with-open-file (file "/home/*/test.pdf"
                      :direction :output
                      :if-does-not-exist :create
                      :if-exists :supersede
                      :element-type '(unsigned-byte 8))
  (let ((input (drakma:http-request "http://www.fractalconcept.com/ex.pdf"
                                    :want-stream t)))
    (awhile (read-byte input nil nil)
      (write-byte it file))
    (close input)))

edited Aug 25 '14 at 13:01

answered Sep 26 '12 at 17:44

Sim

4,199
4
39
77

1

Since you are only outputting, you should use `:direction :output`. – Svante Sep 26 '12 at 21:35

score 2 · Answer 2 · answered Nov 07 '17 at 20:33

2

(ql:quickload "trivial-download")
(trivial-download:download URL FILE)

; Does pretty much exactly what your code does but in bigger chunks and can show a progress bar.

; QuickLisp can be found at http://QuickLisp.org.

answered Nov 07 '17 at 20:33

Devon

1,019
9
20

score 1 · Answer 3 · answered Sep 29 '12 at 12:27

1

AWHILE is found in package ARNESI.

answered Sep 29 '12 at 12:27

sebyte

36
1

How to download and save a file using drakma:http-request and flexistreams

3 Answers3