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:                   ,@body-docstr
                    ,@body-declare
                    (check-type ,actor creature)
                    (handler-case
                        (block nil ,@body)
                      (parser-error (,err)
                        (send-to-char ,actor "~a~%" ,err))))))
      (assert (not (symbolp (first pattern))) nil
              "First token of pattern must not be a symbol.")
      `(progn
  
negative.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))
         (handler-case
             (apply (command-info-function command) ch vars)
           (parser-error (err)
             (send-to-char ch "~a~%" (message-of err))))))))
  
  (defun check-specials (trigger ch command vars)
    (or
  