anchor.diff:  (defparameter +learn-regexes+ (mapcar (lambda (p)
                                           (cl-ppcre:create-scanner p :case-insensitive-mode t))
                                         '("(.*?)\\s+<(\\S+)>\\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)
  
positive.code:                (add-response db fact :action tidbit))
                ((equal verb "alias")
                 (add-alias-response db fact tidbit))
                ((equal verb "reply")
                 (add-response db fact :reply tidbit))
                ((equal verb "'s")
  
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)
  