anchor.diff:              (trim title :inside t)))))))
   
   (defun get-title (stream &key (buff-size 1024))
  +  (check-type buff-size integer)
     (let (charset-set title-set)
       (read-until stream
                   #'(lambda (data stream)
  
positive.code:                  "отсоси у тракториста" (xmpp::type- message)))))
  
  (defun my-subseq (seq start &optional end)
    (if (and end (> end (length seq)))
        (subseq seq start)
        (subseq seq start end)))
  
negative.code:            :output '(:string :stripped t)
             :error-output '(:string :stripped t)
             :ignore-error-status t)
          (if (zerop status)
              (ignore-errors
                (ql:quickload "lbot")
                (values t out))
              (values nil err))))))
  
  (defparameter *connection* nil)
  