anchor.diff:       nil)
       (t
        (trace-msg "Single character matched")
  -     (values (string-left-trim '(#\space) (subseq string 1)) (rest tokens)))))
  +     (values t
  +             (string-left-trim '(#\space) (subseq string 1))
  +             (rest tokens)))))
   
   (defun pattern-match-string (string tokens)
     (trace-msg "Matching string ~a in middle" (first tokens))
  
positive.code:       ((and (is-npc ch) (member :player (command-info-flags command)))
         (send-to-char ch "Sorry, players ONLY!~%"))
        ((not (check-specials 'command ch command vars))
         (apply (command-info-function command) ch vars)))))
  
  (defun check-specials (trigger ch command vars)
    (or
  
negative.code:     (format stream "#<CMD-INFO ~s~{ ~a~}>"
              (command-info-pattern cmd)
              (command-info-flags cmd)))
  
    (define-condition parser-error (simple-error)
      ((message :reader message-of :initarg :message))
      (:report (lambda (err stream)
                 (princ (message-of err) stream)))))
  
  ;; "get" thing "from" container
  ;; "get" thing "from"
  