Optimized val-at-datom

.gitignore

@@ -26,4 +26,5 @@ TODO.txt
 web/*.js
 web/out
 web/target-cljs
-.rebl
+.rebl
+.shadow-cljs

deps.edn

@@ -40,13 +40,6 @@
       }
     }
 
-    :nrepl {
-      :extra-deps {
-        nrepl/nrepl {:mvn/version "1.0.0"}
-        lambdaisland/deep-diff2 {:mvn/version "2.0.108"}
-      }
-    }
-
     :datomic {
       :extra-paths ["test_datomic"]
       :extra-deps {

script/repl.sh

@@ -0,0 +1,5 @@
+#!/bin/bash
+set -o errexit -o nounset -o pipefail
+cd "`dirname $0`/.."
+
+clj -A:test:bench -J--add-opens=java.base/java.io=ALL-UNNAMED -X clojure.core.server/start-server :name repl :port 5555 :accept clojure.core.server/repl :server-daemon false

src/datascript/db.cljc

@@ -257,14 +257,26 @@
 ;; keep it fast by duplicating for both keyword and string cases
 ;; instead of using sets or some other matching func
 (defn- val-at-datom [^Datom d k not-found]
-  (case k
-    :e      (.-e d) "e"     (.-e d)
-    :a      (.-a d) "a"     (.-a d)
-    :v      (.-v d) "v"     (.-v d)
-    :tx     (datom-tx d)
-    "tx"    (datom-tx d)
-    :added  (datom-added d)
-    "added" (datom-added d)
+  (cond
+    (keyword? k)
+    (case k
+      :e     (.-e d)
+      :a     (.-a d)
+      :v     (.-v d)
+      :tx    (datom-tx d)
+      :added (datom-added d)
+      not-found)
+
+    (string? k)
+    (case k
+      "e"     (.-e d)
+      "a"     (.-a d)
+      "v"     (.-v d)
+      "tx"    (datom-tx d)
+      "added" (datom-added d)
+      not-found)
+
+    :else
     not-found))
 
 (defn- nth-datom