+(defun mc-version (&key (memcache *memcache*) (use-pool *use-pool*))
+ (let* ((raw (with-pool-maybe (s memcache use-pool)
+ (send-mc-command s "version")
+ (read-crlf-line s)))
+ (split (delimited-string-to-list raw)))
+ (when (string-equal (first split) "VERSION")
+ (second split))))
+
+(defun mc-verbosity (v &key (memcache *memcache*) (use-pool *use-pool*) (no-reply))
+ (declare (type integer v))
+ (let ((res (with-pool-maybe (s memcache use-pool)
+ (send-mc-command s "verbosity" v (when no-reply "noreply"))
+ (if no-reply
+ (values)
+ (read-crlf-line s)))))
+ res))
+
+(defun mc-flush-all (&key (time nil) (memcache *memcache*) (use-pool *use-pool*) (no-reply))
+ (declare (type (or null integer) time))
+ (let ((res (with-pool-maybe (s memcache use-pool)
+ (if time
+ (send-mc-command s "flush_all" time (when no-reply "noreply"))
+ (send-mc-command s "flush_all" (when no-reply "noreply")))
+ (if no-reply
+ (values)
+ (read-crlf-line s)))))
+ res))
+
+(defun mc-incr (key &key (memcache *memcache*) (delta 1) (use-pool *use-pool*) (no-reply))