anchor.diff:  (defparameter +crlf+
     (format nil "~C~C" #\Return #\Linefeed))
   
  -(defun format-reply-string (reply &optional data)
  +(defun format-reply-string (reply)
     (with-output-to-string (out)
       (format out
               "HTTP/1.1 ~A ~A"
               (wsal:return-code reply)
               (wsal:reason-phrase (wsal:return-code reply)))
  +    
       (write-string +crlf+ out)
  +    
       (iter (for (head . value) in (wsal:headers-out reply))
             (iter (for ch in-string (string head))
                   (for prev previous ch)
  
positive.code:    (external-format :initform :utf-8 :accessor wsal:reply-external-format)))
  
  (defmethod initialize-instance :after ((reply reply) &key)
    (setf (wsal:header-out :content-type reply) 
          "text/html"))
  
  (defmethod wsal:content-type ((reply reply))
    (wsal:header-out :content-type reply))
  
  
negative.code: 
  (defmethod reply (connection request (reply null) (octets vector))
    (check-type octets (vector (unsigned-byte 8)))
    (zmq:send (connection-resp-socket connection)
              (make-instance 'zmq:msg
                             :data (concatenate '(vector (unsigned-byte 8) *)
                                                (babel:string-to-octets (format nil
                                                                                "~A ~A:~A, "
                                                                                (sender-uuid connection)
                                                                                (length (connection-id request))
                                                                                (connection-id request))
                                                                        :encoding :latin1)
                                                octets))))
  
  (defmethod reply (connection request (reply reply) (null null))
    (setf (wsal:header-out :date reply)
          (wsal:rfc-1123-date))
    (reply connection
           request
           nil
           (format-reply-string reply)))
  
  (defmethod reply (connection request (reply null) (data string))
    (reply connection request nil
           (babel:string-to-octets data :encoding :utf-8)))
  
  (defmethod reply (connection request reply (file pathname))
    (let ((octets (alexandria:read-file-into-byte-vector file)))
  