File tree 1 file changed +5
-8
lines changed
1 file changed +5
-8
lines changed Original file line number Diff line number Diff line change 23
23
(setf val-offset (length (name header)))))
24
24
25
25
(defmethod required-headers ((request request))
26
- (let ((hdrs (list
27
- (make-instance ' header :name " :method" :value (verb request))
28
- (make-instance ' header :name " :scheme" :value (scheme request))
29
- (make-instance ' header :name " :path" :value (path request))
30
- (make-instance ' header :name " :authority" :value (authority request)))))
31
- (if (body request)
32
- hdrs
33
- (append hdrs (list (make-instance ' header :name " connection" :value " close" ))))))
26
+ (list
27
+ (make-instance ' header :name " :method" :value (verb request))
28
+ (make-instance ' header :name " :scheme" :value (scheme request))
29
+ (make-instance ' header :name " :path" :value (path request))
30
+ (make-instance ' header :name " :authority" :value (authority request))))
34
31
35
32
(defmethod lsxpack-headers ((request request))
36
33
(let* ((all-headers (append (required-headers request) (headers request)))
You can’t perform that action at this time.
0 commit comments