anchor.diff:                   (etypecase x
                      (string
                       (sequence-adding-form x))
  +                   ((cons string)
  +                    `(progn
  +                       ,@(mapcar #'sequence-adding-form x)))
                      ((cons (eql list))
                       (destructuring-bind (op var &rest types) x
                         (declare (ignore op))
  
positive.code:    ;; Remote server control commands
     #:info
     #:slaveof
     #:config
     #:echo
     #:ping
     #:time))
  
negative.code:         (no-read (when (eq (car spec) :no-read) (pop spec)))
          (docstring (car (last spec)))
          (spec (butlast 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 (and (consp x)
                                                    (not (stringp (car x))))
                                           (list (if (eq (car x) 'list)
                                                     (cadr x)
                                                     (car x)))))
  