gistfile1.txt

(defn get-cur-user [req]
  (if-let [userid (sess/session-get :user-id nil)] ;; <-- breaks
    (db/get-user userid)
    (if-let [user (db/get-user-by-ip)]
      user
      (let [userid (db/add-user! {:ip (:remote-addr req)})]
        (db/get-user userid)))))


___
skateproj.routes> (get-cur-user mock-add-dress-req)

java.lang.ClassCastException: clojure.lang.Var$Unbound cannot be cast to clojure.lang.IDeref
 at clojure.core$deref.invoke (core.clj:2080)
    sandbar.stateful_session$session_get.invoke (stateful_session.clj:104)
    skateproj.routes$get_cur_user.invoke (routes.clj:42)
    skateproj.routes$add_to_cart.invoke (routes.clj:56)
    skateproj.routes$eval3709.invoke (NO_SOURCE_FILE:1)