anchor.diff:                                  (return-from cliki-return first-line))))
                         (progn
                           (signal 'lookup-failure)
  -                        (format nil "No definition was found in the first 5 lines of ~A" cliki-url)))))))
  +                        cliki-url))))))
           #+sbcl
           (sb-ext:timeout ()
             (return-from cliki-return (progn (signal 'lookup-failure)
  
positive.code: (define-condition lookup-failure (condition) ())
  
  (defun cliki-first-sentence (term)
    (let* ((cliki-url (format nil "http://www.cliki.net/~A"
  			     (encode-for-url term)))
  	  (url (concatenate 'string cliki-url "?source")))
      (block cliki-return
        (handler-case
            (host-with-timeout
  
negative.code:                                 (if next-line
                                      (setf first-line (concatenate 'string first-line (string #\newline) next-line))
                                      (return-from cliki-return
                                        cliki-url)))
                                (setf first-line (regex-replace-all "\\r" first-line " "))
                                (setf first-line (regex-replace-all "\\n" first-line " "))
                                (setf first-line (regex-replace-all "_\\(([^)]*)\\)" first-line "\\1"))
  