anchor.diff:               (write-sequence sequence out)
                (write-sequence #(13 10) out))
          sequences))
  -             
  +
   (defmacro define-command (name &rest spec)
     (let ((booleanize (when (eq (car spec) :boolean) (pop spec)))
           (no-read (when (eq (car spec) :no-read) (pop spec)))
  
positive.code:   (frob zinterstore "Intersect over a number of sorted sets with optional weight and aggregate."))
  
  ;; Commands operating on hashes
  
  ;; Some commands here are bulk commands rather than inline.  Why?
  
  
negative.code: (define-command bgrewriteaof "Rewrite the append only file in the background when it gets too big.")
  
  ;; Remote server control commands
  ;; TODO: new config, debug, eval, evalsha, new info, migrate, monitor, object, script, slowlog
  
  (define-command info "Provide information and statistics about the server")
  (define-command slaveof (host :string) (port :integer) "Change the replication settings.")
  (define-command config "Configure a redis server at runtime.")
  (define-command echo (message :string) "Echo the given string.")
  (define-command ping "Ping the redis server.")
  (define-command time "Return the current server time.")
  