X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/e59229a2d540b00566f44c8f29764de3ae89b5be..e3870fab57b8073de1ebc04bbd300c6ab45c1c34:/client-libraries/clojure/src/redis.clj

diff --git a/client-libraries/clojure/src/redis.clj b/client-libraries/clojure/src/redis.clj
index 0ec33ba6..cb5a4fae 100644
--- a/client-libraries/clojure/src/redis.clj
+++ b/client-libraries/clojure/src/redis.clj
@@ -1,11 +1,11 @@
 ;(add-classpath "file:///Users/ragge/Projects/clojure/redis-clojure/src/")
 
-(set! *warn-on-reflection* true)
-
 (ns redis
   (:refer-clojure :exclude [get set type keys sort])
   (:use redis.internal))
 
+;(set! *warn-on-reflection* true)
+
 (defmacro with-server
   "Evaluates body in the context of a new connection to a Redis server
   then closes the connection.
@@ -100,6 +100,7 @@
   ;; Set commands
   (sadd        [key member] :bulk int-to-bool)
   (srem        [key member] :bulk int-to-bool)
+  (spop        [key] :inline)
   (smove       [srckey destkey member] :bulk int-to-bool)
   (scard       [key] :inline)
   (sismember   [key member] :bulk int-to-bool)
@@ -122,6 +123,7 @@
   (bgsave      [] :inline)
   (lastsave    [] :inline int-to-date)
   (shutdown    [] :inline)
+  ;; Remote control
   (info        [] :inline string-to-map)
   ;;(monitor     [] :inline))
 )