anchor.diff:                     (content-type* reply) "application/octet-stream")))
             (t (hunchentoot-error "Unsupported unknown websocket version")))))
   
  -(defmethod handle-request ((*acceptor* websocket-acceptor)
  -                           (*request* websocket-request))
  -  "WebSocket junction. Try to continue as a WebSocket connection if
  -the Upgrade and WebSocket request headers were issued and a suitable
  -WebSocket handler could be found."
  +(defmethod acceptor-dispatch-request ((acceptor websocket-acceptor)
  +                                      (request websocket-request))
     (cond ((and (search "upgrade" (string-downcase (header-in* :connection)))
                 (string= "websocket" (string-downcase (header-in* :upgrade)))
                 (setf (websocket-resource *request*)
  
positive.code: (defclass websocket-ssl-acceptor (websocket-acceptor ssl-acceptor) ()
    (:documentation "Special WebSocket SSL acceptor"))
  
  (define-condition websocket-unsupported-version (condition)
    ((version :initarg :version :reader websocket-unsupported-version-of
              :initform (required-argument :version)
              :documentation "Original version argument that is unsupported"))
    (:documentation "Signal for unsupported / unrecognized WebSocket versions"))
  
  (define-condition websocket-illegal-key (condition)
    ((key :initarg :key :reader websocket-illegal-key-of
          :initform (required-argument :key)
          :documentation "Original, spurious key argument"))
    (:documentation "Signalled if client sends erroneous handshake key"))
  
  (define-condition websocket-illegal-frame-type (condition)
    ((type :initarg :type :reader websocket-illegal-frame-type-of
           :initform (required-argument :type)
  
negative.code:   (dotimes (num number)
      (read-byte stream)))
  
  (defun websocket-loop (stream message-handler
                         &optional (version :rfc-6455))
    "Implements the main WebSocket loop for supported protocol
  versions. Framing is handled automatically, MESSAGE-HANDLER ought to
  handle the actual payloads.
  