Changeset 3207

Show
Ignore:
Timestamp:
05/30/08 00:25:23 (7 months ago)
Author:
edi
Message:

Actually use it...

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/thirdparty/hunchentoot/headers.lisp

    r3189 r3207  
    217217    (loop for (key . value) in (headers-out) 
    218218       when value 
    219        do (write-header-line (string-capitalize key) value)) 
     219       do (write-header-line (as-capitalized-string key) value)) 
    220220    ;; now the cookies 
    221221    (loop for (nil . cookie) in (cookies-out)