- (let ((*number-worker-requests* 0)
- (*close-modlisp-socket* t)
- (*ml-server* server))
- (do ((command (read-modlisp-command) (read-modlisp-command)))
- ((null command))
- (apply (processor server) command (processor-args server))
- (finish-output *modlisp-socket*)
- (incf *number-worker-requests*)
- (incf *number-server-requests*)
- (when *close-modlisp-socket*
- (return)))))
+ (let ((*number-worker-requests* 0)
+ (*close-modlisp-socket* t)
+ (*ml-server* server))
+ (do ((command (read-modlisp-command) (read-modlisp-command)))
+ ((null command))
+ (apply (processor server) command (processor-args server))
+ (finish-output *modlisp-socket*)
+ (incf *number-worker-requests*)
+ (incf *number-server-requests*)
+ (when *close-modlisp-socket*
+ (return)))))