backward support to skiplists for ZREVRANGE, still broken, committing since I've...

[redis.git] / client-libraries / clojure / src / redis.clj

diff --git a/client-libraries/clojure/src/redis.clj b/client-libraries/clojure/src/redis.clj
index 0ec33ba63fec7127953efd676834631e97bf00ec..cb5a4faed80822c5ecb06d4bd4a7fe95466aef05 100644 (file)
--- 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))
 )