anchor.diff:             :single)))
   
   (defmethod session-verify ((request persistent-session-request))
  -  (let ((session-identifier (or (cookie-in (session-cookie-name *acceptor*) request)
  -                                (get-parameter (session-cookie-name *acceptor*) request))))
  +  (let ((session-identifier (or (cookie-in (sykosomatic-cookie-name) request)
  +                                (get-parameter (sykosomatic-cookie-name) request))))
       (when (and session-identifier
                  (stringp session-identifier)
                  (not (emptyp session-identifier)))
  
positive.code:     (push-error "You must be logged in to access that page.")
      (redirect "/login")))
  
  (defun persistent-session-gc ()
    (with-db ()
      (let ((old-session-ids (query (:select 'id :from 'persistent-session
  
negative.code:                                   :column)))
        (map nil #'session-cleanup old-session-ids))))
  
  (defparameter *ssl-enabled-p* nil)
  
  (defun start-persistent-session (account-id)
    (or (when (eql account-id (current-account *session*)) *session*)
        (let ((session (with-db () (make-dao 'persistent-session :account-id account-id))))
          (set-cookie (sykosomatic-cookie-name)
                      :value (session-cookie-value session)
                      :path "/"
                      :secure *ssl-enabled-p*
                      :http-only t)
          #+nil(persistent-session-gc)
          (setf *session* (id session)))))
  
  