anchor.diff:          (no-read (when (eq (car spec) :no-read) (pop spec)))
           (docstring (car (last spec)))
           (spec (butlast spec)))
  -    (unless (stringp (car spec))
  +    (unless (or (stringp (car spec))
  +                (and (consp (car spec))
  +                     (stringp (caar spec))))
         (push (symbol-name name) spec))
       (let ((inputs (cl:append (mapcan (lambda (x)
  -                                       (when (consp x)
  +                                       (when (and (consp x)
  +                                                  (not (stringp (car x))))
                                            (list (if (eq (car x) 'list)
                                                      (cadr x)
                                                      (car x)))))
  
positive.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 "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.")
  
negative.code:    ;; Remote server control commands
     #:info
     #:slaveof
     #:config-get
     #:config-set
     #:config-rewrite
     #:config-resetstat
     #:echo
     #:ping
     #:time))
  