Changeset 3366

Show
Ignore:
Timestamp:
06/27/08 11:53:57 (7 months ago)
Author:
hans
Message:

Fix PDF handler.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/lisp-ecoop/src/handlers.lisp

    r3304 r3366  
    4141    (with-http-response (:content-type "application/pdf") 
    4242      (setf (content-length) (length pdf)) 
    43       (with-http-body (:external-format '(unsigned-byte 8)) 
    44         (write-sequence pdf *html-stream*))))) 
     43      (let ((stream (hunchentoot:send-headers))) 
     44        (write-sequence pdf stream) 
     45        (finish-output stream))))) 
    4546 
    4647(defclass make-submission-handler (admin-only-handler page-handler)