- (write-string url server-socket)
- (write-char #\NewLine server-socket)
- (write-string "end" server-socket)
- (write-char #\NewLine server-socket)
- (force-output server-socket)
- (setf reply (read-reply server-socket))
- (when close-socket
- (close server-socket)
- (setf server-socket nil))
- finally
- (unless close-socket (close server-socket))
- (return reply)))
+ (force-output server-socket)
+ (setf reply (read-reply server-socket))
+ (when close-socket
+ (close server-socket)
+ (setf server-socket nil))
+ finally
+ (unless close-socket (close server-socket))
+ (return reply)))