a
Size: a a a
a
s
MP
T
AR
S
S
AC
D
IG
D
S
IG
IG
IG
D
(defn- authenticated? [user pass]
(= [user pass]
[(System/getenv "AUTH_USER") (System/getenv "AUTH_PASS")]))
(defn- authenticated? [user pass]
(and (= user (System/getenv "AUTH_USER"))
(= pass System/getenv "AUTH_PASS"))))
AC
IG
ST