anchor.diff:                  (setf (call-for-help-p shop) (member value '("yes" "on" "1" "true") :test 'string-abbrev)))
                  ("special"
                   (let ((func (gethash value *special-funcs*)))
  -                  (unless func
  -                    (signal 'specparam-error :msg "invalid special" :lineno lineno))
  -                  (setf (func-of shop) func)))
  +                  ; (unless func
  +                  ;   (signal 'specparam-error :msg "invalid special" :lineno lineno))
  +                  (setf (subfunc-of shop) func)))
                  ("allow"
                   ;; ignore - handled by creature matcher
                   nil)
  
positive.code:                       obj-desc
                        cost))))
  
  (defun cost-modifier-of (ch seller)
    (* (- (cha-of seller) (cha-of ch)) 2))
  
  (defun vendor-list-wares (self ch vars shop)
    (unless (carrying-of self)
      (perform-say-to self ch "I'm out of stock at the moment.")
  
negative.code: 
    (with-pagination ((link-of ch))
      ;; list header
      (send-to-char ch " ##   Available   Item                                       ~@(~12@a~)~%"
                    (currency-desc (currency-of shop)))
      (send-to-char ch "-------------------------------------------------------------------------~%")
  
      ;; list body
  