anchor.diff:  
   (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 config-get ("CONFIG" "GET") (pattern :string) "Read configuration parameters matching pattern.")
  +(define-command config-rewrite ("CONFIG" "REWRITE") "Rewrite redis configuration file.")
  +(define-command config-set ("CONFIG" "SET") (name :string) (value :string) "Set a configuration variable.")
  +(define-command config-resetstat ("CONFIG" "RESETSTAT") "Reset statistics reported by INFO.")
   (define-command echo (message :string) "Echo the given string.")
   (define-command ping "Ping the redis server.")
   (define-command time "Return the current server time.")
  
positive.code:         (no-read (when (eq (car spec) :no-read) (pop spec)))
          (docstring (car (last spec)))
          (spec (butlast spec)))
      (unless (stringp (car spec))
        (push (symbol-name name) spec))
      (let ((inputs (cl:append (mapcan (lambda (x)
                                         (when (consp x)
                                           (list (if (eq (car x) 'list)
                                                     (cadr x)
                                                     (car x)))))
  
negative.code:    ;; Remote server control commands
     #:info
     #:slaveof
     #:config-get
     #:config-set
     #:config-rewrite
     #:config-resetstat
     #:echo
     #:ping
     #:time))
  