anchor.diff:         (with-open-stream (,var ,stream)
            ,@body))))
   
  -(with-input-from-encoded-string (s "charset='utf-8' <title>тайтл-ютф</title>" :utf-8)
  +(with-input-from-encoded-string
  +    (s "charset='utf-8' <title>тайтл-ютф</title>" :utf-8)
     (is "тайтл-ютф" (lbot::get-title s)))
   
  -(with-input-from-encoded-string (s "charset=\"windows-1251\" <title>тайтл-1251</title>"
  +(with-input-from-encoded-string
  +    (s "charset=\"windows-1251\" <title>тайтл-1251</title>"
                                      :windows-1251)
     (is "тайтл-1251" (lbot::get-title s)))
   
  -(with-input-from-encoded-string (s "<title>тайтл-1251-2</title> charset='windows-1251'"
  +(with-input-from-encoded-string
  +    (s "<title>тайтл-1251-2</title> charset='windows-1251'"
                                      :windows-1251)
     (is "тайтл-1251-2" (lbot::get-title s :buff-size 10)))
   
  
positive.code: 
  (setf *default-reporter* :list)
  
  (plan 9)
  
  (diag "testing utils")
  
  
negative.code: (is "test" (lbot::starts-with-nick "nick" "nick test"))
  (is "test" (lbot::starts-with-nick "nick" "nick: test"))
  (is nil (lbot::starts-with-nick "nick" "nic test"))
  
  (is :keyword (lbot::make-keyword "keyword"))
  
  (diag "~&testing read-until")
  
  