anchor.diff:  (defun split-once (line seq)
     "Split string LINE by sequence SEQ once."
     (let ((pos (search seq line)))
  -    (list (subseq line 0 pos) (subseq line (+ pos (length seq))))))
  +    (if pos
  +        (list (subseq line 0 pos) (subseq line (+ pos (length seq))))
  +        (list line))))
  +    
   
   (defun numeric-p (string)
     "Check if string contains only digits."
  
positive.code: (defmethod print-object ((msg privmsg-message) stream)
    "Print PRIVMSG object."
    (print-unreadable-object (msg stream :type t :identity t)
      (format stream "~a: PREFIX: '~a' CHANNEL: '~a' MSG: '~a'"
              (date-fmt msg)
              (prefix msg)
              (channel msg)
              (message msg))))
  
  
negative.code:                    (args args)
                     (message message)) msg
      (setf message (car args))))
  
  (defclass notice-message (privmsg-message) ())
  
  (defclass part-message (privmsg-message)
    ((channel
  