- (cookie-session-id
- (setf (websession-method session) :cookies))
- (url-session-id
- (case (websession-method session)
- (nil
- (setf (websession-method session) :try-cookie))
- (:try-cookie
- (setf (websession-method session) :try-cookie-2))
- (t
- (setf (websession-method session) :url)))))