anchor.diff:        (when shop
           (case trigger
             (command
  -           (perform-vendor-command self shop ch command vars))
  +           (perform-vendor-command self shop ch command
  +                                   (cl-ppcre:split #/\s+/ (first vars))))
             (reset
              (renew-vendor-revenue self shop))
             (tick
  
positive.code:          (when (or (null next-obj)
                     (not (same-obj next-obj obj)))
             (when (or (null vars)
                       (is-alias-of vars (aliases-of obj)))
               (vendor-list-object ch obj
                                   (unless (member (vnum-of obj) (produced-of shop)) counter)
                                   index
  
negative.code: (defcommand (ch "list") (:resting)
    (send-to-char ch "You can't do that here.~%"))
  (defcommand (ch "list" args) (:resting)
    (declare (ignore args))
    (send-to-char ch "You can't do that here.~%"))
  (defcommand (ch "buy") (:resting)
    (send-to-char ch "You can't do that here.~%"))
  (defcommand (ch "buy" args) (:resting)
    (declare (ignore args))
    (send-to-char ch "You can't do that here.~%"))
  (defcommand (ch "sell") (:resting)
    (send-to-char ch "You can't do that here.~%"))
  (defcommand (ch "sell" args) (:resting)
    (declare (ignore args))
    (send-to-char ch "You can't do that here.~%"))
  (defcommand (ch "value") (:resting)
    (send-to-char ch "You can't do that here.~%"))
  (defcommand (ch "value" args) (:resting)
    (declare (ignore args))
    (send-to-char ch "You can't do that here.~%"))
  
  