anchor.diff:      (push-error "You must be logged in to access that page.")
       (redirect "/login")))
   
  +(defun sykosomatic-cookie-name ()
  +  "sykosomatic-session")
  +
   (defun persistent-session-gc ()
     (with-db ()
       (let ((old-session-ids (query (:select 'id :from 'persistent-session
  
positive.code: 
  (defdao persistent-session ()
    ((id :col-type serial :reader sykosomatic.db:id)
     (cookie-value :col-type text :initform (random-string 64) :reader session-cookie-value)
     (account-id :col-type bigint :initarg :account-id)
     (user-agent :col-type text :initform (user-agent *request*))
     (last-remote-addr :col-type text :initform (real-remote-addr *request*))
  
negative.code:            :single)))
  
  (defmethod session-verify ((request persistent-session-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)))
  