- (write-string "end" *apache-socket*)
- (write-char #\NewLine *apache-socket*)
- (write-string ,outstr *apache-socket*)
- (set-close-apache-socket nil))
+ (write-header-line "Connection" "Keep-Alive")
+ (write-string "end" *modlisp-socket*)
+ (write-char #\NewLine *modlisp-socket*)
+ (write-string ,outstr *modlisp-socket*)
+ (finish-output *modlisp-socket*)
+ (setq *close-modlisp-socket* nil))