anchor.diff:     ;; Remote server control commands
      #:info
      #:slaveof
  -   #:config
  +   #:config-get
  +   #:config-set
  +   #:config-rewrite
  +   #:config-resetstat
      #:echo
      #:ping
      #: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: 
  (define-command info "Provide information and statistics about the server")
  (define-command slaveof (host :string) (port :integer) "Change the replication settings.")
  (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.")
  