anchor.diff:                 (add-response db fact :action tidbit))
                 ((equal verb "alias")
                  (add-alias-response db fact tidbit))
  +              ((equal verb "/")
  +               (add-response db fact :reply (concatenate 'string
  +                                                         fact " "
  +                                                         tidbit)))
                 ((equal verb "reply")
                  (add-response db fact :reply tidbit))
                 ((equal verb "'s")
  
positive.code: (defparameter +learn-regexes+ (mapcar (lambda (p)
                                          (cl-ppcre:create-scanner p :case-insensitive-mode t))
                                        '("(.*?)\\s+<(\\S+)>\\s*(.*)"
                                          "(.*?)\\s+(is|are|am|isn't|aren't)\\s+(.*)")))
  (defparameter +address-regexes+ (mapcar (lambda (p)
                                            (list* (cl-ppcre:create-scanner (first p) :case-insensitive-mode t)
  
negative.code: (defmethod handle-command ((module respond-module)
                             (command (eql 'learn))
                             message args)
    "learn <term> ( / | am | is | isn't | are | aren't | < <verb> > | < reply > ) <tidbit> - learn a new response"
    (let ((text (join-to-string " " args)))
      (cond
        ((extract-learnable (responses-of module)
  